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

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

**Used in:** [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ARCHIVNW83|ARCHIVNW83]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMAPTAPE865|BMAPTAPE865]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:CLOSEFUL867|CLOSEFUL867]], [[george:source:CLOSEND867|CLOSEND867]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:COPYFILA867|COPYFILA867]], [[george:source:COPYFILE867|COPYFILE867]], [[george:source:CREALEX864|CREALEX864]], [[george:source:DTREST860|DTREST860]], [[george:source:EDSTART860|EDSTART860]], [[george:source:ERASE867|ERASE867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:FHDIRTWO864|FHDIRTWO864]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:GETON867|GETON867]], [[george:source:GETONA867|GETONA867]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCMON865|INCMON865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INCVFCHK850|INCVFCHK850]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:LDSTART850|LDSTART850]], [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LISTDIR867|LISTDIR867]], [[george:source:LISTMOP867|LISTMOP867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LOGACC863|LOGACC863]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELEND860|ORELEND860]], [[george:source:ORELHALF82|ORELHALF82]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:OWNERCHE84|OWNERCHE84]], [[george:source:PREPREAD867|PREPREAD867]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:RETURN867|RETURN867]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:WORKFILE860|WORKFILE860]]

<code - TOPFCB.mac.txt>
 9N#S ...[??? TOPFCB SECT FILE FGN 20 DOC
 9NJL    #MAC  TOPFCB
 9P4=    [THIS MACRO SEARCHES FOR THE FCB OF THE TOP FILE OPEN TO THE CURRENT
 9PHW    [ACTIVITY AND GIVES A POINTER TO IT IN THE MODIFIER %A  
 9Q3G    [THIS MACRO DOES NOT CHECK IF THE POINTER GIVEN IS TO AN FCB
 9QH6          SMO      FX2  
 9R2Q          LDX   %A FILERING            [PICK UP -> TO RING ELEMENT  
 9RGB          ADX   %A FBACKPOINT(%A)      [-> FSTACK BL.   
 9S22          LDX   %A BPTR(%A)            [PICK UP -> TO FCB   
 9SFL    #NOR
</code>