User Tools

Site Tools


ibm:vm370-lib:cp:dmkext.assemble_hst

DMKEXT History

References

Update History

CMS File Input : DMKEXT ASSEMBLE
Date : 12/7/1978 5:04:00 PM
VM Context : MAINT(394)
File Name : DMKEXT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM

Update Order

  1. R08854DK 601 ABENDPRG004 IN DMKEXT BECAUSE OF CONTROL REG NOT BEING LOADED
  2. R09324DK 601 ABENDPRG001 OR LOOP (UP TO AP MODE) WHILE RUNNING MONITOR
  3. R08873DK 601 LOOP ON BOTH PROCCESSORS
  4. R09941DK 607 ABENDPSA004 ON A SYSTEM SHUTDOWN
  5. R10010DK 611 LOOP IN DMKEXT FOR EMS SIGNAL AFTER VARY PROCESSOR CMD.
  6. R13137DK 621 UV04470 ABENDFRE005 AFTER HITTING STOP ON THE MAIN PROC
  7. R12934DK 623 UV04897 ABENDPRG005 IN DMKPTR AFTER VARY PROCESSOR ONLINE

R08854DK

Date Monday Dec 18, 1978 11:27:00 AM
Loaded from MAINT(294)
       R08854DK: ./ D 693000
       R08854DK: ./ I 701000 $ 701500
       R08854DK:          LCTL  C0,C0,RUNCR0   RELOAD CONTROL REGISTER 0        @VA08854
 BEGIN APPLY >>> ./ D 693000
   END APPLY >>> ./ D 693000
 BEGIN APPLY >>> ./ I 701000 $ 701500
   END APPLY >>> ./ I 701000 $ 701500
Update Succeeded
Update Execution Time 8 milliseconds.

R09324DK

Date Friday Feb 02, 1979 02:28:00 PM
Loaded from MAINT(294)
       R09324DK: ./ I 254000 $ 254020 10
       R09324DK:          CL    R15,F4         TEST IF THE PROCESSOR SIGNALLED  @VA09324
       R09324DK: *                             IS TO BE VARIED OFFLINE, I.E.,
       R09324DK: *                             DMKMCTMA WAS CALLED IN EXTDIRC AND
       R09324DK: *                             AUTOMATIC PROCESSOR RECOVERY (APR)
       R09324DK: *                             IS PENDING.
       R09324DK:          BE    RESET          YES, BRANCH                      @VA09324
       R09324DK: ./ R 442000 $ 442020 20
       R09324DK:          L     R15,F4         SET REUTRN CODE TO 4             @VA09324
       R09324DK:          BR    R13            AND RETURN TO CALLER             @VA09324
 BEGIN APPLY >>> ./ I 254000 $ 254020 10
   END APPLY >>> ./ I 254000 $ 254020 10
 BEGIN APPLY >>> ./ R 442000 $ 442020 20
   END APPLY >>> ./ R 442000 $ 442020 20
Update Succeeded
Update Execution Time 16 milliseconds.

R08873DK

