Re: Biton/Bitoff

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
+---