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

CMS File Input : DMKCFG ASSEMBLE
Date : 12/7/1978 4:55:00 PM
VM Context : MAINT(394)
File Name : DMKCFG.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

1. R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
2. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
3. R09192DK 610 CP IPL DEVICE ADDRESS TOO LONG CAUSES DMKCFG TO DESTROY STORAGE
4. R10481DK 610 LOOP DMKPGS, DMKBLD AND DMKPTR RELEASING SHARED SEGMENTS
5. R09458DK 610 DMKCFG, DIAGNOSE X'64' RETURNS INVALID CONDITION CODE OF ONE
6. R09952DK 610 ADDITIONAL DIAGNOSE FOR CP UNDER CP
7. R11699DK 616 UV01947 ABENDPGU003 ABEND WHEN IPLING SAVED SYSTEM
8. R11919DK 616 UV01988 REMOVED ENTRY POINT DMKPGSFS FOR RELEASE 6
9. R12820DK 620 UV04446 DMKCFG DIAG 64 IN V=R AREA, INCORRECT RET CODE
10. R13356DK 623 UV04697 TTSEGCNT NOT BEING DECREMENTED CAUSING MIGRATION
11. R13054DK 625 UV04517 MSDMKCFG040E DURING LOGON IF IPL CMD IN DIR D/T3850
12. HRC066DK H40 Fix FRE013 failure with AP page tables
13. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd

Date Thursday Jul 12, 1979 09:51:00 AM
Loaded from MAINT(294)

       R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
     Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
   END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 8 milliseconds.

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

       R10074DK: ./ I 1037000 $ 1037100                                                  DMK00010
       R10074DK: *                             (INDICATES 2ND SET OF PG/SWAP TABLES)     DMK00020
       R10074DK: ./ R 1097000 $ 1097100                                                  DMK00030
       R10074DK:          TM    APSTAT1,PROCIPL RUNNING ON THE MAIN (IPL) PROC? @V60B7AA DMK00040
       R10074DK: ./ R 1107000 1108000 $ 1107100 1000                                     DMK00050
       R10074DK:          L     R1,SEGPAGE     ADDR. OF MAIN (IPL) PROC PAGTABLE@V60B7AA DMK00060
       R10074DK:          LA    R1,PAGBMP(,R1) BUMP TO 2ND SET OF PG/SWP TABLES @V60B7AA DMK00070
 BEGIN APPLY >>> ./ I 1037000 $ 1037100                                                  DMK00010
   END APPLY >>> ./ I 1037000 $ 1037100                                                  DMK00010
 BEGIN APPLY >>> ./ R 1097000 $ 1097100                                                  DMK00030
   END APPLY >>> ./ R 1097000 $ 1097100                                                  DMK00030
 BEGIN APPLY >>> ./ R 1107000 1108000 $ 1107100 1000                                     DMK00050
   END APPLY >>> ./ R 1107000 1108000 $ 1107100 1000                                     DMK00050
Update Succeeded
Update Execution Time 23 milliseconds.

Date Monday Mar 03, 1980 12:07:00 PM
Loaded from MAINT(294)

       R09192DK: ./ D 454000 454000 $                                                    00001000
 BEGIN APPLY >>> ./ D 454000 454000 $                                                    00001000
   END APPLY >>> ./ D 454000 454000 $                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Mar 06, 1980 01:03:00 AM
Loaded from MAINT(294)

       R10481DK: ./ R 1154000 $ 1154200                                                  00001000
       R10481DK:          N     R7,=AL4(X'00FFFFFE') CLEAR EXTENSION BITS       @VA10481 00002000
 BEGIN APPLY >>> ./ R 1154000 $ 1154200                                                  00001000
   END APPLY >>> ./ R 1154000 $ 1154200                                                  00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Mar 14, 1980 02:01:00 AM
Loaded from MAINT(294)

       R09458DK: ./ R 1414900 1414900 $ 1414900                                          00001000
       R09458DK:          BNL   SETCC1         NO, CANNOT HAVE NAMED SEGMENT    @VA09458 00002000
       R09458DK: ./ R 1415200 1415400 $ 1415225 25                                       00003000
       R09458DK:          ICM   R6,B'0110',(SEGPAGE+1)-SEGTABLE(R1) ANY PTE PT  @VA09458 00004000
       R09458DK:          BZ    SETCC1         NO,CANNOT HAVE NAMED SEGMENT     @VA09458 00005000
       R09458DK:          IC    R6,(SEGPAGE+3)-SEGTABLE(,R1) GET REST OF PTE    @VA09458 00006000
       R09458DK: *                             POINTER                                   00007000
       R09458DK:          N     R6,=A(X'00FFFFFF'-SEGINV) CLEAR UNWANTED BITS   @VA09458 00008000
       R09458DK:          SL    R6,F16         BACKUP TO PAGTABLE HEADER        @VA09458 00009000
       R09458DK:          L     R10,PAGSHR-PAGTABLE(,R6) GET ADDR OF SHRTABLE   @VA09458 00010000
 BEGIN APPLY >>> ./ R 1414900 1414900 $ 1414900                                          00001000
   END APPLY >>> ./ R 1414900 1414900 $ 1414900                                          00001000
 BEGIN APPLY >>> ./ R 1415200 1415400 $ 1415225 25                                       00003000
   END APPLY >>> ./ R 1415200 1415400 $ 1415225 25                                       00003000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Mar 14, 1980 02:14:00 AM
