DMKATS History

• Abstract / Synopsis of DMKATS
• Latest Source of DMKATS
• Fixes Applied : 7
• Latest Source Date : Thursday, December 14, 1978
• Last Fix ID : [HRC106DK]

CMS File Input : DMKATS ASSEMBLE
Date : 12/14/1978 8:54:00 AM
VM Context : MAINT(394)
File Name : DMKATS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

1. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
2. R12771DK 621 UV04394 ABENDFRE008 FRETTING VMABLOK TWICE
3. R12533DK 622 UV04614 ABENDATS001 WHEN STORE COMMAND CHANGES SHR'D PAGE
4. R13426DK 622 UV04654 ADSTOP INTO SHARED SYSTEM - ABENDATS006
5. R13356DK 623 UV04697 TTSEGCNT NOT BEING DECREMENTED CAUSING MIGRATION
6. HRC066DK H40 Fix FRE013 failure with AP page tables
7. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd

Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)

       R10074DK: ./ R 380000 $ 380100                                                    DMK00010
       R10074DK:          TM    APSTAT1,PROCIPL RUNNING ON MAIN (IPL) PROC?     @V60B7AA DMK00020
       R10074DK: ./ R 403000 $ 403100                                                    DMK00030
       R10074DK:          TM    APSTAT1,PROCIPL RUNNING ON MAIN (IPL) PROC?     @V60B7AA DMK00040
       R10074DK: ./ R 417000 $ 417100                                                    DMK00050
       R10074DK:          TM    APSTAT1,PROCIPL RUNNING ON MAIN (IPL) PROC?     @V60B7AA DMK00060
       R10074DK: ./ R 449000 $ 449100                                                    DMK00070
       R10074DK:          TM    APSTAT1,PROCIPL IS THIS THE MAIN (IPL) PROC?    @V60B7AA DMK00080
       R10074DK: ./ R 457000 $ 457100                                                    DMK00090
       R10074DK:          TM    APSTAT1,PROCIPL IS THIS THE MAIN (IPL) PROC?    @V60B7AA DMK00100
       R10074DK: ./ R 638000 $ 638100                                                    DMK00110
       R10074DK:          TM    APSTAT1,PROCIPL RUNNING ON THE MAIN (IPL) PROC? @V60B7AA DMK00120
 BEGIN APPLY >>> ./ R 380000 $ 380100                                                    DMK00010
   END APPLY >>> ./ R 380000 $ 380100                                                    DMK00010
 BEGIN APPLY >>> ./ R 403000 $ 403100                                                    DMK00030
   END APPLY >>> ./ R 403000 $ 403100                                                    DMK00030
 BEGIN APPLY >>> ./ R 417000 $ 417100                                                    DMK00050
   END APPLY >>> ./ R 417000 $ 417100                                                    DMK00050
 BEGIN APPLY >>> ./ R 449000 $ 449100                                                    DMK00070
   END APPLY >>> ./ R 449000 $ 449100                                                    DMK00070
 BEGIN APPLY >>> ./ R 457000 $ 457100                                                    DMK00090
   END APPLY >>> ./ R 457000 $ 457100                                                    DMK00090
 BEGIN APPLY >>> ./ R 638000 $ 638100                                                    DMK00110
   END APPLY >>> ./ R 638000 $ 638100                                                    DMK00110
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Jun 03, 1981 05:06:00 AM
Loaded from MAINT(294)

       R12771DK: ./ R 159000 164000 $ 159500 500                                         00001000
       R12771DK:          LA    R0,CPEXSIZE    GET SIZE OF CPEXBLOK             @VA12771 00002000
       R12771DK:          CALL  DMKFREE        GET A CPEXBLOK                   @VA12771 00003000
       R12771DK:          USING CPEXBLOK,R1                                     @VA12771 00004000
       R12771DK:          LM    R2,R3,SAVEWRK2 SAVE THE SHARED SYS NAME         @VA12771 00005000
       R12771DK:          STM   R0,R15,CPEXREGS SAVE ALL THE REGISTERS          @VA12771 00006000
       R12771DK:          LA    R15,ERR181     GET ADDRESS OF MESSAGE ROUTINE   @VA12771 00007000
       R12771DK:          ST    R15,CPEXADD    STORE RETURN ADDRESS             @VA12771 00008000
       R12771DK:          CALL  DMKSTKCP       STACK THE CPEXBLOK               @VA12771 00009000
       R12771DK:          DROP  R1                                              @VA12771 00010000
       R12771DK: ./ I 170000 $ 170050 50                                                 00012000
       R12771DK: ERR181   DS    0H                                              @VA12771 00013000
       R12771DK:          USING EMSGBLOK,R1                                     @VA12771 00014000
       R12771DK:          LA    R0,EMSGSIZE    GET SIZE OF AREA FOR MESSAGE     @VA12771 00015000
       R12771DK:          CALL  DMKFREE        GET ADDRESS OF AREA FOR MESSAGE  @VA12771 00016000
       R12771DK:          XC    EMSGAREA,EMSGAREA CLEAR MESSAGE AREA            @VA12771 00017000
       R12771DK:          STM   R2,R3,EMSGNAME MOVE IN SHARED SYS NAME          @VA12771 00018000
       R12771DK:          DROP  R1                                              @VA12771 00019000
       R12771DK:          LA    R0,L'SHRNAME     LENGTH OF THE NAME FOR MESSAGE @VA12771 00020000
       R12771DK:          ICM   R0,B'1110',=C'ATS' MODULE IDENT.                @VA12771 00021000
       R12771DK:          LA    R2,EMSG181     LOAD ERROR CODE                  @VA12771 00022000
       R12771DK:          ICM   R2,B'1000',=X'80' FLAGS TO RETURN TO CALLER     @VA12771 00023000
       R12771DK:          CALL  DMKERMSG       CALL THE MESSAGE WRITTER         @VA12771 00024000
       R12771DK:          LA    R0,EMSGSIZE    SIZE OF EMSGBLOK IN DW'S         @VA12771 00025000
       R12771DK:          CALL  DMKFRET        FRET THE EMSGBLOK                @VA12771 00026000
       R12771DK:          GOTO  DMKDSPCH       GO TO THE DISPATCHER             @VA12771 00027000
 BEGIN APPLY >>> ./ R 159000 164000 $ 159500 500                                         00001000
   END APPLY >>> ./ R 159000 164000 $ 159500 500                                         00001000
 BEGIN APPLY >>> ./ I 170000 $ 170050 50                                                 00012000
   END APPLY >>> ./ I 170000 $ 170050 50                                                 00012000
