SFUB

(GIN Macro)

Used in: APPEND864, CLOSTIDY860, COMMFILE82, COMPRESS864, DELETE864, HLSREAD867, INSERTWO6, PERUSFIL84, READFILE84, REWRITE864, STEP864

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