TOPFCA

(GIN Macro)

Defined in: RING-MACROS

Used in: BACKMAP864, BMAPDIR865, BMAPONE867, BMCNTRL866, BMINDEX866, CLOSEONE867, CLOSTIDY860, COPYA867, INCVFCHK850, LEXIFIND5, MTSTART864, OPENWORK866, ORELEMPT70, ORELEND860, ORELHALF82, ORELMAIN867, RESTOREG864, REWRITE864, USELEX5

TOPFCA.mac.txt

 9=M# ...[??? TOPFCA SECT FILE FGN 20 DOC
 9=X6    #MAC  TOPFCA
 9?BQ    [ THIS MACRO SEARCHES FOR THE RING ELEMENT OF THE TOP FILE OPEN TO THE  
 9?WB    [ CURRENT ACTIVITY AND GIVES A POINTER TO IT IN %A  
 9#B2          SMO      FX2  
 9#TL    #ACC   %A   
 9**=    #SKI
 9*SW          LDX   %A FILERING            [FOR %A AN ACCUMUALTOR   
 9B#G    #ACC %A 
 9BS6    (   
 9C?Q          LDX   0  FILERING            [FOR %A NOT AN ACCUMULATOR   
 9CRB          STO   0  %A   
 9D?2    )   
 9DQL    #NOR