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

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

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

<code - SETUPFCA.mac.txt>
 GNX8 ...[??? SETUPFCA SECT FILE FGN 20 DOC  
 GP72    [   
 GPLL    #MAC  SETUPFCA  
 GQ6=          JBC      M1SETUPFCA,%B,BFLEN  
 GQKW          BS       %B,BFLENW
 GR5G          TRACEIF  K6OPEN,99,299,FLOC1(%B),WT ALST  
 GRK6          COOR3    ISTACWT             [AND WAIT
 GS4Q          BRN      %C   
 GSJB    M1SETUPFCA  
 GT42          BS       %B,BFLEN 
 GTHL          LDX   %A FPTR(%B) 
 GW3=          ALTLENR  %A,%D               [%D IS OVERWRITTEN   
 GWGW    #NOR
</code>