JBCS [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: JBCS)}}
====== JBCS ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:INCRCUBS860|INCRCUBS860]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INCVFCHK850|INCVFCHK850]], [[george:source:INCWRITE865|INCWRITE865]]

<code - JBCS.mac.txt>
 6D7F ...[   
 6D=4 ...[   
 6D#N ...[??? JBCS SECT FILE FGN 24 DOC  
 6DJG    #MAC  JBCS                         [L,P,I   
 6DPN ...#STR %D%E   
 6DWW    !!-TOO MANY PARAMS FOR SINGLE BIT MACRO 
 6F46    #SKI  %C&#37
 6FHQ    (                                  [NOT B0  
 6G3B          BOP      %C,LD,0,GEN0 [SET UP BIT,STORING IN GEN0 IF B1-9 
 6H2L          OP       %B,%C,ANDX   
 6HG=          BOP      %C,ER,0,GEN0        [INVERT BIT  
 6H^W          OP       %B,%C,ORS           [OR BACK 
 6JFG          BNZ   0  %A                  [J IF WAS CLEAR  
 6J^6    #EXI
 6KDQ    )   
 6KYB          OP       %B,%C,LDX
 6LD2          ERX   0  GSIGN
 6LXL          OP       %B,%C,ORS
 6MC=          BNG   0  %A   
 6MWW    #NOR
</code>