CLEARFAIL [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

**Used in:** [[george:source:RESTOREG864|RESTOREG864]]

<code - CLEARFAIL.mac.txt>
 4Q6# ...[??? CLEARFAI SECT FILE FGN 9 DOC   
 4QB6    #   
 5T3G    #MAC  CLEARFAIL 
 5TH6          LDX   2  ATFAPTR  
 5W2Q        HUNT2   2,BSTB,BFRAIL   
 5WGB          SHORTEN  2,AFRAILLEN  
 5X22          LDN   0  A1(2)               [CLEAR   
 5XFL          LDN   1  A1+1(2)             [OUT 
 5X^=          STOZ     A1(2)               [BLOCK   
 5YDW          MOVE  0  AFRAILLEN-1  
 5YYG          NGN   0  1
 5^D6          STO   0  A1+1(2)             [SET EMPTY   
 5^XQ          LDX   1  FX1  
 62CB          LDX   2  FX2  
 62X2    #NOR
</code>