OPB

(GIN Macro)

Defined in: MACROS SJ

Used in: IPCONB8, IPCOND864, USERDIR842

OPB.mac.txt

 7FTK ...[   
 7FY8 ...[   
 7G2S ...[??? OPB SECT FILE FGN 24 DOC   
 7G=L    #MAC           OPB  
 7GQ=    #DEF           19?+9=0             [MASK OF BITS IN NEXT WORD   
 7H9W    #DEF           19?+1=0             [COUNT OF PARAMS EXAMINED
 7HPG    #DEF           19?+6=0             [COUNT OF IDS IN NEXT WORD   
 7J96    #DEF           19?+5=0            [SET 'LAST WORD' INDICATOR
 7JNQ          OPC   %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T-
 7K8B    ,%U,%V,%W,%X,%Y,%Z[ 
 7KN2    #EXI           19?+5]              [EXIT IF OPC AGREES LAST WORD
 7L7L    #DEF           19?+0=19?+0]@C(1-(19?+1]))  [RESCANNING FROM 2ND ID PARAM
 7LM=          OPB   %A,%B,%C,%D,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U-
 7M6W    ,%V,%W,%X,%Y,%Z[
 7MLG    #NOR