Table of Contents

DMKMCT History

References

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

  1. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
  2. R10804DK 611 UV00439 NEW DISPLACEMENTS FOR MCHAREA
  3. R12934DK 623 UV04897 ABENDPRG005 IN DMKPTR AFTER VARY PROCESSOR ONLINE
  4. 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.