(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
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