Date Wednesday Jan 10, 1979 01:14:00 PM
Loaded from MAINT(294)
       R08873DK: ./ D 00054000                                                           00001000
       R08873DK: ./ I 00066000 $                                                         00002000
       R08873DK: *        ABEND - TO TERMINATE THE SYSTEM                                00003000
       R08873DK: ./ D 00103000                                                           00004000
       R08873DK: ./ R 00499000 00532000 $ 00499100 100                                   00005000
       R08873DK: *     B. IF CPLOKFL SET, CLEAR CPLOKFL AND CPSYSLK                      00006000
       R08873DK: *                                                                       00007000
       R08873DK: *     C. PROCESSING FOR EMERGENCY SIGNALS                               00008000
       R08873DK: *        1. IF THE EMS IS A SHUTDOWN, TURN OFF APUOPER IN EACH PSA,     00009000
       R08873DK: *           TURN OFF EMSPSHD, TURN ON EMSRSHD, AND LOAD A DISABLED      00010000
       R08873DK: *           008 WAIT STATE.                                             00011000
       R08873DK: *        2. IF THE EMS IS FOR EXTEND, DISABLE CHANNEL 0 AND GOTO        00012000
       R08873DK: *           DMKDSPRU.                                                   00013000
       R08873DK: *        3. IF THE EMS IS A SYNC, GOTO DMKCLKAP.                        00014000
       R08873DK: *        4. IF THE EMS IS A CLKCHK, GOTO DMKCLKCC.                      00015000
       R08873DK: *        5. IF THE EMS IS QUIESCE, CLEAR RESUME PENDING AND             00016000
       R08873DK: *           GOTO DMKDSPRU.                                              00017000
       R08873DK: *                                                                       00018000
       R08873DK: *     D. PROCESSING FOR EXTERNAL CALLS                                  00019000
       R08873DK: *        1. IF THE XC IS AN APR, GOTO DMKMCTPR.                         00020000
       R08873DK: *        2. IF THE XC IS A RESUME, TURN OFF EMSINQSC (IF ON) AND        00021000
       R08873DK: *           XCRES.  IF NO OTHER XC'S ARE PENDING, GOTO DMKDSPRU.        00022000
       R08873DK: *        3. IF THE XC IS A DISPATCH, TRY TO OBTAIN SYSTEM LOCK.         00023000
       R08873DK: *           IF LOCK OBTAINED, TURN OFF XCDISP AND XCWAK AND GOTO        00024000
       R08873DK: *           DMKDSPCH.  IF THE LOCK IS NOT AVAILABLE, GOTO               00025000
       R08873DK: *           DMKDSPRU.                                                   00026000
       R08873DK: *        4. IF THE XC IS A WAKEUP, TURN OFF XCWAK.  IF THE SYSTEM       00027000
       R08873DK: *           WAS RUNNING A USER, RELOAD THE EXTERNAL OLD PSW.            00028000
       R08873DK: *           OTHERWISE, TRY TO OBTAIN THE GLOBAL SYSTEM LOCK.  IF        00029000
       R08873DK: *           THE LOCK IS AVAILABLE, GOTO DMKDSPCH; IF THE LOCK IS NOT    00030000
       R08873DK: *           AVAILABLE, GOTO DMKDSPRU.                                   00031000
       R08873DK: *                                                                       00032000
       R08873DK: *     E. PROCESSING FOR TOD SYNC CHECKS                                 00033000
       R08873DK: *        1. CALL DMKCLKSC.                                              00034000
       R08873DK: *        2. ONCE CONTROL IS RETURNED, IF THE SYSTEM LOCK IS HELD        00035000
       R08873DK: *           OR IS AVAILABLE, GOTO DMKDSPCH.  OTHERWISE, GOTO            00036000
       R08873DK: *           DMKDSPRU.                                                   00037000
       R08873DK: *                                                                       00038000
       R08873DK: *     IF NO INTERRUPTS ARE PENDING, RELOAD THE EXTERNAL OLD PSW.        00039000
       R08873DK: ./ I 00546000 $                                                         00040000
       R08873DK: *                                                                       00041000
       R08873DK: * DETERMINE IF INTERRUPT OCCURRED IN DMKLOK WINDOW IN                   00042000
       R08873DK: * SPIN ROUTINE. IF SO, MUST CLEAR SPIN INDICATOR                        00043000
       R08873DK: *                                                                       00044000
       R08873DK: ./ R 00548000 $ 00548100 100                                            00045000
       R08873DK:          BNO   EMSTST         NO, TEST FOR EMERGENCY SIGNAL    @VA08873 00046000
       R08873DK: ./ R 00553000 00555000 $ 00553100 25                                    00047000
       R08873DK: *                                                                       00048000
       R08873DK: *        PROCESSING FOR EMERGENCY SIGNAL                                00049000
       R08873DK: *                                                                       00050000
       R08873DK: EMSTST   DS    0H                                              @VA08873 00051000
       R08873DK:          CH    R2,EMSCODES    IS THIS EMERGENCY SIGNAL         @VA08873 00052000
       R08873DK:          BNE   XCTST          NO, CHECK EXTERNAL CALL          @VA08873 00053000
       R08873DK:          TM    EMSPEND,VALDEMS ARE ANY EMS FUNCTIONS PENDING?  @VA08873 00054000
       R08873DK:          BZ    XCTST2         NO, CHECK EXTERNAL CALL PENDING  @VA08873 00055000
       R08873DK:          TM    EMSPEND,EMSPSHD IS THIS A SHUTDOWN EMS?         @VA08873 00056000
       R08873DK:          BNO   XTNDTST        NO, GO TEST FOR EXTEND           @VA08873 00057000
       R08873DK:          NI    APSTAT1,X'FF'-APUOPER TURN OFF APUOPER IN THIS  @VA08873 00058000
       R08873DK: *                             PSA                                       00059000
       R08873DK:          L     R1,PREFIXB     GET PREFIX ADDR OF OTHER         @VA08873 00060000
       R08873DK: *                             PROCESSOR                                 00061000
       R08873DK:          NI    APSTAT1-PSA(R1),X'FF'-APUOPER TURN OFF APUOPER  @VA08873 00062000
       R08873DK: *                             IN PSA OF OTHER PROCESSOR                 00063000
       R08873DK:          NI    EMSPEND,X'FF'-EMSPSHD TURN OFF SHUTDOWN         @VA08873 00064000
       R08873DK: *                             PENDING FLAG                              00065000
       R08873DK:          OI    EMSREC,EMSRSHD TURN ON SHUTDOWN RECEIVED FLAG   @VA08873 00066000
       R08873DK:          LPSW  WAIT08         LOAD DISABLED 008 WAIT STATE     @VA08873 00067000
       R08873DK: XTNDTST  DS    0H                                              @VA08873 00068000
       R08873DK:          TM    EMSPEND,EMSPEXT IS THIS AN EXTEND EMS?          @VA08873 00069000
       R08873DK:          BNO   SYNCTST        NO, GO TEST FOR SYNC EMS         @VA08873 00070000
       R08873DK:          STCTL C2,C2,SIGCREG  STORE CURRENT CR2 IN WORK AREA   @VA08873 00071000
       R08873DK:          NI    SIGCREG,X'FF'-CHAN0 DISABLE CHANNEL 0           @VA08873 00072000
       R08873DK:          LCTL  C2,C2,SIGCREG  LOAD ALTERED CR2                 @VA08873 00073000
       R08873DK:          B     UNLKXT         TAKE UNLOCKED EXIT               @VA08873 00074000
       R08873DK: SYNCTST  DS    0H                                              @VA08873 00075000
       R08873DK:          TM    EMSPEND,EMSPSYNC+EMSPCLKC SYNC OR CLKCHK ??     @VA08873 00076000
       R08873DK:          BZ    QSC            NO - MUST BE QUIESCE             @VA08873 00077000
       R08873DK:          SPACE                                                          00078000
       R08873DK: * MUST NOW GET SYSTEM CREG1 FOR LATER ADDRESSABILITY                    00079000
       R08873DK:          SPACE                                                          00080000
       R08873DK:          L     R3,ASYSVM      GET SYSTEM VMBLOK                @VA08873 00081000
       R08873DK:          STCTL C1,C1,SIGCREG  SAVE CONTROL REG 1               @VA08873 00082000
       R08873DK:          LCTL  C1,C1,VMSEG-VMBLOK(R3) SYSTEM CONTROL REG 1     @VA08873 00083000
       R08873DK:          TM    EMSPEND,EMSPSYNC IS THIS A SYNC EMS?            @VA08873 00084000
       R08873DK:          BNO   CLKCHK         NO, MUST BE CLKCHK EMS           @VA08873 00085000
       R08873DK:          SPACE                                                          00086000
       R08873DK: * DMKCLK IS AT PRESENT SOMEWHERE IN STORAGE SO MUST FIND                00087000
       R08873DK: * THE PROPER REAL ADDRESS OF ROUTINE TO BRANCH TO.                      00088000
       R08873DK:          SPACE                                                          00089000
       R08873DK:          L     R12,=A(DMKCLKAP) ADDR. OF CLOCK SYNC ROUTINE    @VA08873 00090000
       R08873DK:          LRA   R12,0(0,R12)   GET REAL ADDRESS OF ROUTINE      @VA08873 00091000
       R08873DK:          LCTL  C1,C1,SIGCREG  RESTORE CONTROL REG 1            @VA08873 00092000
       R08873DK:          BR    R12            GOTO CLOCK SYNC ROUTINE          @VA08873 00093000
       R08873DK: CLKCHK   DS    0H             CLKCHK PROCESSING                @VA08873 00094000
       R08873DK:          SPACE                                                          00095000
       R08873DK: * DMKCLK IS AT PRESENT SOMEWHERE IN STORAGE SO MUST FIND                00096000
       R08873DK: * THE PROPER REAL ADDRESS OF ROUTINE.                                   00097000
       R08873DK:          SPACE                                                          00098000
       R08873DK:          L     R12,=A(DMKCLKCC) ADDR OF HIGH ORDER SYNC ROUTINE@VA08873 00099000
       R08873DK:          LRA   R12,0(0,R12)   GET REAL ADDRESS OF ROUTINE      @VA08873 00100000
       R08873DK:          LCTL  C1,C1,SIGCREG  RESTORE CONTROL REG 1            @VA08873 00101000
       R08873DK:          BR    R12            GOTO HIGH ORDER SYNC ROUTINE     @VA08873 00102000
       R08873DK: QSC      DS    0H             QUIESCE PROCESSING               @VA08873 00103000
       R08873DK: *                                                                       00104000
       R08873DK: * IF A RESUME IS PENDING WHEN A QUIESCE IS ISSUED, THE RESUME           00105000
       R08873DK: * MUST BE CLEARED BEFORE THE SYSTEM IS QUIESCED SO THAT                 00106000
       R08873DK: * THE RESUME WILL NOT CANCEL THE WRONG QUIESCE                          00107000
       R08873DK: *                                                                       00108000
       R08873DK:          TM    XCPEND,XCRES   IS A RESUME PENDING?             @VA08873 00109000
       R08873DK:          BZ    UNLKXT         NO, GO TO DMKDSPRU               @VA08873 00110000
       R08873DK:          L     R0,XCPEND      GET WORD OF XC PENDING FLAGS     @VA08873 00111000
       R08873DK: RESLP3   DS    0H             RETRY POINT FOR C&S              @VA08873 00112000
       R08873DK:          LR    R1,R0          MOVE WORD OF FLAGS TO WORK REG   @VA08873 00113000
       R08873DK:          N     R1,RESOFF      TURN OFF RESUME PENDING FLAG     @VA08873 00114000
       R08873DK:          CS    R0,R1,XCPEND   STORE ALTERED WORD OF FLAGS      @VA08873 00115000
       R08873DK:          BNE   RESLP3         IF COMPARE FAILS, TRY AGAIN      @VA08873 00116000
       R08873DK:          B     UNLKXT         GO TO DMKDSPRU                   @VA08873 00117000
       R08873DK: ./ I 00559000 $ 00559100 100                                            00118000
       R08873DK:          CH    R2,XCCODES     EXTERNAL CALL INTERRUPT?         @VA08873 00119000
       R08873DK:          BNE   TODTST         NO, CHECK TOD SYNC CHECK         @VA08873 00120000
       R08873DK: XCTST2   DS    0H                                              @VA08873 00121000
       R08873DK: ./ R 00561000 $ 00561100                                                00122000
       R08873DK:          BZ    TODTST         NO, CHECK TOD SYNC CHECK         @VA08873 00123000
       R08873DK: ./ R 00585500 $ 00585600                                                00124000
       R08873DK:          BNZ   UNLKXT         NO LOCK, GO TO DMKDSPRU          @VA08873 00125000
       R08873DK: ./ R 00589000 $ 00589100                                                00126000
       R08873DK: *                                                                       00127000
       R08873DK: * WHEN DISPATCH SIGNAL IS TURNED OFF, TURN OFF WAKEUP.                  00128000
       R08873DK: * THIS WILL PREVENT CONDITIONS PENDING WITH NO SIGNAL                   00129000
       R08873DK: * PENDING. THIS CAN OCCUR WHEN AN EXTERNAL CALL IS                      00130000
       R08873DK: * ALREADY PENDING WHEN THE SIGNAL IS ISSUED.                            00131000
       R08873DK: *                                                                       00132000
       R08873DK:          N     R1,DISPOFF     TURN OFF DISPATCH & WAKEUP       @VA08873 00133000
       R08873DK: ./ D 00592700 00598000                                                  00134000
       R08873DK: ./ D 00611000 00643000                                                  00135000
       R08873DK: ./ R 00727000 00730000 $ 00727100 100                                   00136000
       R08873DK: EMSCODES DC    X'1201'        EMS INTERRUPT CODE               @VA08873 00137000
       R08873DK: XCCODES  DC    X'1202'        EXTERNAL CALL INTERRUPT CODE     @VA08873 00138000
       R08873DK: QSCOFF   DC    X'FEFFFFFF'    IN-QUIESCE FLAG OFF              @VA08873 00139000
       R08873DK: RESOFF   DC    X'BFFFFFFF'    RESUME FLAG OFF                  @VA08873 00140000
       R08873DK: WAKOFF   DC    X'DFFFFFFF'    WAKEUP FLAG OFF                  @VA08873 00141000
       R08873DK: DISPOFF  DC    X'CFFFFFFF'    TURN OFF DISPATCH & WAKEUP       @VA08873 00142000
 BEGIN APPLY >>> ./ D 00054000                                                           00001000
   END APPLY >>> ./ D 00054000                                                           00001000
 BEGIN APPLY >>> ./ I 00066000 $                                                         00002000
   END APPLY >>> ./ I 00066000 $                                                         00002000
 BEGIN APPLY >>> ./ D 00103000                                                           00004000
   END APPLY >>> ./ D 00103000                                                           00004000
 BEGIN APPLY >>> ./ R 00499000 00532000 $ 00499100 100                                   00005000
   END APPLY >>> ./ R 00499000 00532000 $ 00499100 100                                   00005000
 BEGIN APPLY >>> ./ I 00546000 $                                                         00040000
   END APPLY >>> ./ I 00546000 $                                                         00040000
 BEGIN APPLY >>> ./ R 00548000 $ 00548100 100                                            00045000
   END APPLY >>> ./ R 00548000 $ 00548100 100                                            00045000
 BEGIN APPLY >>> ./ R 00553000 00555000 $ 00553100 25                                    00047000
   END APPLY >>> ./ R 00553000 00555000 $ 00553100 25                                    00047000
 BEGIN APPLY >>> ./ I 00559000 $ 00559100 100                                            00118000
   END APPLY >>> ./ I 00559000 $ 00559100 100                                            00118000
 BEGIN APPLY >>> ./ R 00561000 $ 00561100                                                00122000
   END APPLY >>> ./ R 00561000 $ 00561100                                                00122000
 BEGIN APPLY >>> ./ R 00585500 $ 00585600                                                00124000
   END APPLY >>> ./ R 00585500 $ 00585600                                                00124000
 BEGIN APPLY >>> ./ R 00589000 $ 00589100                                                00126000
   END APPLY >>> ./ R 00589000 $ 00589100                                                00126000
 BEGIN APPLY >>> ./ D 00592700 00598000                                                  00134000
   END APPLY >>> ./ D 00592700 00598000                                                  00134000
 BEGIN APPLY >>> ./ D 00611000 00643000                                                  00135000
   END APPLY >>> ./ D 00611000 00643000                                                  00135000
 BEGIN APPLY >>> ./ R 00727000 00730000 $ 00727100 100                                   00136000
   END APPLY >>> ./ R 00727000 00730000 $ 00727100 100                                   00136000
