JBCS

(GIN Macro)

Defined in: MACROS SJ

Used in: INCRCUBS860, INCTAPES867, INCVFCHK850, INCWRITE865

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