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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:GOTO867|GOTO867]]

<code - CLEANX.mac.txt>
 =N4D ...[??? CLEANX SECT CENT FGN 21 DOC
 =N#=    [   THIS MACRO IS THE SAME AS CLEANUP,EXCEPT THAT THE 2ND PARAM IS  
 =NRW    [   ADDRESS CONTAINING AMOUNT TO BE CLEARED OUT 
 =P?G    #   
 =PR6    #MAC  CLEANX
 =Q=Q          LDX   2  FX2  
 =QQB          STOZ     EXT+3(2) 
 =R=2    #SKI  %B-1  
 =RPL          LDX   1  %B   
 =S9=          DCH   1  EXT+3(2) 
 =SNW          LDX   1  %A   
 =T8G          ORS   1  EXT+3(2) 
 =TN6          DOWN     CLEAN,1  
 =W7Q    #NOR
</code>