Update Succeeded
Update Execution Time 23 milliseconds.

R09941DK

Date Friday Nov 30, 1979 07:06:00 AM
Loaded from MAINT(294)
       R09941DK: ./ I 553325 $ 553330 4                                                  00001000
       R09941DK:          SR    R0,R0          CLEAR REGISTER                   @VA09941 00002000
       R09941DK:          LA    R3,VMTTIME-VMBLOK(,R0) GET CORRECT              @VA09941 00003000
       R09941DK: *                             DISPLACEMENT INTO THE PSA                 00004000
       R09941DK:          ST    R3,TIMEDISP    USE VMTTIME NOW RUNNING UP       @VA09941 00005000
       R09941DK: ./ I 553425 $ 553430 10                                                 00006000
       R09941DK:          ST    R3,TIMEDISP-PSA(R1) USE VMTTIME NOW RUNNING UP  @VA09941 00007000
 BEGIN APPLY >>> ./ I 553325 $ 553330 4                                                  00001000
   END APPLY >>> ./ I 553325 $ 553330 4                                                  00001000
 BEGIN APPLY >>> ./ I 553425 $ 553430 10                                                 00006000
   END APPLY >>> ./ I 553425 $ 553430 10                                                 00006000
Update Succeeded
Update Execution Time 16 milliseconds.

