{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMJLIST864)}}
====== BMJLIST864 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BC|BC]], [[george:macro:BMINDEX|BMINDEX]], [[george:macro:BMSTATS|BMSTATS]], [[george:macro:BS|BS]], [[george:macro:BUDGCHAR|BUDGCHAR]], [[george:macro:BWZ|BWZ]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CLOSEDIR|CLOSEDIR]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COOR3|COOR3]], [[george:macro:FPUT|FPUT]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:HUNTMISB|HUNTMISB]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JMBS|JMBS]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LOCK|LOCK]], [[george:macro:MBS|MBS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:OPEN|OPEN]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:POP|POP]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:READDICT|READDICT]], [[george:macro:REWIND|REWIND]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETJWELL|SETJWELL]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STEPREWRITE|STEPREWRITE]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPFCB2|TOPFCB2]], [[george:macro:VOP|VOP]], [[george:macro:WKPTABLE|WKPTABLE]]
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