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

**Defined in:** [[george:source:MACS_PW|MACS PW]]

**Used in:** [[george:source:ASSOC867|ASSOC867]], [[george:source:ATTRIBUT867|ATTRIBUT867]]

<code - MOPASAT.mac.txt>
 6C79    #     CREATES AN APERI,ASSOCS0 BLOCK IF ONE NOT THERE   
 6C7Q    #   
 6C8?    #MAC  MOPASAT   
 6C8S          HUNTW    1,APERI,ASSOCS0  
 6C9*          BPZ   1  MCN10
 6C9W          LDN   %A 1
 6C=C          HUNTW    1,APERI,ASSOCS   
 6C=Y          BNG   1  MCN11
 6C?F          ADX   %A ALOGLEN(1)   
 6C#2    MCN11 SETUPCORE %A,1,APERI,ASSOCS0  
 6C#H          SBN   %A 1
 6C*4          LDX   0  JSOURCE3(2)  
 6C*K          SMO      %A   
 6CB6          STO   0  A1(1)
 6CBM          BZE   %A MCN10
 6CC8          MHUNTW   2,APERI,ASSOCS   
 6CCP          LDN   0  A1(2)
 6CD=          LDN   1  A1(1)
 6CDR          SMO      %A   
 6CF#          MOVE  0  0
 6CFT    MCN10   
 6CGB    #NOR
</code>