15 22FL #SEG BMXEND7 [JUDY BIDGOOD 17 22_= #OPT K0BMINDEX=K0FILESTORE>K0BMAP>K0RESTORE>K0ALLGEO 7 23DW #LIS K0BMINDEX 17 23YG #OPT K6BMINDEX=K6FILESTORE>K6BMAP>K6RESTORE>K6ALLGEO 7 24D6 8HBMXEND 12 24XQ SEGENTRY K1BMXEND,UPDATEDIR 4 26BL # 7 26W= # PRESETS 4 27*W # 5 27TG ZGEOER1 19 28*6 GEOERR 1,WRNGFILE [WRONG FILE OPEN TO BMINDEX 5 28SQ ZGEOER2 20 29#B GEOERR 1,SUMS ??? [GRINDEX'S ARITHMETIC GONE WRONG 5 29S2 ZGEOER3 20 2=?L GEOERR 1,INDEX??? [FILE OR INDEX RECORD CORRUPT. 5 2?QG ZGEOER5 15 2#=6 GEOERR 1,DIR BENT [ ENTRY WRONG 5 2#PQ ZGEOER6 17 2*9B GEOERR 1,NO FILE? [ NEXT FCA NOT THERE 4 2*P2 # 5 2B8L QUERIES 19 2BN= 4H???? [ MASTER'S SUPERIOR'S NAME 4 2C7W # 19 2CMG SIXTYFOUR +64 [ LARGEST RESIDENCE NUMBER. 13 2D76 # BITS & PIECES FOR MASTER'S DIRENT 4 2DLQ # 15 2F6B XMAST 12HMASTER [ LOCAL NAME 5 2FL2 +0 5 2G5L +0 6 2GK= XLANG 4HC1 15 2H4W XUSEM 12HMASTER [ USER-NAME 15 2HJG TRAPMAST [ TRAP (!) 5 2J46 +5 7 2JHQ 12HMANAGER 5 2K3B #2 16 2KH2 +0 [ ZERO @ E.O.F. 4 2L2L # 4 2NDQ # 4 2NYB [ 20 2PD2 UPDATEDIR [ENTRY TO UPDATE DIRECTORY ENTRY AFTER FILE INDEXED. 4 2PXL [ 4 2QC= ZEND 21 2QWW BACKWAIT [TO CATER FOR B.S. TRANSFER FAULTS. 15 2RBG LDXC 6 AWORK4(2) [ INDEX NO. 16 2RW6 BCS XMASTER [ J IF :MASTER 21 2S*Q SUBSTITUTE 1 [ CAREFUL UPDATING ON DIR (NECESSARY? 19 2STB STEPAGAIN 1 [ REPOSITION ON NAME RECORD 7 2T*2 #SKI K6BMINDEX 4 2TSL ( 9 2W#= LDX 0 ERESN(3) 9 2WRW BNZ 0 ZGEOER5 9 2X?G LDX 0 FRH(3) 8 2XR6 SBN 0 FRDE 9 2Y=Q BNZ 0 ZGEOER5 4 2YQB ) 18 2_=2 BS 3,BNINDEX [SET 'INDEXED' MARKER. 17 2_PL DEX 6 EINDEXN(3) [STORE INDEX NUMBER. 20 329= LDCT 0 #100 [ IF WE HAVE SET UP A NEW FILE, 20 32NW ANDX 0 AWORK4(2) [ WE REPLACE THE BLOCKS RECORD 9 338G BNZ 0 NOTREP 7 33N6 TOPFCB2 2 9 347Q LDX 7 FBLMOD(2) 16 34MB SBN 7 FBLKS-A1 [ X7 = NO.BLOXS. 16 3572 LDX 0 7 [ REWRITE ECOPS 7 35LL SRC 0 9 7 366= ADN 0 1 9 36KW STO 0 ECOPSN(3) 5 375G NOTREP 16 37K6 STEPREWRITE 1 [ REWRITE ENTRY 17 384Q LDCT 0 #100 [ J IF NO NEW FILE. 9 38JB ANDX 0 AWORK4(2) 9 3942 BNZ 0 NOTTREP 7 39HL ADN 7 2 16 3=3= SETUPCOR 7,3,FILE,FWB [ FWB FOR REPLACE 7 3=GW TOPFCB2 2 8 3?2G ADN 2 BSPRE 8 3?G6 STO 7 A1(3) 8 3?_Q ADN 3 A1+1 7 3#FB SMO 7 17 3#_2 MOVE 2 511 [ MOVE ACROSS BLOX 7 3*DL STEP 1 17 3*Y= REPLACE 1 [ REPLACE BLOX RECORD 9 3BCW MFREEW FILE,FWB 7 3BXG STEP 1 8 3CC6 BRN YREP 5 3CWQ NOTTREP 21 3DBB SKIP 1,2 [ J OVER COPIES & POS'N FOR INSERT 4 3DW2 YREP 10 3F*L MHUNTW 1,FI,FINDEXF 10 3FT= NAME 1,FILE,FWB 17 3G#W INSERT 1 [ INSERT INDEX RECORD 10 3GSG MHUNTW 1,FILE,FWB 10 3H#6 NAME 1,FI,FINDEXF 7 3HRQ TOPFCA2 2 8 3J?B PSTAC 2,2 18 3JR2 CHAIN 1,2 [ CHAIN INTO FILE CHAIN 18 3K=L LDN 7 3 [ CT. FOR REPOSITIONING. 4 3KQ= SBLP 16 3L9W BACKSPACE 1 [ ON NAME RECORDS 8 3LPG BCT 7 SBLP 4 3M96 UP 8 3MNQ FASTREWIND 2 8 3N8B SETREP OK 5 3NN2 UP 4 3P7L # 12 3PM= # MASTER - DO EVERYTHING BY HAND 4 3Q6W # 5 3QLG XMASTER 9 3R66 #SKI K6BMINDEX>99$99 11 3RKQ TRACE AWORK4(2),XMASTER 12 3S5B SETNCORE GSBS,3,BSTB,BWRITE 7 3SK2 # B.S. HOME. 19 3T4L LDN 0 BTHREE [ HOME PAIR FOR MASTER'S D.E 9 3TJ= STO 0 BACK1(3) 9 3W3W LDN 0 ADMASTDIR 9 3WHG STO 0 BACK2(3) 8 3X36 STOZ A1(3) 8 3XGQ LDN 6 A1(3) 9 3Y2B LDN 7 A1+1(3) 8 3YG2 MOVE 6 511 9 3Y_L # RECORD HEADER 8 3_F= LDN 0 FRDE 9 3_YW STO 0 A1+FRH(3) 6 42DG # NAME 14 42Y6 LDN 6 XMAST(1) [ LOCAL. 9 43CQ LDN 7 ELOC1(3) 7 43XB MOVE 6 5 14 44C2 LDX 0 XLANG(1) [ LANG. 9 44WL STO 0 ELAN(3) 14 45B= LDN 6 XUSEM(1) [ USER. 9 45TW LDN 7 EUSE1(3) 7 46*G MOVE 6 3 19 46T6 ... BS 3,BEBMUWB [SET GENRES IN PROGRESS BIT 19 47#Q BS 3,BEINDEX [SET 'FILE INDEXED' MARKER. 9 47SB LDN 0 INDEXDIR 18 48#2 STO 0 EINDEX(3) [ INDEXING BIT & NUMBER 6 48RL # ECOPS 8 49?= LDX 1 BFILE 9 49QW LDX 0 FGMTBS(1) 9 4==G STO 0 EGMTBS(3) 10 4=Q6 LDX 0 FLASTJAM(1) 10 4?9Q STO 0 ELASTJAM(3) 9 4?PB LDX 2 FBLMOD(1) 16 4#92 SBN 2 FBLKS-A1 [ SIZE OF :MASTER 8 4#NL LDCT 0 0(2) 7 4*8= ADN 0 1 15 4*MW STO 0 ECOPS(3) [ IN FCOPS 10 4B7G LDN 7 A1+FRDE+1(3) 9 4BM6 LDN 6 BSPRE(1) 14 4C6Q ADN 2 2 [ R.H. 10 4CLB STO 2 A1+FRDE(3) 18 4D62 MOVE 6 511(2) [ MOVE IN BLOCKS RECORD 7 4DKL ADX 7 2 7 4F5= SBN 7 1 18 4FJW MHUNT 1,FI,FINDEXF [ MOVE IN INDEX RECORD. 8 4G4G LDN 6 A1(1) 8 4GJ6 SMO A1(1) 7 4H3Q MOVE 6 0 8 4HHB ADX 7 A1(1) 8 4J32 SMO FX1 16 4JGL LDN 6 TRAPMAST [ MASTER'S TRAP 15 4K2= MOVE 6 6 [ + ZERO WORD 8 4K67 ... LDN 6 A1(3) 9 4K=4 ... LDN 7 A1+256(3) 19 4K*_ ... MOVE 6 256 [MOVE TO 2ND HALF OF ENTRY 8 4KFW SMO BFILE 8 4K_G LDX 2 FPTR 7 4LF6 CHAIN 1,2 9 4LYQ #SKI K6BMINDEX>199-199 9 4MDB BLOCKTRA 3,MAS DE 17 4MY2 WRITEAUT FAIL+FREE,BSBS [ WRITE AWAY BLOCK 8 4NCL BRN UP 10 5RJL MENDAREA 30,K99BMXEND 4 5S4= #END 8 ____ ...23110333000200000000