17 22FL #SEG SCHDJOBA860 [R.D.P.CLIFTON 8 22_= #OPT K0SCHDJOBA=0 17 23DW #LIS K0SCHDJOBA>K0WORK>K0ALLGEO>K0FILESTORE 17 23YG #OPT K6SCHDJOBA=K6WORK>K6ALLGEO>K6FILESTORE 10 24D6 8HSCHDJOBA 4 24J3 ...[ 16 24MY ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 24RT ...[ 11 24XQ SEGENTRY K1SCHDJOBA,ZK1 11 252W SEGENTRY K2SCHDJOBA,ZK2 12 2562 FSHENTRY K3SCHDJOBA,,ZK3,ZK3 13 2596 FSHENTRY K4SCHDJOBA,ZK4,ZK4,ZK4 12 25#= FSHENTRY K5SCHDJOBA,ZK5,,ZK5 12 25*? FSHENTRY K7SCHDJOBA,ZK7,,ZK7 12 25B# FSHENTRY K8SCHDJOBA,ZK8,,ZK8 5 25CB RLINK1 18 25X2 PAIR HLSREAD,3 [LINK TO SCHED.PERI XCODE 10 26BL TIMEFACTOR +1000/K9 13 26W= X24HRS +1000/K9*24*60*60 9 27*W XFONINTP +FONINTP 4 27TG [ 20 28*6 [ THESE ROUTINES ARE USED BY THE WAIT,DEWELL,AND WRITE SWITCH 8 28SQ [ EXTRACODES. 6 29#B UNPLUGCAPCA 8 29S2 SBX 7 FX1 6 2=?L UNPLUG 6 2=R= CAPCA 8 2?=W X7XIT ADX 7 FX1 7 2?QG EXIT 7 0 4 2#=6 [ 5 2#PQ XGETWORD 8 2*9B SBX 7 FX1 9 2*P2 GETWORD 5,3,WRITE 9 2B8L TESTREP2 OK,X7XIT 10 2BN= GEOERR 1,**HELP** 4 2C7W ZK1 10 2CMG LDX 0 HLSCONREC(2) 7 2D76 SBN 0 2 16 2DLQ BZE 0 SWIT2 [WAIT EXTRACODE 7 2F6B SBN 0 4 12 2FL2 BZE 0 SWIT6 [ 7 2G5L SBN 0 1 8 2GK= BZE 0 SWIT7 9 2H4W BRN (GEOERR) 20 2HJG # THE ROUTINE BELOW DEALS WITH THE WAIT EXTRACODE OF THE JOBSTARTER 13 2J46 # IT HAS THE FOLLOWING CONTROL AREA 11 2JHQ # WORD0 51/1 OR 52/#113 11 2K3B # WORD1 0-THE REPLY WORD 17 2KH2 # WORD2 1-THE NO OF WORDS IN THE CONTROL RECORD 18 2L2L # WORD3 ADDRESS IN THE PROGRAM OF THE CONTROL RECORD 16 2LG= # THE SINGLE WORD OF THE CONTROL RECORD IS SET TO 2 5 2L_W SWIT2 7 2MFG LDN 6 0 5 2M_6 TOPCA 18 2NDQ LDX 5 EVENT2(2) [ADDRESS OF CONTROL AREA 16 2NYB ADN 5 1 [THE REPLY WORD 9 2PD2 LDX 7 ACTNUM(2) 21 2PXL TOPCA1 RLINK1(1) [ENABLES USER TO CHANGE FROM AN OLPA 15 2QC= BNG 6 XSWITCPA [J IF SWITCH XCODE 16 2QWW BNZ 6 XDWELLCPA [J IF DEWELL XCODE 17 2RBG LDX 6 HLSREVIEW [LOAD WAIT TIME I.P. 16 2RW6 BZE 6 NOWT [J IF NO WAITING 10 2S*Q CALL 7 UNPLUGCAPCA 9 2STB STO 5 AWORK1(2) 5 2T*2 WTCHCK 10 2TSL LDX 0 HLSLASTWAKE 18 2W#= BNG 0 PERIODIC [J IF 1ST HLSWAIT SINCE EMS 9 2WRW LDX 5 CLEANCT 7 2X?G SBX 5 0 16 2XR6 BPZ 5 NMIDN [J IF NOT GONE OVER 12PM 9 2Y=Q ADX 5 X24HRS(1) 17 2YQB NMIDN DVS 4 TIMEFACTOR(1) [CONVERT TO SECS 8 2_=2 LDN 6 60 9 2_PL MPY 6 HLSREVIEW 16 329= BZE 6 NOF1 [J IF HLSREVIEW NOT HUGE 9 32NW LDX 7 BITS22LS 17 338G NOF1 SBX 7 5 [SECS LEFT TO WAIT 9 33N6 BZE 7 PERIODIC 10 347Q BPZ 7 NOPERIODIC 5 34MB PERIODIC 8 3572 LDX 0 BIT9 9 35LL ORS 0 HLSWAIT 9 366= LDX 0 CLEANCT 10 36KW STO 0 HLSLASTWAKE 8 375G LDN 6 60 9 37K6 MPY 6 HLSREVIEW 8 384Q BZE 6 NOF2 9 38JB LDX 7 BITS22LS 4 3942 NOF2 6 39HL NOPERIODIC 20 3=3= DVS 6 XFONINTP(1) [CONVERT TO FONINTP INTERVAL COUNT 8 3=GW LDCT 0 #040 9 3?2G ANDX 0 HLSWAIT 17 3?G6 BZE 0 NNKICK [J IF NOKICK BIT CLEAR 8 3?_Q LDCT 4 #700 8 3#FB ORN 4 #10 8 3#_2 ORX 4 BIT9 9 3*DL ANDX 4 HLSWAIT 18 3*Y= BZE 4 WTLONG [J IF IN NOKICK SITUATION 16 3BCW ERS 0 HLSWAIT [CLEAR NO KICK BIT 5 3BXG NNKICK 9 3CC6 LDX 4 HLSWAIT 9 3CWQ STOZ HLSWAIT 8 3DBB BNZ 4 REACT 5 3DW2 WTLONG 10 3F*L LONGWAIT XBRK,#33,,,6 9 3FT= BRN WTCHCK 5 3G#W REACT 18 3GSG LDX 5 AWORK1(2) [PROG ADDRESS OF REPLY WORD 9 3H#6 CALL 7 XGETWORD 9 3HRQ LDX 0 FINISH 8 3J?B BZE 0 NOFIN 16 3JR2 ORX 4 GSIGN [KEEP FINISH BIT SET 5 3K=L NOFIN 5 3KQ= REPRUN 19 3L9W STO 4 0(3) [TRANSFER CONTENTS OF HLSWAIT 7 3LPG WORDFIN 19 3M96 RUNPROG [RETURN TO SUBJECT PROGRAM 16 3MNQ NOWT EVENTFIN [CONTINUE PROGRAM 4 3N8B # 15 3NN2 # SI JOBS MAY BE BROKEN IN ON AT FINISH TIME 10 3P7L XBRK PROGBRKIN 5 3PM= SWIT6 6 3Q6W SCHEDDEWELL 11 3QLG LDX 3 HLSCONREC+8(2) 11 3R66 LDX 4 HLSCONREC+1(2) 16 3RKQ LDN 6 1 [MARKS DEWELL CASE 8 3S5B BRN TOPCA 17 3SK2 XDWELLCPA [NOW WE'RE IN THE PCA 16 3T4L STO 5 AWORK1(2) [REPLY WORD ADDRESS 15 3TJ= STO 7 AWORK2(2) [ACTNUM OF OLPA 10 3W3W CALL 7 UNPLUGCAPCA 13 3WB? XOPEN OPENSYS ,JOBLIST,GENERAL,QUERY 10 3WNN TESTRPN2 OK,SWITBAD2 13 3X36 POP NOSEM,,JWACCESS,,,,NOWAIT 10 3X=Y BNG 3 NOSUMCHECK 9 3XGQ HUNTMISB 2,JWELL 11 3Y2B LDEX 0 JOBENTS+JOBCTS(2) 13 3YG2 LDEX 5 JOBENTS+JWENTRY+JOBCTS(2) 14 3Y_L ADX 0 5 [TOTAL JOBS RUNNING 10 3_F= BXGE 0 3,SWITBAD3 6 3_YW NOSUMCHECK 10 43CQ BZE 4 XDEWELLBAD 9 43XB GETJOB 4,SYSTEM 16 44C2 TESTRPN2 OK,XDEWELLBAD [J IF NO SUCH JOB 7 44WL STEPAGAIN 10 45B= ADX 3 JOBDATASIZE 7 45TW LDN 4 1 13 46*G JBS XDEWELLBDX,3,JLBRUNNING 7 46T6 LDN 4 2 13 47#Q JBS XDEWELLBDX,3,JLBNOTCAND 11 47SB JBS XDWMOP,3,JLBMOP 11 48#2 JBC XDEWELLBAD,,HLSBS 8 48RL BRN XDWOK 5 49?= XDWMOP 11 49QW JBC XDEWELLBAD,,HLSMS 5 4==G XDWOK 7 4=Q6 READAGAIN 10 4?9Q MHUNTW 3,FILE,FRB 10 4?PB NAME 3,FILE,FWB 7 4#92 JLADJUST 3 10 4#NL BS 3,JLBRUNNING 7 4*8= REWRITE 10 4*MW MHUNTW 3,FILE,FWB 10 4B2? LDX 4 ALOGLEN(3) 11 4B#N SETUPCOR 4,2,JWELL,COPYSYS 10 4BM6 MHUNTW 3,FILE,FWB 8 4C6Q LDN 4 A1(3) 8 4CLB LDN 5 A1(2) 10 4D62 SMO ALOGLEN(3) 20 4DKL MOVE 4 0 [MAKE COPY OF JWELL/COPYSYS... 17 4F5= NAME 3,JWELL,COPYSYS [FOR JWELLADD/SUB. 9 4FJW DOWN SETJOBQ,3 8 4G4G JWELLADD LIVE 8 4GJ6 JWELLSUB WELL 10 4H3Q MFREEW JWELL,COPYSYS 5 4HHB XOKCPA 7 4J32 LDN 4 0 17 4JGL BRN XCPAEND [SET REPLY AND RUN PROG 6 4K2= XDEWELLBAD 7 4KFW LDN 4 0 6 4K_G XDEWELLBDX 7 4LF6 CLOSETOP 9 4LYQ BRN SWITBADX 5 4MDB SWIT7 6 4MY2 SCHEDSWIT 11 4NCL LDX 0 HLSCONREC+1(2) 18 4NX= BNG 0 SWITRESET [J IF RESETTING SWITCHES 7 4PBW ANDN 0 1 9 4PWG LDX 6 HLSFACE 7 4QB6 LDN 7 0 20 4QTQ BNZ 0 SWITSTO [J IF INTERFACE SWITCHES WANTED 9 4R*B LDX 6 HLSFACE+1 9 4RT2 LDX 7 HLSFACE+2 5 4S#L SWITSTO 11 4SS= STO 6 HLSCONREC+2(2) 11 4T?W STO 7 HLSCONREC+3(2) 9 4TRG LDX 5 AWORK3(2) 10 4W?6 LDX 3 APETADDR(2) 10 4WQQ LDN 4 HLSCONREC(2) 7 4X=B LDN 6 4 21 4XQ2 FINMOVE 3,5,4,6,HLOCK2 [MOVE CONTROL RECORD BACK TO PROGRAM 9 4Y9L BRN SETOKREP 6 4YP= SWITRESET 7 4_8W ANDN 0 1 20 4_NG BNZ 0 SWITFACE [J IF RESETTING INTERFACE BITS 11 5286 LDX 0 HLSCONREC+2(2) 9 52MQ STO 0 HLSFACE+1 11 537B LDX 0 HLSCONREC+3(2) 9 53M2 STO 0 HLSFACE+2 9 546L BRN SETOKREP 5 54L= SWITFACE 11 555W LDX 4 HLSCONREC+2(2) 16 55KG NGN 6 1 [MARKS SWITCH CASE 8 5656 BRN TOPCA 5 56JQ XSWITCPA 9 574B STO 5 AWORK1(2) 10 57J2 CALL 7 UNPLUGCAPCA 13 583L POPX POP POPX,,JWACCESS 8 58H= LDCT 6 #600 7 592W ANDX 6 4 13 59GG OPENSYS ,JOBLIST,GENERAL,QUERY 18 5=26 TESTRPN2 OK,SWITBAD [J IF CLUDGE FOR EXAMPLE 8 5=FQ LDCT 0 #140 9 5=_B ANDX 0 HLSFACE 17 5?F2 ORX 6 0 [PRESERVE SETTING OF FS BITS 9 5?YL STO 6 HLSFACE 9 5#D= RUNJSA HOSTOPEN 7 5#XW CLOSETOP 7 5*CG LDN 4 0 8 5*X6 BRN VOP 5 5BBQ SWITBAD3 7 5BWB LDN 4 3 7 5C68 CLOSETOP 5 5CB2 SWITBADX 8 5CTL ORX 4 GSIGN 8 5D*= BRN VOP 5 5DSW SWITBAD2 8 5F#G LDX 4 GSIGN 9 5FBD BRN XCPAEND 5 5FDB NOSEM 7 5FG# CLOSETOP 10 5FJ= WAITVOP ,,JWACCESS 8 5FL8 BRN XOPEN 5 5FN6 SWITBAD 8 5FQ4 LDX 4 GSIGN 4 5FS6 VOP 9 5G?Q VOP ,JWACCESS 5 5GRB XCPAEND 8 5H?2 LDX 2 FX2 9 5HQL LDX 5 AWORK1(2) 9 5J== CALL 7 XGETWORD 9 5JPW BRN REPRUN 5 5K9G SETOKREP 19 5KP6 LDN 5 0 [SET TO ZERO FOR REPLY WORD 11 5L8Q S5 LDX 2 FX2 16 5LNB LDX 3 EVENT2(2) [ADDR. OF C.AREA 17 5M82 ADN 3 1 [ADDR OF REPLY WORD 10 5MML LDX 1 APETADDR(2) 20 5N7= FADDRESS 1,3,HLOCK1 [GEORGE ADDR OF REPLY WORD TO X3 17 5NLW STO 5 0(3) [SET THE REPLY WORD 14 5P6G #SKIP K6SCHEDJOB>199-199 10 5PL6 TRACE 0(3),REPLY 10 5Q5Q VFREEW ADATA,CSTORE 8 5QKB LDX 1 FX1 19 5R52 SFIN9 OLPFIN1 RLINK1(1) [RESTARTS SUBJ-PROG WITHOUT 19 5RJL [LENGTHY STARTING ROUTINES 4 5RJM # 4 5RJN # 18 5RJP ZK2 [ENTRY FOR UPDATE OF JOB BLOCK FROM SCHEDULE 4 5RJQ # 15 5RJR # THE CODE BELOW UPDATES THE JOBBLOCK...... 8 5RJS # FOR SCHEDULE 4 5RJT # 14 5RJW BITDEFS AWORK3,14,XCP,XMP,XCC,XST,XEP 5 5RK7 #UNS ICT 4 5RKD ( 10 5RKP BITDEFS AWORK3,12,XAP 19 5RL2 JBC TJB0,2,XEP [J IF NO EXPRESS PARAM 7 5RL? LDN 4 0 19 5RLJ TJB0 JBC TJB1,2,XAP [J IF NO ACTPRI PARAM 10 5RLT MHUNTW 3,ADATA,ASUP 9 5RM6 LDX 4 A1+2(3) 21 5RMC SLC 4 8 [SHIFT ACT PRIORITY TO B22,23 17 5RMN TJB1 APJOBSET 6,4 [UPDATE JOB BLOCK 21 5RM_ [ FOR EXPRESS AND ACT PRI PARAMS 4 5RN= ) 9 5RNH FINDJOBQ 1,6,NINT 17 5RNS LDX 4 1 [SAVE PTR TO JOBBLOCK 9 5RP5 LDX 6 AMILLP(1) 16 5RPB TJB2 JBC TJB5,2,XEP [J IF NOT EP/CCEP 16 5RPM JBC TJB3,2,XCC [J IF NOT CCEP 10 5RPY BC 1,JBEXPREQ 17 5RQ9 CALL 0 TDEFCOR1 [SET X0=DEFAULT CP 19 5RQG DEX 0 ACOREP(1) [PUT DEFAULT CP INTO JOBBLOCK 7 5RQR LDN 6 0 8 5RR4 BRN TJB5 17 5RR* TJB3 BS 1,JBEXPREQ [MARK AS EXPRESSED 8 5RRL LDN 0 60 17 5RRX DEX 0 ACOREP(1) [SET CP IN JOBBLOCK 8 5RS8 SMO FX1 9 5RSF LDX 6 XMILLPEXP 9 5RSQ LDX 0 JMISC(1) 17 5RT3 BNG 0 TJB4 [J IF BACKGROUND JOB 8 5RT# FON #31 8 5RTK BRN TJB45 8 5RTW TJB4 FON #32 16 5RW7 TJB45 LDX 1 4 [PTR TO JOBBLOCK 16 5RWD TJB5 JBC PMILL,2,XCP [J IF NO CP GIVEN 10 5RWP MHUNTW 3,ADATA,ASUP 14 5RX2 LDX 0 A1+1(3) [GET CP 9 5RX? TJB65 DEX 0 ACOREP(1) 17 5RXJ PMILL JBC XMELA,2,XMP [J IF NO MP GIVEN 10 5RXT MHUNTW 3,ADATA,ASUP 8 5RY6 LDX 6 A1(3) 9 5RYC XMELA LDX 5 JOBNUM(1) 11 5RYN BXE 6 AMILLP(1),NINT 9 5RY_ STO 6 AMILLP(1) 8 5R_= CALL 4 XMEL 4 5R_H NINT 7 5R_S LDX 6 5 5 6=D6 #UNS ICT 4 6=K# #SKI 11 6=QJ MBC 2,XEP,XCC,XCP,XMP 5 6=XQ #UNS ICT 12 6?4Y MBC 2,XEP,XCC,XCP,XMP,XAP 10 6?=8 ACROSS JWELLONE,5 4 6?PS # 4 6#9D # 4 6#P4 # 10 6*8N XMILLPEXP #73737373 4 6*N# # 4 6B7Y # 12 6BMJ # MOVE MILL PRIORITIES TO PCA 14 6C78 # AND RE-ORDER PROGRAM RING IF NECESSARY 4 6CLS # 4 6D6D XMEL 9 6DL4 LDEX 0 JMISC(1) 18 6F5N BZE 0 (4) [EXIT IF NO CORE IMAGE 8 6FK# MELADJUST 1 7 6G4Y EXIT 4 0 13 6GJJ [ GET DEFAULT CORE PRIORITY FOR JOB 17 6H48 [ ON ENTRY, X1->JOBBLOCK; ON EXIT,X3->JOB'S CPAT 5 6HHS TDEFCOR1 15 6J3D STO 0 GEN0 [LINK ADDRESS 8 6JH4 FCAJO 3,1 9 6K2N BRN TDEFCP 13 6KG# [ GET DEFAULT CORE PRIORITY FOR JOB 8 6K_Y [ X3->JOB'S CPAT 5 6LFJ TDEFCOR 8 6L_8 STO 0 GEN0 5 6MDS TDEFCP 7 6MYD LDN 5 0 10 6ND4 LDX 0 CONTEXT(3) 8 6NXN SLL 0 20 17 6PC# BPZ 0 XNOTMOP [J IF BACKGROUND JOB 7 6PWY LDN 5 1 5 6QBJ XNOTMOP 10 6QW8 LDX 0 JSOURCE3(3) 7 6R*S SLL 0 2 16 6RTD BNZ 0 XCLUSTER [J IF CLUSTER JOB 7 6S*4 ORN 5 2 5 6SSN XCLUSTER 7 6T## SMO 5 10 6TRY LDX 0 CLUSBACKCP 9 6W?J BRN (GEN0) 4 6WR8 # 4 6X=S # 4 6XQD # 4 6Y=4 # 4 #W88 #END 6 ____ ...300017770001