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

**Defined in:** [[george:source:MACROS_RME10|MACROS RME10]]

**Used in:** [[george:source:ALTINST60|ALTINST60]], [[george:source:LIBMANY867|LIBMANY867]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:TRANSPOT65|TRANSPOT65]]

<code - MOCH.mac.txt>
 4PLN ...[??? MOCH SECT FILE FGN 4 DOC   
 4PWG    #MAC  MOCH  
 4QB6    #STR  %A
 4QTQ    (   
 4R*B    #STR  %A,0  
 4RT2          LDX   0  %A   
 4S#L          LDX   2  FX2  
 4SS=    )   
 4T?W    #STR  %A
 4TRG    #SKI
 4W?6    (   
 4WQQ          LDX   2  FX2  
 4X=B          LDX   0  CPPTR(2) 
 4XQ2    )   
 4Y9L          STO   0  ACOMMUNE1(2) 
 4YP=          STOZ     ACOMMUNE2(2) 
 4^8W          DOWN     MODE,2   
 4^NG    #NOR
</code>