FMOPG

(GIN Macro)

Defined in: MACS MISW

Used in: CONSROOT867, HARDIDF867, IDFCHK867, IDFOFF867, IDFONLIN867, IDFPER867, IDFSCON867, LISTIDF867, RIGHT867, SETIDF867, SPOOL83, TERM867

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