13 22_= ... SEG BMAPTWO,83,TONY MAY,BMAP 4 23DW [ 7 23L4 ...#OPT BMTRACE=0 12 23YG SEGENTRY K1BMAPTWO,Z1BMAPTWO 12 24D6 SEGENTRY K2BMAPTWO,Z2BMAPTWO 4 24XQ [ 4 25CB [ 4 27*W [ 4 27TG [ 21 28*6 [ 'CAREFUL' PROCESSING OF DIRECTORIES REQUIRING FURTHER PROCESSING AS 21 28SQ [ INDICATED BY AN ENTRY IN THE FLIST BLOCK SET UP DURING THE SFTS 6 28_Y ...#UNS FNSAD 10 2976 ...MESSNSAD +BMNSADBITS 9 29#B WORDS +GWORDS 14 2=?L TYPE #40000012 [GRAPHIC 7 2=R= #SKIP JWPHASE1 9 2?=W NUJOBLAN 4H**** 5 2?QG XLINK 17 2#=6 LINK BMAPTWO,2 [LINK FOR AUTWMAPS 8 2#PQ NLIST +10 9 2*9B 12HSYSTEM 6 2*P2 NLISTFLOCNB 11 2B8L 12HLISTLOSTFILE 9 2BN= 1,1,4HB1 6 2C7W STEPWRITE 8 2CMG ... SBX 5 FX1 7 2D76 ... STEPWRITE 8 2DLQ ... ADX 5 FX1 7 2NDQ EXIT 5 0 4 2NYB [ 6 2PD2 STEPREWRITE 8 2PXL ... STEPREWRITE 7 2QC= ... EXIT 5 0 4 2S*Q [ 5 2STB OUTBLOCK 8 2T*2 SBX 5 FX1 7 2TSL OUTBLOCK 7 7 2W#= ADX 5 1 7 2WRW EXIT 5 0 4 2X?G [ 6 2XR6 TOHUNTFLIST 10 2Y=Q HUNTMISB 1,FI,FLIST 7 2YQB EXIT 7 0 4 2_=2 [ 19 2_PL Z1BMAPTWO [ENTRY ACROSS FROM BMOUTPUT FOR MASTER ACTIVITY 3 329= ... 7 32RY ... LDN 6 4 10 33N6 CALL 7 TOHUNTFLIST 18 347Q LDX 5 A1(1) [FLIST USED DATA SPACE 7 34#Y ... LDN 0 8 8 34G6 ... BMSTATS 0,5 21 34SJ ... BZE 5 PROSSENDED [IF NO DIRECTORIES NEED PROCESSING 7 3572 DVS 4 6 10 35BS ... CALL 7 TOHUNTFLIST 21 35LL LDX 7 A1+2(1) [NUMBER OF POSSIBLE AUTOMAP ACTIVITY 9 366= STOZ A1+2(1) 10 36=N ... SEGENTRY K61BMAPTWO 8 36C6 ... LDN 0 4095 10 36HJ ... BXL 5 0,NOTOOMANY 10 36N2 ... SEGENTRY K60BMAPTWO 7 36SD ... LDN 7 5 6 36YW ...NOTOOMANY 7 375G TXL 7 5 9 37K6 BCC NOSWOP 7 384Q STO 7 5 5 38JB NOSWOP 11 38L# ... SETNCORE 10,2,FILE,FABSNB 8 38N= ... ADN 2 A1 8 38Q8 ... ADN 1 NLIST 8 38S6 ... MOVE 1 10 10 38W4 ... OPEN XBR,APPEND 9 38Y2 ... TESTRPN2 OK,XBR 5 38_Y ...NEWSLAVE 19 3942 GETACT BSA,AUTOMAP [ACTIVITY BLOCK FOR AUTOMAP 10 39HL CALL 7 TOHUNTFLIST 7 3=3= LDN 0 1 9 3=GW ADS 0 A1+1(1) 9 3?2G LDX 2 BPTR(2) 8 3?G6 LDX 1 FX1 10 3?_Q LINKSET 2,XLINK(1) 15 3#FB FPUT [KICK IT OFF 9 3#H_ ... BCT 5 NEWSLAVE 5 3#LJ ...NXTFAPB 10 3#P7 ... MHUNTW 3,FILE,FAPB 9 3#RQ ... BNG 3 NOFAPBS 6 3#W* ... APPEND 9 3#YY ... MFREEW FILE,FAPB 9 3*3H ... BRN NXTFAPB 5 3*66 ...NOFAPBS 10 3*8P ... CALL 7 TOHUNTFLIST 9 3*?# ... LDX 0 A1+1(1) 9 3**X ... BZE 0 PROSSEND 20 3*DL COOR3 BMAPACT [WAIT FOR LAST SLAVE TO FINISH 9 3*ND ... BRN NXTFAPB 5 3*Y= PROSSEND 7 3*_3 ... CLOSETOP 6 3*_S ...PROSSENDED 10 3B2K ... CALL 7 TOHUNTFLIST 7 3B3B ... FREECORE 1 7 3B47 ... UNLOCK 2 7 3B84 ... LDN 0 9 7 3B?_ ... BMSTATS 0 10 3BCW ACROSS BACKMASS,1 4 3BXG [ 4 3CC6 [ 4 3CWQ [ 4 3DBB [ 21 3DW2 Z2BMAPTWO [ENTRY FOR SLAVE ACTIVITIES TO PROCESS DIRECTORIES WHOSE 15 3F*L [NAMES APPEAR IN THE FLIST BLOCK 4 3FT= [ 3 3G54 ... 11 3G#W ... SETNCORE 4,2,FILE,FABSNB 11 3J?B SETNCORE 6,2,FILE,FLOCNB 5 3KQ= NEXTUSER 10 3L9W MHUNTW 3,FILE,FABSNB 8 3LPG ALTLENGD 3,4 10 3M96 CALL 7 TOHUNTFLIST 21 3MNQ LDX 0 A1+2(1) [ADDRESS OF NEXT USER FOR PROCESSING 19 3N8B SBX 0 A1(1) [ - NUMBER OF USERS IN FLIST 19 3NN2 BZE 0 NOMOREUSERS [IF ALL OF FLIST IS PROCESSED 10 3P7L MHUNTW 2,FILE,FABSNB 7 3PM= LDN 4 4 17 3Q6W STO 4 A1(2) [FABSNB RECORD HEADER 19 3QLG ADN 2 A1+1 [POSITION IN FABSNB FOR MOVE 9 3R66 SMO A1+2(1) 6 3R9= ...#UNS FNSAD 8 3R#B ... ADN 1 A1+4 6 3RCG ...#UNS FNSAD 4 3RGL ...#SKI 18 3RKQ ADN 1 A1+3 [ADDRESS OF SSER IN FLIST 17 3S5B MOVE 1 3 [USERNAME INTO FABSNB 10 3SK2 CALL 7 TOHUNTFLIST 6 3SM9 ...#UNS FNSAD 7 3SPD ... LDN 4 4 9 3SRM ... SMO A1+2(1) 9 3STW ... LDX 7 A1+7(1) 6 3SY5 ...#UNS FNSAD 4 3T2# ...#SKI 7 3T4L LDN 4 3 9 3TJ= ADS 4 A1+2(1) 8 3TK9 ... LDCT 0 #100 8 3TL8 ... ANDX 0 7 9 3TM7 ... BZE 0 NOPRBITS 10 3TN6 ... OPENDIR XBR,GENERAL 10 3TP5 ... MHUNTW 3,FILE,ENT 10 3TQ4 ... NAME 3,FILE,FWB 10 3TR3 ... BC 3,BEPARTRES 7 3TS2 ... BACKSPACE 7 3TS_ ... REPLACE 9 3TTY ... MFREE FILE,FWB 7 3TWX ... CLOSETOP 8 3TXW ... LDCT 0 #600 7 3TYT ... ANDX 0 7 9 3T_S ... BZE 0 NEXTUSER 5 3W2R ...NOPRBITS 10 3W3W OPEN XBR,GENERAL 6 3W49 ...#UNS FNSAD 4 3W4J ...( 8 3W4X ... LDCT 0 #200 7 3W5= ... ANDX 0 7 9 3W5K ... BZE 0 NOUPDATE 7 3W5Y ... STO 7 6 7 3W6? ... LDN 7 6 9 3W6L ... CALL 5 OUTBLOCK 7 3W6_ ... LDX 7 6 7 3W7# ... TOPFCB2 3 8 3W7M ... ADN 3 FME1 7 3W82 ... LDN 4 3 10 3W8* ... LDN 5 JPDUSERNAME 8 3W8N ... OUTPACKX 3,4,5 7 3W93 ... LDN 3 7 7 3W9B ... LDN 4 1 9 3W9P ... LDN 5 JPDOCTA 8 3W=4 ... OUTPACKX 3,4,5 10 3W=C ... LDX 6 MESSNSAD(1) 7 3W=Q ... MONOUTX 6 7 3W?5 ... TOPFCB2 3 15 3W?D ... MBC 3,BFDIRBELOW,BFDUMP,BFJOB4ASTR 10 3W?R ... BS 3,BFDIRUPDATE 7 3W#6 ... LDEX 0 7 7 3W#F ... LDN 4 4 7 3W#S ... ANDS 7 4 10 3W*7 ... BZE 4 NOTJOB4ASTR 10 3W*G ... BS 3,BFJOB4ASTR 6 3W*T ...NOTJOB4ASTR 7 3WB8 ... LDN 4 2 7 3WBH ... ANDS 7 4 9 3WBW ... BZE 4 NOTDUMP 9 3WC9 ... BS 3,BFDUMP 5 3WCJ ...NOTDUMP 7 3WCX ... LDN 4 1 8 3WD= ... ANDS 7 4 9 3WDK ... BZE 4 NOUPDATE 10 3WDY ... BS 3,BFDIRBELOW 5 3WF? ...NOUPDATE 9 3WFL ... BPZ 7 NOMORE 4 3WF_ ...) 5 3WHG NEXTNAME 16 3X36 STEP [NEXT NAME RECORD 19 3XGQ BZE 3 NOMORE [J IF END OF THIS DIRECTORY 10 3Y2B LDX 0 EINF2-A1(3) 8 3YG2 ANDN 0 #1000 7 3Y_L SRL 0 9 20 3_F= ADX 0 ENUSE-A1(3) [TREAT INDEX REC AS EXTRA TRAP 9 3_YW STO 0 AWORK1(2) 10 42DG LDEX 0 ECOPS-A1(3) 9 42Y6 STO 0 AWORK2(2) 4 43CQ [ 18 43XB SEGENTRY K91BMAPTWO [FOR NEWDUMP MEND MACRO 18 44C2 BBS 4,EINF2-A1(3),TAPE [J IF LIBRARIAN ENTRANT 12 44WL BWZ EUSE1-A1(3),TERMINAL 17 45B= [J IF TERMINAL FILE 16 45TW TRACEIF K6BMAPTWO,99,299,EUSE1-A1(3),DIRECTRY 14 46*G TRACEIF K6BMAPTWO,199,299,EUSE2-A1(3) 14 46T6 TRACEIF K6BMAPTWO,199,299,EUSE3-A1(3) 14 474Y ... JMBAS PARTFAIL,3,BNTEMP,BNPARTRES 15 47#Q JBC SKIP,3,BNERASE [DIRECTORY OK 11 47SB ... JBS TEMPDIR,3,BNTEMP 17 48#2 TRACEIF K6BMAPTWO,199,299,EUSE1-A1(3),NOTINDIC 9 4FJW #SKI K6BMAPTWO>99-99 8 4G4G BRN VDELN 5 4G*7 ...PARTFAIL 13 4GKS ... OPENSYS XBR,DICTIONARY,GENERAL 11 4GLM ... SETNCORE 4,2,FILE,ASELFLEX 8 4GMG ... STEPAGAIN 1 9 4GN* ... LDN 4 EUSE1N(3) 11 4GP8 ... MHUNTW 2,FILE,ASELFLEX 8 4GQ3 ... LDN 5 A1(2) 7 4GQW ... MOVE 4 3 9 4GRP ... STOZ A1+3(2) 10 4GSJ ... READDICT ,EUSE1N(3),NO 11 4GS_ ... TESTREP2 NOUSER,NTRYGONE 9 4GTC ... TESTRPN2 OK,XBR 6 4GW= ... DELETE 7 4GX5 ... CLOSETOP 11 4GXY ... OPENSYS XBR,LEXICON,WRITE 7 4GYR ... FREELEX 5 4G_8 ...NTRYGONE 7 4G_L ... CLOSETOP 5 4H2N ...TEMPDIR 16 4H3Q TRACEIF K6BMAPTWO,99,299,EUSE1-A1(3),TEMPDIR 9 4HHB #SKI K6BMAPTWO>199-199 8 4J32 BRN VDELN 6 4JGL TEMPDIRTY 16 4K2= TRACEIF K6BMAPTWO,199,299,ELAN-A1(3),TEMPDIRT 9 4KFW #SKI K6BMAPTWO>199-199 8 4K_G BRN VDELN 5 4LF6 TEMPLOST 16 4LYQ TRACEIF K6BMAPTWO,199,299,ELAN-A1(3),TEMPLOST 4 4MDB [ 18 4MY2 SEGENTRY K92BMAPTWO [FOR NEWDUMP MEND MACRO 5 4NCL VDELN 9 4NX= LDX 3 AWORK1(2) 9 4PBW ADX 3 AWORK2(2) 20 4PWG LDN 7 1(3) [TOTAL NUMBER OF RECORDS IN ENTRY 8 4QB6 BZE 3 VDELX 8 4QTQ SKIP ,0(3) 5 4R*B VDELX 6 4RT2 DELETE 8 4S#L BCT 7 VDELX 9 4SS= BRN NEXTNAME 5 4T?W TERMINAL 16 4TRG TRACEIF K6BMAPTWO,99,299,ELOC1-A1(3),TERMFILE 14 4W?6 TRACEIF K6BMAPTWO,199,299,ELOC2-A1(3) 14 4WQQ TRACEIF K6BMAPTWO,199,299,ELOC3-A1(3) 4 4X=B [ 18 4XQ2 SEGENTRY K93BMAPTWO [FOR NEWDUMP MEND MACRO 10 4Y9L BRN ZK94BMAPTWO 10 4YP= CALL 5 STEPREWRITE 10 4_8W STOZ EINC-A1(3) 11 4_NG STOZ EINCLOOK-A1(3) 10 5286 STOZ EDLD-A1(3) 10 52MQ STOZ ETLD-A1(3) 6 537B ZK94BMAPTWO 7 5R52 NGN 6 1 17 5RJL JBC RESCHECK,3,BNBMUWB [IF WAS NOT UNCLEAN 19 5S4= JBS TEMPDIRTY,3,BNTEMP [IF WAS TEMPORY TERMINAL FILE 12 5SHW BWZ EDLD-A1(3),NEWFILE 19 5SP4 ... LDX 0 ELANN(3) [DONT PUT INDEX FILE OFFLINE 18 5SW= ... BXE 0 NUJOBLAN(1),NEWFILE [SO J. IF USER JOBLIST 7 5T3G LDN 4 0 9 5TH6 CALL 5 STEPWRITE 17 5W2Q BC 3,BNBMUWB [CLEAR UNCLEAN BIT 10 5YJR ... JBCC NTBD,3,BNDUMP 5 5YNN ...TOBEDU 10 5YP_ ... JBS MDFOK,3,BNMDF 7 5YR= ... LDCT 0 1 10 5YSH ... STO 0 ECOPS-A1(3) 3 5YTS ... 3 5YX5 ... 5 5YYG MDFOK 11 5_D6 JBS ZEROCOP,3,BNCOOR 11 5_XQ MBS 3,BNLOSE,BNREVERT 6 624Y ...#UNS FNSAD 9 62=6 ... BC 3,BNDUMP 10 62CB LDX 0 EDLD-A1(3) 11 62X2 STO 0 EWRITDAY-A1(3) 10 63BL LDX 0 ETLD-A1(3) 11 63W= STO 0 EWRITTIME-A1(3) 9 64*W BRN ZEROCOP 4 64TG NTBD 10 65*6 BS 3,BNREVERT 5 65SQ ZEROCOP 7 66#B LDN 0 0 10 66S2 DLA 0 ECOPS-A1(3) 5 67?L REPORT 7 67R= LDN 6 0 5 68=W NEWFILE 7 68QG READAGAIN 10 69=6 MHUNTW 3,FILE,FRB 10 69PQ NAME 3,FILE,FAPB 7 6=9B TOPFCB2 2 8 6=P2 ADN 2 FME1 8 6?8L ADN 3 EUSE1 7 6?N= MOVE 2 3 9 6?WY ... LDX 2 BSACHAPTR 10 6#5L ... LDX 2 ACTRING(2) 9 6### ... SBN 2 ACTRING 10 6#H2 ... MHUNTW 3,FILE,FAPB 9 6#PN ... CHAIN 3,BPTR(2) 9 6#YB ... FON BMAPACT 8 6*76 BNG 6 VDELN 5 6*LQ PUTOFF 11 6B6B BWZ AWORK2(2),SKIP 9 6BL2 STOZ AWORK2(2) 6 6C5L STEP 16 6CK= DELETE [BLOCKS RECORD 4 6D4W SKIP 9 6DJG LDX 3 AWORK1(2) 9 6F46 ADX 3 AWORK2(2) 9 6FHQ BZE 3 NEXTNAME 18 6G3B SKIP ,0(3) [TRAPS & BLOCKS IF ANY 9 6GH2 BRN NEXTNAME 5 6H2L ...RESCHECK 11 6HG= ... JBC MULTCHECK,3,BNBM 11 6H_W JBS TEMPLOST,3,BNTEMP 17 6JFG TRACEIF K6BMAPTWO,199,299,ELOC1-A1(3),NO LOGFI 11 6J_6 JBS MDFONLY,3,BNMDF 11 6KYB BWZ EDLDN(3),NEWFILE 9 6L5J ... LDX 0 ELANN(3) 12 6L=Q ... BXE 0 NUJOBLAN(1),NEWFILE 5 6LD2 MDFONLY 7 6LXL LDN 4 0 9 6MC= CALL 5 STEPWRITE 9 6MWW BC 3,BNBM 11 6NBG JBS MDFCASE,3,BNMDF 8 6NW6 LDX 0 GSIGN 10 6P*Q ANDX 0 EINF2-A1(3) 9 6PTB BNZ 0 TOBEDU 5 6Q*2 MDFCASE 7 6QSL LDN 0 0 10 6R#= DLA 0 ECOPS-A1(3) 9 6RFD ... BRN PUTOFF 6 6RLL ...MULTCHECK 11 6RQ4 ... JBC TEMPFILE,3,BNMDF 12 6RTG ... JBC TEMPFILE,3,BNERASE 10 6R_2 ... DOWN BMSTREAM,4 7 6S68 ... STEPAGAIN 5 6S?G TEMPFILE 10 6SR6 JBC SKIP,3,BNTEMP 16 6T=Q TRACEIF K6BMAPTWO,99,299,ELAN-A1(3),TEMPFILE 11 6TQB LDX 0 EAUTOCOUNT-A1(3) 11 6W=2 ORX 0 ESAVECOUNT-A1(3) 9 6WPL BZE 0 NOTFROZEN 11 6X9= LDX 0 ESAVECOUNT-A1(3) 16 6XNW BNZ 0 SKIP [J IF SAVEFROZEN 7 6Y8G LDN 4 0 10 6YN6 CALL 5 STEPREWRITE 16 6_7Q BS 3,BNERASE [SET ^ERASE^ BIT 17 6_MB TRACEIF K6BMAPTWO,199,299,ELOC1-A1(3),ERASEBIT 8 7272 BRN SKIP 6 72LL NOTFROZEN 16 736= TRACEIF K6BMAPTWO,99,299,ELOC1-A1(3),DELETED 9 73KW LDX 7 AWORK2(2) 18 745G BZE 7 VDELN [J IF NO BLOCKS RECORD 16 74K6 READ [BLOCKS RECORD 9 754Q LDX 3 AWORK1(2) 8 75JB ADN 7 1(3) 9 7642 BZE 3 NOSKIP 8 76HL SKIP ,0(3) 5 773= NOSKIP 10 77GW MHUNTW 1,FILE,FRB 8 782G LDX 0 A1(1) 7 78G6 SBN 0 2 8 78_Q BNZ 0 VFREE 7 79FB FREECORE 1 8 79_2 BRN VDELX 5 7=DL VFREE 10 7=Y= NAME 1,BSTB,FULLB 21 7?CW FULLBPAS 1,2 [CHAIN BS IN FILE CHAIN FOR CLOSE TO 8 7?XG BRN VDELX 4 7#C6 TAPE 20 7#WQ JBS VDELN,3,BNERASE [IF WAS MARKED TO BE RETURNED IN SFTS 8 7*BB BRN SKIP 5 7*W2 NOMORE 7 7B*L CLOSETOP 9 7BT= BRN NEXTUSER 6 7C#W NOMOREUSERS 10 7D#6 CALL 7 TOHUNTFLIST 7 7DRQ LDN 0 1 9 7F?B SBS 0 A1+1(1) 21 7FR2 LDX 0 A1+1(1) [DECREMENT COUNT OF SLAVES STILL ON 20 7G=L BNZ 0 SLAVEXTANT [IF THIS IS NOT LAST SLAVE TO END 18 7H9W FON BMAPACT [ WAKE UP MASTER ACTIVITY 6 7HPG SLAVEXTANT 15 7J96 SUICIDE [AUTOMAP DEAD 9 7K8B XBR GEOERR 1,BMAPTWO 4 7KN2 [ 12 7L7L MENDAREA BMAPGAP,K99BMAPTWO 4 7LM= #END 6 ____ ...664063760017