Loaded from MAINT(294)

       R09952DK: ./ I 356000 $ 356100 100                                                00001000
       R09952DK:          NI    VMSPMFLG,X'FF'-VMCPVIRT RESET CP VIRT           @VA09952 00002000
 BEGIN APPLY >>> ./ I 356000 $ 356100 100                                                00001000
   END APPLY >>> ./ I 356000 $ 356100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Sep 15, 1980 08:07:00 AM
Loaded from MAINT(294)

       R11699DK: ./ R 449000 $ 449100
       R11699DK:          BNZ   IPLSETR2              NO ---                    @VA11699
       R11699DK: ./ D 453000 $
       R11699DK: ./ R 462000 464000 $ 462100 1000
       R11699DK:          TM    SAVEWRK1,NAMEDIPL     IPL BY NAME?????          @VA11699 00002000
       R11699DK:          BO    IPLBYNAM              BRANCH IF YES --          @VA11699 00003000
       R11699DK:          CALL  DMKPGSPO              CLEAR STORAGE (MAYBE)     @VA11699 00004000
       R11699DK: ./ R 558000 561000 $ 557500 500                                         00005000
       R11699DK:          SPACE                                                          00006000
       R11699DK: NAMEHIT  DS    0H                                              @VA11699 00007000
       R11699DK:          TM    SAVEWRK1+2,LOADFLG    ARE WE HERE ON A LOADSYS? @VA11699 00008000
       R11699DK:          BO    CKVOL                 YES, NO NEED TO CLEAN UP  @VA11699 00009000
       R11699DK:          TM    SAVEWRK1,FRMLOGON     ENTERED FROM LOGON???     @VA11699
       R11699DK:          BO    NOPGS                 YES, NO NEED TO CLEAN UP  @VA11699
       R11699DK:          SR    R2,R2                 PARM FOR DMKPGS           @VA11699
       R11699DK:          CALL  DMKPGSPO                                        @VA11699 00010000
       R11699DK: NOPGS    DS    0H                                              @VA11699 00011000
 BEGIN APPLY >>> ./ R 449000 $ 449100
   END APPLY >>> ./ R 449000 $ 449100
 BEGIN APPLY >>> ./ D 453000 $
   END APPLY >>> ./ D 453000 $
 BEGIN APPLY >>> ./ R 462000 464000 $ 462100 1000
   END APPLY >>> ./ R 462000 464000 $ 462100 1000
 BEGIN APPLY >>> ./ R 558000 561000 $ 557500 500                                         00005000
   END APPLY >>> ./ R 558000 561000 $ 557500 500                                         00005000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Oct 03, 1980 09:18:00 AM
Loaded from MAINT(294)

       R11919DK: ./ R 142000 $ 142100                                                    00001000
       R11919DK:          EXTRN DMKPGSPS                                        @VA11919 00002000
 BEGIN APPLY >>> ./ R 142000 $ 142100                                                    00001000
   END APPLY >>> ./ R 142000 $ 142100                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday May 07, 1981 04:15:00 AM
Loaded from MAINT(294)

       R12820DK: ./ I 323000 $ 323100                                                    00001000
       R12820DK: *        DMKCFG203E V=R AREA REQUIRES IPL BY DEVICE ADDRESS             00002000
       R12820DK: ./ R 1343000 1344000 $ 1343100 500                                      00003000
       R12820DK: *        5. IF THIS USER IS THE V=R USER, RETURN TO CALLER WITH         00004000
       R12820DK: *           CONDITION CODE 2.                                           00005000
       R12820DK: ./ D 1368050 1368250 $                                                  00006000
       R12820DK: ./ I 1372000 $ 1372100 100                                              00009000
       R12820DK:          CL    R11,AVMREAL    IS USER IN A V=R AREA ?          @VA12820 00010000
       R12820DK:          BE    CFG203         YES.. CAN'T ISSUE THIS FUNCTION  @VA12820 00011000
 BEGIN APPLY >>> ./ I 323000 $ 323100                                                    00001000
   END APPLY >>> ./ I 323000 $ 323100                                                    00001000
 BEGIN APPLY >>> ./ R 1343000 1344000 $ 1343100 500                                      00003000
   END APPLY >>> ./ R 1343000 1344000 $ 1343100 500                                      00003000
 BEGIN APPLY >>> ./ D 1368050 1368250 $                                                  00006000
   END APPLY >>> ./ D 1368050 1368250 $                                                  00006000
 BEGIN APPLY >>> ./ I 1372000 $ 1372100 100                                              00009000
   END APPLY >>> ./ I 1372000 $ 1372100 100                                              00009000
