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

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

**Used in:** [[george:source:APPEND864|APPEND864]], [[george:source:CLOSTIDY860|CLOSTIDY860]], [[george:source:COMMFILE82|COMMFILE82]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:DELETE864|DELETE864]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:INSERTWO6|INSERTWO6]], [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:READFILE84|READFILE84]], [[george:source:REWRITE864|REWRITE864]], [[george:source:STEP864|STEP864]]

<code - SFUB.mac.txt>
 6=YS ...[??? SFUB SECT FILE FGN 20 DOC  
 6?8L    #MAC  SFUB  
 6?N=    #     SEARCHES FROM THB FSTACK BLOCK AT %A FOR TIE USAGE BLOCB WHOSE
 6#7W    #     BLOCK NUMBER IS IN %B,SETTING THE PTR IN %C IF FOUND& BRNING  
 6#MG    #      TO %D IF NOT FOUND . X1 &X0 OVERWRITTEN  
 6*76    #   
 6*LQ    #STR  %A,1  
 6B6B          LDX   1  %A   
 6BL2    M1SFUB  
 6C5L          LDX   1  FPTR(1)  
 6CK=    #SKI  IFS<1$1   
 6DJG          LDX   0  ATYPE(1) 
 6F46          BXE   0  FILEPLUSFCB,%D   
 6FHQ          BXE   0  FFSFURB,M2SFUB   
 6G3B          BXU   0  FFSFUWB,M1SFUB   
 6GH2    M2SFUB  
 6H2L          LDX   0  BACK2(1) 
 6HG=          BXU   0  %B,M1SFUB
 6HQ4 ...      BXE   1  CXFI,%D  
 6H^W    #STR   %C,1 
 6JFG          STO    1  %C  
 6J^6    #NOR
</code>