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