Update Succeeded
Update Execution Time 16 milliseconds.

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

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

Date Friday Nov 06, 1981 03:13:00 PM
Loaded from MAINT(294)

       R13054DK: ./ R 487000 $ 487000 500                                                00001000
       R13054DK: GETVMI   L     R4,ASYSVM      ADDRESS OF SYSTEM VMBLOK         @VA13054 00002000
       R13054DK: ./ I 503000 $ 503500 400                                                00003000
       R13054DK: * IF MSS DEVICE, IT IS POSSIBLE R1-IPL PAGE ADDR WAS ZEROED             00004000
       R13054DK:          L     R1,VMPSW+4     GET ADDR OF IPL PAGE             @VA13054 00005000
       R13054DK: ./ R 510000 $ 510500 200                                                00006000
       R13054DK:          BNZ   CHKMOUNT       COULD BE A MSS DEVICE WITH AN    @VA13054 00007000
       R13054DK: *                             OUTSTANDING MOUNT PENDING                 00008000
       R13054DK: ./ R 531000 $ 531020 20                                                 00009000
       R13054DK: CHKMOUNT EQU   *                                               @VA13054 00010000
       R13054DK: *                                                                       00011000
       R13054DK: *        AT THIS POINT WE ARE ABOUT TO RETURN TO THE CALLER             00012000
       R13054DK: *              WITH A CONDITION CODE 3 (DEVICE NOT AVAILABLE).          00013000
       R13054DK: *              IF THE MSS IS IN THE SYSTEM, THE DEVICE MAY              00014000
       R13054DK: *              BE "NOT AVAILABLE" BECAUSE AN MSS MOUNT IS IN            00015000
       R13054DK: *              PROCESS. IF THAT IS THE CASE, STACK THIS VIRTUAL         00016000
       R13054DK: *              REQUEST UNTIL THE MOUNT COMPLETES.                       00017000
       R13054DK: *                                                                       00018000
       R13054DK:          TM    PSAMSS,MSSPRES IS THE MSS IN THIS SYSTEM        @VA13054 00019000
       R13054DK:          BZ    CFG040         NO, THEN THE DEVICE DOES EXIST   @VA13054 00020000
       R13054DK:          L     R2,SAVEWRK2    GET IPL VADRR                    @VA13054 00021000
       R13054DK:          L     R3,=V(DMKSSSMQ) WAIT Q FOR MSS MOUNTS           @VA13054 00022000
       R13054DK:          L     R3,0(R3)       PICK UP ACTUAL QUEUE             @VA13054 00023000
       R13054DK:          USING OSVSCOM,R3     ASSEMBLER ADDRESSABILITY         @VA13054 00024000
       R13054DK: TESTCOM  EQU   *              IS THERE A MSSCOM BLOCK          @VA13054 00025000
       R13054DK:          LTR   R3,R3          IS THE CHAIN PTR 0               @VA13054 00026000
       R13054DK:          BZ    CFG040         YES, WERE NOT WAITING ON MSS     @VA13054 00027000
       R13054DK:          CLC   VMUSER(VMUSERL),MSSUSER ARE WE WAITING          @VA13054 00028000
       R13054DK:          BNE   NXTCOM         NOT ON THIS BLOCK                @VA13054 00029000
       R13054DK:          L     R4,MSSTASK1    TASK THAT IS WAITING             @VA13054 00030000
       R13054DK:          CH    R2,CPEXMISC-CPEXBLOK(R4) VIRT DEV WAITING       @VA13054 00031000
       R13054DK:          BNE   NXTCOM         THIS VIRT DEV NOT WAITING        @VA13054 00032000
       R13054DK:          LA    R0,CPEXSIZE    SIZE OF A CPEXBLOK               @VA13054 00033000
       R13054DK:          CALL  DMKFREE        GET DYNAMIC STORAGE              @VA13054 00034000
       R13054DK:          USING CPEXBLOK,R1                                     @VA13054 00035000
       R13054DK:          ST    R1,MSSTASK3                                     @VA13054 00036000
       R13054DK:          STM   R0,R15,CPEXREGS SAVE REGS FOR LATER DISPATCH    @VA13054 00037000
       R13054DK:          LA    R0,MSSRETRN    RE-DISPATCH ADDRESS              @VA13054 00038000
       R13054DK:          ST    R0,CPEXADD     FIELD FOR DISPATCHER LATER       @VA13054 00039000
       R13054DK:          ST    R2,CPEXMISC    SAVE VADDR WHICH IS WAITING      @VA13054 00040000
       R13054DK:          LR    R2,R12         GET MODULE ADDRESS FOR LOCK      @VA13054 00041000
       R13054DK:          CALL  DMKPTRLK       PAGEABLE MODULE - BETTER LOCK IT @VA13054 00042000
       R13054DK:          GOTO  DMKDSPCH       WAIT FOR THE MSS                 @VA13054 00043000
       R13054DK:          DROP  R1                                              @VA13054 00044000
       R13054DK: NXTCOM   EQU   *              GET NEXT MSSCOM BLOCK            @VA13054 00045000
       R13054DK:          L     R3,MSSNEXT     CHAIN PTR                        @VA13054 00046000
       R13054DK:          B     TESTCOM        SEE IF THERE IS ONE              @VA13054 00047000
       R13054DK:          DROP  R3                                              @VA13054 00048000
       R13054DK: MSSRETRN LR    R2,R12         ALSO NEED BASE ADDR TO UNLOCK    @VA13054 00049000
       R13054DK:          CALL  DMKPTRUL       GO UNLOCK PAGE                   @VA13054 00050000
       R13054DK:          B     GETVMI         MAKE IT LOOK LIKE WE NEVER LEFT  @VA13054 00051000
       R13054DK:          EJECT                                                          00052000
       R13054DK: ./ I 1563000 $ 1563500                                                  00053000
       R13054DK: VMUSERL  EQU   8              LENGHT OF VMUSER FIELD           @VA13054 00054000
       R13054DK: ./ R 1577000 $ 1577200 200                                              00055000
       R13054DK:          EJECT                                                          00056000
       R13054DK: OSVSCOM  MSSCOM                                                @VA13054 00057000
       R13054DK:          SPACE 1                                                        00058000
 BEGIN APPLY >>> ./ R 487000 $ 487000 500                                                00001000
   END APPLY >>> ./ R 487000 $ 487000 500                                                00001000
 BEGIN APPLY >>> ./ I 503000 $ 503500 400                                                00003000
   END APPLY >>> ./ I 503000 $ 503500 400                                                00003000
 BEGIN APPLY >>> ./ R 510000 $ 510500 200                                                00006000
   END APPLY >>> ./ R 510000 $ 510500 200                                                00006000
 BEGIN APPLY >>> ./ R 531000 $ 531020 20                                                 00009000
   END APPLY >>> ./ R 531000 $ 531020 20                                                 00009000
 BEGIN APPLY >>> ./ I 1563000 $ 1563500                                                  00053000
   END APPLY >>> ./ I 1563000 $ 1563500                                                  00053000
 BEGIN APPLY >>> ./ R 1577000 $ 1577200 200                                              00055000
   END APPLY >>> ./ R 1577000 $ 1577200 200                                              00055000
