15 22CB ... SEG CLOSEMAS,863,SECTION FILE,CLOSE 4 22SQ ...# 7 23=6 ...# USE OF X7 7 23MG ...# --- -- -- 16 244W ... BITDEFS 7,22,XBAUTO [AUTONOMOUS CLOSE 4 24G= ...# 4 24XQ # 11 25CB SEGENTRY K1CLOSEMAS,XENT1 4 25X2 ...# 5 26BL ...SFINDEXF 10 26W= ...#HAL FI+FINDEXF,0 4 27*W ...# 4 27TG # 21 28*6 # THIS ROUTINE UPDATES MASTER'S DIRECTORY ENTRY. IT IS ONLY ENTERED 21 28SQ ...# (FROM CLOSEND) WHEN AN ACTIVITY IS DOING A FULL 'CLOSE' ON MASTER. 21 29#B # ENSURES THAT ONLY ONE ACTIVITY IS REWRITING MASTER'S DIRECTORY ENTRY 21 29S2 ...# TIME BY SETTING B0 OF CTOPEN IN THE MASTER FCB BEFORE ENTERING CLOSE 4 2=?L # 5 2=R= XENT1 21 2=XN ... TRACEIF K6CLOSEMAS,99,299,7,MA [MASTER'S DIRECTORY BEING READ BY 7 2?46 ...#UNS CLOSESTATS 4 2?8J ...( 7 2?*2 ... LDN 0 1 21 2?FD ... ADS 0 CLSTAT5 [NO. OF READS OF MASTER'S DIRECTORY E 4 2?KW ...) 9 2?QG LDN 6 BTHREE 9 2#=6 LDN 4 ADMASTDIR 20 2#PQ ... BACKREAD ,BSBS,,EX6,EX4 [READ MASTER'S DIRECTORY ENTRY 10 2*9B MHUNTW 3,BSTB,BREAD 21 2*P2 ... LDX 1 BFILE [X1-> MASTER'S FCB (ASSUME IT IS 1ST 10 2B8L ... LDX 0 FLASTJAM(1) 19 2BN= ... STO 0 ELASTJAM(3) [UPDATE GMT OF LAST BS JAM 9 2C7W ... LDX 0 FGMTBS(1) 17 2CMG ... STO 0 EGMTBS(3) [UPDATE CURRENT GMT 21 2D76 ... MBC 1,BFALTB,BFALTR,BFDIRUPDATE [CLEAR 'FILE & BLOCKS ALTERED 8 2FL2 SMO A1(3) 21 2G5L ... LDN 2 A1(3) [SET X2->COPIES RECORD IN MASTER'S DI 9 2H4W LDX 4 FBLMOD(1) 10 2HJG SBN 4 FBLKS-A1-2 19 2J46 ... STO 4 0(2) [UPDATE BLOCKS RECORD HEADER 7 2JHQ ADN 2 1 8 2K3B ADN 1 BSPRE 7 2KH2 SMO 4 21 2L2L ... MOVE 1 511 [OVERWRITE COPIES RECORD WITH RES. NO 17 2LG= ... SBN 1 BSPRE [X1-> MASTER'S FCB 8 2L_W ... SMO FX1 9 2MFG ... LDX 0 SFINDEXF 20 2M_6 ...NIND [LOCATE FINDEXF BLOCK FOR :MASTER 9 2NDQ ... LDX 1 FPTR(1) 17 2NYB ... BXE 0 FILEPLUSFCB,XERRIND [GEOERR IF NO FINDEXF 16 2PD2 ... BXU 0 ATYPE(1),NIND [J IF NOT FINDEXF 7 2PXL ... ADX 2 4 21 2QC= ... SBN 2 1 [X2-> INDEX RECORD IN MASTER'S DIRECT 21 2QWW ... LDX 4 A1(1) [MOVE NEW INDEX RECORD TO MASTER'S DI 8 2W#= ADN 1 A1 7 2WRW SMO 4 7 2X?G MOVE 1 0 7 2Y=Q SMO 4 21 2YQB ... STOZ 0(2) [SET ZERO AT END OF INDEX RECORD IN D 8 33N6 ADN 3 A1 8 33T# ... LDCT 0 #200 21 342G ... ERS 0 0(3) [INVERT MARKER TO SAY WE'VE CHANGED T 9 347Q LDN 4 GSBS/2(3) 21 34MB ... MOVE 3 GSBS/2 [DUPLICATE 1ST HALF OF DIR. ENTRY BLO 21 3572 ... BACKWRIT FREE,BSBS,TFAIL [REWRITE MASTER'S DIRECTORY ENTRY NON 17 35LL ... LDX 2 BFILE [X2-> MASTER'S FCB 20 366= ... JBC NOFREE,2,BFCARE [PERHAPS THERE COULD BE NO FMAPP 9 36KW ... LDX 0 FFSFMAPP 20 375G ...NEXTRY [LOCATE FILE/FMAPP BLOCK (IN X2) 9 3=3= LDX 2 FPTR(2) 11 3=GW ... BXU 0 ATYPE(2),NEXTRY 18 3?2G ... STOZ FBCOMM(2) [REINITIALIZE FMAPP BLOCK 9 3?G6 ... STOZ FBITS(2) 18 3?_Q ... JBS MASAUT,,XBAUTO [J IF IN AUTONOMOUS CLOSE 15 3#FB ... LDX 5 2 [X5-> FMAPP 9 3#_2 ... LDX 6 FFSFULLB 18 3*DL ... LDN 4 0 [ZEROISE COUNT OF FULLBS 5 3*Y= ...NEXTBS 7 3BCW ... SMO 5 8 3BXG ... LDX 2 FPTR 19 3CC6 ... BXU 6 ATYPE(2),TOFREE [J IF NEXT BLOCK NOT FULLB 18 3S5B CHAIN 2,FX2 [RECHAIN SPARE BS TO ACT 9 3SK2 BUX 4 NEXTBS 5 3T4L TOFREE 18 3TJ= ... BZE 4 NOFREE [J IF NO FULLBS TO FREE 5 3W3W NEXTFREE 14 3WHG FREEBAX [FREE IT 10 3X36 MFREEW BSTB,EMPTYB 9 3XGQ BCT 4 NEXTFREE 5 3Y2B NOFREE 19 3YG2 ... ACROSS CLOSEND,2 [NON-AUTONOMOUS CLOSE EXIT 5 3Y_L ...MASAUT 18 3_F= ... ACROSS CLOSEALT,5 [AUTONOMOUS CLOSE EXIT 4 3_YW ...# 5 42DG ...TFAIL 21 42Y6 ... GEOERR BRIEFPM,MAS FAIL [WRITE FAIL ON MASTER'S DIRECTORY ENT 5 43CQ ...XERRIND 21 43XB ... GEOERR BRIEFPM,NOMASIND [FI/FINDEXF BLOCK MISSING FOR :MASTER 4 45TW #END 8 ____ ...30130541000500000000