Update Succeeded
Update Execution Time 8 milliseconds.

Date Wednesday Jun 24, 1981 06:08:00 AM
Loaded from MAINT(294)

       R12533DK: ./ R 26000 $ 26500                                                      00001000
       R12533DK: *              GPR  2 = VITURAL PAGE ADDRESS                   @VA12533 00002000
       R12533DK: ./ I 155000 $ 155500                                                    00003000
       R12533DK:          LR    R1,R2          SET R1 FOR TRANS                 @VA12533 00004000
       R12533DK:          TRANS 2,1,OPT=(BRING,DEFER)                           @VA12533 00005000
 BEGIN APPLY >>> ./ R 26000 $ 26500                                                      00001000
   END APPLY >>> ./ R 26000 $ 26500                                                      00001000
 BEGIN APPLY >>> ./ I 155000 $ 155500                                                    00003000
   END APPLY >>> ./ I 155000 $ 155500                                                    00003000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Jun 24, 1981 06:12:00 AM
Loaded from MAINT(294)

       R13426DK: ./ R 0515000           $ 515000  300                                    00001000
       R13426DK:          LH    R1,PAGCORE     USE CORTABLE ENTRY FOR TEST      @VA13426 00002000
       R13426DK:          N     R1,REFMASK     FORCE OFF REFERENCE BIT          @VA13426 00003000
       R13426DK:          CH    R1,INVLPTE     FRAME BEEN ASSIGNED              @VA13426 00004000
       R13426DK: ./ R 0860000           $ 860000  500                                    00005000
       R13426DK: REFMASK  DC    X'0000FFFE'    MASK TO FORCE REFERENCE BIT OFF  @VA13426 00006000
       R13426DK: INVLPTE  DC    X'0008'        INVALID PTE BIT MASK             @VA13426 00007000
 BEGIN APPLY >>> ./ R 0515000           $ 515000  300                                    00001000
   END APPLY >>> ./ R 0515000           $ 515000  300                                    00001000
 BEGIN APPLY >>> ./ R 0860000           $ 860000  500                                    00005000
   END APPLY >>> ./ R 0860000           $ 860000  500                                    00005000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Aug 07, 1981 06:30:00 AM
