• Abstract / Synopsis of DMKHVE
• Latest Source of DMKHVE
• Fixes Applied : 2
• Latest Source Date : Friday, July 25, 1980
• Last Fix ID : [HRC075DK]

CMS File Input : DMKHVE ASSEMBLE
Date : 7/25/1980 4:23:00 AM
VM Context : MAINT(394)
File Name : DMKHVE.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM

1. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
2. HRC075DK V01 Alternate nucleus support

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

       HRC106DK: ./ R 00352000 00353000 $ 00352090 90
       HRC106DK:          LA    R1,2(,R1)      Point to 3375 cylinder limit     HRC106DK
       HRC106DK:          LA    R2,1(,R2)      Point to 3375 page limit         HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3375 3375 ??                        HRC106DK
       HRC106DK:          BE    CHKVALID       Validate page and cylinder       HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380 3380 ??                        HRC106DK
       HRC106DK:          BNE   CK2314         Skip to next type                HRC106DK
       HRC106DK:          LA    R1,2(,R1)      Point to 3380 K cylinder limit   HRC106DK
       HRC106DK:          LA    R2,1(,R2)      Point to 3380 page limit         HRC106DK
       HRC106DK:          TM    RDEVMDL,RDEVMD83 Triple density 3380?           HRC106DK
       HRC106DK:          BO    CHKVALID       Validate page and cylinder       HRC106DK
       HRC106DK:          LA    R1,2(,R1)      Point to 3380 E cylinder limit   HRC106DK
       HRC106DK:          TM    RDEVMDL,RDEVMD82 Double density 3380?           HRC106DK
       HRC106DK:          BO    CHKVALID       Validate page and cylinder       HRC106DK
       HRC106DK:          LA    R1,2(,R1)      Point to 3380 A/D/J cyl. limit   HRC106DK
       HRC106DK:          B     CHKVALID       Validate page and cylinder       HRC106DK
       HRC106DK: CK2314   LA    R1,8(,R1)      Skip 3375/3380 cylinder limits   HRC106DK
       HRC106DK:          LA    R2,2(,R2)      Skip 3375/3380 page limits       HRC106DK
       HRC106DK: ./ I 00465000          $ 00465100 100
       HRC106DK:          DC    H'958'         Cylinder limit for a 3375        HRC106DK
       HRC106DK:          DC    H'2654'        Cylinder limit for a 3380 (K)    HRC106DK
       HRC106DK:          DC    H'1769'        Cylinder limit for a 3380 (E)    HRC106DK
       HRC106DK:          DC    H'884'         Cylinder limit for a 3380 (A/D/J)HRC106DK
       HRC106DK: ./ I 00476000          $ 00476100 100
       HRC106DK:          DC    AL1(96)        Page limit for 3375              HRC106DK
       HRC106DK:          DC    AL1(150)       Page limit for 3380              HRC106DK
 BEGIN APPLY >>> ./ R 00352000 00353000 $ 00352090 90
   END APPLY >>> ./ R 00352000 00353000 $ 00352090 90
 BEGIN APPLY >>> ./ I 00465000          $ 00465100 100
   END APPLY >>> ./ I 00465000          $ 00465100 100
 BEGIN APPLY >>> ./ I 00476000          $ 00476100 100
   END APPLY >>> ./ I 00476000          $ 00476100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)

       HRC075DK: ./ R 00274000 00274000 $ 00274000 200
       HRC075DK: ERRSTART EQU   *                                               HRC075DK
       HRC075DK:          L     R1,=A(DMKSYSER)  -> ERR area cyls info          HRC075DK
       HRC075DK:          LH    R1,4(,R1)        Get CUU of ERR area            HRC075DK
       HRC075DK: ./ R 00325000 00325000 $ 00325000 500
       HRC075DK:          L     R1,=A(DMKSYSER)  -> ERR area cyls info          HRC075DK
       HRC075DK:          LH    R1,4(,R1)        Get CUU of ERR area            HRC075DK
 BEGIN APPLY >>> ./ R 00274000 00274000 $ 00274000 200
   END APPLY >>> ./ R 00274000 00274000 $ 00274000 200
 BEGIN APPLY >>> ./ R 00325000 00325000 $ 00325000 500
   END APPLY >>> ./ R 00325000 00325000 $ 00325000 500
Update Succeeded
Update Execution Time 16 milliseconds.