Re: Biton/Bitoff

Since we're on this string, is there a easy implementation of a XOR
function with this or is there a XOR builtin that I've overlooked??

Don in DC metro...



On Wed, 18 Mar 1998, David Morris wrote:

> Scott,
> 
> Looks like the hard way to arrive at *loval, *blank, shift zero or "A" 
>(Assuming english EBCIDIC).  The
> bitof is like moving *LOVAL to the field.  The biton sets the corresponding 
>bit on so you get 
> if N60/N61 00000000 x'00', 60/N61 10000000 x'80', N60/61 01000000 = x'40', or 
>60/61 11000000
> = x'C0'.  x'00'=loval, x'80'=shift zero, x'40'=blank, x'C0'=A.  If you have 
>the windows calculator it is 
> real easy to convert the values.  Just switch between binary and hex.  I 
>don't go back far enougth to 
> know if those values are special or not but the hex '80' is a easy to 
>missinterpret, it displays as a zero 
> on most terminals but is definitely not a zero.
> 
> David Morris
> 
> >>> "Scott Swaim" <scott71@hpnc.com> 03/20 2:13 PM >>>
>         Never having programmed the to opcodes, What are they?  That do they 
>do?
> 
> Please explain what is happening with this code.
> 
> 
> C                                 BITOFF     '01234567'         SS1    1
> C           60                 BITON       '0'                         SS1
> C           61                 BITON       '1'                         SS1
>   
> 
> 
> 
> TIS
> 
> 
> 
> Scott Swaim
> scott71@hpnc.com 
> http://www.qualitycorps.com 
> 
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                          !
  !
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                    
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---