OP [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: OP)}}
====== OP ======
(GIN Macro)

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

**Used in:** [[george:source:CLOSEIPB864|CLOSEIPB864]], [[george:source:INCPROC850|INCPROC850]], [[george:source:IPBPM84|IPBPM84]], [[george:source:MESSAH|MESSAH]], [[george:source:MONFILE867|MONFILE867]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:WORKFILE860|WORKFILE860]]

<code - OP.mac.txt>
 5=LY ...[   
 5=S6 ...[   
 5=^B ...[??? OP SECT FILE FGN 24 DOC
 5?YL    #MAC           OP   
 5#5S ...[ THE NEXT MACRO IS TO ALLOW ANY SENSIBLE OPERATION CONCERNING THE  
 5#?2 ...[ CONTENTS OF X0 AND THE WORD CONTAINING THE IDENTIFIER.
 5#D=    #ACC %D 
 5#XW    ([NOT AN ACC
 5*CG    #STR %D   [SKIP IF NULL 
 5*X6          LDX   0  %D   
 5BBQ          MOD   %C 0 %B/BITMULT&#7777,%A
 5BWB    #EXI
 5CB2    )   
 5CTL     MOD  %C    %D  %B/BITMULT&#7777,%A 
 5D*=    #NOR
</code>