BMJLSLAV864
(George Source)
Macros used: ACROSS, BACKSPACE, BC, BMINDEX, BS, BWNZ, CHAIN, CLOSE, CLOSEDIR, CLOSETOP, DELETE, DOWN, FINDACTNO, FON, FREECORE, GEOERR, GETJOB, HUNTMISB, INSERT, JBC, JBCC, JBS, JLADJUST, JMBAC, JMBS, JWELLADD, MBS, MENDAREA, MFREEW, MHUNTW, NAME, OPENDIR, POP, READAGAIN, REPLACE, REWIND, SEG, SEGENTRY, SETNCORE, SKIP, STEP, STEPAGAIN, STEPREWRITE, SUICIDE, TESTPRIV, TESTREP2, TESTRPN2, TOPFCB2, TRACEIF, VFREEW, VOP, WKPTABLE
- BMJLSLAV864.txt
22FL SEG BMJLSLAV,864,EDWARD MOON,BMAP 22^= SEGENTRY K1BMJLSLAV,Z1BMJLSLAV 23DW SEGENTRY K2BMJLSLAV,Z2BMJLSLAV 23YG WKPTAB WKPTABLE 24D6 MONEY #02777704 24XQ NGWORDS +GWORDS 25CB X4M #00010000 25X2 [ 26BL [ 26W= STEPREWRITE 27*W STEPREWRITE 27TG EXIT 5 0 28*6 [ 28SQ [ 29#B OPENRELBM 29S2 SBX 5 FX1 2=?L BMOPENRE XBR 2=R= ADX 5 FX1 2?=W EXIT 5 0 2?QG [ 2#=6 NDEXCHEK 2#PQ SBX 5 FX1 2*9B BACKSPAC 1 2*P2 TOPFCB2 1 2B8L BS 1,BFCORE 2BN= BMINDEX 4 2C7W ADX 5 FX1 2CMG EXIT 5 0 2D76 [ 2DLQ OPENDIR 2F6B SBX 5 FX1 2FL2 OPENDIR XBR,GENERAL,CAREFUL,QUERY 2G5L ADX 5 FX1 2GK= EXIT 5 0 2H4W [ 2HJG XCHANGEAC 2J46 CHANGEAC 3 2JHQ EXIT 5 0 2K3B XFINDACTNO 2KH2 FINDACTNO 3,ACTPTRSYSJL(2) 2L2L EXIT 5 0 2LG= XGETJOB 2L^W SBX 5 FX1 2MFG GETJOB 6,SYSTEM 2M^6 ADX 5 FX1 2NDQ EXIT 5 0 2NYB XVOP 2PD2 LDX 3 ACTPTRSYSJL(2) 2PXL VOP 3,FTABWAIT 2QC= EXIT 5 0 2QWW XSTEPAGAIN 2RBG SBX 5 FX1 2RW6 STEPAGAIN 2S*Q ADX 5 FX1 2STB EXIT 5 0 2T*2 [ 2TSL XBUDGETS 2W#= SBX 7 FX1 2WRW MHUNTW 1,FILE,FRB 2X?G JLADJUST 1 2XR6 LDN 4 1 2Y=Q ANDS 4 JLBUDGETS(1) 2YQB STOZ 5 2^=2 HUNTMISB 2,FI,FUTILITY 2^PL LDX 4 A1(2) 329= STOZ 3 32NW NEXTPRIV 338G ADN 2 A1+1 33N6 ADX 2 5 [POINTER TO NEXT PRIV BIT PATTERN 347Q LDX 0 0(2) 34MB BZE 0 NOPRIVHERE 3572 MHUNTW 1,FILE,ADICTENT 35LL TESTPRIV 0(2),1 [HAS THE USER THIS PRIV 366= BZE 0 NOPRIVHERE 36KW SMO FX1 375G LDX 6 WKPTAB+2(3) 37K6 MHUNTW 1,FILE,FRB 384Q ADN 1 A1 38JB ADX 1 JOBDATASIZE 3942 ORS 6 JLBUDGETS(1) 39HL NOPRIVHERE 3=3= SBN 4 1 3=GW BZE 4 NOMOREPRUPS [IF NO MORE PRIVS TO CHECK 3?2G ADN 3 3 3?G6 ADN 5 1 3?^Q HUNTMISB 2,FI,FUTILITY 3#FB BRN NEXTPRIV 3#^2 NOMOREPRUPS 3*DL MHUNTW 3,FILE,ADICTENT 3*Y= LDX 6 CNUMQ(3) 3BCW BZE 6 NOMOREBTS 3BXG NEXTBUDG 3CC6 LDX 4 CQUANT(3) 3CWQ LDX 1 FX1 3DBB TXU 4 MONEY(1) 3DW2 BCC THISISBRED 3F*L ANDX 4 NGWORDS(1) 3FT= ADX 3 4 3G#W SBN 6 1 3GSG BZE 6 NOMOREBTS 3H#6 BRN NEXTBUDG 3HRQ THISISBRED 3J?B LDX 4 CQUANT+2(3) 3JR2 SBX 4 CQUANT+3(3) 3K=L BPZ 4 NOHARDUP 3KQ= MHUNTW 3,FILE,FRB 3L9W JLADJUST 3 3LPG BS 3,JLBHARDUP 3M96 NOMOREBTS 3MNQ NOHARDUP 3N8B ADX 7 FX1 3NN2 EXIT 7 0 3P7L XREPLORINS 3PM= SBX 4 FX1 3Q6W LDX 6 AUSEJOBNO(2) 3QLG WAITOREPLAC 3R66 LDX 3 ACTPTRSYSJL(2) 3RKQ POP WAITOREPLAC,3,FTABWAIT 3S5B LDX 7 ACTNUM(2) 3SK2 MHUNTW 1,FILE,FWB 3T4L CHAIN 1,3 3TJ= CALL 5 XCHANGEAC 3W3W STO 7 ACTPTRSYSJL(2) 3WHG CALL 5 XGETJOB 3X36 ADX 4 FX1 3XGQ EXIT 4 0 3Y2B XSTEPSYSJL 3YG2 SBX 4 FX1 3Y^L LDX 6 AUSEJOBNO(2) 3^F= WAITOSTEP 3^YW LDX 3 ACTPTRSYSJL(2) 42DG POP WAITOSTEP,3,FTABWAIT 42Y6 LDX 7 ACTNUM(2) 43CQ CALL 5 XCHANGEAC 43XB STO 7 ACTPTRSYSJL(2) 44C2 CALL 5 XGETJOB 44WL CALL 5 XSTEPAGAIN 45B= LDX 6 3 45TW CALL 5 XFINDACTNO 46*G CALL 5 XCHANGEAC 46T6 CALL 5 XVOP 47#Q LDX 3 6 47SB ADX 4 FX1 48#2 EXIT 4 0 48RL XHUNTFLIST 49?= HUNTMISB 3,FI,FLIST 49QW EXIT 7 0 4==G Z1BMJLSLAV 4=Q6 SETNCORE 6,3,FILE,FLOCNB 4?9Q CALL 5 OPENDIR 4?PB TOPFCB2 3 4#92 JBS NOSET4ASTR,3,BFJOB4ASTR 4#NL MBS 3,BFJOB4ASTR,BFDIRUPDATE 4*8= NOSET4ASTR 4*MW MHUNTW 1,FILE,ENT 4B7G LDEX 0 ECOPS(1) 4BM6 BZE 0 NOBACKSPAC 4C6Q BACKSPACE 4CLB MHUNTW 1,FILE,ENT 4D62 NOBACKSPAC 4DKL #UNS AMTGR 4F5= BWNZ GINCTSN,NOTIFGR 4FJW TOPFCB2 3 4G4G JBS UJLUNAVAIL,3,BFPARTRES 4GJ6 #UNS AMTGR 4H3Q NOTIFGR 4HHB JBS UJLUNAVAIL,1,BEBM 4J32 LDX 4 ENUSE(1) 4JGL TRACEIF K6BMJLSLAV,99,199,4,UJLTRAP 4K2= LDEX 5 ECOPS(1) 4KFW TRACEIF K6BMJLSLAV,99,199,5,ECOPS 4K^G JBS UNCDEL,1,BEBMUWB 4LF6 BNZ 5 NOOFFDEL 4LYQ UNCDEL 4MDB ADX 4 5 4MY2 JBC NOTIND,1,BEINDEX 4NCL ADN 4 1 4NX= TRACEIF K6BMJLSLAV,99,199,4,INDEXR 4PBW NOTIND 4PWG DEX 4 AWORK4(2) 4QB6 TRACEIF K6BMJLSLAV,99,199,4,OJLREC 4QTQ FREECORE 1 4R*B BRN NOWDELOFFJL 4RT2 NOOFFDEL 4S#L ADN 4 2 4SS= DEX 4 AWORK4(2) 4T?W TRACEIF K6BMJLSLAV,99,199,4,JLREC 4TRG CALL 5 OPENRELBM 4W?6 MHUNTW 3,FILE,FABSNB 4WQQ NAME 3,FILE,FTAB 4X=B SETNCORE 10,2,FILE,FABSNB 4XQ2 LDN 4 INDEXUSERJ 4Y9L CALL 5 NDEXCHEK 4YCW ... TESTREP2 OK,NOTCOR [^ IF INDEXING OKAY 4YL6 ... CLOSETOP [CLOSE USER JOBLIST FILE 4YSB ... BRN NOWDELOFFJL [THEN ^ TO DELETE DIRECTORY ENTRY 4^2L ...NOTCOR 4^8W CLOSEDIR 4^NG BRN NEXJLENT 5286 NEXJLENTPRE 52MQ VFREEW JWELL,COPYSYS 537B CALL 5 XFINDACTNO 53M2 CALL 5 XCHANGEAC 546L CALL 5 XVOP 54L= SKIP ,3 555W NEXJLENT 55KG STEP 5656 BZE 3 NOWCLOSEUJL 56JQ LDX 6 JLJOBNO(3) [JOBNUMBER 574B STO 6 AUSEJOBNO(2) 57J2 ADX 3 JOBDATASIZE 583L SBX 3 AWORK3(2) 58H= JMBAC MOPJOB,3,JLBJB,JLBRJ 592W JBS MOPJOB,3,JLBSYSIS 59GG WAITFORSJL 5=26 LDX 3 ACTPTRSYSJL(2) 5=FQ POP WAITFORSJL,3,FTABWAIT 5=^B LDX 7 ACTNUM(2) 5?F2 CALL 5 XCHANGEAC 5?YL STO 7 ACTPTRSYSJL(2) 5#D= TRACEIF K6BMJLSLAV,99,199,6,UJLENT 5#XW CALL 5 XGETJOB 5*CG TESTRPN2 NOFILE,NOSTOZ 5*X6 TRACEIF K6BMJLSLAV,99,199,6,NOSJENT 5BBQ CALL 5 XFINDACTNO 5BWB CALL 5 XCHANGEAC 5CB2 CALL 5 XVOP 5CTL JBC MOPJOB,2,AW4RESTATUS 5D*= BS 2,AW4NEW 5DSW BRN XCHECKLOSE 5F#G NOSTOZ 5FS6 READAGAIN 5G?Q CALL 5 XFINDACTNO 5GRB MHUNTW 1,FILE,FRB 5H?2 CHAIN 1,3 5HQL CALL 5 XCHANGEAC 5J== CALL 5 XVOP 5JPW MHUNTW 3,FILE,FRB 5K9G JLADJUST 3 5KP6 SBX 3 AWORK3(2) 5L8Q BWNZ GINCTSN,XCHECKLOSE [FORGET ABOUT SAVED JOBS FI RESTORE 5LNB JBS XCHECKLOSE,3,JLBNOTCAND 5M82 JBS XCHECKLOSE,2,AW4PARTRES 5MML JBC XCHECKLOSE,2,AW4SAVCHEK [ IF NO #### FILE FOUND 5N7= DOWN BMSAVJOB,1 5NLW BRN THISSAVE [IF UP JOB SAVED - ELSE UPPLUS 1 5P6G SEGENTRY K50BMJLSLAV [FOR EMPTY WELL 5PL6 XCHECKLOSE 5Q5Q LDN 0 0 5QKB BNZ 0 MOPJOB 5R52 VFREEW FILE,FRB 5RJL SEGENTRY K55BMJLSLAV 5S4= NULL 5SHW NULL 5T3G NULL 5TH6 BRN TREATASWELL 5W2Q THISSAVE 5WGB LDX 6 AUSEJOBNO(2) 5X22 WAITOREAD 5XFL LDX 3 ACTPTRSYSJL(2) 5X^= POP WAITOREAD,3,FTABWAIT 5YDW LDX 7 ACTNUM(2) 5YYG CALL 5 XCHANGEAC 5^D6 STO 7 ACTPTRSYSJL(2) 5^XQ CALL 5 XGETJOB 62CB READAGAI 62X2 CALL 5 XFINDACTNO 63BL MHUNTW 1,FILE,FRB 63W= CHAIN 1,3 64*W CALL 5 XCHANGEAC 64TG CALL 5 XVOP 65*6 BS 2,AW4SAVED 65SQ BRN SAVEDFRB 66#B TREATASWELL 66S2 READAGAI 67?L SAVEDFRB 67R= MHUNTW 3,FILE,FRB 68=W #SKI JWPHASE4<1$1 68QG #UNS JWP4REVERT 69=6 LDX 5 AWORK2(2) 69PQ #SKI JWPHASE4<1$1 6=9B #UNS JWP4REVERT 6=P2 #SKI 6?8L LDX 5 AWORK3(2) 6?N= BZE 5 NONUJOBDATA 6#7W DOWN BMSAVJOB,9 6#MG NONUJOBDATA 6*76 MHUNTW 3,FILE,FRB [JOBLIST RECORD 6*LQ JLADJUST 3 6B6B BC 3,JLBFROZENNC [ CLEAR NON-CAND BIT 6BL2 JBC NOTNCFROZ,2,AW4FROZ [ J. IF DIR NOT FROZEN 6C5L JBS NOTNCFROZ,3,JLBFROZEN [ J. IF FROZEN QUAL GIVEN 6CK= BS 3,JLBFROZENNC [ ELSE MAKE NON-CAND. 6D4W NOTNCFROZ 6DJG JBCC WELLED,2,AW4SAVED 6F46 ADN 3 A1 6FHQ ADX 3 JOBDATASIZE 6G3B TRACEIF K6BMJLSLAV,99,199,6(3),SAVEDJ 6GH2 CALL 7 XBUDGETS 6H2L MHUNTW 3,FILE,FRB 6HG= NAME 3,FILE,FWB 6H^W JLADJUST 3 6JFG LDX 6 JLBUDGETS(3) 6J^6 CALL 5 XSTEPAGAIN 6KDQ SMO JOBDATASIZE 6KYB STO 6 JLBUDGETS(3) 6LD2 CALL 5 STEPREWRITE 6LXL MHUNTW 3,FILE,FWB 6MC= ADN 3 A1 6MWW BC 3,JLBCHECKED 6NBG CALL 4 XREPLORINS 6NW6 REPLACE 6P*Q MHUNTW 3,FILE,FWB 6PTB NAME 3,JWELL,COPYSYS 6Q*2 JWELLADD LIVE 6QSL BRN NEXJLENTPRE 6R#= WELLED 6RRW SKIP ,2 6S?G CALL 5 XSTEPAGAIN 6SR6 MHUNTW 2,FILE,FABSNB [TO OPENDIR THE JDF 6T=Q LDN 0 10 6TQB STO 0 A1(2) 6W=2 LDN 1 JDFDIR-A1(3) 6WPL ADN 2 A1+1 6X9= MOVE 1 6 6XNW LDN 0 1 6Y8G STO 0 6(2) 6YN6 ADN 2 7 6^7Q ADN 1 6 6^MB MOVE 1 2 7272 LDX 2 FX2 72LL JBS XBACK,2,AW4NEW 736= CALL 4 XSTEPSYSJL 73KW ADX 3 JOBDATASIZE 745G SBX 3 AWORK3(2) 74K6 JBC XBACK,3,JLBRUNNING 754Q CALL 5 XSTEPAGAIN 75JB JWWFUPDA 3 7642 CALL 5 STEPREWRITE 76HL XBACK 773= BACKSPACE 77GW BACKSPACE 782G CALL 5 OPENDIR 78G6 TESTRPN2 OK,UNOPENJDF 78^Q MHUNTW 1,FILE,ENT 79FB LDEX 0 ECOPS(1) 79^2 BZE 0 NBSPACE2 7=DL BACKSPACE 7=Y= MHUNTW 1,FILE,ENT 7?CW NBSPACE2 7?XG #UNS AMTGR 7#C6 BWNZ GINCTSN,NOTIFGRJD 7#WQ TOPFCB2 3 7*BB JBS NOJDF,3,BFPARTRES 7*W2 #UNS AMTGR 7B*L NOTIFGRJD 7BT= JMBAC NOTJDFOFF,1,BEBM,BEBMUWB 7C#W JMBS NOJDF,1,BEBMUWB,BEDUMP 7CSG LDX 0 EINC(1) 7D#6 BNZ 0 NOTJDFOFF 7DRQ NOJDF 7F?B FREECORE 1 7FR2 CLOSETOP 7G=L UNOPENJDF 7GQ= MFREEW FILE,FRB 7H9W BRN MOPJOB 7HPG NOTJDFOFF 7J96 FREECORE 1 [ENT BLOCK 7JNQ STEPAGAIN 7K8B LDN 0 1 7KN2 ADS 0 ESVCTN(3) 7L7L CALL 5 STEPREWRITE 7LM= CLOSETOP [THE JDF DIRECTORY 7M6W CALL 7 XBUDGETS 7MLG MHUNTW 3,FILE,FRB 7N66 NAME 3,FILE,FWB 7NKQ JLADJUST 3 7P5B LDX 2 FX2 7PK2 JBS RESTATYES,2,AW4RESTATUS 7Q4L JBC NONOOBIT,2,AW4NEW 7QJ= MBS 3,JLBBMAP,JLBNOTCAND,JLBBREAK 7R3W BRN NOGENBIT 7RHG NONOOBIT 7S36 CALL 4 XSTEPSYSJL 7SGQ ADX 3 JOBDATASIZE 7T2B SBX 3 AWORK3(2) 7TG2 JBC NOGENBIT,3,JLBRUNNING 7T^L MHUNTW 3,FILE,FWB 7WF= JLADJUST 3 7WYW MBS 3,JLBBMAP,JLBNOTCAND,JLBBREAK 7XDG BRN NOGENBIT 7XY6 RESTATYES 7YCQ MBS 3,JLBBMAP,JLBNOTCAND 7YXB BWNZ GINCTSN,NOBREAKBIT 7^C2 JBS NOBREAKBIT,2,AW4PARTRES 7^WL BS 3,JLBBREAK 82B= BRN NOGENBIT 82TW NOBREAKBIT 83*G JBC NOPARTBIT,2,AW4PARTRES 83T6 BS 3,JLBPARTRES 84#Q CALL 4 XSTEPSYSJL 84SB ADX 3 JOBDATASIZE 85#2 SBX 3 AWORK3(2) 85RL JBC NOGENBIT,3,JLBRUNNING 86?= MHUNTW 3,FILE,FWB 86QW JLADJUST 3 87=G BS 3,JLBBREAK 87Q6 BRN NOGENBIT 889Q NOPARTBIT 88PB MBS 3,JLBGENRES,JLBGRQUERY 8992 NOGENBIT 89NL JMBAC NOCANDID,3,JLBBMAP,JLBABAND,JLBHARDUP 8=8= BS 3,JLBNOTCAND 8=MW BRN NOCLEARCAND 8?7G NOCANDID 8?M6 BC 3,JLBNOTCAND 8#6Q NOCLEARCAND 8#LB REPLACE 8*62 MHUNTW 3,FILE,FWB 8*KL ADN 3 A1 8B5= JBCC NONEWBIT,2,AW4NEW 8BJW TRACEIF K6BMJLSLAV,99,199,AWORK4(2),NEWSJENT 8C4G BC 3,JLBNEW 8CJ6 CALL 4 XREPLORINS 8D3Q INSERT 8DHB BRN NOWJWELLAD 8F32 NORUNNING 8FGL NONEWBIT 8G2= BC 3,JLBCHECKED 8GFW TRACEIF K6BMJLSLAV,99,199,JLSTAT(3),CHECKED 8G^G CALL 4 XREPLORINS 8HF6 REPLACE 8HYQ NOWJWELLAD 8JDB MHUNTW 3,FILE,FWB 8JY2 NAME 3,JWELL,COPYSYS 8KCL JLADJUST 3 8KX= JBS NCAND,3,JLBNOTCAND 8LBW JWELLADD WELL 8LWG BRN NC1 8MB6 NCAND 8MTQ JWELLADD NCAND 8N*B NC1 8NT2 BRN NEXJLENTPRE 8P#L NOWCLOSEUJL 8PS= MFREEW FILE,ADICTENT 8Q?W REWIND [USERJOBLIST FILE 8QRG STEP 8R?6 BNZ 3 NOCLOSESHOR [NORMAL CLOSE AS NO ERASE 8RQQ TRACEIF K6BMJLSLAV,99,199,AWORK4(2),UJLERASE 8S=B ... MFREEW FILE,FTAB 8SQ2 ... CLOSE [CLOSE WILL ERASE EMPTY USER JOBLIST 8T9L ... BRN NEXTFUSENT [AND UPDATE DIRECTORY ENTRY 8^L= Z2BMJLSLAV 925W NOWDELOFFJL 92KG LDEX 3 AWORK4(2) 9356 LDN 7 1(3) [FOR NAME RECORD 93JQ BZE 3 VDELX 944B SKIP ,0(3) [TO END OF ENTRY 94J2 VDELX 953L DELETE [THE DIRECTORY ENTRY 95H= BCT 7 VDELX 962W CLOSETOP 96GG BRN NEXTFUSENT [ENTRY DELETED.LOOK FOR NEXT JLIST 9726 NOCLOSESHOR 97FQ MFREEW FILE,FTAB 97^B CLOSETOP [NOPMAL CLOSE.NO ERASE 98F2 BRN NEXTFUSENT [TO LOOK AT NEXT JOBLIST 98YL NOSJLENT 99D= JBS MAKENEWSJL,2,AW4RESTATUS 99XW SEGENTRY K56BMJLSLAV 9=CG MOPJOB 9=X6 VFREEW FILE,FRB 9?BQ TRACEIF K6BMJLSLAV,99,199,JLSTAT(3),UJLENDEL 9?WB SKIP ,3 [TO END OF USERJOBLIST ENTRY 9#B2 LDN 7 4 9#TL VDELJ 9**= DELETE 9*SW BCT 7 VDELJ 9B#G BRN NEXJLENT 9BS6 MAKENEWSJL 9C?Q BS 2,AW4NEW 9CRB BRN XCHECKLOSE 9D?2 NEXTFUSENT 9DQL CALL 7 XHUNTFLIST 9F== LDN 0 1 9FPW SBS 0 A1+1(3) 9G9G FON BMAPACT 9GP6 SUICIDE 9H8Q UJLUNAVAIL 9HNB ACROSS BMSAVJOB,8 9J82 XBR 9JML GEOERR 1,BMJLSLAV 9K7= [ 9KLW MENDAREA BMAPGAP,K99BMJLSLAV 9L6G #END ^^^^ ...325336530002