R10010DK

Date Wednesday Apr 02, 1980 12:21:00 PM
Loaded from MAINT(294)
       R10010DK: ./ I 96000 $ 96100                                                      00001000
       R10010DK:          ENTRY DMKEXTST                                        @VA10010 00002000
       R10010DK: ./ I 188000 $ 188100 100                                                00003000
       R10010DK:          LH    R15,DMKEXTST   GET LOGICAL ADDR OF STOPPED      @VA10010 00004000
       R10010DK: *                             PROCESSOR                                 00005000
       R10010DK:          CH    R15,ZEROES     IS A PROCESSOR IN STOPPED STATE? @VA10010 00006000
       R10010DK:          BNE   CLEAR          YES, CANCEL THIS SIGNAL REQUEST  @VA10010 00007000
       R10010DK: ./ I 734000 $ 734100 100                                                00008000
       R10010DK: DMKEXTST DS    0F                                              @VA10010 00009000
       R10010DK:          DC    H'0'           LOGICAL ADDR OF STOPPED PROCESSOR@VA10010 00010000
 BEGIN APPLY >>> ./ I 96000 $ 96100                                                      00001000
   END APPLY >>> ./ I 96000 $ 96100                                                      00001000
 BEGIN APPLY >>> ./ I 188000 $ 188100 100                                                00003000
   END APPLY >>> ./ I 188000 $ 188100 100                                                00003000
 BEGIN APPLY >>> ./ I 734000 $ 734100 100                                                00008000
   END APPLY >>> ./ I 734000 $ 734100 100                                                00008000
