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

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

1. R09268DK 601 CONDITION CODE LOST ON EXIT FROM DMKTCS
2. R09294DK 601 PREVENT 3800 DATA CHECKS AND OVERPRINTING
3. R09314DK 601 PREVENT 3800 INVALID FCB LOAD ON OTHER THAN 6,8,12 FCB
4. R09394DK 602 PREVENT INVALID LOAD MODULE (3800) ON SYSTEM RESTART
5. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
6. R09470DK 609 MSDMKTCS241E IF MEMBER ON PAGE BOUNDARY
7. R10748DK 611 MSDMKTCS241E IF IMAGELIB NOT ON CYLINDER BOUNDARY
8. R11550DK 618 UV02156 - 3800 PRINTER BUFFER NOT CLEARED AFTER PRINT DRAIN
9. R12900DK 623 UV04857 DMKTCS FAILING TO CHECK FOR A CC FROM DMKRPAGT
10. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd

Date Monday Jan 22, 1979 02:10:00 PM
Loaded from MAINT(294)

       R09268DK: ./ R 808000 $ 808100 100
       R09268DK:          MVI   SAVEWRK1+1,X'FF'    SET NON-ZERO COND. CODE     @VA09268
       R09268DK: ./ R 811000 $ 811100 100
       R09268DK:          B     EXITB               RETURN TO CALLER            @VA09268
 BEGIN APPLY >>> ./ R 808000 $ 808100 100
   END APPLY >>> ./ R 808000 $ 808100 100
 BEGIN APPLY >>> ./ R 811000 $ 811100 100
   END APPLY >>> ./ R 811000 $ 811100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Jan 25, 1979 02:08:00 PM
Loaded from MAINT(294)

       R09294DK: ./ R 699000 $ 699100 100
       R09294DK:          MVC   HLDCCW4,BLKDATCK    SET BLK DATA CK LATCH       @VA09294
       R09294DK:          MVC   HLDCCW5,LOADSNS     DUMMY SENSE                 @VA09294
       R09294DK: ./ I 1020000 $ 1020100 100
       R09294DK: BLKDATCK CCW   X'73',*-*,CC+SILI,1 BLOCK DATA CHECK            @VA09294
 BEGIN APPLY >>> ./ R 699000 $ 699100 100
   END APPLY >>> ./ R 699000 $ 699100 100
 BEGIN APPLY >>> ./ I 1020000 $ 1020100 100
   END APPLY >>> ./ I 1020000 $ 1020100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jan 30, 1979 01:26:00 PM
Loaded from MAINT(294)

       R09314DK: ./ I 580000 $ 580100 100
       R09314DK:          L     R2,RSPRPAGE         BUFFER POINTER              @VA09314
       R09314DK:          L     R5,SAVEWRK2         ADDR OF HOLDING AREA        @VA09314
       R09314DK:          L     R6,RDEVEXTN         RSPXBLOK ADDRESSIBILITY     @VA09314
       R09314DK: ./ R 581000 $ 581100 100
       R09314DK:          LH    R1,6(R2)            GET LENGTH INTO R1          @VA09314
 BEGIN APPLY >>> ./ I 580000 $ 580100 100
   END APPLY >>> ./ I 580000 $ 580100 100
 BEGIN APPLY >>> ./ R 581000 $ 581100 100
   END APPLY >>> ./ R 581000 $ 581100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Mar 28, 1979 02:16:00 AM
Loaded from MAINT(294)

       R09394DK: ./ R 250000 $ 250050 50
       R09394DK: TCSET2   CALL  DMKRPAGT,PARM=(BRING+SYSTEM+LOCK) BRING IT IN   @VA09394
       R09394DK:          CLC   SPPREPAG,ZEROES     IS IT REALLY THE FIRST?     @VA09394
       R09394DK:          BE    TCSET3              XFER IF SO                  @VA09394
       R09394DK:          L     R0,SPNXTPAG         POINT TO NEXT DASD BUFFER   @VA09394
       R09394DK:          C     R0,SFBSTART         IS THIS WHERE WE STARTED?   @VA09394
       R09394DK:          BE    EXITFF              XFER IF SO - ERROR          @VA09394
       R09394DK:          B     TCSET2              TRY NEXT PAGE               @VA09394
       R09394DK: ./ R 251000 $ 251100 100
       R09394DK: TCSET3   ST    R0,RSPDPAGE         SAVE THE DASD ADDRESS       @VA09394
 BEGIN APPLY >>> ./ R 250000 $ 250050 50
   END APPLY >>> ./ R 250000 $ 250050 50
 BEGIN APPLY >>> ./ R 251000 $ 251100 100
   END APPLY >>> ./ R 251000 $ 251100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Jul 12, 1979 09:53: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 Friday Jan 25, 1980 10:26:00 AM
