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

**Defined in:** [[george:source:MACROS_JSRG4|MACROS JSRG4]]

**Used in:** [[george:source:DETACHB867|DETACHB867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:PARAMA865|PARAMA865]]

<code - XCLEAR.mac.txt>
 4^8W    #MACRO         XCLEAR   
 4^NG    #SKIP          %A-2 
 5286          CALL  0  (CLEAR)  
 52MQ    #SKIP          %A&1<1$1 
 537B          STOZ     0(3) 
 53M2    #SKIP          %A-3<1$1 
 546L          SETBIT   0,0(3)   
 54L=    #SKIP          %B-1 
 555W    (   
 55KG          ADN   3  HLOCKLEN 
 5656          XCLEAR   %A,%B-1  
 56JQ    )   
 574B    #NORMAL 
</code>