(George Source)
Macros used: ACROSS, MENDAREA, SEGENTRY, SETUPCORE
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