Loaded from MAINT(294)

       R09470DK: ./ R 00966000 $ 966050 50                                               00001000
       R09470DK:          LR    R1,R4          GET NEXT ADDRESS                 @VA09470 00002000
       R09470DK:          AL    R1,F4096       CALC MOVE LENGTH                 @VA09470 00003000
 BEGIN APPLY >>> ./ R 00966000 $ 966050 50                                               00001000
   END APPLY >>> ./ R 00966000 $ 966050 50                                               00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Apr 03, 1980 03:04:00 AM
Loaded from MAINT(294)

       R10748DK: ./ R 908000 $ 908100 100                                                00001000
       R10748DK:          SR    R1,R1                GET PAGE NUMBER OF         @VA10748 00002000
       R10748DK:          ICM   R1,B'0010',SAVEWRK6+2 IMAGELIB START            @VA10748 00003000
       R10748DK:          S     R1,F256        CONVERT TO OFFSET FROM CYL START @VA10748 00004000
       R10748DK:          MVI   SAVEWRK6+2,X'01' BACKUP IMAGELIB TO CYL START   @VA10748 00005000
       R10748DK:          ALR   R1,R4            PLUS PAGE DISPLACEMENT         @VA10748 00007000
 BEGIN APPLY >>> ./ R 908000 $ 908100 100                                                00001000
   END APPLY >>> ./ R 908000 $ 908100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jan 13, 1981 01:13:00 AM
Loaded from MAINT(294)

       R11550DK: ./ R 318000 $ 317200 200                                                00001000
       R11550DK: MARKFORM DS    0H                                              @VA11550 00002000
       R11550DK:          LA    R1,MKFMCCW     LOAD THE 'MARK FORM' CCWS        @VA11550 00003000
       R11550DK:          TM    RDEVFLAG,RDEVDRAN ARE WE DRAINING??             @VA11550 00004000
       R11550DK:          BZ    REGMKFM        NO, JUST 'MARK FORM'             @VA11550 00005000
       R11550DK:          MVC   HLDCCW1,CLRCCW YES, MUST ALSO CLEAR PRINT.      @VA11550 00006000
       R11550DK:          MVC   HLDCCW2(32),MKFMCCW THEN THE MARK FORMS SEQUENCE@VA11550 00007000
       R11550DK:          LA    R1,HLDCCW1     POINT TO THE CLEAR PRINT CCW     @VA11550 00008000
       R11550DK: REGMKFM  DS    0H                                              @VA11550 00009000
 BEGIN APPLY >>> ./ R 318000 $ 317200 200                                                00001000
   END APPLY >>> ./ R 318000 $ 317200 200                                                00001000
Update Succeeded
Update Execution Time 8 milliseconds.

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

       R12900DK: ./ I 250050 $ 250075 25
       R12900DK:          BNZ   EXITF0              PAGING ERROR                @VA12900
       R12900DK: ./ I 739000 $ 739200 200
       R12900DK: EXITF0   DS    0H                                              @VA12900
       R12900DK:          MVI   SAVEWRK1+1,X'F0'    SET CC=4 - PAGING ERROR     @VA12900
       R12900DK:          B     EXIT                GO TO COMMON EXIT ROUTINE   @VA12900
       R12900DK:          SPACE 2
 BEGIN APPLY >>> ./ I 250050 $ 250075 25
   END APPLY >>> ./ I 250050 $ 250075 25
 BEGIN APPLY >>> ./ I 739000 $ 739200 200
   END APPLY >>> ./ I 739000 $ 739200 200
Update Succeeded
Update Execution Time 16 milliseconds.

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

       HRC106DK: ./ I 00851000          $ 00851100 100
       HRC106DK:          LA    R6,96               Pages/cyl for 3375          HRC106DK
       HRC106DK:          CLI   RDEVTYPE-RDEVBLOK(R1),TYP3375   Is it 3375?     HRC106DK
       HRC106DK:          BE    MEMLD3              Xfer if so                  HRC106DK
       HRC106DK:          LA    R6,150              Pages/cyl for 3380          HRC106DK
       HRC106DK:          CLI   RDEVTYPE-RDEVBLOK(R1),TYP3380   Is it 3380?     HRC106DK
       HRC106DK:          BE    MEMLD3              Xfer if so                  HRC106DK
 BEGIN APPLY >>> ./ I 00851000          $ 00851100 100
   END APPLY >>> ./ I 00851000          $ 00851100 100
Update Succeeded
Update Execution Time 23 milliseconds.