Update Succeeded
Update Execution Time 23 milliseconds.

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

       HRC066DK: ./ I 00909100 $ 00909200 100
       HRC066DK:          L     R15,=A(DMKSYSAP)        -> DMKSYS AP setting    HRC066DK
       HRC066DK:          CLI   0(R15),YES              Is AP enabled?          HRC066DK
       HRC066DK:          BNE   *+6                     No                      HRC066DK
       HRC066DK:          AR    R0,R0                   Double table size for APHRC066DK
       HRC066DK: ./ I 01039000 $ 01039100 100
       HRC066DK:          OI    PAGBMP+PAGSWP,X'80'     Indicate AP table       HRC066DK
       HRC066DK: ./ R 01056500 $ 01056500
       HRC066DK:          LA    R0,PAGBMP+PAGBMP        Size of tables for AP   HRC066DK
 BEGIN APPLY >>> ./ I 00909100 $ 00909200 100
   END APPLY >>> ./ I 00909100 $ 00909200 100
 BEGIN APPLY >>> ./ I 01039000 $ 01039100 100
   END APPLY >>> ./ I 01039000 $ 01039100 100
 BEGIN APPLY >>> ./ R 01056500 $ 01056500
   END APPLY >>> ./ R 01056500 $ 01056500
Update Succeeded
Update Execution Time 31 milliseconds.

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

       HRC106DK: ./ I 00615000          $ 00615100 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 01514000          $ 01514100 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 00615000          $ 00615100 100
   END APPLY >>> ./ I 00615000          $ 00615100 100
 BEGIN APPLY >>> ./ I 01514000          $ 01514100 100
   END APPLY >>> ./ I 01514000          $ 01514100 100
Update Succeeded
Update Execution Time 16 milliseconds.