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

**Defined in:** [[george:source:MACS_MISW|MACS MISW]]

**Used in:** [[george:source:CONSROOT867|CONSROOT867]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:IDFCHK867|IDFCHK867]], [[george:source:IDFOFF867|IDFOFF867]], [[george:source:IDFONLIN867|IDFONLIN867]], [[george:source:IDFPER867|IDFPER867]], [[george:source:IDFSCON867|IDFSCON867]], [[george:source:LISTIDF867|LISTIDF867]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SETIDF867|SETIDF867]], [[george:source:SPOOL83|SPOOL83]], [[george:source:TERM867|TERM867]]

<code - FMOPG.mac.txt>
 75JB    #MAC  FMOPG                        [C.E.WILKINSON   
 7642    #STR  IPB,%C
 76HL    (   
 773=          LDX   %A  ADMULTACT   
 77GW          BZE   %A MFMOPG1A 
 782G    MFMOPG1 
 78G6          LGEOG    CPPTR(%A),0  
 78^Q          BXE   0  %B,MFMOPG3   
 79FB          LDX   %A  ADMP(%A)
 79^2          BNZ   %A  MFMOPG1 
 7=DL    MFMOPG1A
 7=Y=    )   
 7?CW    #STR  %C,IPB
 7?XG    #SKI
 7#C6    (   
 7#WQ          LDX   %A  IPBADDR 
 7*BB          BZE   %A MFMOPG2A 
 7*W2    MFMOPG2 
 7B*L          LGEOG    CPPTR(%A),0  
 7BT=          BXE   0  %B,MFMOPG3   
 7C#W          LDX   %A  IPBL(%A)
 7CSG          BNZ   %A  MFMOPG2 
 7D#6    MFMOPG2A
 7DRQ    )   
 7F?B          NGN   %A  4095
 7FR2    MFMOPG3 
 7G=L    #NOR
</code>