SETUPFCA

(GIN Macro)

Defined in: RING-MACROS

Used in: CLOSEONE867, ORELEND860

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