ibm:vm370-lib:cp:dmkmct.assemble_hst
Table of Contents
DMKMCT History
References
- Fixes Applied : 4
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [R13026DK]
Update History
CMS File Input : DMKMCT ASSEMBLE
Date : 12/7/1978 5:10:00 PM
VM Context : MAINT(394)
File Name : DMKMCT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
- R10804DK 611 UV00439 NEW DISPLACEMENTS FOR MCHAREA
- R12934DK 623 UV04897 ABENDPRG005 IN DMKPTR AFTER VARY PROCESSOR ONLINE
- R13026DK 624 UV04977 APARS DO NOT COMPLETELY FIX PROBLEM IN USO FOR R2
R10074DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10074DK: ./ R 32000 34000 $ 32100 100 DMK00010
R10074DK: * THE MAIN OR THE ATTACHED PROCESSOR IN STOPPED STATE DMK00020
R10074DK: * AND THE OTHER PROCESSOR HAS BEEN SIGNALLED TO DMK00030
R10074DK: * COMPLETE PROCESSING (SIGNAL APR). DMK00040
R10074DK: ./ R 51000 $ 51100 100 DMK00050
R10074DK: * DMKCPUUP - TO VARY THE TERMINATING PROCESSOR OFFLINE DMK00060
R10074DK: * (TO CONVERT TO UNIPROCESSOR MODE). DMK00070
R10074DK: ./ D 133000 DMK00080
R10074DK: ./ R 162000 163000 $ 162000 1000 DMK00090
R10074DK: * 1. IF CLOCK ERROR AND NOT IN SUPERVISOR STATE, DMK00100
R10074DK: * SIGNAL THE OTHER PROCESSOR FOR DMK00110
R10074DK: ./ R 197000 $ 197100 100 DMK00120
R10074DK: BZ USERACT NO, BRANCH @V60B7AB DMK00130
R10074DK: TM APSTAT1,CSSFEAT IS THE CSS FACILITY AVAILABLE? @V60B7AB DMK00140
R10074DK: BNO TERM NO, TERMINATE THE SYSTEM @V60B7AB DMK00150
R10074DK: USERACT DS 0H @V60B7AB DMK00160
R10074DK: ./ R 205000 $ 205000 100 DMK00170
R10074DK: SIGNAL DS 0H SIGNAL OTHER PROCESSOR @V407510 DMK00180
R10074DK: ./ I 268000 $ 268100 DMK00190
R10074DK: * AND THE CONTROL PROGRAM WAS ACTIVE, DMK00200
R10074DK: * OR THE CSS FACILITY IS NOT AVAILABLE, DMK00210
R10074DK: ./ R 276000 $ 276000 DMK00220
R10074DK: * 6. SET QUIESCE PENDING FOR THE MALFUNCTIONING PROCESSOR. DMK00230
R10074DK: ./ I 303000 $ 303100 100 DMK00240
R10074DK: TM APSTAT1,CSSFEAT CSS FACILITY AVAILABLE? @V60B7AB DMK00250
R10074DK: BO MFASUP YES, BRANCH @V60B7AB DMK00260
R10074DK: MAINMFA DS 0H @V60B7AB DMK00270
R10074DK: ./ R 307000 $ 307000 DMK00280
R10074DK: TM CPSTATUS-PSA(R2),CPSUPER OTHER PROCESSOR @V407510 DMK00290
R10074DK: ./ R 310000 $ 310000 DMK00300
R10074DK: TM CPSTATUS-PSA(R2),CPWAIT OTHER PROCESSOR @V407510 DMK00310
R10074DK: ./ I 312000 $ 312100 100 DMK00320
R10074DK: TM APSTAT1,PROCIO ON THE MAIN PROCESSOR? @V60B7AB DMK00330
R10074DK: BNO MAINMFA NO, BRANCH. NO MESSAGE IS SENT @V60B7AB DMK00340
R10074DK: * WHEN THE MAIN HAS MALFUNCTIONED DMK00350
R10074DK: ./ R 319000 $ 319000 DMK00360
R10074DK: * OTHER PROCESSOR DMK00370
R10074DK: ./ R 350700 351600 $ 350700 100 DMK00380
R10074DK: * 4. TERMINATE THE VIRTUAL MACHINE, IF ONE IS SPECIFIED. DMK00390
R10074DK: * RESET THE CPU TIMER, RELEASE ALL LOCKS, AND GO TO DMK00400
R10074DK: * THE DISPATCHER. DMK00410
BEGIN APPLY >>> ./ R 32000 34000 $ 32100 100 DMK00010
END APPLY >>> ./ R 32000 34000 $ 32100 100 DMK00010
BEGIN APPLY >>> ./ R 51000 $ 51100 100 DMK00050
END APPLY >>> ./ R 51000 $ 51100 100 DMK00050
BEGIN APPLY >>> ./ D 133000 DMK00080
END APPLY >>> ./ D 133000 DMK00080
BEGIN APPLY >>> ./ R 162000 163000 $ 162000 1000 DMK00090
END APPLY >>> ./ R 162000 163000 $ 162000 1000 DMK00090
BEGIN APPLY >>> ./ R 197000 $ 197100 100 DMK00120
END APPLY >>> ./ R 197000 $ 197100 100 DMK00120
BEGIN APPLY >>> ./ R 205000 $ 205000 100 DMK00170
END APPLY >>> ./ R 205000 $ 205000 100 DMK00170
BEGIN APPLY >>> ./ I 268000 $ 268100 DMK00190
END APPLY >>> ./ I 268000 $ 268100 DMK00190
BEGIN APPLY >>> ./ R 276000 $ 276000 DMK00220
END APPLY >>> ./ R 276000 $ 276000 DMK00220
BEGIN APPLY >>> ./ I 303000 $ 303100 100 DMK00240
END APPLY >>> ./ I 303000 $ 303100 100 DMK00240
BEGIN APPLY >>> ./ R 307000 $ 307000 DMK00280
END APPLY >>> ./ R 307000 $ 307000 DMK00280
BEGIN APPLY >>> ./ R 310000 $ 310000 DMK00300
END APPLY >>> ./ R 310000 $ 310000 DMK00300
BEGIN APPLY >>> ./ I 312000 $ 312100 100 DMK00320
END APPLY >>> ./ I 312000 $ 312100 100 DMK00320
BEGIN APPLY >>> ./ R 319000 $ 319000 DMK00360
END APPLY >>> ./ R 319000 $ 319000 DMK00360
BEGIN APPLY >>> ./ R 350700 351600 $ 350700 100 DMK00380
END APPLY >>> ./ R 350700 351600 $ 350700 100 DMK00380
Update Succeeded
Update Execution Time 23 milliseconds.
R10804DK
Date Monday Apr 14, 1980 04:11:00 AM
Loaded from MAINT(294)
R10804DK: ./ * FORCE REASSEMBLY FOR APAR VM10804
BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
Comment >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
END APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
Update Succeeded
Update Execution Time 8 milliseconds.
R12934DK
Date Tuesday Aug 11, 1981 07:09:00 AM
Loaded from MAINT(294)
R12934DK: ./ I 22000 $ 22300 300
R12934DK: * 00022300
R12934DK: * DMKMCTFS - UNSUCCESSFUL SIGP RECOVERY (BALR) 00022600
R12934DK: ./ R 51100 $ 51100 100
R12934DK: * DMKCPPUP - TO VARY THE TERMINATING PROCESSOR OFFLINE 00051100
R12934DK: ./ I 52000 $ 52500 500
R12934DK: * DMKCVTBH - TO CONVERT PROCESSOR ADDR. TO PRINTABLE FORM 00052500
R12934DK: ./ D 56000 $
R12934DK: ./ I 57000 $ 57500 500
R12934DK: * 00057500
R12934DK: ./ I 62000 $ 62500 500
R12934DK: * 00062500
R12934DK: ./ I 68000 $ 68300 300
R12934DK: * 00068300
R12934DK: * CPAPRINP - AUTOMATIC PROCESSOR RECOVERY IN PROCESS 00068600
R12934DK: ./ I 71000 $ 71100 100
R12934DK: * DMKDMPMA - PROCESSOR ADDRESS OF PROCIO 00071100
R12934DK: * 00071200
R12934DK: * DMKDMPAA - PROCESSOR ADDRESS OF NON-PROCIO 00071300
R12934DK: * 00071400
R12934DK: * DMKDMPSA - DMKDMP'S LIST OF PSA ADDRESSES 00071500
R12934DK: * 00071600
R12934DK: * DMKDSPRQ - DISPATCHER'S CPEXBLOK QUEUE 00071700
R12934DK: * 00071800
R12934DK: ./ I 113000 $ 113500 500
R12934DK: * DMKMCT623I CHANNEL SET CONNECTED TO PROCESSOR NN 00113500
R12934DK: ./ I 117000 $ 117200 200
R12934DK: * 016 - CHANNEL SET SWITCHING FACILITY HAS FAILED 00117200
R12934DK: * 019 - THE PROCESSOR TERMINATION ROUTINE WAS 00117400
R12934DK: * ENTERED ON THIS PROCESSOR WHILE THIS 00117600
R12934DK: * PROCESSOR WAS BEING TERMINATED. 00117800
R12934DK: ./ I 127000 $ 127050 50
R12934DK: ENTRY DMKMCTFS FAILING SIGP ROUTINE @VA12934 00127050
R12934DK: ./ I 127100 $ 127300 200
R12934DK: ENTRY DMKMCTPF @VA12934 00127200
R12934DK: ENTRY DMKMCTFL @VA12934 00127300
R12934DK: ENTRY DMKMCTVM @VA12934 00127400
R12934DK: ./ R 137010 $ 137010 100
R12934DK: EXTRN DMKCPPUP @VA12934 00137010
R12934DK: ./ I 137110 $ 137210 100
R12934DK: EXTRN DMKCVTBH @VA12934 00137210
R12934DK: EXTRN DMKDMPMA @VA12934 00137310
R12934DK: EXTRN DMKDMPSA @VA12934 00137410
R12934DK: EXTRN DMKDMPAA @VA12934 00137510
R12934DK: EXTRN DMKDSPRQ @VA12934 00137610
R12934DK: ./ R 295000 $ 295000 1000
R12934DK: MFACONT L R2,PREFIXB GET OTHER PROCESSOR PSA @VA12934 00295000
R12934DK: ./ I 324000 $ 324010 10
R12934DK: EJECT 00324010
R12934DK: * SUBROUTINE NAME - 00324020
R12934DK: * DMKMCTFS 00324030
R12934DK: * 00324040
R12934DK: * FUNCTION - 00324050
R12934DK: * THE FUNCTION OF THIS ENTRY POINT IS TO HANDLE NON-ZERO 00324060
R12934DK: * CONDITION CODES FROM THE SIGP INSTRUCTION -- I.E., THE 00324070
R12934DK: * SIGNALLED PROCESSOR IS UNRESPONSIVE. EITHER THE SYSTEM 00324080
R12934DK: * MUST BE TERMINATED OR AUTOMATIC PROCESSOR RECOVERY 00324090
R12934DK: * WILL BE INITIATED. 00324100
R12934DK: * 00324110
R12934DK: * ENTRY CONDITIONS - 00324120
R12934DK: * SEE MAIN PROLOGUE 00324130
R12934DK: * 00324140
R12934DK: * EXIT CONDITIONS - 00324150
R12934DK: * DISABLED WAIT STATE FOR COMPLETED SYSTEM TERMINATION. 00324160
R12934DK: * 00324170
R12934DK: * RETURN TO CALLER AFTER AUTOMATIC PROCESSOR RECOVERY SCHEDULED. 00324180
R12934DK: * 00324190
R12934DK: * REGISTER USAGE - 00324200
R12934DK: * SEE MAIN PROLOGUE 00324210
R12934DK: * 00324220
R12934DK: * OPERATION - 00324230
R12934DK: * 1. THE INDICATOR MCTFS IN MCTFLAG IS SET TO 00324240
R12934DK: * INDICATE THAT DMKMCT WAS ENTERED TO PROCESS 00324250
R12934DK: * A CONDITION CODE 1 OR 2 FROM A SIGP INSTRUCTION. 00324260
R12934DK: * 2. THE ADDRESS OF THE PSA BELONGING TO THE 00324270
R12934DK: * UNRESPONSIVE PROCESSOR IS OBTAINED. ALL OF THE 00324280
R12934DK: * PROCESSOR'S NEW PSWS ARE SET UP TO LOAD A 00324290
R12934DK: * DISABLED WAIT STATE UPON ANY INTERRUPTION. 00324300
R12934DK: * THIS WILL PREVENT THE UNRESPONSIVE PROCESSOR 00324310
R12934DK: * FROM RUNNING MUCH FURTHER IF IT IS STILL ALIVE. 00324320
R12934DK: * THEN PROCESSING WILL CONTINUE AS IF A 00324330
R12934DK: * MALFUNCTION ALERT HAD BEEN RECEIVED FROM THE 00324340
R12934DK: * UNRESPONSIVE PROCESSOR. 00324350
R12934DK: * 00324360
R12934DK: * MESSAGES - 00324370
R12934DK: * NONE 00324380
R12934DK: * 00324390
R12934DK: * WAIT STATE CODES - 00324400
R12934DK: * 001 UNRECOVERABLE FAILURE ON MAIN PROCESSOR 00324410
R12934DK: * 013 UNRECOVERABLE FAILURE ON ATTACHED PROCESSOR. 00324420
R12934DK: * 00324430
R12934DK: DMKMCTFS DS 0H FAILING SIGNAL PROCESSING @VA12934 00324440
R12934DK: USING *,R15 SET UP TEMPORARY ADDRESSABILITY @VA12934 00324450
R12934DK: STM R0,R15,MFASAVE SAVE CALLERS REGISTERS @VA12934 00324460
R12934DK: L R12,MCTBASE LOAD NORMAL BASE REG @VA12934 00324470
R12934DK: DROP R15 RELEASE TEMPORARY BASE @VA12934 00324480
R12934DK: USING DMKMCT,R12 SET UP NORMAL ADDRESSABILITY @VA12934 00324490
R12934DK: OI MCTFLAG,MCTFS INDICATOR FOR DMKMCTFS ENTRY @VA12934 00324500
R12934DK: L R2,PREFIXB ACCESS PSA OF UNRESPONSIVE PROC. @VA12934 00324510
R12934DK: MVC EXNPSW-PSA(8,R2),DISABPSW SET UP THE NEW PSWS @VA12934 00324520
R12934DK: * OF THE UNRESPONSIVE PROCESSOR TO 00324530
R12934DK: * CONTAIN DISABLED WAIT PSWS. THEN, 00324540
R12934DK: * SHOULD THE PROCESSOR STILL BE ALIVE, 00324550
R12934DK: * WE CAN FORCE IT TO STOP RUNNING. 00324560
R12934DK: MVC SVCNPSW-PSA(32,R2),EXNPSW-PSA(R2) PROPAGATE THE @VA12934 00324570
R12934DK: * DISABLED WAIT PSW TO ALL NEW PSWS 00324580
R12934DK: B MFACONT CONTINUE AS FOR MALFUNCTION ALERT@VA12934 00324590
R12934DK: ./ R 345300 345600 $ 345300 300
R12934DK: * 1. DMKMCTPR WILL TEST FOR AN ACTIVE VARY PROCESSOR FUNCTION 00345300
R12934DK: * (POFFLINE=1). IF ACTIVE, DMKMCTPR WILL ENTER A LOOP. 00345600
R12934DK: ./ R 346800 $ 346800 300
R12934DK: * APUOPER IS STILL ONE, STEPS 2-6 WILL BE TAKEN. IF APUOPER 00346800
R12934DK: ./ R 348000 348600 $ 348000 60
R12934DK: * 2. DMKMCTPR WILL ATTEMPT TO OBTAIN THE TEST-AND-SET 00348000
R12934DK: * LOCK CPAPRINP IN ABSOLUTE PAGE ZERO. THIS LOCK 00348060
R12934DK: * WILL PREVENT RECURSION IN AUTOMATIC PROCESSOR 00348120
R12934DK: * RECOVERY. IF THE LOCK IS AVAILABLE, CONTINUE WITH 00348180
R12934DK: * STEP 3. IF THE LOCK IS ALREADY HELD, DMKMCTPR WILL 00348240
R12934DK: * CHECK TO SEE IF IT IS NOW RUNNING ON THE PROCESSOR 00348300
R12934DK: * WHICH CAUSED THE ORIGINAL ENTRY TO APR. IF SO, THIS 00348360
R12934DK: * PROCESSOR IS BEING TERMINATED -- DMKMCTPR WILL SIMPLY 00348420
R12934DK: * LOAD A DISABLED WAIT ON THIS PROCESSOR. IF THE CURRENT 00348480
R12934DK: * PROCESSOR IS THE RECOVERY PROCESSOR, THIS INVOCATION 00348540
R12934DK: * OF DMKMCTPR WILL BE IGNORED -- EXIT WILL BE MADE TO 00348600
R12934DK: * THE DISPATCHER. 00348660
R12934DK: * 3. SEND MESSAGE 620I TO OPERATOR. 00348720
R12934DK: * 4. CALL DMKCPPUP TO HANDLE SHARED SEGMENTS, SYNCHRONIZE 00348780
R12934DK: ./ R 349800 $ 349800 300
R12934DK: * 5. LOOP THRU THE VMBLOKS TO RESET ANY AFFINITY SET FOR 00349800
R12934DK: ./ R 350700 $ 350700 100
R12934DK: * 6. TERMINATE THE VIRTUAL MACHINE, IF ONE IS SPECIFIED 00350700
R12934DK: ./ I 361000 $ 361500 500
R12934DK: * DMKMCT623I CHANNEL SET CONNECTED TO PROCESSOR NN. 00361500
R12934DK: ./ R 364000 $ 364000 200
R12934DK: * 016 - THE CHANNEL SET SWITCHING FACILITY HAS FAILED 00364000
R12934DK: * 019 - THE PROCESSOR TERMINATION ROUTINE WAS 00364200
R12934DK: * ENTERED ON THIS PROCESSOR WHILE THIS 00364400
R12934DK: * PROCESSOR WAS BEING TERMINATED. 00364600
R12934DK: ./ R 369082 $ 369082 200
R12934DK: L R2,PREFIXA SET UP FOR ACCESS OF ABS. ZERO @VA12934 00369082
R12934DK: TS CPAPRINP-PSA(R2) TRY FOR 'APR IN PROCESS' LOCK @VA12934 00369282
R12934DK: * THIS PREVENTS MCTPR RECURSION. 00369482
R12934DK: BZ SAVFPROC CONTINUE -- LOCK OBTAINED @VA12934 00369682
R12934DK: CLC MCTFPROC(2),LPUADDR THE LOCK WAS HELD -- CHECK @VA12934 00369882
R12934DK: * TO SEE IF THIS ENTRY IS FOR SAME 00370082
R12934DK: * PROCESSOR THAT FAILED LAST TIME 00370282
R12934DK: BE MCTWT019 WE ARE RUNNING ON THE PROCESSOR @VA12934 00370482
R12934DK: * FOR WHICH AUTOMATIC PROCESSOR 00370682
R12934DK: * RECOVERY IS IN PROCESS. LOAD A 00370882
R12934DK: * WAIT ON THIS PROCESSOR TO STOP 00371082
R12934DK: * IT FROM RUNNING. 00371282
R12934DK: GOTO DMKDSPCH WE ARE ALREADY PERFORMING @VA12934 00371482
R12934DK: * AUTOMATIC PROCESSOR RECOVERY FOR 00371682
R12934DK: * THE OTHER PROCESSOR. IGNORE THIS 00371882
R12934DK: * ENTRY. 00372082
R12934DK: SAVFPROC MVC MCTFPROC(2),LPUADDRX SAVE THE ADDRESS OF THE @VA12934 00372282
R12934DK: * FAILING PROCESSOR 00372482
R12934DK: TSSYSLOK DS 0H @VA12934 00372682
R12934DK: ./ R 382000 $ 382000 10
R12934DK: SCNDSPRQ LOCK OBTAIN,TYPE=DS,SPIN=NO OBTAIN LOCK ON DSP QUEUES@VA12934 00382000
R12934DK: BNZ MCTWT019 OTHER PROCESSOR HAS CONTINUED @VA12934 00382010
R12934DK: * TO RUN AND NOW HOLDS A LOCK. 00382020
R12934DK: * LOAD A WAIT STATE -- TO CONTINUE 00382030
R12934DK: * MIGHT JEOPARDIZE SYSTEM INTEGRITY 00382040
R12934DK: L R15,MCTDSPRQ ADDRESS OF DISPATCHER'S QUEUES @VA12934 00382050
R12934DK: C R15,CPEXFPNT-CPEXBLOK(,R15) IS CPEXBLOK QUEUE @VA12934 00382060
R12934DK: * EMPTY? 00382070
R12934DK: BE TESTIO YES -- ALL DONE @VA12934 00382080
R12934DK: LR R1,R15 ADDRESS OF CPEXBLOK TO REG 1 @VA12934 00382090
R12934DK: USING CPEXBLOK,R1 ADDRESSABILITY TO CPEXBLOK @VA12934 00382100
R12934DK: NXTCPXBK DS 0H @VA12934 00382110
R12934DK: L R1,CPEXFPNT ADDRESS OF NEXT CPEXBLOK ON Q. @VA12934 00382120
R12934DK: CR R1,R15 AT END OF QUEUE? @VA12934 00382130
R12934DK: BE TESTIO YES -- ALL DONE @VA12934 00382140
R12934DK: MVC CPEXPROC,LPUADDR MAKE THIS CPEXBLOK FOR THIS @VA12934 00382150
R12934DK: * PROCESSOR 00382160
R12934DK: B NXTCPXBK DO NEXT CPEXBLOK @VA12934 00382170
R12934DK: DROP R1 00382180
R12934DK: TESTIO DS 0H @VA12934 00382190
R12934DK: LOCK RELEASE,TYPE=DS @VA12934
R12934DK: TM APSTAT1,PROCIO IS THIS THE I/O PROCESSOR? @VA12934 00382200
R12934DK: BO SEND620I YES -- NO NEED TO SWITCH CHANNELS@VA12934 00382210
R12934DK: LH R1,CSADDR GET CHANNEL SET ADDRESS @VA12934 00382220
R12934DK: * DISCS 0(R1) DISCONNECT FROM MAIN PROCESSOR @VA12934 00382230
R12934DK: DC X'B2011000' ACTUAL DISCONNECT INSTRUCTION @VA12934 00382240
R12934DK: BNZ WAIT016 DISC. CHANNEL SET WAS NOT @VA12934 00382250
R12934DK: * SUCCESSFUL -- LOAD DISABLED WAIT 00382260
R12934DK: CONNECT DS 0H @VA12934 00382270
R12934DK: * CONCS 0(R1) CONNECT THE CHANNEL SET @VA12934 00382280
R12934DK: DC X'B2001000' ACTUAL CONNECT INSTRUCTION @VA12934 00382290
R12934DK: BNZ WAIT016 THE CONNECT CHANNEL SET FAILED --@VA12934 00382300
R12934DK: * LOAD A DISABLED WAIT -- NO I/O 00382310
R12934DK: * CAPABILITY 00382320
R12934DK: OI APSTAT1,PROCIO INDICATE THIS IS THE I/O PROC. @VA12934 00382330
R12934DK: L R15,PREFIXB ADDRESS OF OTHER PROC'S PSA @VA12934 00382340
R12934DK: NI APSTAT1-PSA(R15),X'FF'-PROCIO OTHER PROC DOES @VA12934 00382350
R12934DK: * NOT HAVE I/O CAPABILITY 00382360
R12934DK: LCTL C2,C2,FFS ENABLE FOR I/O INTERRUPTS @VA12934 00382370
R12934DK: L R2,MCTDMPMA ADDRESS OF DMKDMPMA VALUE @VA12934 00382380
R12934DK: MVC 0(2,R2),IPUADDR THIS PROC IS NOW PROCIO @VA12934 00382390
R12934DK: L R2,MCTDMPAA ADDRESS OF DMKDMPMA VALUE @VA12934 00382400
R12934DK: MVC 0(2,R2),IPUADDRX OTHER PROC IS NON-PROCIO @VA12934 00382410
R12934DK: L R2,MCTDMPSA ADDRESS OF DMP'S PSA ADDRESSES @VA12934 00382420
R12934DK: LM R6,R7,PREFIXA LOAD PSA ADDRESSES @VA12934 00382430
R12934DK: STM R6,R7,0(R2) STORE PROCIO'S PSA @ FIRST @VA12934 00382440
R12934DK: LH R1,IPUADDR GET PROCESSOR ADDRESS @VA12934 00382450
R12934DK: CALL DMKCVTBH CONVERT TO PRINTABLE FORM @VA12934 00382460
R12934DK: STCM R1,B'0011',MCTID623 MOVE IN PROC. ADDRESS @VA12934 00382470
R12934DK: LA R0,MCT623LN GET LENGTH OF MESSAGE @VA12934 00382480
R12934DK: LA R1,MCT623MG GET ADDRESS OF MESSAGE TEXT @VA12934 00382490
R12934DK: CALL DMKQCNWT,PARM=NORET+OPERATOR @VA12934 00382500
R12934DK: SEND620I MVI MSGBUF,BLANK BLANK OUT BUFFER @VA12934 00382510
R12934DK: ./ R 388010 $ 388010 50000
R12934DK: CALLCPP CALL DMKCPPUP GO TAKE CARE OF AP DEPENDENCIES @VA12934 00388010
R12934DK: ./ R 457105 $ 457105 1
R12934DK: TM MCTFLAG,MCTFS WAS MCT ENTERED AT MCTFS ENTRY? @VA12934 00457105
R12934DK: BO AFFCHECK YES -- LOCKWORDS HAVE ALREADY @VA12934 00457106
R12934DK: * BEEN SET TO LOOK AS IF THEY 00457107
R12934DK: * ARE OWNED BY THE RECOVERY PROC. 00457108
R12934DK: SR R0,R0 CLEAR REGISTER 0 @VA12934 00457109
R12934DK: ./ R 460020 $ 460020 3
R12934DK: WAIT016 MVC WAITCODE(4),CSSWAIT SET UP WAIT CODE 16 @VA12934 00460020
R12934DK: B MFAWAIT GO LOAD DISABLED WAIT PSW @VA12934 00460023
R12934DK: MCTWT019 DS 0H @VA12934 00460026
R12934DK: LPSW DISABPSW THIS PROCESSOR IS BEING @VA12934 00460029
R12934DK: * TERMINATED -- STOP IT FROM RUNNING 00460032
R12934DK: EJECT 00460035
R12934DK: ./ I 460680 $ 460685 5
R12934DK: MVI CPAPRINP,X'00' RESET APR RECURSION LOCK @VA12934 00460685
R12934DK: NI MCTFLAG,X'FF'-MCTFS RESET ENTRY POINT INDICATOR @VA12934 00460690
R12934DK: MVC MCTFPROC(2),ZEROES CLEAR FAILING PROC ADDRESS @VA12934 00460695
R12934DK: ./ I 531000 $ 531300 300
R12934DK: MVI MSGBUF,BLANK BLANK OUT BUFFER @VA12934 00531300
R12934DK: MVC MSGBUF+ONE(L'MSGBUF-1),MSGBUF CLEAR BUFFER @V407510 00531600
R12934DK: ./ R 575000 $ 575000 70
R12934DK: CSSWAIT DC X'00000016' CHANNEL SET SWITCH FAILURE @VA12934 00575000
R12934DK: DISABPSW DS 0D DISABLED WAIT PSW @VA12934 00575070
R12934DK: DC X'00020000',X'00000019' @VA12934 00575140
R12934DK: DMKMCTPF DC F'0' ADDRESS OF PSA PAGE OF TERMINATED@VA12934 00575210
R12934DK: * PROCESSOR 00575280
R12934DK: DMKMCTVM DC F'0' TERMINATE VIRTUAL USER ADDRESS @VA12934 00575350
R12934DK: MCTTERM EQU DMKMCTVM INTERNAL LABEL TO REFERENCE @VA12934 00575420
R12934DK: * ADDRESS OF USER TO BE TERMINATED 00575490
R12934DK: MCTFPROC DC H'0' ADDRESS OF FAILING (UNRESPONSIVE)@VA12934 00575560
R12934DK: * PROCESSOR 00575630
R12934DK: DMKMCTFL DC X'00' DMKMCT FLAGS @VA12934 00575700
R12934DK: MCTFLAG EQU DMKMCTFL INTERNAL LABEL TO REFERENCE FLAGS@VA12934 00575770
R12934DK: MCTFS EQU X'80' FLAG TO INDICATE THAT DMKMCT WAS @VA12934 00575840
R12934DK: * ENTERED AT DMKMCTFS ENTRY POINT @VA12934 00575910
R12934DK: ./ I 576000 $ 576200 200
R12934DK: MCTDMPMA DC A(DMKDMPMA) PROC. ADDRESS OF PROCIO @VA12934 00576200
R12934DK: MCTDMPAA DC A(DMKDMPAA) PROC. ADDRESS OF NON-PROCIO @VA12934 00576400
R12934DK: MCTDMPSA DC A(DMKDMPSA) DMP'S POINTER TO PSA ADDRESSES @VA12934 00576600
R12934DK: MCTDSPRQ DC A(DMKDSPRQ) ADDRESS OF DISPATCHER'S QUEUES @VA12934 00576800
R12934DK: ./ R 620000 $ 620000 200
R12934DK: MCT623MG DC X'151515' @VA12934 00620000
R12934DK: DC C'DMKMCT623I CHANNEL SET CONNECTED TO PROCESSOR ' @VA12934 00620200
R12934DK: MCTID623 DC C' ' @VA12934 00620400
R12934DK: DC X'1515' @VA12934 00620600
R12934DK: MCT623LN EQU *-MCT623MG @VA12934 00620800
BEGIN APPLY >>> ./ I 22000 $ 22300 300
END APPLY >>> ./ I 22000 $ 22300 300
BEGIN APPLY >>> ./ R 51100 $ 51100 100
END APPLY >>> ./ R 51100 $ 51100 100
BEGIN APPLY >>> ./ I 52000 $ 52500 500
END APPLY >>> ./ I 52000 $ 52500 500
BEGIN APPLY >>> ./ D 56000 $
END APPLY >>> ./ D 56000 $
BEGIN APPLY >>> ./ I 57000 $ 57500 500
END APPLY >>> ./ I 57000 $ 57500 500
BEGIN APPLY >>> ./ I 62000 $ 62500 500
END APPLY >>> ./ I 62000 $ 62500 500
BEGIN APPLY >>> ./ I 68000 $ 68300 300
END APPLY >>> ./ I 68000 $ 68300 300
BEGIN APPLY >>> ./ I 71000 $ 71100 100
END APPLY >>> ./ I 71000 $ 71100 100
BEGIN APPLY >>> ./ I 113000 $ 113500 500
END APPLY >>> ./ I 113000 $ 113500 500
BEGIN APPLY >>> ./ I 117000 $ 117200 200
END APPLY >>> ./ I 117000 $ 117200 200
BEGIN APPLY >>> ./ I 127000 $ 127050 50
END APPLY >>> ./ I 127000 $ 127050 50
BEGIN APPLY >>> ./ I 127100 $ 127300 200
END APPLY >>> ./ I 127100 $ 127300 200
BEGIN APPLY >>> ./ R 137010 $ 137010 100
END APPLY >>> ./ R 137010 $ 137010 100
BEGIN APPLY >>> ./ I 137110 $ 137210 100
END APPLY >>> ./ I 137110 $ 137210 100
BEGIN APPLY >>> ./ R 295000 $ 295000 1000
END APPLY >>> ./ R 295000 $ 295000 1000
BEGIN APPLY >>> ./ I 324000 $ 324010 10
END APPLY >>> ./ I 324000 $ 324010 10
BEGIN APPLY >>> ./ R 345300 345600 $ 345300 300
END APPLY >>> ./ R 345300 345600 $ 345300 300
BEGIN APPLY >>> ./ R 346800 $ 346800 300
END APPLY >>> ./ R 346800 $ 346800 300
BEGIN APPLY >>> ./ R 348000 348600 $ 348000 60
END APPLY >>> ./ R 348000 348600 $ 348000 60
BEGIN APPLY >>> ./ R 349800 $ 349800 300
END APPLY >>> ./ R 349800 $ 349800 300
BEGIN APPLY >>> ./ R 350700 $ 350700 100
END APPLY >>> ./ R 350700 $ 350700 100
BEGIN APPLY >>> ./ I 361000 $ 361500 500
END APPLY >>> ./ I 361000 $ 361500 500
BEGIN APPLY >>> ./ R 364000 $ 364000 200
END APPLY >>> ./ R 364000 $ 364000 200
BEGIN APPLY >>> ./ R 369082 $ 369082 200
END APPLY >>> ./ R 369082 $ 369082 200
BEGIN APPLY >>> ./ R 382000 $ 382000 10
END APPLY >>> ./ R 382000 $ 382000 10
BEGIN APPLY >>> ./ R 388010 $ 388010 50000
END APPLY >>> ./ R 388010 $ 388010 50000
BEGIN APPLY >>> ./ R 457105 $ 457105 1
END APPLY >>> ./ R 457105 $ 457105 1
BEGIN APPLY >>> ./ R 460020 $ 460020 3
END APPLY >>> ./ R 460020 $ 460020 3
BEGIN APPLY >>> ./ I 460680 $ 460685 5
END APPLY >>> ./ I 460680 $ 460685 5
BEGIN APPLY >>> ./ I 531000 $ 531300 300
END APPLY >>> ./ I 531000 $ 531300 300
BEGIN APPLY >>> ./ R 575000 $ 575000 70
END APPLY >>> ./ R 575000 $ 575000 70
BEGIN APPLY >>> ./ I 576000 $ 576200 200
END APPLY >>> ./ I 576000 $ 576200 200
BEGIN APPLY >>> ./ R 620000 $ 620000 200
END APPLY >>> ./ R 620000 $ 620000 200
Update Succeeded
Update Execution Time 39 milliseconds.
R13026DK
Date Wednesday Sep 23, 1981 09:02:00 AM
Loaded from MAINT(294)
R13026DK: ./ I 481000 $ 481500 500 00001000
R13026DK: OI VMSVSTAT,VMLGFORC INDICATE USER WAS FORCED OFF @VA13026 00002000
BEGIN APPLY >>> ./ I 481000 $ 481500 500 00001000
END APPLY >>> ./ I 481000 $ 481500 500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkmct.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator