{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: FSTABLE70)}}
====== FSTABLE70 ======
(George Source)

**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETUPCORE|SETUPCORE]]

<code - FSTABLE70.txt>22FL    #SEG  FSTABLE70                    [G.S.LOCKINGTON  
22^=    #LIS  K0FSTABLE 
23DW          8HFSTABLE 
23YG    #   
24D6    #     THIS SEGMENT CONTAINS A MEND AREA FOR FILESTORE   
24XQ    #     DESCRIPTIONS  
25CB    #     THEY ARE COPIED TO A BSTB/FSTAB BLOCK FOR USE BY FINDFS   
25X2    #   
26BL          SEGENTRY K1FSTABLE,QK1FSTABLE 
26W=    #   
27*W    FIRS
27TG    #REP  FSTABLEN+1*FIRLEN 
28*6          +0
28SQ    #   
29#B    #   
29S2    QK1FSTABLE  
2=?L          LDN   3  FIRS(1)             [CALCULATE NUMBER OF ENTRIES 
2=R=          LDN   4  FIRLEN              [ACTUALLY MENDED IN  
2?=W    XB    LDX   0  0(3) 
2?QG          BZE   0  XA                  [JUMP IF END OF LIST 
2#=6          ADN   3  FIRLEN   
2#PQ          ADN   4  FIRLEN   
2*9B          BRN      XB   
2*P2    XA    SETUPCORE 4,2,BSTB,FSTAB  
2B8L    XC    LDX   0  FIRS(1)  
2BN=          STO   0  FIRSS(2)            [MOVE LIST   
2C7W          ADN   2  1
2CMG          ADN   1  1                   [UPDATE POINTERS 
2D76          BCT   4  XC   
2DLQ          ACROSS   FINDFS,1 
2F6B    #   
2FL2          MENDAREA 10,K99FSTABLE
2G5L    #END
^^^^ ...22135422000100000000
</code>