17 22FL ...#SEG LLSMESS [ DEK BEASLEY :CENT 4 22KH ...[ 15 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 4 22T* ...[ 8 22_= ...#OPT K0LLSMESS=0 11 23DW ...#LIS K0LLSMESS>K0ALLGEO>K0LLS 7 23YG ... 8HLLSMESS 4 24D6 ...[ 13 24XQ ...[ THE ENTRY POINTS ARE AS FOLLOWS 4 25CB ...[ 18 25X2 ...[ K1 : THIS ENTRY OUTPUTS THE APPROPRIATE MESSAGE WHEN 21 26BL ...[ (1) CORESHED FAILS TO OBTAIN ENOUGH CORE(EITHER VIA UNJAMMER 15 26W= ...[ OR SCHEDOUT) TO SWAP A PROGRAM IN 20 27*W ...[ (2) THE SWAPPING IN OF A PROGRAM IS BLOCKED BY REALTIME 10 27TG ...[ FRAGMENTATION 14 28*6 ...[ IN BOTH CASES,COBJUSE IS < OQ MIN 4 28SQ ...[ 10 29#B ... SEGENTRY K1LLSMESS,XX1S 18 29J8 ...XDELAY 30*1000/K9 [LLS MESSAGE DELAY VALUE 4 29S2 ...[ 4 2=?L ...[ 21 2=R= ...[ SUBROUTINE TO CALCULATE EXTRA CORE REQ'D OVER THAT ALREADY FREE 15 2?=W ...[ TO BRING PROGRAM IN - KNOWN AS SHORTFALL 7 2?QG ...[ X4 - LINK 12 2#=6 ...[ ON EXIT,X0 CONTAINS SHORTFALL 4 2#PQ ...[ 6 2*9B ...XSHORTFALL 7 2*P2 ... SHORTFALL 7 2B8L ... EXIT 4 0 4 2BN= ...[ 5 2C7W ...PKOUT 8 2CMG ... SBX 6 FX1 9 2D76 ... OUTPACK 4,1,NUMA 8 2DLQ ... ADX 6 FX1 7 2F6B ... EXIT 6 0 4 2FL2 ...# 17 2G5L ...# S/R TO FIND JOBLOCK FOR JOBNO [X7] IN X3,LINK X4 10 2GK= ...TJOB FINDJOBQ 3,7,(GEOERR) 7 2H4W ... EXIT 4 0 16 2HJG ...# MARK PROGS 'TOO BIG' IF LARGER THAN ONE FOR S/I 4 2J46 ...# 4 2JHQ ...# 4 2K3B ...PBIG 12 2KH2 ... TEST 0,CSWAPAB,CJAMAB,CDELAB 19 2L2L ... BNG 0 XOFF1 [EXIT IF ABORT FLAG RAISED 7 2LG= ... LDX 2 3 8 2L_W ... LDN 3 BJOBQ 8 2MFG ...PBIG1 LDX 3 0(3) 8 2M_6 ... TXU 3 CXJO 8 2NDQ ... BCC PBIG2 18 2NYB ... JBC PBIG1,3,JBSO [J IF NO PROG. OR S/I 9 2PXL ... LDX 0 JCSIZE(3) 8 2QC= ... SMO FX2 11 2QWW ... BXL 0 ACOMMUNE3,PBIG1 15 2RBG ... BS 3,JBBIG [MARK TOO BIG 4 2RGY ...# 20 2RMB ...# NEXT COUPLE INSTRS INCLUDED TO CORRECT B9127; BIGPROGCP IS SET 19 2RRS ...# BY PUTTING B0=1 AS WELL AS IT CONTAINING LARGEST OF ALL 9 2RY= ...# JOBS MARKED JBBIG 19 2S3L ... LDEX 0 ACOREP(3) [NB IGNORE TOP CHARS OF ACOREP 19 2S72 ... ORX 0 GSIGN [IF NO JOB MARKED JBBIG OR 19 2S=B ... [IF THIS JOB CP > LARGEST CP 21 2S*Q ... BXL 0 BIGPROGCP,PBIG1 [ OF ALL JOBS MARKED JBBIG,THEN STORE 20 2STB ... STO 0 BIGPROGCP [ AS NEW LARGEST CP OF JBBIG'S 8 2T*2 ... BRN PBIG1 7 2TSL ...PBIG2 LDX 3 2 8 2W#= ... LDX 2 FX2 7 2WRW ... EXIT 4 0 4 2X?G ...# 7 2XR6 ...[ ON ENTRY 16 2Y=Q ...[ X6 = JOB NO. OF PROGRAM WHICH FAILED TO GET IN 13 2YQB ...[ X5 = +VE IF REALTIME FRAGMENTATION 9 2_=2 ...[ = 0 OTHERWISE 4 2_PL ...[ 4 329= ...XX1S 7 32NW ... LDX 7 6 18 338G ... CALL 4 TJOB [X3->JOB BLOCK OF PROG. 21 33N6 ... CALL 4 PBIG [MARK PROGS OF >OR= SIZE AS TOO BIG 5 347Q ...#SKI G3 17 34MB ... BNZ 5 REFRAG [J IF REALTIME FRAG. 4 3572 ...[ 14 35LL ...[ X3 LEFT POINTING TO JOB BLOCK BY PBIG 20 366= ...[ IF COBJUSE+REQUEST-SHORTFALL < OQ MIN,OUTPUT BADLOAD MESSAGE 20 36KW ...[ OTHERWISE SEND BIGPRO MESSAGE FOR EACH PROGRAM MARKED TOO BIG 11 375G ...[ (UNLESS ALREADY OUTPUT) 4 37K6 ...[ 7 384Q ... COBJUSE 7 10 38JB ... ADX 7 ACOMMUNE3(2) 17 3942 ... CALL 4 XSHORTFALL [GET SHORTFALL IN X0 19 39HL ... SBX 7 0 [COBJUSE+REQUEST-SHORTFALL 8 3=3= ... MOBJQUOTA MIN 16 3=GW ... BXGE 7 0,XBIG1 [J IF >OR= OQ MIN 4 3?2G ...[ 18 3?G6 ...[ BADLOAD MESSAGE :- SYSTEM UNABLE TO MEET OBJECTQUOTA 4 3?_Q ...[ 10 3#4* ... JBS XSCHED,,ASWOQMISS 20 3#6Y ... LDX 0 CLLSUNOQ [AS WE DELAY OUTPUTTING MESSAGE 18 3#9H ... BNZ 0 XMESSTIME [J IF DELAY IN PROGRESS 18 3##6 ... LDX 0 JTIME [SET UP WORD FOR DELAY AS 17 3#BP ... ADX 0 XDELAY(1) [ 'TIME NOW + DELAY' 9 3#F# ... STO 0 CLLSUNOQ 6 3#HX ...XMESSTIME 8 3#LG ... LDX 0 JTIME 18 3#P5 ... BXL 0 CLLSUNOQ,XSCHED [J IF DELAY NOT YET OVER 15 3#RN ... STOZ CLLSUNOQ [CLEAR DELAY 8 3#W? ... BS ,ASWOQMISS 9 3#_2 ... LDX 4 COBJQUOTA 19 3*DL ... SBX 4 7 [AMOUNT FAAILED TO MEET OQ BY 8 3*Y= ... CALL 6 PKOUT 16 3BCW ... MONOUT BADLOAD [OUTPUT MESSAGE 20 3BXG ... BRN XSCHED [J TO START NEW SCHEDULING CYCLE 4 3CC6 ...[ 21 3CWQ ...[ BIGPRO MESSAGE :- JOB TOO BIG FOR SWAPIN UNDER PRESENT SYSTEM LOAD 4 3DBB ...[ 5 3DM3 ...XBIG1 20 3DXN ... LDX 0 CTOOBIG [AS WE DELAY OUTPUTTING MESSAGE,J 20 3F8* ... BNZ 0 XTIME [IF DELAY IN PROGRESS OR COMPLETE 16 3FF2 ... LDX 0 JTIME [SET UP DELAT AS 17 3FPM ... ADX 0 XDELAY(1) [ 'TIME NOW + DELAY' 9 3G2# ... STO 0 CTOOBIG 5 3G=_ ...XTIME 21 3GHL ... BS 3,JBSIFAIL [SET BIT AS LLS FAILED TO S/I PROG. 8 3GS? ... LDX 0 JTIME 18 3H4Y ... BXL 0 CTOOBIG,XSCHED [J IF DELAY NOT YET OVER 5 3H*K ...XGAIN 8 3HL= ... LDN 3 BJOBQ 4 3HWX ...NEXT 9 3J7J ... LDX 3 FPTR(3) 9 3JD9 ... BXE 3 CXJO,XEND 18 3JNW ... JBC NEXT,3,JBSIFAIL [J IF NOT HAD S/I FAIL 20 3J_H ... JBSS NEXT,3,JBBIGMESS [J IF ALREADY OUTPUT FOR THIS JOB 9 3K=L ... LDX 4 JOBNUM(3) 8 3KQ= ... CALL 6 PKOUT 16 3L9W ... MONOUT BIGPRO [OUTPUT MESSAGE 8 3LFN ... BRN XGAIN 9 3LPG ...XEND STOZ CTOOBIG 9 3L_# ... BRN XSCHED 4 3M96 ...[ 5 3MNQ ...#SKI G3 4 3N8B ...( 4 3NN2 ...[ 21 3P7L ...[ BADREAL MESSAGE :- REALTIME PROGRAMS OF JOBS PREVENTING SWAPIN BY 14 3PM= ...[ FRAGMENTING CORE 4 3Q6W ...[ 5 3QLG ...REFRAG 17 3R66 ... JBSS XSCHED,,ASWREALBAD [MARK CURRENT MESSAGE 17 3RKQ ... LDN 7 3 [-CORE FRAGMENTATION 8 3S5B ... LDN 3 BJOBQ 9 3SK2 ...PB2 LDX 3 FPTR(3) 8 3T4L ... TXU 3 CXJO 8 3TJ= ... BCC PA4 10 3W3W ... JBC PB2,3,JBREEF 9 3WHG ... LDX 4 JOBNUM(3) 8 3X36 ... BZE 7 PB5 7 3XGQ ... SBN 7 1 7 3Y2B ... SMO 7 7 3YG2 ... BRN / 8 3Y_L ... BRN P3 8 3_F= ... BRN P2 8 3_YW ... BRN P1 4 42DG ...PB5 21 42Y6 ... MONOUT BADREAL [OUTPUT UP TO 3 REALTIME JOB NUMBERS 9 43CQ ... BRN XSCHED 4 43XB ...[ 4 44C2 ...P1 8 44WL ... CALL 6 PKOUT 8 45B= ... BRN REGET 4 45TW ...P2 11 46*G ... OUTPACK JOBNUM(3),1,NUMB 8 46T6 ... BRN REGET 4 47#Q ...P3 11 47SB ... OUTPACK JOBNUM(3),1,NUMC 16 48#2 ...REGET FINDJOBQ 3,4,PA4 [REFIND JOB BLOCK 8 48RL ... BRN PB2 4 49?= ...PA4 8 49QW ... BZE 7 PB5 7 4==G ... LDN 0 3 15 4=Q6 ... BXU 0 7,PA41 [J IF 1 FOUND 10 4?9Q ... BC ,ASWREALBAD 21 4?PB ... BRN XSCHED [TERMINATE IF MESSAGE WOULD BE WRON 4 4#92 ...PA41 21 4#NL ... OUTPAR SKIP [MAKE UP FOR PARAMETERS NOT OUTPUT 8 4*8= ... BCT 7 PA41 8 4*MW ... BRN PB5 4 4B7G ...) 5 4D62 ...XOFF1 10 4DKL ... TRACE 6,ABORTSWP 9 4F5= ...#SKI K6CORESHED>499-499 4 4FJW ...( 7 4G4G ... LDX 7 6 8 4GJ6 ... CALL 4 TJOB 10 4H3Q ... JBS (GEOERR),3,JBBEING 10 4HHB ... JBC (GEOERR),3,JBSO 4 4J32 ...) 5 4J=S ...XSCHED 21 4JGL ... OFF BSTRAT [CLEAR STRATEGY IN PROGRESS MARKER 8 4K2= ... ENDCCYCLE AB 4 4KFW ...#END 6 ____ ...614544400001