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

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

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:INKS|INKS]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:PNTLAST860|PNTLAST860]]

<code - MOPOUT.mac.txt>
 8WNG    #MAC  MOPOUT
 8X86    #STR  %A,0  
 8XMQ          LDX   0  %A                  [NO. OF CHS. 
 8Y7B    #STR  %A
 8YM2    #SKI
 8^6L          NGN   0  1
 8^L=          LDX   2  FX2  
 925W          STO   0  ACOMMUNE7(2) 
 92KG    #UNS  ECS   
 9356          TRUEDORM  
 93JQ    #STR  %B
 944B    #SKI
 94J2    (   
 953L          LDCH  0  JSOURCE1(2)  
 95H=          SBN   0  #30  
 962W          BNZ   0  MMOPOUT1 
 96GG          DOWN     IPBMOP,1 
 9726          BRN      MMOPOUT2 
 97FQ    MMOPOUT1
 97^B          SBN   0  #44  
 98F2          BNZ   0  MMOPOUT3 
 98YL          DOWN     CIOUT,1  
 99D=          BRN      MMOPOUT2 
 99XW    MMOPOUT3
 9=CG          ADN   0  #62  
 9=X6          BZE   0  MMOPOUT4            [J IF UX 
 9?BQ          BCT   0  MMOPOUT2            [J IF NOT MX 
 9?WB    MMOPOUT4
 9#B2    )   
 9#TL          DOWN     MOPOUT,1 
 9**=    MMOPOUT2
 9*SW    #NOR
</code>