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

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

1. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
2. R10709DK 610 ABENDPGT003 DUE TO DMKCFH NOT CHECKING RETURN CODES FROM DMKRPA
3. R10576DK 611 UV00681 CHECK FOR GOING OVER CYLINDER BOUNDARY
4. R12197DK 618 UV03500 ABENDRPA002 SAVESYS WHEN VMSIZE > VMSTOR
5. R12886DK 620 UV04109 MSDMKCFH435E PAGING ERROR WHEN SAVESYS
6. 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 16 milliseconds.

Date Wednesday Mar 12, 1980 01:25:00 AM
Loaded from MAINT(294)

       R10709DK: ./ I 412000 $ 412100                                                    00001000
       R10709DK:          BNZ   CFH435         GET OUT ON ERROR FROM WRITE      @VA10709 00002000
       R10709DK: ./ I 415000 $ 415100 100                                                00003000
       R10709DK:          SR    R0,R0          CLEAR REGISTER                   @VA10709 00004000
       R10709DK:          ST    R0,SAVEWRK9    CLEAR SAVEWRK9 TO INDICATE       @VA10709 00005000
       R10709DK: *                             BUFFER HAS BEEN FRETTED                   00006000
       R10709DK: ./ I 422000 $ 422100                                                    00007000
       R10709DK:          BNZ   CFH435         GET OUT ON ERROR FROM READ       @VA10709 00008000
       R10709DK: ./ I 502000 $ 502100 100                                                00009000
       R10709DK:          LTR   R0,R0          IS THERE A BUFFER TO FRET?       @VA10709 00010000
       R10709DK:          BZ    NOVAR          NO,THEN CONTINUE WITHOUT FRET    @VA10709 00011000
 BEGIN APPLY >>> ./ I 412000 $ 412100                                                    00001000
   END APPLY >>> ./ I 412000 $ 412100                                                    00001000
 BEGIN APPLY >>> ./ I 415000 $ 415100 100                                                00003000
   END APPLY >>> ./ I 415000 $ 415100 100                                                00003000
 BEGIN APPLY >>> ./ I 422000 $ 422100                                                    00007000
   END APPLY >>> ./ I 422000 $ 422100                                                    00007000
 BEGIN APPLY >>> ./ I 502000 $ 502100 100                                                00009000
   END APPLY >>> ./ I 502000 $ 502100 100                                                00009000
Update Succeeded
Update Execution Time 8 milliseconds.

Date Monday Apr 07, 1980 03:27:00 AM
Loaded from MAINT(294)

       R10576DK: ./ I 00325000 $ 00325100 10                                             00001000
       R10576DK:          LR    R2,R5          CCPD/PPPD TO R2                  @VA10576 00002000
       R10576DK:          N     R2,=X'0000FF00' SAVE PAGE NUMBER                @VA10576 00003000
       R10576DK:          CL    R2,SAVEWRK7    CHECK AGAINST MAX/CYL            @VA10576 00004000
       R10576DK:          BNH   NOBUMP         BRANCH IF SAME CYL               @VA10576 00005000
       R10576DK:          A     R5,=X'00010000' ADD 1 TO CC                     @VA10576 00006000
       R10576DK:          ICM   R5,B'0010',F1+3 RESET 'P' TO ONE                @VA10576 00007000
       R10576DK:          LR    R0,R5           LOAD NEW CCPD/PPPD              @VA10576
       R10576DK: NOBUMP   DS    0H                                              @VA10576 00008000
 BEGIN APPLY >>> ./ I 00325000 $ 00325100 10                                             00001000
   END APPLY >>> ./ I 00325000 $ 00325100 10                                             00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)

       R12197DK: ./ R 322000 $ 322500                                                    00001000
       R12197DK:          TRANS 2,1,OPT=(BRING,DEFER),ADEX=CFH300,IOER=CFH435   @VA12197 00002000
 BEGIN APPLY >>> ./ R 322000 $ 322500                                                    00001000
   END APPLY >>> ./ R 322000 $ 322500                                                    00001000
