Table of Contents

DMKPGT History

References

Update History

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

Update Order

  1. R08928DK 601 CORRECT BAD COMMENTS
  2. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  3. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd

R08928DK

Date Monday Feb 26, 1979 04:28:00 PM
Loaded from MAINT(294)
       R08928DK: ./ R 56000 $ 56500
       R08928DK: *        SERIALLY REUSABLE, RESIDENT, CALLED VIA BALR
 BEGIN APPLY >>> ./ R 56000 $ 56500
   END APPLY >>> ./ R 56000 $ 56500
Update Succeeded
Update Execution Time 16 milliseconds.

R09957DK

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.

HRC106DK

Date Sunday Feb 21, 2016 07:13:00 PM
Loaded from MAINT(094)
       HRC106DK: ./ I 00032000          $ 00032020 20
       HRC106DK:          ENTRY DMKPGT7P,DMKPGT7T
       HRC106DK:          ENTRY DMKPGT8P,DMKPGT8T
       HRC106DK: ./ R 00063000 00067000 $ 00062100 1000
       HRC106DK: *        DMKPGTP5,DMKPGTP0,DMKPGT4P,DMKPGT5P,DMKPGTP4,DMKPGT7P HRC106DK
       HRC106DK: *        AND DMKPGT8P ARE ANCHOR CHAINS OF PREFERRED PAGING    HRC106DK
       HRC106DK: *        DEVICES,  THEY ARE INITIALIZED BY DMKCPI,DMKPGTT5,    HRC106DK
       HRC106DK: *        DMKPGTT0,DMKPGT4T,DMKPGT5T,DMKPGTT4,DMKPGT7T AND      HRC106DK
       HRC106DK: *        DMKPGT8T ARE ANCHORS FOR CHAINS CONNECTING ALL OTHER  HRC106DK
       HRC106DK: *        DEVICE BLOKS WITH OWNED VOLUMES MOUNTED.              HRC106DK
       HRC106DK: ./ I 00234000          $ 00234100 100
       HRC106DK:          LH    R7,ALOCMAX     Get ALOCMAX before altering R10  HRC106DK
       HRC106DK:          CH    R6,=H'255'     Length of ALOCMAP > 256 bytes?   HRC106DK
       HRC106DK:          BNH   SMALLDEV       Dasd with 2048 or less cylinders HRC106DK
       HRC106DK:          TRT   ALOCMAP(256),FREETABL Check first 256 bytes     HRC106DK
       HRC106DK:          BNZ   PGT1A          Found a zero bit                 HRC106DK
       HRC106DK:          LA    R10,256(,R10)  Try 256 bytes further along      HRC106DK
       HRC106DK: SMALLDEV EQU   *                                               HRC106DK
       HRC106DK: ./ R 00255000          $ 00255100 100
       HRC106DK:          LR    R6,R7          Retrieve saved ALOCMAX           HRC106DK
       HRC106DK: ./ I 00272000          $ 00272100 100
       HRC106DK:          LA    R7,96          Number of pages/cylinder - 3375  HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3375 3375 device type ?             HRC106DK
       HRC106DK:          BE    GETCORE        Yes, build RECBLOK               HRC106DK
       HRC106DK:          LA    R7,150         Number of pages/cylinder - 3380  HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380 3380 device type ?             HRC106DK
       HRC106DK:          BE    GETCORE        Yes, build RECBLOK               HRC106DK
       HRC106DK: ./ R 00284000 00290000 $ 00284100 200
       HRC106DK:          DROP  R6                                              HRC106DK
       HRC106DK:          USING RECBLOK,R1                                      HRC106DK
       HRC106DK:          LM    R6,R7,FFS      Set R6 and R7 to all ones        HRC106DK
       HRC106DK:          CH    R2,=H'64'      'Small' no. of pages per cyl.?   HRC106DK
       HRC106DK:          BL    SMALLPPC       Use the beginning of RECMAP      HRC106DK
       HRC106DK:          CH    R2,=H'128'     'Medium' no. of pages per cyl.?  HRC106DK
       HRC106DK:          BL    MIDPPC         Use the middle of RECMAP         HRC106DK
       HRC106DK:          SH    R2,=H'128'     Get rid of bits accounted for    HRC106DK
       HRC106DK:          XC    RECMAP(16),RECMAP Clear start, middle of RECMAP HRC106DK
       HRC106DK:          SRDL  R6,0(R2)       Insert one zero per avail. page  HRC106DK
       HRC106DK:          STM   R6,R7,RECMAP+16 Set up end of RECMAP            HRC106DK
       HRC106DK:          B     MAPFIN         RECMAP completely set up         HRC106DK
       HRC106DK: MIDPPC   SH    R2,=H'64'      Get rid of bits accounted for    HRC106DK
       HRC106DK:          STM   R6,R7,RECMAP+16 Set all bits at end of RECMAP   HRC106DK
       HRC106DK:          SRDL  R6,0(R2)       Insert one zero per avail. page  HRC106DK
       HRC106DK:          STM   R6,R7,RECMAP+8 Set up middle of RECMAP          HRC106DK
       HRC106DK:          XC    RECMAP(8),RECMAP Clear beginning of RECMAP      HRC106DK
       HRC106DK:          B     MAPFIN         RECMAP completely set up         HRC106DK
       HRC106DK: SMALLPPC STM   R6,R7,RECMAP+16 Set all bits at end of RECMAP   HRC106DK
       HRC106DK:          STM   R6,R7,RECMAP+8 Set all bits in middle of RECMAP HRC106DK
       HRC106DK:          SRDL  R6,0(R2)       Insert one zero per avail. page  HRC106DK
       HRC106DK:          STM   R6,R7,RECMAP   Set up beginning of RECMAP       HRC106DK
       HRC106DK:          DROP  R1                                              HRC106DK
       HRC106DK:          USING RECBLOK,R6                                      HRC106DK
       HRC106DK: ./ R 00300000 00301000 $ 00300100 1000
       HRC106DK:          CLI   RECMAX,64      Is this a 'large' device?        HRC106DK
       HRC106DK:          BH    INITCYL0       Yes, initialise cyl 0 page map   HRC106DK
       HRC106DK: ./ D 00316000 00321000
       HRC106DK: ./ I 00961000          $ 00961100 100
       HRC106DK:          LA    R7,96(0)       Pages / cylinder for 3375        HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3375 . . .                          HRC106DK
       HRC106DK:          BE    CONNCYL                                         HRC106DK
       HRC106DK:          LA    R7,150(0)      Pages / cylinder for 3380        HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380 . . .                          HRC106DK
       HRC106DK:          BE    CONNCYL                                         HRC106DK
       HRC106DK: ./ R 01054000          $ 01054100 100
       HRC106DK: OVFL64PG MVC   RECMAP(8),FFS  Propagate first 64 bits          HRC106DK
       HRC106DK:          S     R4,=F'64'      Determine middle (127-64)        HRC106DK
       HRC106DK:          CLM   R4,B'0001',PAGE63 Count still > than 63 Pages?  HRC106DK
       HRC106DK:          BH    OVF128PG       Yes, extend allocation again     HRC106DK
       HRC106DK: ./ D 01059000
       HRC106DK: ./ I 01060000          $ 01060100 100
       HRC106DK: OVF128PG MVC   RECMAP+8(8),FFS Propagate middle 64 bits        HRC106DK
       HRC106DK:          S     R4,=F'64'      Determine remainder (191-128)    HRC106DK
       HRC106DK:          SRDA  R14,0(R4)      Shift to propagate bits          HRC106DK
       HRC106DK:          O     R14,RECMAP+16  Allocate the bits                HRC106DK
       HRC106DK:          O     R15,RECMAP+20 . . .                             HRC106DK
       HRC106DK:          STM   R14,R15,RECMAP+16 . . .                         HRC106DK
       HRC106DK:          B     CONEXIT        Restore registers                HRC106DK
       HRC106DK: ./ I 01066000          $ 01066100 100
       HRC106DK:          MVC   RECMAP+1(23),RECMAP Propagate for 188 pages     HRC106DK
       HRC106DK: ./ I 01352000          $ 01352100 100
       HRC106DK: DMKPGT7P DC    A(0)           Preferred paging devices - 3375  HRC106DK
       HRC106DK: DMKPGT8P DC    A(0)           Preferred paging devices - 3380  HRC106DK
       HRC106DK: ./ I 01358000          $ 01358100 100
       HRC106DK: DMKPGT7T DC    A(0)           General spooling/paging - 3375   HRC106DK
       HRC106DK: DMKPGT8T DC    A(0)           General spooling/paging - 3380   HRC106DK
 BEGIN APPLY >>> ./ I 00032000          $ 00032020 20
   END APPLY >>> ./ I 00032000          $ 00032020 20
 BEGIN APPLY >>> ./ R 00063000 00067000 $ 00062100 1000
   END APPLY >>> ./ R 00063000 00067000 $ 00062100 1000
 BEGIN APPLY >>> ./ I 00234000          $ 00234100 100
   END APPLY >>> ./ I 00234000          $ 00234100 100
 BEGIN APPLY >>> ./ R 00255000          $ 00255100 100
   END APPLY >>> ./ R 00255000          $ 00255100 100
 BEGIN APPLY >>> ./ I 00272000          $ 00272100 100
   END APPLY >>> ./ I 00272000          $ 00272100 100
 BEGIN APPLY >>> ./ R 00284000 00290000 $ 00284100 200
   END APPLY >>> ./ R 00284000 00290000 $ 00284100 200
 BEGIN APPLY >>> ./ R 00300000 00301000 $ 00300100 1000
   END APPLY >>> ./ R 00300000 00301000 $ 00300100 1000
 BEGIN APPLY >>> ./ D 00316000 00321000
   END APPLY >>> ./ D 00316000 00321000
 BEGIN APPLY >>> ./ I 00961000          $ 00961100 100
   END APPLY >>> ./ I 00961000          $ 00961100 100
 BEGIN APPLY >>> ./ R 01054000          $ 01054100 100
   END APPLY >>> ./ R 01054000          $ 01054100 100
 BEGIN APPLY >>> ./ D 01059000
   END APPLY >>> ./ D 01059000
 BEGIN APPLY >>> ./ I 01060000          $ 01060100 100
   END APPLY >>> ./ I 01060000          $ 01060100 100
 BEGIN APPLY >>> ./ I 01066000          $ 01066100 100
   END APPLY >>> ./ I 01066000          $ 01066100 100
 BEGIN APPLY >>> ./ I 01352000          $ 01352100 100
   END APPLY >>> ./ I 01352000          $ 01352100 100
 BEGIN APPLY >>> ./ I 01358000          $ 01358100 100
   END APPLY >>> ./ I 01358000          $ 01358100 100
Update Succeeded
Update Execution Time 55 milliseconds.