14 229S ... SEG BMJLIST,864,EDWARD MOON,BMAP 12 22FL ... SEGENTRY K1BMJLIST,Z1BMJLIST 12 22PD ... SEGENTRY K2BMJLIST,RECREATED 12 233S ... SEGENTRY K5BMJLIST,TEMPCHECKED 7 2394 ...#OPT BMTRACE=0 4 23DW [ 4 24XQ [ 4 25CB ...[ 4 25X2 [ 4 2BN= [ 10 2BTD ... SEGENTRY K66BMJLIST 8 2C2L ...SLAVEK +4 8 2C7W NDICT +10 9 2CMG 12HMASTER 10 2D76 12HDICTIONARY 9 2DLQ 1,1,4HB1 8 2F6B NJLIST +10 9 2FL2 12HSYSTEM 10 2G5L NJOBL 12HJOBLIST 8 2GK= +1 9 2H4W #20000000 8 2HJG 4HB1 10 2LG= NJLDTAILS 12HJOBLIST 8 2L_W +1 8 2MFG +1 9 2MRX 4H**** 9 2N?H ...WKPTAB WKPTABLE 9 2NR7 ...MONEY #02777704 9 2P=R ...NGWORDS +GWORDS 9 2PQC ...X4M #00010000 5 2Q=3 ...XLINK 10 2QPM ... LINK BMJLSLAV,1 5 2R9? ...YLINK 10 2RNX ... LINK BMOUTPUT,1 6 2S8H ...XHUNTFLIST 10 2SN7 ... HUNTMISB 3,FI,FLIST 7 2T7R ... EXIT 7 0 4 38JB [ 4 3GSG [ 6 3H#6 STEPREWRITE 8 3HRQ STEPREWRITE 7 3J?B ... EXIT 5 0 4 3JR2 [ 4 3JS3 ...[ 6 3JT4 ...OPENRELBM 8 3JW5 ... SBX 5 FX1 8 3JX6 ... BMOPENRE XBR 8 3JY7 ... ADX 5 FX1 7 3J_8 ... EXIT 5 0 4 3K29 ...[ 5 3K3= ...NDEXCHEK 8 3K4? ... SBX 5 FX1 7 3K5# ... BACKSPAC 1 7 3K6* ... TOPFCB2 1 9 3K7B ... BS 1,BFCORE 7 3K8C ... BMINDEX 4 8 3K9D ... ADX 5 FX1 7 3K=F ... EXIT 5 0 4 3K?G ...[ 5 3K#H ...OPENDIR 8 3K*J ... SBX 5 FX1 13 3KBK ... OPENDIR XBR,GENERAL,CAREFUL,QUERY 8 3KCL ... ADX 5 FX1 7 3KDM ... EXIT 5 0 4 3KFN ...[ 4 3MPW ...[ 6 3MQX ...Z1BMJLIST 7 3MW9 ... LDN 0 5 7 3M_H ... BMSTATS 0 9 3N4W ... STOZ AWORK4(2) 8 3N5# ... LDX 4 CFREE 8 3N5Q ... ADX 4 ACHAP 8 3N68 ... SRL 4 10 8 3N6L ... SBN 4 15 9 3N6P ... BPZ 4 NOTNEG 7 3N6S ... STOZ 4 5 3N6X ...NOTNEG 9 3N74 ... DVS 3 SLAVEK(1) 9 3N77 ... BNZ 4 NOCHANGE 19 3N7= ... ADN 4 1 [ ENSURE AT LEAST ONE SLAVE 5 3N7* ...NOCHANGE 10 3N7G ... CALL 7 XHUNTFLIST 9 3N7Y ... STO 4 A1+2(3) 19 3N8B SETNCORE 10,2,FILE,FABSNB [SET UP FABSNB FOR JOBLIST 20 3P7L ADN 1 NDICT [AS JAP WILL LOOK AFTER JOBCOUNTS 8 3PM= ADN 2 A1 8 3Q6W MOVE 1 10 21 3QLG OPEN XBR,GENERAL [OTHERWISE OPEN DICTIONARY IN ORDER T 21 3QM9 ... TESTRPN2 OK,XBR [DECREMENT JOBCOUNT FOR EACH JOB IN J 19 3QMY ... LDN 3 0 [RELATIVE POINTER TO WKPTABLE 20 3QNM ... SETNCORE 50,1,FI,FUTILITY [FOR HOLDING PRIV TYPE BIT PATTS 17 3QPB ... STOZ A1(1) [NUMBER OF ENTRIES 15 3QQ5 ... SETNCORE 4,1,CPB,CUNI [FOR BUDGCHAR 7 3QQS ... LDN 0 8 9 3QRH ... STO 0 ANUM(1) 6 3QS_ ...NEXTPRIVTYP 10 3QTN ... MHUNTW 1,CPB,CUNI 8 3QX6 ... SMO FX1 9 3QXT ... LDN 0 WKPTAB(3) 9 3QYJ ... LDN 1 APARA(1) 18 3Q_? ... MOVE 0 2 [PRIV NAME INTO CPB,CUNI 10 3R22 ... REWIND [DICTIONAPY 19 3R2P ... BUDGCHAR [PRIV BIT PATTERN INTO JLINE 7 3R34 ... LDN 5 0 20 3R3D ... TESTRPN2 OK,Q2 [IF THIS PRIV NOT ON THIS NSTALL 11 3R4W ... MHUNTW 1,JBUDGET,JLINE 10 3R52 ... LDX 5 JPATTERN(1) 7 3R56 ... FREECORE 1 4 3R5= ...Q2 10 3R5B ... MHUNTW 2,FI,FUTILITY 7 3R5K ... LDN 0 1 18 3R6# ... ADS 0 A1(2) [UPDATE FUTILITY COUNT 8 3R73 ... ADX 2 A1(2) 8 3R7Q ... ADN 2 A1 19 3R98 ... STO 5 0(2) [PUT THIS BIT PATT INTO FUT 20 3RF5 ... ADN 3 3 [POINT TO NEXT ENT IN WKPTABLE 8 3RFS ... SMO FX1 9 3RGH ... LDX 0 WKPTAB(3) 16 3RH= ... BNZ 0 NEXTPRIVTYP [IF NO MORE WKP 10 3RHF ... MHUNTW 2,FI,FUTILITY 18 3RHN ... CHAIN 2,BMISC+1 [ FOR SLAVES TO GET AT IT 9 3RH_ ... MFREEW CPB,CUNI 21 3RKQ MHUNTW 2,FILE,FABSNB [(GIVES WRONG RESULT IF DICTIONARY & 9 3SK2 ADN 1 NJLIST 8 3T4L ADN 2 A1 8 3TF# ... MOVE 1 10 7 3TW2 ... SETJWELL 9 3W=N ... CALL 5 OPENDIR 10 3WMB ... TESTRPN2 OK,NOJLIST 10 3X44 ... MHUNTW 1,FILE,ENT 9 3XDQ ... LDEX 0 ECOPS(1) 9 3XTD ... BZE 0 SJLOST 13 3Y82 ... JMBS SJLOST,1,BEBMUWB,BEBM 7 3YGJ ... TOPFCB2 3 12 3YT6 ... JBS SJLOST,3,BFPARTRES 7 3_7N ... BACKSPACE 10 3_G= ... MHUNTW 1,FILE,ENT 10 3_J2 ... NAME 1,FILE,FWB 16 3_KQ ... MBS 1,BECOOR,BECARE,BEALLINCS,BEONLINE 7 3_MG ... REWRITE 10 3_P= ... MHUNTW 1,FILE,FWB 10 3_R2 ... NAME 1,FILE,ENT 9 3_SW ... CALL 5 OPENRELBM 6 429J ...RECREATED 9 42L= ... LDN 4 INDEXJOB 9 432Y ... CALL 5 NDEXCHEK 16 43CQ TESTREP2 OK,SJLIXOK [IF INDEXING OK 16 4=Q6 CLOSETOP [SYSTEM JOBLIST 14 4?9Q READAGAIN [SYSTEM 10 4?PB ... MHUNTW 1,FILE,FRB 10 4?_8 ... NAME 1,FILE,ENT 9 4#92 ... BRN SJLOST 5 4#NL SJLIXOK 18 4*8= ... SEGENTRY K91BMJLIST [FOR NEWDUMP MEN MACRO 9 4*MW ... ACROSS BMSAVJOB,7 6 4B7G ...TEMPCHECKED 7 4BM6 ... TOPFCB2 3 10 4C6Q ... SEGENTRY K70BMJLIST 9 4CLB ... BS 3,BFCORE 7 58H= ... CLOSEDIR 11 592W ... BWZ GINCTSN,NOGENRES 10 59GG ... BS 2,AW4RESTATUS 6 59G_ ...#UNS AMTGR 10 59HD ... BRN NOTPARTRES 5 59HX ...NOGENRES 8 59K# ... LDX 1 BFILE 13 59LP ... JBC NOTPARTRES,1,BFPARTRES 13 59N6 ... MBS 2,AW4PARTRES,AW4RESTATUS 6 59PH ...NOTPARTRES 10 59QY ... GETACT BSA,AUTOMAP,1 9 59S* ... LDX 3 BPTR(2) 11 59TQ ... STO 3 ACTPTRSYSJL(2) 7 59X7 ... LOCK 3 7 59YJ ... CHANGEFI 3 6 5=26 ...NEXTFUSENT 10 5=FQ ... HUNTMISB 2,FI,FUSER 8 5=_B ... ADN 2 A1 15 5?F2 ... LDX 3 0(2) [SIZE OF DATA 7 5?YL ... SBN 3 5 20 5#D= ... BNG 3 NOMOREUSERS [IF WE HAVE LOOKED AT ALL USERS 21 5#XW ... STO 3 0(2) [NEXT TIME LOOK AT PREECEDING USER 8 5*CG ... ADN 2 1(3) 8 5*FP ... LDCT 0 #40 8 5*HY ... ANDX 0 4(2) 9 5*L7 ... BZE 0 NOSAVFI 8 5*NB ... LDX 3 FX2 10 5*QK ... BS 3,AW4SAVCHEK 5 5*SS ...NOSAVFI 13 5*X6 ... JBC NEXTFUSENT,2,FUJOBLIST 7 5B3J ... LDX 6 2 10 5B82 ... CALL 7 XHUNTFLIST 9 5B#D ... LDX 0 BITS22LS 9 5BDW ... ANDX 0 A1+2(3) 9 5BK# ... SBX 0 A1+1(3) 9 5BPQ ... BNZ 0 NEWACT 9 5BW8 ... COOR3 BMAPACT 5 5C2L ...NEWACT 11 5C74 ... SETNCORE 10,3,FILE,FABSNB 10 5C?G ... HUNTMISB 2,FI,FUSER 8 5CCY ... ADN 2 A1 8 5CJB ... LDX 1 0(2) 8 5CNS ... ADN 2 1(1) 8 5CTL ... LDN 0 10 8 5D*= ... STO 0 A1(3) 8 5DSW ... ADN 3 A1+1 7 5F#G ... MOVE 2 3 7 5FS6 ... STO 3 5 8 5G?Q ... SMO FX1 9 5GRB ... LDN 4 NJLDTAILS 7 5H?2 ... ADN 5 3 7 5HQL ... MOVE 4 6 8 5J== ... READDICT ,0(2) 8 5JPW ... LDX 2 FX2 9 5K9G ... BC 2,AW4FROZ 11 5KP6 ... MHUNTW 3,FILE,ADICTENT 12 5L8Q ... JBC NFREEZSET,3,BFROZEN 9 5LNB ... BS 2,AW4FROZ 6 5M82 ...NFREEZSET 10 5MML ... GETACT BSA,AUTOMAP 9 5N7= ... LDX 3 BPTR(2) 7 5NLW ... LDX 6 3 10 5P6G ... LINKSET 3,XLINK(1) 11 5PL6 ... LDX 7 ACTPTRSYSJL(2) 11 5Q5Q ... STO 7 ACTPTRSYSJL(3) 9 5QKB ... LDN 4 AWORK1(2) 9 5R52 ... LDN 5 AWORK1(3) 7 5RJL ... MOVE 4 4 10 5S4= ... MHUNTW 3,FILE,FABSNB 9 5SHW ... CHAIN 3,BPTR(2) 11 5T3G ... MHUNTW 3,FILE,ADICTENT 9 5TH6 ... CHAIN 3,BPTR(2) 10 5TQY ... BC 2,AW4SAVCHEK 7 5W2Q ... LDX 2 6 6 5WGB ... FPUT 10 5X22 ... CALL 7 XHUNTFLIST 7 5XFL ... LDN 0 1 9 5X_= ... ADS 0 A1+1(3) 10 5YDW ... BRN NEXTFUSENT 6 9HT2 ...NOMOREUSERS 10 9HT6 ... HUNTMISB 2,FI,FUSER 10 9HT= ... LDX 4 ALOGLEN(2) 8 9HTB ... SRL 4 12 10 9HTG ... CALL 7 XHUNTFLIST 9 9HTL ... ADS 4 A1+2(3) 8 9HTM ... LDX 2 FX2 5 9HTN ...NOWFABS 11 9HTP ... LDX 3 ACTPTRSYSJL(2) 12 9HTQ ... POP NOWFABS,3,FTABWAIT 10 9HTX ... MHUNTW 1,FILE,FABSNB 11 9HXP ... CHAIN 1,ACTPTRSYSJL(2) 10 9HY7 ... VOP 3,FTABWAIT 6 9HYL ...QANYSLAVES 10 9H_H ... CALL 7 XHUNTFLIST 9 9J2D ... LDX 0 A1+1(3) 10 9J3* ... BZE 0 NOSLAVSLEFT 9 9J4= ... COOR3 BMAPACT 10 9J57 ... BRN QANYSLAVES 6 9J64 ...NOSLAVSLEFT 7 9J6_ ... LDN 0 1 9 9J7W ... ADS 0 A1+1(3) 9 9J8R ... ADS 0 A1+2(3) 10 9J9N ... HUNTMISB 3,FI,FUTILITY 7 9J=K ... FREECORE 3 11 9J?G ... LDX 3 ACTPTRSYSJL(2) 9 9J#C ... LDN 6 AWORK1(2) 9 9J*# ... LDN 7 AWORK1(3) 7 9JB9 ... MOVE 6 4 10 9JC6 ... LINKSET 3,YLINK(1) 9 9JD3 ... CHANGEFI 3,-1,-1 11 9JDY ... LDX 2 ACTPTRSYSJL(2) 6 9JFT ... FPUT 10 9JGQ ... ACROSS BMOUTPUT,2 4 9JHW ...[ 4 9JX# ...XDEL 10 9K=Q ... ACROSS BMSAVJOB,2 5 9L*4 ...SJLOST 10 9LNG ... ACROSS BMSAVJOB,4 5 9M3Y ...NOJLIST 10 9MCB ... ACROSS BMSAVJOB,5 4 9PHW XBR 9 9Q3G GEOERR 1,BMJLIST 4 9QH6 [ 12 9R2Q MENDAREA BMAPGAP,K99BMJLIST 4 9RGB #END 8 ____ ...21251011000200000000