Update Succeeded
Update Execution Time 8 milliseconds.

Date Tuesday Apr 14, 1981 02:32:00 PM
Loaded from MAINT(294)

       R12886DK: ./ D 297000                                                             00001000
       R12886DK: ./ R 299000 $ 299100                                                    00002000
       R12886DK:          BAL   R14,NEXTCCPD   GET NEXT PAGE SLOT               @VA12886 00003000
       R12886DK: ./ D 325100 325170 $                                                    00004000
       R12886DK: ./ R 360000 366000 $ 360100                                             00005000
       R12886DK:          BAL   R14,NEXTCCPD   GET NEXT PAGE SLOT               @VA12886 00006000
       R12886DK: ./ R 418000 421000 $ 418100  200                                        00007000
       R12886DK:          BAL   R14,NEXTCCPD   GET NEXT PAGE SLOT               @VA12886 00008000
       R12886DK:          LR    R0,R5          SAVE ADDRESS                     @VA12886 00009000
       R12886DK: ./ I 488000 $ 488100 10                                                 00010000
       R12886DK: NEXTCCPD EQU   *              HERE TO INCREMENT PAGE NUMBER    @VA12886 00011000
       R12886DK:          AL    R5,F256        INCREMENT PAGE NUMBER FIRST      @VA12886 00012000
       R12886DK:          CLM   R5,B'0010',SAVEWRK7+2 TEST PAGE # TO PAGE/CYL   @VA12886 00015000
       R12886DK:          BNHR  R14            NOT CYL BOUNDARY RETURN          @VA12886 00016000
       R12886DK:          AL    R5,=F'65536'   INCREMENT CYLINDER NUMBER        @VA12886 00017000
       R12886DK:          ICM   R5,B'0010',F256+2 RESET PAGE # TO ONE           @VA12886 00018000
       R12886DK:          BR    R14            RETURN                           @VA12886 00019000
 BEGIN APPLY >>> ./ D 297000                                                             00001000
   END APPLY >>> ./ D 297000                                                             00001000
 BEGIN APPLY >>> ./ R 299000 $ 299100                                                    00002000
   END APPLY >>> ./ R 299000 $ 299100                                                    00002000
 BEGIN APPLY >>> ./ D 325100 325170 $                                                    00004000
   END APPLY >>> ./ D 325100 325170 $                                                    00004000
 BEGIN APPLY >>> ./ R 360000 366000 $ 360100                                             00005000
   END APPLY >>> ./ R 360000 366000 $ 360100                                             00005000
 BEGIN APPLY >>> ./ R 418000 421000 $ 418100  200                                        00007000
   END APPLY >>> ./ R 418000 421000 $ 418100  200                                        00007000
 BEGIN APPLY >>> ./ I 488000 $ 488100 10                                                 00010000
   END APPLY >>> ./ I 488000 $ 488100 10                                                 00010000
Update Succeeded
Update Execution Time 16 milliseconds.

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

       HRC106DK: ./ I 00248000          $ 00248100 100
       HRC106DK:          LA    R0,PAGE3375    Maximum pages/cyl on 3375        HRC106DK
       HRC106DK:          TM    RDEVTYPE,TYP3375 Is it ????                     HRC106DK
       HRC106DK:          BO    STOMAXPG       Yes -----                        HRC106DK
       HRC106DK:          LA    R0,PAGE3380    Maximum pages/cyl on 3380        HRC106DK
       HRC106DK:          TM    RDEVTYPE,TYP3380 Is it ????                     HRC106DK
       HRC106DK:          BO    STOMAXPG       Yes -----                        HRC106DK
       HRC106DK: ./ I 00559000          $ 00559100 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 00248000          $ 00248100 100
   END APPLY >>> ./ I 00248000          $ 00248100 100
 BEGIN APPLY >>> ./ I 00559000          $ 00559100 100
   END APPLY >>> ./ I 00559000          $ 00559100 100
Update Succeeded
Update Execution Time 23 milliseconds.