Update Succeeded
Update Execution Time 8 milliseconds.

R13137DK

Date Wednesday Jun 03, 1981 05:18:00 AM
Loaded from MAINT(294)
       R13137DK: ./ R 423000 $ 423000                                                    00001000
       R13137DK:          CL    R14,TIME2      HAS ONE MINUTE ELAPSED?          @VA13137 00002000
       R13137DK: ./ R 425000 $ 425000                                                    00003000
       R13137DK:          B     NOTOPER1       AFTER 1 MIN, TREAT AS PERM ERROR @VA13137 00004000
 BEGIN APPLY >>> ./ R 423000 $ 423000                                                    00001000
   END APPLY >>> ./ R 423000 $ 423000                                                    00001000
 BEGIN APPLY >>> ./ R 425000 $ 425000                                                    00003000
   END APPLY >>> ./ R 425000 $ 425000                                                    00003000
Update Succeeded
Update Execution Time 16 milliseconds.

R12934DK

Date Friday Aug 07, 1981 07:09:00 AM
Loaded from MAINT(294)
       R12934DK: ./ I 48000 $ 48500 500                                                  00001000
       R12934DK: *        DMKMCTFS - TO HANDLE NON-ZERO SIGP CONDITION CODES             00002000
       R12934DK: ./ I 108000 $ 108500 500                                                00003000
       R12934DK:          EXTRN DMKMCTFS                                        @VA12934 00004000
       R12934DK: ./ I 188000 $ 188020 20                                                 00005000
       R12934DK:          L     R15,PREFIXA    ACCESS ABSOLUTE ZERO             @VA12934 00006000
       R12934DK:          CLI   CPAPRINP-PSA(R15),X'FF' IS AUTOMATIC PROCESSOR  @VA12934 00007000
       R12934DK: *                             RECOVERY IN PROCESS?                      00008000
       R12934DK:          BE    CLEAR          YES, DO NOT SIGNAL               @VA12934 00009000
       R12934DK: ./ I 264000 $ 264200 200                                                00010000
       R12934DK:          BO    EMSRCVD        REQUEST RECEIVED OK              @VA12934 00011000
       R12934DK:          TM    APSTAT4,CPAPRPND WHILE THE WINDOW WAS OPEN,     @VA12934 00012000
       R12934DK: *                             DID WE RECEIVE A MFA?                     00013000
       R12934DK: ./ R 266000 $ 266000 1000                                               00014000
       R12934DK: EMSRCVD  LCTL  C0,C0,CPCREG0  RELOAD CONTROL REGISTER 0        @VA12934 00015000
       R12934DK: ./ R 404000 $ 404000 1000                                               00016000
       R12934DK:          B     CALLMA         TREAT OTHER STATUS AS PERM ERROR @VA12934 00017000
       R12934DK: ./ R 437300 $ 437300 700                                                00018000
       R12934DK:          BZ    CALLMA                                          @VA12934 00019000
       R12934DK: ./ I 439000 $ 439200 200                                                00020000
       R12934DK: CALLMA   CALL  DMKMCTMA       PROCESS CC 3 LIKE MALFUNCTION    @VA12934 00021000
       R12934DK: *                             ALERT                                     00022000
       R12934DK:          L     R15,F4         SET RETURN CODE TO 4             @VA12934 00023000
       R12934DK:          BR    R13            AND RETURN TO CALLER             @VA12934 00024000
       R12934DK: ./ R 441000 442020 $ 441000 500                                         00025000
       R12934DK:          CALL  DMKMCTFS       HANDLE FAILING SIGNAL            @VA12934 00026000
       R12934DK:          L     R15,F4         SET RETURN CODE TO 4             @VA12934 00027000
       R12934DK: ./ I 607000 $ 607500 500                                                00028000
       R12934DK: LOCKSYS  DS    0H                                              @VA12934 00029000
       R12934DK: ./ I 706000 $ 706200 200                                                00030000
       R12934DK:          TM    APSTAT1,CPINITD IS INITIALIZATION FINISHED?     @VA12934 00031000
       R12934DK:          BO    LOCKSYS        YES, SYSTEM WAS INITIALIZED AND  @VA12934 00032000
       R12934DK: *                             TOOK AN EXTERNAL INTERRUPTION IN          00033000
       R12934DK: *                             A WAIT. EXIT TO THE DISPATCHER.           00034000
 BEGIN APPLY >>> ./ I 48000 $ 48500 500                                                  00001000
   END APPLY >>> ./ I 48000 $ 48500 500                                                  00001000
 BEGIN APPLY >>> ./ I 108000 $ 108500 500                                                00003000
   END APPLY >>> ./ I 108000 $ 108500 500                                                00003000
 BEGIN APPLY >>> ./ I 188000 $ 188020 20                                                 00005000
   END APPLY >>> ./ I 188000 $ 188020 20                                                 00005000
 BEGIN APPLY >>> ./ I 264000 $ 264200 200                                                00010000
   END APPLY >>> ./ I 264000 $ 264200 200                                                00010000
 BEGIN APPLY >>> ./ R 266000 $ 266000 1000                                               00014000
   END APPLY >>> ./ R 266000 $ 266000 1000                                               00014000
 BEGIN APPLY >>> ./ R 404000 $ 404000 1000                                               00016000
   END APPLY >>> ./ R 404000 $ 404000 1000                                               00016000
 BEGIN APPLY >>> ./ R 437300 $ 437300 700                                                00018000
   END APPLY >>> ./ R 437300 $ 437300 700                                                00018000
 BEGIN APPLY >>> ./ I 439000 $ 439200 200                                                00020000
   END APPLY >>> ./ I 439000 $ 439200 200                                                00020000
 BEGIN APPLY >>> ./ R 441000 442020 $ 441000 500                                         00025000
   END APPLY >>> ./ R 441000 442020 $ 441000 500                                         00025000
 BEGIN APPLY >>> ./ I 607000 $ 607500 500                                                00028000
   END APPLY >>> ./ I 607000 $ 607500 500                                                00028000
 BEGIN APPLY >>> ./ I 706000 $ 706200 200                                                00030000
   END APPLY >>> ./ I 706000 $ 706200 200                                                00030000
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkext.assemble_hst.txt ยท Last modified: 2023/08/06 13:37 by Site Administrator