Loaded from MAINT(294)

       R13356DK: ./ I 00790000 $ 790100 100                                              00001000
       R13356DK:          L     R15,PREFIXA    PREFIX VALUE TO ADDRESS PSA      @VA13356 00002000
       R13356DK: *                                AT ABSOLUTE 0                          00003000
       R13356DK:          L     R0,TTSEGCNT-PSA(,R15) NUM OF PG/SWP TBLS IN SYS @VA13356 00004000
       R13356DK:          BCTR  R0,R0          DECREMENT PAG/SWP TABLE COUNT    @VA13356 00005000
       R13356DK:          ST    R0,TTSEGCNT-PSA(,R15) STORE IT BACK IN THE PSA  @VA13356 00006000
 BEGIN APPLY >>> ./ I 00790000 $ 790100 100                                              00001000
   END APPLY >>> ./ I 00790000 $ 790100 100                                              00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Mar 08, 2016 06:42:00 PM
Loaded from MAINT(094)

       HRC066DK: ./ I 00591000 $ 00591100 100
       HRC066DK:          L     R15,=A(DMKSYSAP)        -> DMKSYS AP setting    HRC066DK
       HRC066DK:          CLI   0(R15),C'Y'             Is AP enabled?          HRC066DK
       HRC066DK:          BNE   *+6                     No                      HRC066DK
       HRC066DK:          AR    R0,R0                   Double table size for APHRC066DK
       HRC066DK: ./ I 00787000 $ 00787100 100
       HRC066DK:          L     R15,=A(DMKSYSAP)        -> DMKSYS AP setting    HRC066DK
       HRC066DK:          CLI   0(R15),C'Y'             Is AP enabled?          HRC066DK
       HRC066DK:          BNE   *+6                     No                      HRC066DK
       HRC066DK:          AR    R0,R0                   Double table size for APHRC066DK
 BEGIN APPLY >>> ./ I 00591000 $ 00591100 100
   END APPLY >>> ./ I 00591000 $ 00591100 100
 BEGIN APPLY >>> ./ I 00787000 $ 00787100 100
   END APPLY >>> ./ I 00787000 $ 00787100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Feb 16, 2016 04:15:00 PM
Loaded from MAINT(094)

       HRC106DK: ./ I 00263000          $ 00263100 100
       HRC106DK:          LA    R0,PAGE3375    Maximum pages/cyl on 3375        HRC106DK
       HRC106DK:          TM    RDEVTYPE,TYP3375 Is this a 3375                 HRC106DK
       HRC106DK:          BO    SAVMAXPG       Yes -----                        HRC106DK
       HRC106DK:          LA    R0,PAGE3380    Maximum pages/cyl on 3380        HRC106DK
       HRC106DK:          TM    RDEVTYPE,TYP3380 Is this a 3380                 HRC106DK
       HRC106DK:          BO    SAVMAXPG       Yes -----                        HRC106DK
       HRC106DK: ./ I 00885000          $ 00885100 100
       HRC106DK: PAGE3375 EQU   96             Number of pages per cylinder     HRC106DK
       HRC106DK: *                             (3375)                           HRC106DK
       HRC106DK: PAGE3380 EQU   150            Number of pages per cylinder     HRC106DK
       HRC106DK: *                             (3380)                           HRC106DK
 BEGIN APPLY >>> ./ I 00263000          $ 00263100 100
   END APPLY >>> ./ I 00263000          $ 00263100 100
 BEGIN APPLY >>> ./ I 00885000          $ 00885100 100
   END APPLY >>> ./ I 00885000          $ 00885100 100
Update Succeeded
Update Execution Time 23 milliseconds.