TOPFCA [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: TOPFCA)}}
====== TOPFCA ======
(GIN Macro)

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

**Used in:** [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMINDEX866|BMINDEX866]], [[george:source:CLOSEONE867|CLOSEONE867]], [[george:source:CLOSTIDY860|CLOSTIDY860]], [[george:source:COPYA867|COPYA867]], [[george:source:INCVFCHK850|INCVFCHK850]], [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:MTSTART864|MTSTART864]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:ORELEND860|ORELEND860]], [[george:source:ORELHALF82|ORELHALF82]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:REWRITE864|REWRITE864]], [[george:source:USELEX5|USELEX5]]

<code - 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
</code>