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

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

**Used in:** [[george:source:CLOSEONE867|CLOSEONE867]], [[george:source:ORELEND860|ORELEND860]]

<code - INITLFCA.mac.txt>
 GDKJ ...[??? INITLFCA SECT FILE FGN 20 DOC  
 GDTB    [   
 GF*2    #MAC  INITLFCA  
 GFSL          JBCC     M1INITLFCA,3,BFLENW  
 GG#=          TRACEIF  K6OPEN,99,299,FLOC1(3),REL ALST  
 GGRW          FON      ISTACWT             [FREE WAITERS FOR FSTACK 
 GH?G    M1INITLFCA  
 GHR6          LDX   2  FPTR(3)  
 GJ=Q          BC       3,BFLEN  
 GJQB          LDEX  1  ARINGNO(2)   
 GK=2          LDN   0  FELLEN   
 GKPL          MPY   0  1
 GL9=          LDN   0  1
 GLNW          ADS   0  ARINGNO(2)          [UPDATE COUNT OF ELEMENTS
 GM8G          ADN   1  A1   
 GMN6          ADX   2  1
 GN7Q          NGS   1  FBACKPOINT(2)
 GNMB    #NOR
</code>