TOPFCB

(GIN Macro)

Defined in: RING-MACROS

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

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