• Abstract / Synopsis of DMKCQP
• Latest Source of DMKCQP
• Fixes Applied : 6
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [HRC065DK]

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

1. R10292DK 609 CP FUNCTION MISSING CHECK ON SECOND ADDRESS IN QUERY REAL
2. R09404DK 611 REMOVE UNNECESSARY CODE FROM DMKCQP
3. R13334DK 623 UV04497 INCORRECT RESPONSE FOR Q CUU FOLLOWING DISABLE CUU
4. R14819DK 627 UV05901 CORRCT DISP AND REG FOR MVC (LBL- FRTERM) IN DMKCQP
5. R15324DK 629 UV06156 CORRECT THE TEST FOR DISABLE PENDING
6. HRC065DK V01 Logical Device Support Facility

Date Friday Jan 25, 1980 10:23:00 AM
Loaded from MAINT(294)

       R10292DK: ./ I 318200 $ 318203 3                                                  00001000
       R10292DK:          CL    R6,F3          SECOND OPERAND GT THREE          @VA10292 00002000
       R10292DK: *                             CHARACTERS                                00003000
       R10292DK:          BH    QRYUSRID       YES, NOT A VALID ADDRESS         @VA10292 00004000
 BEGIN APPLY >>> ./ I 318200 $ 318203 3                                                  00001000
   END APPLY >>> ./ I 318200 $ 318203 3                                                  00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Saturday Mar 29, 1980 12:10:00 PM
Loaded from MAINT(294)

       R09404DK: ./ R 840000 $ 840000                                                    00001000
       R09404DK: STKLOOP  EQU   *                                               @VA09404 00002000
       R09404DK: ./ D 841000                                                             00003000
 BEGIN APPLY >>> ./ R 840000 $ 840000                                                    00001000
   END APPLY >>> ./ R 840000 $ 840000                                                    00001000
 BEGIN APPLY >>> ./ D 841000                                                             00003000
   END APPLY >>> ./ D 841000                                                             00003000
Update Succeeded
Update Execution Time 16 milliseconds.

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

       R13334DK: ./ I 788000 $ 788100 100                                                00001000
       R13334DK:          MVC   0(8,R10),=CL8'DSBLPND '                         @VS13334 00002000
       R13334DK:          TM    RDEVFLAG,RDEVDISB IS DISABLE PENDING?           @VS13334 00003000
       R13334DK:          BO    FRADD          YES, MSG IS OK                   @VS13334 00004000
 BEGIN APPLY >>> ./ I 788000 $ 788100 100                                                00001000
   END APPLY >>> ./ I 788000 $ 788100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Jan 15, 1982 04:24:00 PM
Loaded from MAINT(294)

       R14819DK: ./ R 788100 $ 788110                                                    00001000
       R14819DK:          MVC   9(8,R3),=CL8'DSBLPND '                          @VA14819 00002000
 BEGIN APPLY >>> ./ R 788100 $ 788110                                                    00001000
   END APPLY >>> ./ R 788100 $ 788110                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Mar 15, 1982 08:42:00 AM
Loaded from MAINT(294)

       R15324DK: ./ D 788110 788300 $                                                    001000
       R15324DK: ./ I 790000 $ 790100 100                                                00002000
       R15324DK:          BNO   FRDISB         BRANCH TO DISABLE TEST           @VA15324 00003000
       R15324DK:          TM    RDEVFLAG,RDEVDISB    DEVICE IS ENABLED, NOW     @VA15324 00004000
       R15324DK: *                             TEST FOR DISABLE PENDING                  00005000
       R15324DK:          BNO   FRADD          DISABLE NOT PENDING, BRANCH      @VA15324 00006000
       R15324DK:          MVC   9(8,R3),=CL8'DSBLPND '    DISABLE PENDING       @VA15324 00008000
       R15324DK:          B     FRADD          BRANCH WITH DISABLE MESSAGE      @VA15324 00010000
       R15324DK: ./ R 791000 $ 791100 100                                                00011000
       R15324DK: FRDISB   EQU   *              DISABLE TEST                     @VA15324 00012000
 BEGIN APPLY >>> ./ D 788110 788300 $                                                    001000
   END APPLY >>> ./ D 788110 788300 $                                                    001000
 BEGIN APPLY >>> ./ I 790000 $ 790100 100                                                00002000
   END APPLY >>> ./ I 790000 $ 790100 100                                                00002000
 BEGIN APPLY >>> ./ R 791000 $ 791100 100                                                00011000
   END APPLY >>> ./ R 791000 $ 791100 100                                                00011000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)

       HRC065DK: ./ I 00341000 $ 00341100 100
       HRC065DK:          TM    RDEVADD-RDEVBLOK(R8),RDEVLDEV Is this an LDEV?  HRC065DK
       HRC065DK:          BO    QRYLDEV                 Yes                     HRC065DK
       HRC065DK: ./ I 00351000 $ 00351100 100
       HRC065DK: QRYLDEV  EQU   *                                               HRC065DK
       HRC065DK:          LH    R1,RDEVADD-RDEVBLOK(,R8) Get the LDEV address   HRC065DK
       HRC065DK:          N     R1,F4095                Keep only the dev num   HRC065DK
       HRC065DK:          CALL  DMKCVTBH                Make it displayable     HRC065DK
       HRC065DK:          STCM  R1,7,SAVEWRK2+11        Put dev addr in message HRC065DK
       HRC065DK:          MVI   SAVEWRK2+10,C'L'        Move in LDEV indicator  HRC065DK
       HRC065DK:          B     QRYDSC                  Go display msg          HRC065DK
       HRC065DK: ./ * Move a literal around to accomodate base register exhaustion/
       HRC065DK: ./ I 00595000 $ 00595100 100
       HRC065DK:          L     R15,=A(MSGSLOW)         -> message text         HRC065DK
       HRC065DK: ./ R 00596000 $ 00596000
       HRC065DK:          MVC   FREEMSG(L'MSGSLOW),0(R15)   MOVE IN SLOWDOWN MSGHRC065DK
       HRC065DK: ./ D 01050000 $ 01050000
       HRC065DK: ./ I 01053000 $ 01053100 100
       HRC065DK: MSGSLOW  DC    C'DMKCQP466I CTLR XXX IN BUFFER SLOWDOWN MODE'  HRC065DK
 BEGIN APPLY >>> ./ I 00341000 $ 00341100 100
   END APPLY >>> ./ I 00341000 $ 00341100 100
 BEGIN APPLY >>> ./ I 00351000 $ 00351100 100
   END APPLY >>> ./ I 00351000 $ 00351100 100
 BEGIN APPLY >>> ./ * Move a literal around to accomodate base register exhaustion/
     Comment >>> ./ * Move a literal around to accomodate base register exhaustion/
   END APPLY >>> ./ * Move a literal around to accomodate base register exhaustion/
 BEGIN APPLY >>> ./ I 00595000 $ 00595100 100
   END APPLY >>> ./ I 00595000 $ 00595100 100
 BEGIN APPLY >>> ./ R 00596000 $ 00596000
   END APPLY >>> ./ R 00596000 $ 00596000
 BEGIN APPLY >>> ./ D 01050000 $ 01050000
   END APPLY >>> ./ D 01050000 $ 01050000
 BEGIN APPLY >>> ./ I 01053000 $ 01053100 100
   END APPLY >>> ./ I 01053000 $ 01053100 100
Update Succeeded
Update Execution Time 31 milliseconds.