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