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

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

**Used in:** [[george:source:APPEND864|APPEND864]], [[george:source:CHANFILE8|CHANFILE8]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:CLOSTIDY860|CLOSTIDY860]], [[george:source:COMMFILE82|COMMFILE82]], [[george:source:COPYA867|COPYA867]], [[george:source:DELETE864|DELETE864]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:INCRCUBS860|INCRCUBS860]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:INDEX85|INDEX85]], [[george:source:INSERT6|INSERT6]], [[george:source:INSERTBL6|INSERTBL6]], [[george:source:INSERTFR6|INSERTFR6]], [[george:source:INSERTHR6|INSERTHR6]], [[george:source:INSERTWO6|INSERTWO6]], [[george:source:LOCATE84|LOCATE84]], [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:READFILE84|READFILE84]], [[george:source:REWRITE864|REWRITE864]]

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