SFSTACK
(GIN Macro)
Defined in: RING-MACROS
Used in: APPEND864, CHANFILE8, CLOSEDIR867, CLOSTIDY860, COMMFILE82, COPYA867, DELETE864, FHOBJIND860, INCRCUBS860, INCRCUBX860, INDEX85, INSERT6, INSERTBL6, INSERTFR6, INSERTHR6, INSERTWO6, LOCATE84, PERUSFIL84, READFILE84, REWRITE864
- SFSTACK.mac.txt
6K8Y ...[??? SFSTACK SECT FILE FGN 20 DOC 6KDQ #MAC SFSTACK 6KYB # THIS MACRO SEARCHES DOWN THE FILERING FOR THE RING ELEMENT OF 6LD2 # THE FILE OPEN AT DEPTH[%A].A POINTER TO THIS ELEMENT IS PUT INTO 6LXL # %B & IF DESIRED,A POINTER TO THE FSTACK BLOCK IS PUT IN %C 6MC= # X0 &%B,%C ARE OVERWRITTEN 6MWW # IF %D IS PRESENT,WE SEARCH FOR IT THE ELEMENT ATGIVEN DEPTH FOR TH 6NBG # ACTIVITY 6NW6 # 6P*Q #STR %B,%D 6PTB #SKI 6Q*2 ! SFSTACK ! %B=%D !!! 6QSL #STR %A 6R#= #SKI 6RRW ( 6S?G #STR %D 6SR6 #SKI 6T=Q ( 6TQB SMO FX2 6W=2 LDX %B FILERING 6WPL ) 6X9= #STR %D 6XNW MOD LDX %B FILERING,%D 6Y8G ) 6YN6 #STR %A 6^7Q ( 6^MB #STR %A,0 7272 ( 72LL #STR %A 736= LDX 0 %A 73KW ) 745G BNG 0 MSFSTACK3 74K6 #STR %D 754Q MOD LDX %B FILERING,%D 75JB #STR %D 7642 #SKI 76HL ( 773= SMO FX2 77GW LDX %B FILERING 782G ) 78G6 BZE 0 MSFSTACK2 78^Q MSFSTACK1 79FB MOD LDX %B FPTRF,%B 79^2 BCT 0 MSFSTACK1 7=DL BRN MSFSTACK2 7=Y= MSFSTACK3 7?CW #STR %D 7?XG MOD LDX %B FILERING+1,%D 7#C6 #STR %D 7#WQ #SKI 7*BB ( 7*W2 SMO FX2 7B*L LDX %B FILERING+1 7BT= ) 7C#W MSFSTACK4 7CSG ADN 0 1 7D#6 BZE 0 MSFSTACK2 7DRQ MOD LDX %B BPTRF,%B 7F?B BRN MSFSTACK4 7FR2 MSFSTACK2 7G=L ) 7GQ= #STR %C 7H9W ( 7HPG LDX %C %B 7J96 MOD ADX %C FBACKPOINT,%C 7JNQ ) 7K8B #NOR