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

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

**Used in:** [[george:source:IPCOND864|IPCOND864]], [[george:source:USERDIR842|USERDIR842]]

<code - OPC.mac.txt>
 7MP5 ...[   
 7MRN ...[   
 7MW# ...[??? OPC SECT FILE FGN 24 DOC   
 7N66    #MAC           OPC  
 7NKQ    #SKI           19?+0]&#40000000$#40000000   
 7P5B    (                                  [BIT 0 = 0   
 7PK2    #SKI           19?+6]<1$1          [SKIP IF NOT 1ST THIS SCAN   
 7Q4L    #DEF           19?+8=%E/BITMULT&#7777[START OF GENERATE FOR THIS WORD   
 7QJ=    #SKI           %E/BITMULT&#7777-(19?+8])<1$1
 7R3W    (                                  [SAME
 7RHG    #DEF           19?+6=19?+6]+1   
 7S36    #DEF           19?+0=19?+0]^#40000000 [SHOW HAVE DEALT WITH THIS PARAM  
 7SGQ          MASK  %E  
 7T2B    #DEF           19?+9=19?+9]^(21?)  [SET BIT(S) IN MASK  
 7TG2    #DEF           19?+7=%E 
 7T^L    )   
 7WF=    #SKI           %E/BITMULT&#7777-(19?+8])
 7WYW    #DEF           19?+5=1            [SET 'NOT LAST WORD'  
 7XDG    )   
 7XY6    #STR           %F   
 7YCQ    (   
 7YXB    #DEF           19?+1=19?+1]+1   
 7^C2    #DEF           19?+0=19?+0]@C1     [MOVE ONTO NEXT PARAM
 7^WL          OPC   %A,%B,%C,%D,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U-
 82B=    ,%V,%W,%X,%Y,%Z[
 82TW    #EXI
 83*G    )   
 84#Q          %A ,%B,%C,%D  
 84SB    #NOR
</code>