15 22FL ...#SEG PROCONTX83 [RUTH PORTER 15 22PD ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 8 22_= #OPT K0PROCONTX=0 10 23DW #LIS K0PROCONTX>K0ALLGEO 7 23YG 8HPROCONTX 4 24D6 # 4 24XQ # 21 25CB # THIS SEGMENT INSPECTS THE CURRENT STATE OF A JOB AND TAKES S 21 25X2 # MEASURES AS ARE NECESSARY TO ENSURE THAT CONTROL OF THE JOB WILL B 21 26BL # RETURNED AS QUICKLY AS POSSIBLE TO THE COMMAND PROCESSOR, WHERE IT 21 26W= # BE 'STOPPED' AT A WELL DEFINED CLEAN POINT. THERE ARE ENTRY POINTS 21 27*W # EACH SEPARATE REASON FOR REQUIRING A JOB TO BE STOPPED, AS FOLLOWS 15 27TG # K3: USER REQUIRES TO BREAK-IN ON HIS JOB 18 28*6 # K13: USER REQUIRES TO CONNECT THE JOB TO HIS CONSOLE 15 28SQ # K14: OPERATOR REQUIRES TO ABANDON THE JOB 21 29#B # K15: GEORGE REQUIRES TO TERMINATE THE JOB DUE TO ITS MONITORING FI 9 29S2 # BECOMING FULL 21 2=?L # K16: GEORGE REQUIRES TO TERMINATE THE JOB DUE TO THE MOP CONSOLE B 9 2=R= # INOPERABLE 13 2?=W # K17: BREAK-IN VIA NBREAKIN MACRO 8 2?BR ...# K18: READ FAIL 12 2?GN ...# K20: ABANDON TIMED OUT MOP JOB 12 2?LK ...# K21: 'MOP OFF,LIMBO' COMMAND 17 2?NH ...# K22: SHARED FILESTORE ENTRY FOR TRANSBICHECK MACRO 4 2?QG # 4 2#=6 # 14 2#PQ ... SEGENTRY K1PROCONTX,XX1P [STOPJOB 15 2*9B ... SEGENTRY K2PROCONTX,XX2P [FINISH AB 14 2*P2 ... SEGENTRY K3PROCONTX,XX3P [MX B-IN 14 2B8L ... SEGENTRY K4PROCONTX,XX4P [CI B-IN 15 2BN= ... SEGENTRY K5PROCONTX,XX5P [CI RELEASE 14 2C7W ... SEGENTRY K7PROCONTX,XX7P [FINISH 13 2CMG ... SEGENTRY K8PROCONTX,XX8P [IPB 15 2D76 ... SEGENTRY K9PROCONTX,XX9P [S.P. UNLOAD 14 2DLQ ... SEGENTRY K12PROCONTX,XX12P [MF FILL 13 2F6B ... SEGENTRY K13PROCONTX,XX13P [CN 13 2FL2 ... SEGENTRY K14PROCONTX,XX14P [AB 14 2G5L ... SEGENTRY K15PROCONTX,XX15P [MF FULL 14 2GK= ... SEGENTRY K16PROCONTX,XX16P [INOP MOP 11 2H4W SEGENTRY K17PROCONTX,XX17 14 2H7F ...[ ENTRY POINT 20 TO AB TIMED OUT MOP JOBS 7 2H=4 ...[ MARK 830 ONLY 15 2H?R ... SEGENTRY K18PROCONTX,XX18P [READ FAIL 13 2H*G ... SEGENTRY K20PROCONTX,XX20 [AB 6 2HC? ...#UNS CRAMP 16 2HFW ... SEGENTRY K21PROCONTX,XX21P [MOP OFF LIMBO 20 2HF_ ... FSHENTRY K22PROCONTX,XX22P,XX22P,XX22P [COMPLETE AWAY BREAKIN 21 2HG4 ... FSHENTRY K23PROCONTX,XX23P,XX23P,XX23P [CONNECT WAIT IN HOME M/C 20 2HG5 ... FSHENTRY K24PROCONTX,XX24P,,XX24P [UNANTICIPATED CLOSEDOWN 16 2HH? ... SEGENTRY K25PROCONTX,XX25P [WRITE FAIL 18 2HJG PJLEN +ASTJOB [SIZE OF SHORT JOB BLOCK 9 2HLB ...PMASK #27777777 9 2HN= ...PBROKALMSK #67773777 9 2HQ6 ...PBROKADMSK #56377777 9 2HS2 ...PBROKCIMSK #76777777 6 2HTW ...PBROKALCB 8 2HXQ ...#HAL AMXOR+ALCB,0 6 2H_L ...PBROKADCB 8 2J3G ...#HAL AMXOR+ADCB,0 6 2J5B ...PBROKCILCB 8 2J7= ...#HAL AMXOR+CILCB,0 7 2J9# ...#SKI JWPHASE4 9 2JBG ...XABBITS +ABBITS 4 2JHQ # 16 2JRJ ... BITDEFS AWORK4,0,SWELL,SMOP,,USER,TEMP,SMESS 7 2JW7 ...#SKI JWPHASE4 11 2JYQ ... BITDEFS AWORK4,9,XAUTO 7 2K3B # STOPJOB 4 2KH2 # 21 2L2L # THIS SUBROUTINE IS USED BY ALL THE ENTRIES TO THE SEGMENT IN ORDER 21 2LG= # INSPECT THE CURRENT STATE OF THE JOB TO BE STOPPED AND TAKE THE NE 21 2L_W # ACTION TO GET IT STOPPED AS SOON AS POSSIBLE. THE ADDRESS OF THE C 21 2MFG # THE JOB IS IN X3 ON ENTRY AND THE LINK IS X5. EXITS 0 IF JOB NOT C 21 2M_6 # STOPPABLE, ELSE EXITS 2. NO COORDINATION. X0,X2,X4,X6,X7 DESTROYED 4 2NDQ # 4 2NYB # 18 2PD2 P10 COMPROLINK ['PROGBRKIN' TYPE LINK 4 2PXL # 14 2QC= ...[ THIS SUBROUTINE ISSUES THE TESTOUT MACRO 5 2QWW ...TESTOUT 8 2RBG ... SBX 5 FX1 7 2RW6 ... TESTOUT 8 2S*Q ... ADX 5 FX1 7 2STB ... EXIT 5 0 4 2Y=Q # 4 2Y#F ...[ 9 2YB8 ...[ NB. ************ 4 2YCX ...[ 18 2YFL ...[ NEG X2 INDICATES NO JOBBLOCK - AS FOR MOP WELL JOBS. 4 2YH* ...[ 18 2YK4 ...[ THIS IS USED IN THE K14 ENTRY FROM THE (AB) COMMAND 4 2YLR ...[ 4 2YNG ...[ 13 2YN_ ...STOPJOB1 [CHECK FOR BEING SAVED 9 2YPD ... BNG 2 STOPJOB 11 2YPX ... JBS XIT,2,JBSAVING 5 2YQB STOPJOB 8 2_=2 ...[CHECK BREAKIN BITS 13 2_PL ... JMBS XIT,3,BRBRKIN,BRINHIBIT 5 2__D ...STOPMOP 16 329= ... MBS 3,BRBRKIN,BRNOTED [SET CPAT BITS 7 338G ... ADN 5 1 8 34CJ ... BNG 2 SKJB 15 34X8 ... BS 2,JBBIN [JOBBLOCK BIT 4 35#8 ...SKJB 9 35P8 ... LDX 4 ATYPE(3) 8 366= ANDN 4 #2000 17 36KW BZE 4 NOTLW [J NOT IN LONGWAIT 16 375G LDX 2 3 [COPY CPA ADDR 9 37K6 #SKI K6PROCONTX>99-99 11 384Q TRACE ATYPE(3),LONGWSJ 20 38JB UNQUEUE [REMOVE CPA FROM WAITING QUEUE 18 3942 FPUT [AND PUT IT ON THE LIST 4 39BC ...XIT 7 39NS ... EXIT 5 0 5 3=3= NOTLW 8 3=?4 ... BNG 2 XIT 9 3=GW LDX 0 JMISC(2) 9 3?2G #SKI K6PROCONTX>99-99 9 3?G6 TRACE 0,JMISCSJ 17 3?_Q ANDN 0 #777 [TEST IF CORE IMAGE 13 3#FB ... BZE 0 XIT [NO 21 3#_2 ANDN 0 #62 [TEST IF PROGRAM IS IN SUSPENDED STAT 13 3*DL BZE 0 NOTSUSP [NO 19 3*Y= ANDN 0 #60 [TEST IF SWAPPED BY UNJAMMER 13 3BCW BZE 0 NSPEC [NO 20 3BXG ANDN 0 #20 [ISOLATE SPECIAL PLUGGED STATE 17 3CC6 BRN TESTP [J TO SEE WHICH IT IS 5 3CWQ NSPEC 20 3D2M ...[ ALTHOUGH PROGRAM SUSPENDED,WE IGNORE BREAK-IN IF PROGRAM BEING 14 3D6J ...[ PLUGGED IN AS PLUGIN WILL NOTICE IT 10 3DL8 ... JBS XIT,2,JBPLUGGING 19 3F5S ... JBS XIT,2,JBBEING [IGNORE IF BEING SWAPPED 8 3FKD ... TESTAXES 2,XIT 21 3G54 ... JBC X1,2,JBPCACA [IGNORE LOAD CHECK UNLESS PCACA S37 18 3GJN ... JBCC XIT,2,JBLOAD [CLEAR LOAD MARKER IF SET 9 3H4# ... BS 2,JBDORM 18 3HHY ... BC 2,JBSUSP [CHARGE SUSP -> DORMANT 17 3LPG BRN X2 [YES,SO FPUT ACTIVITY 4 3M96 X1 9 3MHH ... BS 2,JBDORM 9 3MTY ... BC 2,JBSUSP 16 3N8B LINKSET 3,P10(1) [PROGBRKIN LINK 4 3NN2 X2 7 3Q6W LDX 2 3 19 3QLG FPUT [PUT COMMAND ACTIVITY ON LIST 8 3R66 ... BRN XIT 5 3RKQ NOTSUSP 9 3S5B LDX 0 JMISC(2) 21 3SK2 ANDN 0 #4 [SEE IF PROGRAM IS MARKED PLUGGED IN 5 3T4L TESTP 13 3TJ= ... BZE 0 XIT [NO 7 3W3W LDX 7 2 14 3WHG FPCAJO 2 [FIND PCA 10 3X36 ... BS 2,ASTOPBIN 8 3XGQ ... BRN XIT 4 3Y_L # 4 3_F= # 4 3_YW # 17 42DG # ENTRY FROM OLPA FOR STOPJOB EXTRACODE. X6=JOB NO. 4 42Y6 # 4 43CQ XX1P 9 43XB #SKI K6PROCONTX>99-99 10 44C2 TRACE 6,STOPJOBX 9 44WL CALL 5 SFINDCPA 8 4593 ... BRN UP 8 45HD ...#SKI JWPHASE4<1$1 4 45NL ...( 10 45TW LDX 0 CONTEXT(3) 8 46*G ANDN 0 #4000 18 46T6 BZE 0 NOSTOP1 [J IF NOT FULLY STARTED 4 474Y ...) 9 47#Q CALL 5 STOPJOB 9 47SB BRN NOSTOP1 8 48#2 LDCT 7 #200 10 48RL ORS 7 JOBEVENTS(3) 9 49?= LDX 7 PMASK(1) 10 49QW ANDS 7 JOBEVENTS(3) 4 49S? ...#SKI 4 49TN ...( 7 49X5 ...#SKI JWPHASE4 4 49YG ...( 12 49_X ... JBS NSETB19,3,EXNONSTOP 8 4=3# ... LDN 0 #20 21 4=4P ... ORS 0 JOBEVENTS(3) [SAME AS B2 BUT ONLY NOTICED IN LONGWA 5 4=66 ...NSETB19 4 4=7H ...) 4 4=8Y ...) 9 4=FH ... BRN UPPLUSONE 5 4?9Q NOSTOP1 9 4?PB #SKI K6PROCONTX>99-99 12 4#92 TRACE JOBEVENTS(3),NSTOPJBX 8 4#NL ... BRN UP 4 4*8= # 16 4*MW # STOPJOB ENTRY FROM FINISH COMMAND.X6=JOB NO. 4 4B7G # 4 4BM6 XX2P 9 4C6Q #SKI K6PROCONTX>99-99 9 4CLB TRACE 6,FINISH 9 4D62 CALL 5 SFINDCPA 15 4DKL ... BRN UP [NON-EXISTANT 16 4F5= LDX 7 CONTEXT(3) [SYSTEM ISSUED? 13 4FJW BPZ 7 NSYSF [NO 9 4G4G ... BRN UPPLUSONE 9 4GJ6 ...NSYSF CALL 5 STOPJOB1 17 4H3Q ... BRN UP [JOB NOT STOPPABLE 10 4HHB ... BS 3,BRFINISH 9 4J32 ... CALL 5 TESTOUT 9 4JGL ... BRN UPPLUSTWO 4 4LYQ # 18 4MDB # BREAKIN. ENTRY FROM MULTIPLEXOR ACTIVITY. X6=JOB NO. 4 4MY2 # 4 4NCL XX3P 9 4NX= #SKI K6PROCONTX>99$99 9 4PBW TRACE 6,BREAKIN 9 4PWG CALL 5 SFINDCPA1 15 4QB6 ... BRN UPPLUSONE [NON-EXISTENT 9 4QTQ ... CALL 5 STOPMOP 17 4SS= ... BRN UPPLUSONE [JOB NOT STOPPABLE 15 4T?W ... BRN UP [JOB STOPPED 4 4XQ2 # 18 4Y9L # BREAKIN. ENTRY FROM OLPA FOR PERI TYPE 60. X6=JOB NO. 4 4YP= # 4 4_8W XX4P 9 4_NG CALL 5 SFINDCPA1 15 5286 BRN UPPLUSONE [NON-EXISTENT 9 52MQ CALL 5 STOPJOB 17 537B BRN UPPLUSONE [BREAK-IN INHIBITED 20 53M2 CIBRKIN 3 [SET 'BYI EFFECTED' BIT IN CILCB 17 546L ... BRN UP [BREAK-IN EFFECTED 4 55KG # 21 5656 # STOPJOB ENTRY FROM MOP OFF COMMAND OR WHEN ABANDONING JOBS BEING 19 56JQ # RUN FROM C.I. CHANNEL WHEN CHANNEL RELEASED. X6=JOB NO. 4 574B # 4 57J2 XX5P 9 583L CALL 5 SFINDCPA1 15 58H= ... BRN UP [NON-EXISTENT 9 592W CALL 5 STOPJOB 16 59GG BRN NOSTOP5 [NOT STOPPABLE 8 5=26 LDCT 7 #20 5 5=9Y ...XX5UP 10 5=FQ ORS 7 JOBEVENTS(3) 9 5=_B ... CALL 5 TESTOUT 16 5?F2 ... BRN UPPLUSONE [WILL BE STOPPED 5 5#D= NOSTOP5 9 5#XW #SKI K6PROCONTX>99-99 12 5*CG TRACE JOBEVENTS(3),NSTOPMOP 15 5*X6 ... BRN UP [NOT STOPPED 4 5BBQ # 4 5BWB # 4 5CB2 XX7P 9 5CTL CALL 5 SFINDCPA 8 5D*= ... BRN UP 9 5DSW ... CALL 5 STOPJOB1 8 5F#G ... BRN UP 10 5FS6 ... BS 3,BRSTOPFIN 9 5G?Q ... BRN UPPLUSONE 4 5JPW # 21 5K9G # BREAKIN.ENTRY FROM MULTIPLEXOR ACTIVITY FOR COMMUNICATIONS PROCESS 7 5KP6 # X6=JOB NO. 4 5L8Q # 4 5LNB XX8P 9 5M82 #SKI K6PROCONTX>99-99 10 5MML TRACE 6,BREAKIN8 9 5N7= CALL 5 SFINDCPA1 9 5NLW ... BRN UPPLUSONE 9 5P6G CALL 5 STOPJOB 16 5PL6 ... BRN UPPLUSONE [NOT STOPPABLE 7 5Q5Q CCBRKIN 3 8 5QKB ... BRN UP 4 5SHW # 9 5T3G # 'SPUNLOAD' ENTRY 4 5TH6 # 4 5W2Q XX9P 9 5WGB CALL 5 SFINDCPA1 8 5X22 ... BRN UP 9 5XFL CALL 5 STOPJOB 8 5X_= ... BRN UP 9 5YDW ... BS 3,BRUNLOAD 9 5YYG ... BRN UPPLUSONE 4 62CB # 16 62X2 # STOPJOB ENTRY FROM CONNECT COMMAND. X6=JOB NO. 4 63BL # 5 63W= XX13P 9 64*W #SKI K6PROCONTX>99$99 10 64TG TRACE 6,STOPJOBC 21 65*6 STO 6 AWORK1(2) [REMEMBER NO. OF JOB TO BE STOPPED 9 65SQ CALL 5 SFINDCPA 15 66#B ... BRN UP [NON EXISTENT 10 66S2 LDX 7 CONTEXT(3) 8 67?L BPZ 7 XNSYS 18 67R= ... BRN UPPLUSONE [ERROR IF SYSTEM ISSUED 5 68=W XNSYS 9 68QG ... CALL 5 STOPJOB1 16 69=6 BRN NOSTOP13 [NOT STOPPABLE 9 69PQ ... BS 3,BRCONNECT 5 6=P2 WAIT42 17 6?8L COOR3 #42 [WAIT FOR JOB TO STOP 15 6?N= LDX 6 AWORK1(2) [LOAD JOB NO. 9 6#7W CALL 5 SFINDCPA 16 6#CN ... BRN UP [JOB DISAPPEARED 10 6*76 LDX 7 JOBEVENTS(3) 7 6*LQ SLL 7 5 17 6B6B BNG 7 WAIT42 [J NOT STOPPED YET 18 6BL2 ... BRN UPPLUSTWO [JOB SUCCESSFULLY STOPPED 5 6CK= NOSTOP13 9 6D4W #SKI K6PROCONTX>99$99 12 6DJG TRACE JOBEVENTS(3),NSTOPCON 15 6F46 ... BRN UP [NOT STOPPED 4 6FHQ # 16 6G3B # STOPJOB ENTRY FROM ABANDON COMMAND. X6=JOB NO. 4 6GH2 # 9 6GKK ...XX20 STOZ AWORK1(2) 11 6GN8 ... MBC 2,SWELL,USER,TEMP 9 6GQR ... BS 2,SMOP 4 6GTB ...# 4 6GX_ ...# 5 6H2L ...XX14P 16 6H_W ... JOBLOCK 6,2 [ LOCATE JOBBLOCK 18 6JFG ... BNG 2 SAGIN [ GO BACK IF NOT FOUND 6 6JHD ...XFSHNBNOJOB 7 6J_6 ... LDCT 0 1 9 6KDQ ... ANDX 0 JMISC(2) 20 6KYB ... BNZ 0 SAGIN [ GO BACK IF JOB IS BEING SAVED 15 6LD2 ... FCAJO 3,2,N [ FIND CPAT 9 6LXL ... LDCH 0 ATYPE(3) 9 6MC= ... SBN 0 CPAT/64 20 6MWW ... BNZ 0 UPPLUSONE [ NO CPAT - GO BACK AND LINGER 15 6NBG ...TESTS LDX 1 FX2 [ BEWARE X1! 7 6ND4 ...#SKI JWPHASE4 4 6NFL ...( 17 6NH8 ... JBS XAUT,1,XAUTO [J IF IN AUTO AB ACT 17 6NJQ ... JBSS UPPLUSTWO,3,EXBEINGAB [J IF BEINNG AB'ED 10 6NL# ...XAUT LDX 0 JOBEVENTS(3) 8 6NMW ... SMO FX1 9 6NPD ... ANDX 0 XABBITS 17 6NR2 ... BNZ 0 UPPLUSTWO [J IF AB TYPE B-IN SET 4 6NSJ ...) 16 6NW6 ... LDX 0 CONTEXT(3) [ AB JOBS CONTEXT 7 6P*Q ... ANDN 0 2 18 6PTB ... BNZ 0 NOUSER [ J IF NO-USER CONTEXT 7 6Q*2 ... ANDN 0 8 15 6QSL ... BNZ 0 RMOP [ J IF MOP 19 6R#= ... JMBAS XSMOP,1,SWELL,SMOP [ J IF WELL MOP AS NO JOBLOCK 9 6RRW ... BRN STOPIT 5 6S?G ...NOUSER 10 6SR6 ... LDX 0 CONTEXT(3) 7 6T=Q ... ANDN 0 8 18 6TQB ... BZE 0 SAGIN [ NO-USER BACK USELESS 16 6W=2 ... JMBAS STOPIT,1,SWELL,SMOP [ J IF WELL MOP 8 6WPL ... BRN SAGIN 18 6X9= ...RMOP JBS SAGIN,1,SWELL [ CANT BE USER AND WELL 15 6XNW ... JBC SAGIN,1,SMOP [ MUST BE MOP 5 6Y8G ...STOPIT 8 6YD# ... LDX 1 FX1 18 6YS3 ... CALL 5 STOPJOB1 [ ACTUALLY STOP THE JOB 9 6_2T ... BRN UPPLUSONE 15 6_9N ... LDX 1 FX2 [ BEWARE X1! 10 6_?M ... JBC SETUS,1,USER 9 6_CJ ... BS 3,EXUSAB 5 6_HF ...SETUS 10 6_MB ... JBC SETAB,1,TEMP 10 7272 ... BS 3,EXABTEMP 7 72LL ...SETAB LDCT 0 4 16 736= ... ORS 0 JOBEVENTS(3) [ AB TYPE BREAKIN 9 73D2 ... CALL 5 TESTOUT 7 73PR ...#SKI JWPHASE4 10 73TN ... BRN UPPLUSTHREE 8 73_K ...#SKI JWPHASE4<1$1 9 74C= ... BRN UPPLUSTWO 8 74SY ...SAGIN LDX 2 FX2 12 754Q ... JMBAS XSMOP,2,SWELL,SMOP 8 75#J ... BRN UP 8 75JB ...XSMOP LDX 3 FX2 20 75Y5 ...XRND FINDACTF 3,3,CPAT,,UPPLUSONE,FPTR [ LOOK FOR MOP WAITING CPAT 9 76?S ... LDX 0 ACTNUM(3) 9 76MH ... TXU 0 AWORK1(2) 8 773= ... BCS XRND 17 77GW ... NGN 2 1 [ INDICATE NO JOBLOCK 8 782G ... BRN TESTS 4 7M6W # 19 7MLG # STOPJOB ENTRY FOR MONITORING FILE FULL. JOBNO(2)=JOB NO. 4 7N66 # 5 7NKQ XX12P 9 7P5B LDX 6 JOBNO(2) 9 7PK2 CALL 5 SFINDCPA 8 7Q4L ... BRN UP 8 7QJ= BRN NNN 5 7R3W XX15P 7 7RHG LDX 3 2 7 7S36 FJOCA 2 4 7SGQ NNN 9 7T2B #SKI K6PROCONTX>99-99 11 7TG2 TRACE JOBNO(3),STOPJOBF 9 7T_L CALL 5 STOPJOB 16 7WF= ... BRN UP [NOT STOPPABLE 10 7WYW ... BS 3,BRMONFUL 17 7XDG ... BRN UP [EXIT BACK TO MONFILE 4 7YXB # 15 7_C2 # STOPJOB ENTRY FOR INOPERABLE MOP CONSOLE 4 7_WL # 5 82B= XX16P 9 82TW #SKI K6PROCONTX>99-99 10 835N ... TRACE 6,STOPJOBI 16 83*G ... CALL 5 SFINDCPA [SET X3 -> CPA 8 83K# ... BRN UP 7 83T6 ... NGN 2 1 15 844Y ... BRUSEN NOUS16,3 [J IF NO USER 8 84#Q ... FJOCA 2,3 5 84JJ ...NOUS16 9 84SB CALL 5 STOPJOB 16 85#2 ... BRN UP [NOT STOPPABLE 10 85RL ... BS 3,BRMOPINOP 19 86?= ... BRN UP [RETURN TO 'READY' ROUTINE 4 87Q6 # 8 889Q # NBREAKIN ENTRY 10 88PB # SET X6=JOB NO. AND - 11 8992 # J TO NBREAKIN ENTRY POINT 4 89NL # 10 8=8= XX17 LDX 6 ACOMMUNE1(2) 10 8=MW ... SMO ACOMMUNE3(2) 7 8?7G BRN 0 4 8?86 ...[ 10 8?8Q ...[ STOPJOB FOR READ FAILURE 4 8?9B ...[ 5 8?=2 ...XX18P 7 8?=L ...#SKI JSKI33<1$1 9 8??= ... GEOERR 1,NOTYET 6 8??W ...#SKI JSKI33 4 8?#G ...( 9 8?*6 ...#SKI K6PROCONTX>99-99 10 8?*Q ... TRACE 6,READFLAB 15 8?BB ... CALL 5 SFINDCPA [X3 -> CPA 15 8?C2 ... BRN UP [NOT FOUND 16 8?CL ... CALL 5 STOPJOB1 [STOP THE JOB 16 8?CR ... BRN RFCALL [MAYBE NOT STOPPABLE 14 8?CY ... BRN RFCONT [STOPPABLE 5 8?D5 ...RFCALL 9 8?D= ... CALL 6 RFCHEK 15 8?DC ... BRN UPPLUSONE [CANT OVERRIDE 5 8?DJ ...RFCONT 10 8?DW ... BS 3,BRREADFAIL 8 8?FG ... LDX 2 FX2 11 8?G6 ... SENDPARS 2,3,GMON,JABAND 13 8?J2 ... BRN UPPLUSTWO [OK 4 8?J3 ...# 19 8?J4 ...# ENHANCEMENT (DS8213) TO LET READFAIL BREAK-IN OVERRIDE 15 8?J5 ...# PREVIOUS MOP TYPE BREAK-IN, IF IT EXISTS 4 8?J6 ...# 5 8?J7 ...RFCHEK 10 8?J8 ... LDX 0 JOBEVENTS(3) 9 8?J9 ... ANDX 0 PMASK(1) 18 8?J= ... BNZ 0 RFBSET [J IF BREAK-IN INHIBITED OR 19 8?J? ... [SET FOR ANYTHING OTHER THAN 16 8?J# ... [MOP TYPE BREAK-IN 9 8?J* ... CALL 5 STOPMOP 21 8?JB ... BRN RFBSET [THIS INSTR NEVER ACTUALLY REACHED 12 8?JC ... TRACE JOBEVENTS(3),RFOVER 4 8?JD ...# 20 8?JF ...# THE FOLLOWING UNSETS THE MOP BREAKIN MARKERS AND IT IS ON THE 16 8?JG ...# LINES OF THE BROKIN MACRO, BUT OMITS MOPWAIT 4 8?JH ...# 10 8?JJ ... LDX 2 ACTRING(3) 9 8?JK ... SBN 2 ACTRING 5 8?JL ...PBROKIN1 9 8?JM ... LDX 2 BPTR(2) 10 8?JN ... BXE 2 3,PBROKIN4 9 8?JP ... LDX 0 ATYPE(2) 12 8?JQ ... BXE 0 PBROKADCB(1),PBROKIN2 12 8?JR ... BXE 0 PBROKALCB(1),PBROKIN3 13 8?JS ... BXU 0 PBROKCILCB(1),PBROKIN1 10 8?JT ... LDX 0 PBROKCIMSK(1) 10 8?JW ... ANDS 0 CIREADY(2) 9 8?JX ... BRN PBROKIN4 5 8?JY ...PBROKIN2 10 8?J_ ... LDX 0 PBROKADMSK(1) 9 8?K2 ... ANDS 0 IWAIT(2) 9 8?K3 ... BRN PBROKIN4 5 8?K4 ...PBROKIN3 10 8?K5 ... LDX 0 PBROKALMSK(1) 9 8?K6 ... ANDS 0 GWAIT(2) 5 8?K7 ...PBROKIN4 4 8?K8 ...# 19 8?K9 ...# IF GMON/JABAND HAS ALREADY BEEN CHAINED TO CPAT BY ABANDON, 6 8?K= ...# FREE IT 4 8?K? ...# 12 8?K# ... HUNT2J 2,GMON,JABAND,3,NFAB 8 8?K* ... FREECORE 2 4 8?KB ...NFAB 20 8?KC ... EXIT 6 1 [CONTINUE WITH READFAIL BREAK-IN, 19 8?KD ... [OVERRIDING MOP TYPE BREAK-IN 5 8?KF ...RFBSET 7 8?KG ... EXIT 6 0 4 8?KH ...# 4 8?KW ...) 4 8?M6 # 6 8?N7 ...#UNS CRAMP 4 8?P8 ...( 4 8?Q9 ...[ 10 8?R= ...[ STOPJOB FOR MOP OFF LIMBO 4 8?S? ...[ 5 8?T# ...XX21P 9 8?W* ... CALL 5 SFINDCPA1 15 8?XB ... BRN UP [NON-EXISTENT 9 8?YC ... CALL 5 STOPJOB 16 8?_D ... BRN NOSTOP5 [NOT STOPPABLE 8 8#2F ... LDN 7 #40 8 8#3G ... BRN XX5UP 4 8#4H ...[ 4 8#5J ...) 5 8#5Q ...XX25P 6 8#5Y ...#UNS BIWRFL 4 8#66 ...( 9 8#6# ...#SKI K6PROCONTX>99-99 10 8#6G ... TRACE 6,WRITFLAB 14 8#6N ... CALL 5 SFINDCPA [X3 -> CPA 14 8#6W ... BRN NFCPA [NOT FOUND 15 8#74 ... CALL 5 STOPJOB1 [STOP THE JOB 15 8#7= ... BRN UP [NOT STOPPABLE 10 8#7D ... BS 3,BRWRITEFAIL 13 8#7L ... BRN UPPLUSONE [OK 4 8#7S ...) 4 8#82 ...# 6 8#8= ...UPPLUSTHREE 7 8#8# ... LDN 3 3 9 8#8B ... BRN UPPLUS 6 8#8D ...UPPLUSTWO 7 8#8G ... LDN 3 2 9 8#8J ... BRN UPPLUS 6 8#8L ...UPPLUSONE 7 8#8N ... LDN 3 1 9 8#8Q ... BRN UPPLUS 4 8#8S ...UP 7 8#8W ... LDN 3 0 5 8#8Y ...UPPLUS 8 8#9G ... UPPLUS 0(3) 4 8#9J ...# 21 8#?H ...# THIS SUBROUTINE SEARCHES THE ACTIVITY CHAIN FOR THE CPA SPECIFIED 21 8#D# ...# BY THE JOB NUMBER IN X6. EXITS 0 IF NOT FOUND. EXITS 1 IF FOUND 9 8#K5 ...# NO COORDINATION. 16 8#PW ...# ON ENTRY: X6 - JOB NUMBER OF ACTIVITY REQUIRED 17 8#RF ...# X7 - LINK FOR RE-ENTRY IN OTHER MACHINE 18 8#T4 ...# (FOR SHARED FILESTORE ENHANCEMENT ONLY) 11 8#WM ...# ON EXIT: X0 - OVERWRITTEN 9 8*3D ...# X1 = FX1 16 8*89 ...# X2 - PTR TO JOBQUE BLOCK (IF FOUND) 14 8**2 ...# X3 - PTR TO CPAT (IF FOUND) 11 8*FR ...# X4 - OVERWRITTEN 13 8*LJ ...# X5 - LINK ACCUMULATOR 21 8*R* ...# X6 - JOB NUMBER (OR ACTIVITY NUMBER IF NO USER ACTIVITY) 11 8*Y6 ...# X7 - UNCHANGED 6 8B5= ...SFINDCPA1 5 8C4G SFINDCPA 8 8CJ6 JOBLOCK 6,2 8 8D3Q BPZ 2 OB1 9 8D6W ...[NOW SEE IF NO USER CASE 16 8D=2 ... BNZ 6 SERR [J IF JOB NUMBER 8 8D*6 ... SMO FX2 16 8DD= ... LDX 6 ACOMMUNE2 [ACTIVITY NUMBER 18 8DHB ... FINDACTN 3,6,SERR [J IF NO ACTIVITY BLOCK 9 8DLG ... LDCH 0 ATYPE(3) 9 8DPL ... SBN 0 CPAT/64 16 8DXW ... BNZ 0 SERR [J IF NOT CPAT 9 8F66 ... BRN SFOUND 4 8F#B ...OB1 13 8FGL ...[N PARAMETER USED IN CASE BEING SAVED 8 8GFW FCAJO 3,2,N 9 8G_G LDCH 4 ATYPE(3) 9 8HF6 SBN 4 CPAT/64 16 8HRH ... BNZ 4 SERR [J IF NOT CPAT 5 8J5Y ...SFOUND 14 8JDB EXIT 5 1 [FOUND 4 8JKJ ...SERR 15 8JQQ ... EXIT 5 0 [NOT FOUND 4 8JY2 # 4 8PS= # 4 8Q?W # 9 8QRG NFCPA GEOERR 1,CPALOST 10 8R?6 NFHLS GEOERR 1,HLSQLOST 4 8RQQ # 7 8S=B # MEND AREA 4 8SQ2 # 4 8W8W #END 8 ____ ...55511652000200000000