17 22FL ...#SEG CORESHED [DEK BEASLEY :CENT 8 22_= #OPT K0CORESHED=0 11 23DW #LIS K0CORESHED>K0ALLGEO>K0LLS 7 23YG 8HCORESHED 4 24D6 # 21 24XQ # IT IS THIS SEGMENT WHICH DIRECTS THE DIALOGUE BETWEEN THE PC AND 7 25CB # THE CAS. 4 25X2 # 13 26BL # THE ENTRY POINTS ARE AS FOLLOWS: 4 26W= # 11 27*W # K1 : PC/CAS DIALOGUE 13 27KN ...# K2 : RE-ENTRY FROM UNJAMMER 4 27TG # 11 28*6 SEGENTRY K1CORESHED,XX1C 11 28JY ... SEGENTRY K2CORESHED,XX2C 4 28SQ # 7 29#B P12 COMPROLINK 8 29GL ...# LINK FOR PLUG IN 5 29NW ...REPLUG 9 29X6 ... LINK PLUGIN,1 4 2=5B ...[ 5 2=?L PLUGLINK 17 2=R= LINK PLUGIN,3 [PLUGIN AFTER SWAPOUT 18 2?=W UNPL LINK UNPLUG,7 [LINKS FOR UNPLUGS ETC 4 2?QG SWAP 5 2#=6 #SKI G4 9 2#PQ LINK SWAPOUT,1 5 2*9B #SKI G3 9 2*P2 LINK SWAP,2 4 2B8L # 21 2BN= ...[ S/R TO TEST FOR BREAKIN.THIS TEST IS ONLY REQ'D WHEN JBBEING SET & 21 2C7W ...[ JBSO CLEAR AS PROCONTX DOES NOT FPUT PCA UNDER THOSE CONDITIONS. 20 2CMG ...[ HOWEVER,IF BRKIN OCCURS WHILE JBBEING CLEAR & JBSO SET,THEN 21 2D76 ...[ PROCONTX FPUT'S PCA & SETS JOB TO JBDORM;THIS SUBROUTINE NOTICES 21 2DLQ ...[ JBDORM SET BUT DOES NOT FPUT PCA ETC.(GEOERR LISTKNOT IF IT DID) 4 2F6B ...[ 11 2FL2 ...[ ENTRY : X3 -> JOB BLOCK 9 2G5L ...[ X5 = LINK 17 2GK= ...[ EXIT 1 - BREAKIN OCCURRED,PCA FPUT IF NECESSARY 13 2H4W ...[ 0 - NO BREAKIN HAS OCCURRED 8 2HJG ...[ X2 = FX2 4 2J46 ...[ 5 2JHQ ...XBRKIN 8 2K3B ... LDX 2 FX2 17 2KH2 ... JMBS (5),3,JBSTSO,JBPISO [J IF WAS SPEC S/O 17 2L2L ... JBS XBEING,3,JBBEING [J IF BEING SWAPPED 20 2LG= ... JBS (5),3,JBSUSP [NO BREAKIN IF STILL SUSPENDED 8 2L_W ... BRN XR2A 5 2MFG ...XBEING 16 2M_6 ... JBC (5),3,JBBIN [J IF NO BREAKIN 16 5YYG LDN 4 0 [NON LOAD MARKER 18 5_D6 JBCC NLD,3,JBLOAD [CLEAR LOAD MARK IF SET 7 5_XQ LDN 4 1 17 62CB NLD MBI 3,JBSUSP,JBDORM [SUSPENDED -> DORMANT 14 62X2 FCAJO 2,3 [FIND CPA 20 63BL BNZ 4 XR2 [IF LOAD,LEAVE LINK TO LDSTART 16 63W= LINKSET 2,P12(1) [PROGBRKIN LINK 19 64*W XR2 FPUT [PUT COMMAND ACTIVITY ON LIST 8 64BD ...XR2A LDX 2 FX2 16 64C2 ... EXIT 5 1 [BREAKIN OCCURRED 4 64CJ ...[ 21 64D6 ...[ SUBROUTINE TO CALCULATE EXTRA CORE REQ'D OVER THAT ALREADY FREE 15 64DN ...[ TO BRING PROGRAM IN - KNOWN AS SHORTFALL 7 64F= ...[ X4 - LINK 12 64FS ...[ ON EXIT,X0 CONTAINS SHORTFALL 4 64GB ...[ 6 64GY ...XSHORTFALL 7 64HG ... SHORTFALL 7 64J4 ... EXIT 4 0 4 64JL ...[ 17 64K8 ...# S/R TO FIND JOBLOCK FOR JOBNO [X7] IN X3,LINK X4 10 64KQ ...TJOB FINDJOBQ 3,7,(GEOERR) 7 64L# ... EXIT 4 0 4 64LW ...# 5 64MD ...#SKI G3 4 64N2 ...( 5 64NJ ...TPLUGIN 4 64P6 ...[ 13 64PN ...[ ON ENTRY X2 = ADATA-ASTRAT 16 64Q= ...[ X3=JOB BLOCK OF MOVED PROGRAM 17 64QS ...[ IF B1 OF ADDRESS LOCATION IN ASTRAT BLOCK IS 18 64RB ...[ SET FOR A PROGRAM THAT WAS MOVED WE MUST NOW 10 64RY ...[ PLUG IT IN ! 8 64SG ...[ LINK X4 4 64T4 ...[ 18 64TL ... ENDPAXES 3 [CLEAR ACCESSED MARKER 10 64W8 ... MHUNTW 2,ADATA,ASTRAT 18 64WQ ... LDX 0 GPROG+GPREN+1(2) [ OBTAIN ADDRESS LOC. 7 64X# ... SLL 0 1 20 64XW ... BPZ 0 NOREPLUG [J. IF PROG NOT PLUGGED IN 19 64Y4 ... BC 3,JBSTOP [CHANGE STATE AS NOW BEING 16 64Y= ... MBS 3,JBSUSP,JBPLUGGING [ PLUGGED BACK IN 7 64YD ... FPCAJO 3 18 64_2 ... LDX 5 2 [SAVE ASTRAT POINTER 19 64_J ... LINKSET 3,REPLUG(1) [SET PLUGIN LINK IN PCA 7 6526 ... LDX 2 3 6 652N ... FPUT 18 653= ... LDX 2 5 [REPOINT X2 AT ASTRAT 5 653S ...NOREPLUG 7 654B ... EXIT 4 0 4 654Y ...[ 4 655G ...) 20 6564 ...[ WE FIRST ISSUE STRATEGY :UNLESS THIS COMES BACK TO ANY FAIL LABEL 11 656L ...[ WE HAVE AN ADATA,ASTRAT BLOCK 20 6578 ...[ IF THIS SPECIFIES ONLY 1 IN GPCNT,IT MEANS STRATEGY FOUND WITHOUT 17 657Q ...[ A PROGRAM MOVE AND WE CAN DO STARTSTRAT IMMEDIATELY 16 658# ...[ IF 2 OR MORE SPECIFIED MEANS PROGRAM MOVE NEEDED 4 658W ...[ 16 659D ...[ EXPECTS X6=JOB NO, X5= CORE WITH B0=1 => REALTIME 20 65=2 ...[ X6 WILL CONTAIN INCOMING PROGRAMS JOB NO. THROUGHOUT CORESHED 4 65=J ...[ 4 65?6 ...# 4 65?N ...XX1C 7 65#= ... LDX 7 6 5 65#S ...#SKI G4 4 65*B ...( 9 65*Y ... TRACE 7,SWAPINS 15 65BG ... CALL 4 TJOB [X3 -> JOBQ 14 65CB ... CALL 5 XBRKIN [TEST FOR BIN 8 65D= ... BRN NOBIN 15 65F6 ... BRN ZAB [J IF B -IN 5 65G2 ...NOBIN 9 65H2 ... BS 3,JBBEING 9 65HJ ... BC 3,JBSO 4 65J6 ...) 17 65JN ...STRAT STRATEGY 6,5,ZK4P,NOCORE,NOCORE1 [GET STRATEGY 5 65K= ...#SKI G4 8 65KS ... BRN XGO 5 65LB ...#SKI G3 4 65LY ...( 10 65MG ...ST1AA HUNTW 2,ADATA,ASTRAT 6 65N4 ...#UNS ISTDP 4 65NL ...( 18 65P8 ... BPZ 2 ST1B [J IF ADATA/ASTRAT EXISTS 4 65PQ ...[ 20 65Q# ...[ NO ADATA/ASTRAT IMPLIES NO ACTUAL SWAPIN TRANSFER NECESSARY 21 65QW ...[ AS A VALID FPB EXISTED FOR THIS PROGRAM WHICH HAS BEEN RE-SET UP 21 65RD ...[ AS THE AOBJPROG.WE'VE JUST COME UP FROM SWAP SO JOBNO IS NOW ASWIN 4 65S2 ...[ 12 65S9 ... CALL 4 TJOB [X->JOBBLOCK 9 65SD ... CALL 5 XBRKIN 12 65SM ... BRN UFPB [NO B-IN 20 65SW ... BS 3,JBSI [SWAPPED IN MARKER FOR COMPATIBILITY 15 65T5 ... BC 3,JBBEING [SET BY STRATEGY 9 65T# ... BRN XENDCAB 4 65TN ...ST1B 4 65W= ...) 9 65WS ... LDX 0 GPCNT(2) 7 65XB ... SBN 0 1 18 65XY ... BZE 0 XGO1 [J IF NO PROGS TO MOVE 4 65YG ...[ 19 65_4 ...[ A MOVE IS NEEDED,IF NO ABORT FLAGS NOW RAISED WE STOP THE 1ST 19 65_L ...[ PROGRAM TO BE MOVED:SOME OF THIS PATH ALSO USED TO STOP IF 8 6628 ...[ SWAPOUT NEEDED 16 662Q ...[ IF NOT STOPPED BY IREVIEW SPRING CLEANS,GIVE UP 4 663# ...[ 13 663W ... TEST 0,CJAMAB,CSWAPAB,CDELAB 19 664D ... BNZ 0 SAD [FINISH IF ABORT FLAG RAISED 11 6652 ... LDX 7 GPROG+GPREN(2) 8 665J ... CALL 4 TJOB 18 6666 ... TESTAXES 3,SAD [FINISH IF BEING ACCESSED 16 666N ... PROGAXES 3,(GEOERR) [MARK ACCESSED 19 667= ... JBS PL,3,JBPLUG [J IF PLUGGED IN TO STOP IT 9 667S ...ST1A LDX 5 IREVIEW 4 668B ...ST1 16 668Y ... JBC ST2,3,JBSTOP [J IF NOT STOPPED 8 669G ... COOR3 #41 8 66=4 ... CALL 4 TJOB 21 66=L ... JBS PL,3,JBPLUG [MUST CONTINUE TO CHECK NOT PLUGGED IN 8 66?8 ... BCT 5 ST1 11 66?Q ...ZAB MHUNTW 2,ADATA,ASTRAT 9 66## ... LDX 0 GPCNT(2) 7 66#W ... SBN 0 1 21 66*D ... BZE 0 SAD [JUMP IF NO PROGRAM WAS TO BE MOVED 11 66B2 ... LDX 7 GPROG+GPREN(2) 16 66BJ ... CALL 4 TJOB [JOB TO BE MOVED 9 66C6 ... CALL 4 TPLUGIN 4 66CN ...) 4 66D= ...# 6 66DS ...# FINISH 4 66FB ...# 5 66FY ...#SKI G4 4 66GG ...ZAB 4 66H4 ...SAD 7 66HL ... LDX 7 6 18 66J8 ... CALL 4 TJOB [X3 TO JOB TO BE SWAPPED 9 66JQ ... BC 3,JBBEING 17 66K# ... BS 3,JBSO [ENSURE MARKED S/O 5 66KK ...PROGDEL 5 66KW ...#SKI G3 15 66LD ... FREECORE 2 [FREE ASTRAT 16 66M2 ... BRN XENDCAB [J TO ENDCCYCLE 4 66MJ ...# 17 66N6 ...# WE'VE STOPPED THE JOB TO BE MOVED SO CAN STARTSTRAT 4 66NN ...# 5 66P= ...#SKI G3 4 66PS ...( 11 66QB ...ST2 MHUNTW 2,ADATA,ASTRAT 17 66QY ... SETBIT 0,GPROG+GPREN+1(2) [MARK PERS WOUND DOWN 13 66RG ... TRACE GPROG+GPREN(2),MOVEPROG 8 66S4 ... BRN XGO 4 66SL ...[ 13 66T8 ...[ GO AHEAD WITH STARTSTRAT = SWAPIN NOW 4 66TQ ...[ 9 66W# ...XGO1 LDX 7 GPROG(2) 15 66XD ... CALL 4 TJOB [X3 -> JOBQ 9 66Y6 ... CALL 5 XBRKIN 8 66YS ... BRN NOBIN 15 66_G ... BRN ZAB [J IF B-IN 5 6728 ...NOBIN 9 672R ... TRACE 7,SWAPINS 3 673B ... 9 673Y ... BS 3,JBBEING 9 674G ... BC 3,JBSO 4 6754 ...) 12 675L ...XGO STARTSTRAT ZK2P,ZLOCK,ZAB 5 6768 ...#SKI G3 4 676Q ...( 11 677# ... MHUNTW 3,ADATA,ASTRAT 9 677W ... LDX 0 GPCNT(3) 7 678D ... SBN 0 1 18 6792 ... BNZ 0 XMORE [J IF ONLY PROGRAM MOVE 4 679J ...) 4 67=6 ...[ 19 67=N ...[ IF SWAPIN NOW FINISHED,KICJ PCA TO DO PLUGIN AND LET ASWINT 15 67?= ...[ RETURN TO SCHEDIN TO DO SOME MORE SCHEDULING 4 67?S ...[ 5 67#B ...#SKI G3 4 67#Y ...( 19 67*G ... FREECORE 3 [FREE THE ADATA/ASTRAT BLOCK 20 67B4 ...UFPB [J TO HERE WHEN VALID FPB EXISTED 4 67BL ...) 19 67C8 ... LDX 7 6 [JOB NO. OF INCOMING PROG. 8 67CQ ... CALL 4 TJOB 4 67D# ...[ 20 67DW ...[ IF PCACA CASE CHECK IF MESSAGE REQUIRED & IF NOT KICK CPA HERE 10 67FD ... JBS MESS,3,JBBIG 11 67G2 ... JBCC MESS,3,JBPCACA 3 67GJ ... 10 67H6 ... MBS 3,JBSI,JBSTOP 11 67HN ... MBC 3,JBBEING,JBSUSP 12 67J= ... FCAJO 2,3 [X2 ->CPA 6 67JS ... FPUT 9 67KB ... BRN NOMESS 4 67KY ...MESS 8 67LG ... FPCAJO 2,3 10 67M4 ... LINKSET 2,PLUGLINK(1) 6 67ML ... FPUT 17 67N8 ... BS 3,JBPLUGGING [MARK BEING PLUGGED 5 67NQ ...NOMESS 11 67P# ... GSCAN JOBNUM(3),SWAPINF 5 67PW ...XSCHED 21 67QD ... OFF BSTRAT [CLEAR STRATEGY IN PROGRESS MARKER 9 67R2 ... ACROSS SCHEDIN,1 5 67RJ ...#SKI G3 4 67S6 ...( 4 67SN ...[ 19 67T= ...[ IF STARTSTRAT WAS FOR PROGRAM MOVE,WE FREE THE ASTRAT,CLEAR 18 67TS ...[ THE BSTRAT SWITCH,AND RETURN TO SCHEDIN TO SELECT ANOTHER 19 67WB ...[ CANDIDATE.THINKS: THIS IS PROBABLY COS WE THINK THAT A MOVE 18 67WY ...[ HAS ALTERED THINGS SUFFICIENTLY THAT ITS WORTH CHECKING 14 67XG ...[ THAT THERE IS NOT NOW A BETTER CANDIDATE 4 67Y4 ...[ 7 67YL ...XMORE LDX 2 3 11 67_8 ... LDX 7 GPROG+GPREN(2) 19 67_Q ... CALL 4 TJOB [X3 -> JOBBLOCK BEEN MOVED 9 682# ... CALL 4 TPLUGIN 10 682W ... MFREEW ADATA,ASTRAT 9 683D ... BRN XSCHED 4 6842 ...) 19 684J ...# ENTRY IS MADE HERE WHEN A SWAP IN REQUESTED BY THE PROGRAM 21 6856 ...# CONTROLLER HAS FAILED DUE TO LACK OF CORE. IT HAS TWO ENTRY POINT 21 685N ...# ZK2P : ENTERED FROM STARTSTRAT WHEN A PROGRAM MOVE OR SWAPIN 21 686= ...# HAS BEEN FRUSTRATED BY ANOTHER GEORGE ACTIVITY TAKING 21 686S ...# SOME OF THE CORE NEEDED.THE ADATA/ASTRAT BLOCK REMAINS 21 687B ...# ZK4P : ENTERED FROM STRATEGY WHEN NO STRATEGY FOR A SWAPIN 21 687Y ...# CAN BE FOUND BUT MAY BE POSSIBLE AFTER A SWAPOUT.IF AN 21 688G ...# ADATA/ASTRAT EXISTS,IT CONTAINS THE NOS. OF THE PROGS, 21 6894 ...# TO SWAPOUT AND THE REALTIME PROGRAM THAT THE LLS WANTS 12 689L ...# TO BE SWAPPED IN. 4 68=8 ...# 4 68=Q ...ZK2P 5 68?# ...#SKI G3 4 68?W ...( 11 68#D ... MHUNTW 2,ADATA,ASTRAT 9 68*2 ... LDX 0 GPCNT(2) 7 68*J ... SBN 0 1 19 68B6 ... BZE 0 NOSWAP [JUMP IF SWAP WAS FRUSTRATED 19 68BN ... LDX 7 GPROG+GPREN(2) [OTHERWISE MOVE FRUSTRATED 8 68C= ... CALL 4 TJOB 9 68CS ... CALL 4 TPLUGIN 5 68DB ...NOSWAP 7 68DY ... FREECORE 2 4 68FG ...) 4 68G4 ...ZK4P 10 68GL ... TRACE 6,NOSWAPIN 7 68H8 ...ZK4PA LDX 7 6 8 68HQ ... CALL 4 TJOB 16 68KD ... CALL 5 XBRKIN [TEST FOR BREAKIN 15 68L2 ... BRN R2 [NO BREAKIN 9 68L8 ... BC 3,JBBEING 9 68LB ... BS 3,JBSO 5 68LJ ...#SKI G3 16 68M6 ... VFREEW ADATA,ASTRAT [FREE IF EXISTS 20 68MN ... BRN XOFF1 [AS BKIN,NO NEED TO UNJAM ETC. 4 68QG # 4 69=6 R2 9 69C# ... BC 3,JBBEING 9 69JG ... BS 3,JBSO 5 69PQ #SKI G3 11 6=9B ... HUNTW 3,ADATA,ASTRAT 13 6=P2 ... TEST 0,CSWAPAB,CJAMAB,CDELAB 8 6SR6 BZE 0 XNONE 5 6T=Q #SKI G3 4 6TQB ( 17 6W=2 ... BNG 3 XOFF1 [ABORT FLAG RAISED 20 6WPL FREECORE 3 [SO FREE THE ADATA/ASTRAT BLOCK 4 6X9= ) 8 6XNW ... BRN XOFF1 5 74K6 XNONE 5 74Q# ...#SKI G4 9 74XG ... BRN XMORECORE 5 754Q #SKI G3 4 75JB ( 20 75PJ ...[ IF ADATA/ASTRAT EXISTS,THEN IT CONTAINS JOB NO. OF PROG. TO 15 75WQ ...[ BE S/O TO MAKE WAY FOR THE REALTIME PROG. 4 763Y ...[ 9 7696 ... BNG 3 XMORECORE 18 76BC ... LDX 7 GPROG+GPREN(3) [JOB TO BE SWAPPED OUT ! 18 773= FREECORE 3 [FREE THE ADATA/ASTRAT 18 77GW CALL 4 TJOB [X3 -> JOBQ TO BE SWAPPED 14 782G ... JMBS XOFF1,3,JBREON,JBREEF,JBPLUGGING 9 78G6 BRN XFINGER 4 78_Q ) 4 792Q ...[ 20 793Q ...[ NOW WE DECIDE WHAT TO DO ABOUT THERE BEING INSUFFICIENT CORE 4 794Q ...[ 6 795Q ...XMORECORE 16 796Q ... STO 6 CJJOBNO [PRESERVE JOB NO. 7 797Q ... COBJUSE 4 8 798Q ... MOBJQUOTA MIN 19 799Q ... BXGE 4 0,XOUT [J IF OQ. MIN BEING REACHED 10 79=Q ... LDX 0 CJDELAYCNT1 10 79?Q ... ORX 0 CJDELAYCNT2 17 79#Q ... BPZ 0 XOUT [J IF RECENT UNJAM 17 79*Q ... CALL 4 XSHORTFALL [CALCULATE SHORTFALL 20 79BQ ... STO 0 CJTARGTN [ & STORE AS TARGET FOR UNJAMMER 10 79CQ ... LDX 0 ACOMMUNE3(2) 18 79DQ ... STO 0 CJREQSIZE [STORE SIZE OF PROGRAM 20 79HQ ... JBSS XOFF1,,ASWCORJAM [J IF UNJAM ALREADY IN PROGRESS 9 79JQ ... ACROSS UNJAMMER,1 4 79KQ ...[ 18 79LQ ...XX2C [RE-ENTRY FROM UNJAMMER 15 79MQ ... LDX 6 CJJOBNO [RE-SET X6 18 79NQ ... CALL 4 XSHORTFALL [CALCULATE SHORTFALL NOW 20 79PQ ... BPZ 0 XOUT [J IF STILL NOT ENOUGH FREE CORE 7 79QQ ... LDX 7 6 8 79RQ ... CALL 4 TJOB 19 79SQ ... LDX 5 JCSIZE(3) [RESET X5 TO SIZE OF PROGRAM 18 79TQ ... JBC NOTRE,3,JBREON [SET B0 IF REALTIME PROG. 8 79WQ ... ORX 5 GSIGN 5 79XQ ...NOTRE 9 79YQ ...#SKI K6CORESHED>499-499 9 79_Q ... TRACE 6,RETRYSTR 20 7=2Q ... BRN XX1C [J TO ATTEMPT ANOTHER STRATEGY 4 7=3Q ...[ 21 7=4Q ...[ AS EITHER UNJAMMING ACTION FAILED TO FREE ENOUGH CORE,OR WE'RE AT 21 7=5Q ...[ LEAST MEETING OQ MIN;THEN SEE IF ANY PROGRAMS SHOULD BE SWAPPED OU 4 7=6Q ...[ 4 7=7Q ...XOUT 7 7=8Q ... COBJUSE 7 7=9Q ... COBJUSRT 5 19 7==Q ... BXE 0 5,XOUT1 [J IF NO PROG'S TO SWAP OUT 20 7=?4 ... CALL 4 XSHORTFALL [SET REQ'D AMOUNT FOR SCHEDOUT 10 7=?B ... STO 0 ACOMMUNE1(2) 19 7=?Q ... ACROSS SCHEDOUT,1 [ ATTEMPT TO SWAP A PROG. OUT 20 7=#Q ...XOUT1 [NO PROGRAMS TO SWAP OUT,SO SEND 17 7=*Q ... [APPROPRIATE MESSAGE 9 7=BQ ... LDX 6 CJJOBNO 7 7=CQ ... COBJUSE 4 21 7=DQ ... MOBJQUOTA MIN [IF REACHING OQ MIN,NOWT ELSE TO DO 9 7=FQ ... BXGE 4 0,XENDC 19 7=GQ ... LDN 5 0 [INDICATES NOT REALTIME FRAG. 19 7=HQ ... ACROSS LLSMESS,1 [OUTPUT APPROPRIATE MESSAGE 4 7=JQ ...[ 21 7=KQ ...[ AS LOCKED BLOCK IN FREEZE AREA EXIT FROM STARTSTRAT(WHICH IMPLIES 21 7=LQ ...[ WE WAITED FOR 1MIN IN COREALLH),WE GO BACK TO SCHEDIN TO SEE IF 21 7=MQ ...[ SITUATION CHANGED(WHICH MIGHT HELP TO AVOID LOCKED BLOCK AREA FOR 4 7=NQ ...[ 5 7=PQ ...ZLOCK 7 7=QQ ... LDX 7 6 16 7=RQ ... CALL 4 TJOB [LOCATE JOB BLOCK 17 7=SQ ... CALL 5 XBRKIN [FPUT PCA IF BREAKIN 16 7=TQ ... BRN ZAB [EXIT TO SCHEDIN 18 7=WQ ... BRN ZAB [ IRRESPECTIVE OF BREAKIN 5 7=Y= #SKI G3 4 7?CW ( 4 7?XG [ 20 7#C6 [ THIS NEXT SECTION CONTAINS CODE TO STOP AND UNBUSY A PLUGGED IN 6 7#WQ [ PROGRAM 4 7*BB [ 7 7*W2 PL FPCAJO 3 10 7B*L BS 3,ASTOPSWAP 9 7BT= LDX 5 IREVIEW 9 7C#W LDX 7 JOBNO(3) 10 7CSG ...PL2 LA ASTOPSWAP,4 19 7D#6 ... STOPIT 3 [ ENSURE IT IS STOPPED (DUALS) 10 7DRQ BXE 4 ASTOP(3),PL1 18 7F?B PL3 COOR3 #41 [WAIT FOR EVENT TO CLEAR 8 7FR2 CALL 4 TJOB 17 7G=L JBC ST1A,3,JBPLUG [J UNLESS PLUGGED IN 7 7GQ= FPCAJO 3 8 7H9W BCT 5 PL2 9 7HPG BC 3,ASTOPSWAP 8 7J96 BRN ZAB 7 7JNQ PL1 LDX 4 3 10 7K8B PCATEST 3,PL11,PL11 8 7KN2 FINDTP 3,3 4 7L7L PL11 14 7LM= DOWN UNPLUG,9 [UNPLUG IT 8 7LSD ... BRN ZAB1 4 7L_L ...[ 19 7M6S ...[ THE FOLLOWING LINE WAS INSERTED TO CURE B2781 BUT CAUSED 19 7M#2 ...[ B3306 (PHANTOM BIT SETTER) AS I USED X0 INSTEAD OF X3 ! 4 7MF8 ...[ 15 7MHS ... BS 3,ASTOPEXEC [CURES B2781 11 7MLD ... MHUNTW 2,ADATA,ASTRAT 20 7MP4 ... SETBIT 1,GPROG+GPREN+1(2) [INDICATE PROGRAM WAS PLUGGED IN 8 7MRN ... BRN ST2 10 7N66 ZAB1 BC 3,ASTOPSWAP 16 7NKQ BRN ZAB [ENSURE STOP BIT CLEAR 4 7P5B ) 4 7PK2 ...[ 21 7Q4L ...[ FRAGMENTATION BY REALTIME PROGRAMS EXIT FROM STRATEGY.THIS EXIT CA 21 7QJ= ...[ ONLY OCCUR IN G3 AND NO ADATA/ASTRAT WILL EXIST.ALSO BREAKIN WILL 21 7R3W ...[ HAVE BEEN NOTICED IF IT OCCURRED AS JBBEING IS NOT SET UNTIL JUST 11 7RHG ...[ BEFORE STARTSTRAT IN G3 4 7S36 ...[ 5 7SGQ ...NOCORE1 5 7T2B ...#SKI G3 4 7TG2 ...( 9 7T_L ... TRACE 6,REALFRAG 7 7WF= ... COBJUSE 4 8 7WYW ... MOBJQUOTA MIN 18 7XDG ... BXGE 4 0,XENDC [EXIT IF REACHING OQ MIN 18 7XY6 ... LDN 5 1 [INDICATE REALTIME FRAG. 16 7YCQ ... ACROSS LLSMESS,1 [OUTPUT MESSAGE 4 7YXB ...) 20 7_C2 ...[ EXIT FROM STRATEGY WHEN NO HOPE GIVEN EVEN IF ALL NON-REALTIME 13 7_WL ...[ PROGRAMS WERE TO BE SWAPPED OUT 4 82B= ...[ 5 82TW ...NOCORE 9 83*G ... TRACE 6,IMPSSBLE 8 83T6 ... BRN ZK4PA 5 8G2= #SKI G3 4 8GFW ( 4 8G_G # 17 8HF6 # THIS SECTION UNBUSIES A PROGRAM WITH THE FINGER 12 8HHG ...# ON IT TO BE SWAPPED OUT **** 4 8H_Q ...[ 11 8J46 ...[ SO X6 = JOB COMMING IN 12 8J6G ...[ X7 = JOB SELECTED FOR OUT 4 8J8W ...[ 5 8JY2 XFINGER 9 8KCL R3J LDX 5 IREVIEW 12 8KR* ...R2J TEST 0,CSWAPAB,CJAMAB,CDELAB 19 8L74 ... BNZ 0 XOFF1 [EXIT IF ABORT FLAG RAISED 8 8LGR ... CALL 4 TJOB 16 8LWG JBC YES,3,JBSTOP [J IF NOT STOPPED 8 8MB6 COOR3 #41 8 8MTQ BCT 5 R2J 8 8N=F ... BRN XOFF1 18 8NM8 ...YES JBS XOFF1,3,JBPLUGGING [EXIT IF BEING PLUGGED IN 19 8P3Y ...[ THE FOLLOWING CURES BUG 3361 - WHEREBY A PROGRAM COULD 17 8P7C ...[ DISAPPEAR WHILE WE SWAPPED IT AS WE DID NOT DO A 8 8P=W ...[ PROGAXES 4 8PB* ...[ 9 8PFS ... TESTAXES 3,XOFF1 10 8PK? ... PROGAXES 3,(GEOERR) 4 8PNQ ...[ 16 8Q8B ... JBS PLG,3,JBPLUG [J IF PLUGGED IN 10 8QRG JBS R16,3,JBSI 18 8R?6 ... BRN XOFFP [OR NO LONGER SWAPPED IN 7 8RQQ PLG FPCAJO 3 10 8S=B BS 3,ASTOPSWAP 9 8SQ2 LDX 5 IREVIEW 4 8T9L ...XBK 19 8TP= ... STOPIT 3 [ ENSURE IT IS STOPPED (DUALS) 9 8WNG LA ASTOPSWAP 10 8X86 BXE 0 ASTOP(3),YSUB 21 8XMQ XWT COOR3 #41 [WAIT TILL PROG. READY FOR SWAPPING 17 8XRM ... CALL 4 TJOB [IF UNPLUGGED PCA MAY MOVE 17 8XXJ ... JBC UNPLD,3,JBPLUG [J IF NOW UNPLUGGED 7 8Y3F ... FPCAJO 3 8 8Y7B BCT 5 XBK 9 8Y?? ... BRN NOGOOD 7 8YC8 ...UNPLD FPCAJO 3 5 8YF6 ...XOFFR 5 8YH5 ...NOGOOD 9 8YM2 BC 3,ASTOPSWAP 17 8_6L ... BRN XOFFP [CAN'T WAIT ANY MORE 4 8_L= YSUB 7 92KG LDX 2 3 10 92T# ... BS 3,ASTOPEXEC 18 9356 PCATEST 2,RC2,RC2 [-> RC2 IF NORMAL OR TP 8 93JQ FINDTP 2,2 18 944B ...RC2 NOTBUSY 2 [UNBUSY THE PERIPHERALS 7 94J2 LDX 2 3 9 953L LINKSET 2,UNPL(1) 8 957H ... BRN R16A 12 95?D ...[ WE FAILED TO UNBUSY SO TIDY UP 4 95C* ...[ 5 95H= ...XOFFR1 10 95M7 ... BC 3,ASTOPEXEC 8 95R4 ... BRN XOFFR 4 95W_ ...[ 8 962W R16 FPCAJO 2,3 9 96GG LINKSET 2,SWAP(1) 4 96SX ...R16A 13 977# ... BS 2,ASTOPEXEC [B3185 8 97FQ FJOPCA 3,2 9 97_B BC 3,JBSI 9 98F2 BS 3,JBBEING 6 98YL FPUT 8 99=S ... BRN XENDC 4 99K2 ...[ 10 99MB ...[ ADDITIONAL TO B3361 4 99PQ ...[ 5 99S6 ...XOFFP 17 99YW ... CALL 4 TJOB [REFIND JOB BLOCK 8 9=3= ... ENDPAXES 3 8 9=82 ... BRN XOFF1 4 9=#Q ...[ 4 9=CG ) 5 9=X6 ...XENDC 21 9?BQ ... OFF BSTRAT [CLEAR STRATEGY IN PROGRESS MARKER 7 9?WB ... ENDCCYCLE 5 9#B2 ...XOFF1 10 9#TL ... TRACE 6,ABORTSWP 9 9**= ...#SKI K6CORESHED>499-499 4 9*SW ...( 7 9B#G ... LDX 7 6 8 9BS6 ... CALL 4 TJOB 10 9C?Q ... JBS (GEOERR),3,JBBEING 10 9CRB ... JBC (GEOERR),3,JBSO 4 9D?2 ...) 5 9DQL ...XENDCAB 21 9F== ... OFF BSTRAT [CLEAR STRATEGY IN PROGRESS MARKER 8 9FPW ... ENDCCYCLE AB 11 9G9G ... MENDAREA 50,K99CORESHED 4 9GP6 ...#END 8 ____ ...35460620003300000000