Table of Contents

DMKIOG History

References

Update History

CMS File Input : DMKIOG ASSEMBLE
Date : 1/22/1979 8:44:00 AM
VM Context : MAINT(394)
File Name : DMKIOG.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM

Update Order

  1. R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  2. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
  3. R09862DK 608 CORRECT RECORDING MODE FLAG FROM APSTAT2 TO APSTAT4
  4. R10477DK 609 CORRECT CCH RECORD LENGTH FOR 4331/4341 PROCCESORS
  5. R10804DK 611 NEW DISPLACEMENTS FOR MCHAREA
  6. R10241DK 616 REMOVE VCON FROM PAGEABLE MODULE
  7. R12571DK 618 UV03178 REMOVE EXTRANEOUS EXTRNS WHICH ARE NOW IN DMKIOH
  8. R12889DK 619 UV03861 CORRECT LOAD OF R4 IN DMKIOG
  9. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
  10. HRC075DK V01 Alternate nucleus support

R09957DK

Date Thursday Jul 12, 1979 09:52: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.

R10074DK

Date Friday Jul 13, 1979 10:39:00 AM
Loaded from MAINT(294)
       R10074DK: ./ D 31000 33000                                                        DMK00010
       R10074DK: ./ D 39000                                                              DMK00020
       R10074DK: ./ I 52000 $ 52100                                                      DMK00030
       R10074DK: *              DMKIOHFR - TO INITIALIZE FRAME RECORDS ON A 303X.        DMK00040
       R10074DK: ./ I 62000 $ 62100                                                      DMK00050
       R10074DK: *              DMKIOHIF - DMKIOH'S INFOFLAG.                            DMK00060
       R10074DK: ./ D 151000 228000                                                      DMK00070
       R10074DK: ./ D 242000 249000                                                      DMK00080
       R10074DK: ./ I 281000 $ 281100 100                                                DMK00090
       R10074DK:          EXTRN DMKIOHFR                                        @V60B7AA DMK00100
       R10074DK:          EXTRN DMKIOHIF                                        @V60B7AA DMK00110
       R10074DK:          ENTRY DMKIOGCE                                        @V60B7AA DMK00120
       R10074DK: ./ I 580000 $ 580100 100                                                DMK00130
       R10074DK:          L     R4,=V(DMKIOETY) ADDRESS OF 'D' PART OF ERROR    @VMV0030 DMK00140
       R10074DK: *                             RECORDING AREA CCPD                       DMK00150
       R10074DK:          STC   R15,0(R4)      SAVE DEVICE TYPE                 @VMV0030 DMK00160
       R10074DK: ./ I 623000 $ 623100 100                                                DMK00170
       R10074DK:          L     R4,=V(DMKIOEMX) PICK UP MAX PAGE PTR IN RES CODE@V60B7AA DMK00180
       R10074DK:          MVC   0(1,R4),MAXPAGE MOVE IN MAX NO. OF PAGES FOR    @V60B7AA DMK00190
       R10074DK: *                             DEVICE                                    DMK00200
       R10074DK:          L     R4,=V(DMKIOENI) PICK UP ADDRESS OF 90% FULL LIM.@V60B7AA DMK00210
       R10074DK:          MVC   0(1,R4),PAGE90PC MOVE IN CORRECT COUNT          @V60B7AA DMK00220
       R10074DK: ./ R 778000 $ 778100                                                    DMK00230
       R10074DK:          CALL  DMKIOHFR       GO INITIALIZE FRAME RECORDS      @V60B7AA DMK00240
       R10074DK: ./ R 808000 $ 808100                                                    DMK00250
       R10074DK:          MVC   0(3,R4),CECYL  MOVE CYL, PAGE, AND TYPE FOR     @V60B7AA DMK00260
       R10074DK: ./ D 810000 813000                                                      DMK00270
       R10074DK: ./ R 863000 $ 863100 100                                                DMK00280
       R10074DK:          STC   R2,PARMSAVE    SAVE ERASE PARAMETERS            @V60B7AA DMK00290
       R10074DK: ./ R 893000 $ 893100 100                                                DMK00300
       R10074DK: ERASDONE L     R4,=V(DMKIOHIF) ADDRESS OF PTR TO IOH'S INFOFLAG@V60B7AA DMK00310
       R10074DK:          L     R4,0(R4)       LOAD ADDRESS OF IOH'S INFOFLAG   @V60B7AA DMK00320
       R10074DK:          TM    0(R4),FULLNOW IS AREA NOW FILLED WITH FRAME     @V60B7AA DMK00330
       R10074DK: *                             RECORDS?                                  DMK00340
       R10074DK: ./ D 984000 1474000                                                     DMK00350
       R10074DK: ./ I 1532000 $ 1532100 100                                              DMK00360
       R10074DK: DMKIOGCE DC    A(CECYL)       ALLOWS FOR COMMUNICATION WITH    @V60B7AA DMK00370
       R10074DK: *                             DMKIOHFR                                  DMK00380
       R10074DK: ./ D 1533000 1535000                                                    DMK00390
       R10074DK: ./ D 1539000                                                            DMK00400
       R10074DK: ./ D 1553000 1576000                                                    DMK00410
       R10074DK: ./ D 1590000 1621000                                                    DMK00420
 BEGIN APPLY >>> ./ D 31000 33000                                                        DMK00010
   END APPLY >>> ./ D 31000 33000                                                        DMK00010
 BEGIN APPLY >>> ./ D 39000                                                              DMK00020
   END APPLY >>> ./ D 39000                                                              DMK00020
 BEGIN APPLY >>> ./ I 52000 $ 52100                                                      DMK00030
   END APPLY >>> ./ I 52000 $ 52100                                                      DMK00030
 BEGIN APPLY >>> ./ I 62000 $ 62100                                                      DMK00050
   END APPLY >>> ./ I 62000 $ 62100                                                      DMK00050
 BEGIN APPLY >>> ./ D 151000 228000                                                      DMK00070
   END APPLY >>> ./ D 151000 228000                                                      DMK00070
 BEGIN APPLY >>> ./ D 242000 249000                                                      DMK00080
   END APPLY >>> ./ D 242000 249000                                                      DMK00080
 BEGIN APPLY >>> ./ I 281000 $ 281100 100                                                DMK00090
   END APPLY >>> ./ I 281000 $ 281100 100                                                DMK00090
 BEGIN APPLY >>> ./ I 580000 $ 580100 100                                                DMK00130
   END APPLY >>> ./ I 580000 $ 580100 100                                                DMK00130
 BEGIN APPLY >>> ./ I 623000 $ 623100 100                                                DMK00170
   END APPLY >>> ./ I 623000 $ 623100 100                                                DMK00170
 BEGIN APPLY >>> ./ R 778000 $ 778100                                                    DMK00230
   END APPLY >>> ./ R 778000 $ 778100                                                    DMK00230
 BEGIN APPLY >>> ./ R 808000 $ 808100                                                    DMK00250
   END APPLY >>> ./ R 808000 $ 808100                                                    DMK00250
 BEGIN APPLY >>> ./ D 810000 813000                                                      DMK00270
   END APPLY >>> ./ D 810000 813000                                                      DMK00270
 BEGIN APPLY >>> ./ R 863000 $ 863100 100                                                DMK00280
   END APPLY >>> ./ R 863000 $ 863100 100                                                DMK00280
 BEGIN APPLY >>> ./ R 893000 $ 893100 100                                                DMK00300
   END APPLY >>> ./ R 893000 $ 893100 100                                                DMK00300
 BEGIN APPLY >>> ./ D 984000 1474000                                                     DMK00350
   END APPLY >>> ./ D 984000 1474000                                                     DMK00350
 BEGIN APPLY >>> ./ I 1532000 $ 1532100 100                                              DMK00360
   END APPLY >>> ./ I 1532000 $ 1532100 100                                              DMK00360
 BEGIN APPLY >>> ./ D 1533000 1535000                                                    DMK00390
   END APPLY >>> ./ D 1533000 1535000                                                    DMK00390
 BEGIN APPLY >>> ./ D 1539000                                                            DMK00400
   END APPLY >>> ./ D 1539000                                                            DMK00400
 BEGIN APPLY >>> ./ D 1553000 1576000                                                    DMK00410
   END APPLY >>> ./ D 1553000 1576000                                                    DMK00410
 BEGIN APPLY >>> ./ D 1590000 1621000                                                    DMK00420
   END APPLY >>> ./ D 1590000 1621000                                                    DMK00420
Update Succeeded
Update Execution Time 55 milliseconds.

R09862DK

Date Friday Jan 11, 1980 05:17:00 AM
Loaded from MAINT(294)
       R09862DK: ./ R 502000 $ 502100                                                    00001000
       R09862DK:          OI    APSTAT4,RECMODE SET RECORDING INDICATOR FOR REC.@VA09862 00002000
 BEGIN APPLY >>> ./ R 502000 $ 502100                                                    00001000
   END APPLY >>> ./ R 502000 $ 502100                                                    00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R10477DK

Date Tuesday Jan 29, 1980 12:14:00 PM
Loaded from MAINT(294)
       R10477DK: ./ I 427100 $ 427110 20                                                 00001000
       R10477DK:          LA    R0,X'54'       LENGTH OF THE CCH RECORD         @VA10477 00002000
       R10477DK:          STH   R0,0(R6)       SAVE  LENGTH                     @VA10477 00003000
       R10477DK:          SR    R1,R1          CLEAR  I/O EXTENDED LOGOUT PTR.  @VA10477 00004000
 BEGIN APPLY >>> ./ I 427100 $ 427110 20                                                 00001000
   END APPLY >>> ./ I 427100 $ 427110 20                                                 00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R10804DK

Date Monday Apr 14, 1980 04:11:00 AM
Loaded from MAINT(294)
       R10804DK: ./ * FORCE REASSEMBLY FOR APAR VM10804
 BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
     Comment >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
   END APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
Update Succeeded
Update Execution Time 16 milliseconds.

R10241DK

Date Monday Sep 08, 1980 05:20:00 AM
Loaded from MAINT(294)
       R10241DK: ./ I 263000 $ 263100                                                    00001000
       R10241DK:          EXTRN DMKIOECE                                        @VA10241 00002000
       R10241DK:          EXTRN DMKIOEIF                                        @VA10241 00003000
       R10241DK: ./ D 281200 281300 $                                                    00004000
       R10241DK: ./ I 709000 $ 709100 100                                                00005000
       R10241DK:          L     R15,=V(DMKIOECE) ADD. OF CECYL                  @VA10241 00006000
       R10241DK:          MVC   0(3,R15),CECYL MOVE IN CECYL                    @VA10241 00007000
       R10241DK: ./ I 879000 $ 879100 100                                                00008000
       R10241DK:          L     R15,=V(DMKIOECE) ADD. OF CECYL                  @VA10241 00009000
       R10241DK:          MVC   0(3,R15),CECYL MOVE IN CECYL                    @VA10241 00010000
       R10241DK: ./ R 893100 $ 893120                                                    00011000
       R10241DK: ERASDONE L     R4,=V(DMKIOEIF) ADD. OF INFOFLAG                @VA10241 00012000
       R10241DK: ./ I 969000 $ 969100 100                                                00013000
       R10241DK:          L     R14,=V(DMKIOECE) ADD. OF CECYL                  @VA10241 00014000
       R10241DK:          MVC   0(3,R14),CECYL                                  @VA10241 00015000
       R10241DK: ./ D 1532100                                                            00016000
 BEGIN APPLY >>> ./ I 263000 $ 263100                                                    00001000
   END APPLY >>> ./ I 263000 $ 263100                                                    00001000
 BEGIN APPLY >>> ./ D 281200 281300 $                                                    00004000
   END APPLY >>> ./ D 281200 281300 $                                                    00004000
 BEGIN APPLY >>> ./ I 709000 $ 709100 100                                                00005000
   END APPLY >>> ./ I 709000 $ 709100 100                                                00005000
 BEGIN APPLY >>> ./ I 879000 $ 879100 100                                                00008000
   END APPLY >>> ./ I 879000 $ 879100 100                                                00008000
 BEGIN APPLY >>> ./ R 893100 $ 893120                                                    00011000
   END APPLY >>> ./ R 893100 $ 893120                                                    00011000
 BEGIN APPLY >>> ./ I 969000 $ 969100 100                                                00013000
   END APPLY >>> ./ I 969000 $ 969100 100                                                00013000
 BEGIN APPLY >>> ./ D 1532100                                                            00016000
   END APPLY >>> ./ D 1532100                                                            00016000
Update Succeeded
Update Execution Time 16 milliseconds.

R12571DK

Date Friday Jan 09, 1981 12:04:00 PM
Loaded from MAINT(294)
       R12571DK: ./ D 265000 266000 $
 BEGIN APPLY >>> ./ D 265000 266000 $
   END APPLY >>> ./ D 265000 266000 $
Update Succeeded
Update Execution Time 8 milliseconds.

R12889DK

Date Wednesday Feb 18, 1981 01:45:00 PM
Loaded from MAINT(294)
       R12889DK: ./ D 893200 $                                                           00001000
 BEGIN APPLY >>> ./ D 893200 $                                                           00001000
   END APPLY >>> ./ D 893200 $                                                           00001000
Update Succeeded
Update Execution Time 16 milliseconds.

HRC106DK

Date Tuesday Feb 16, 2016 04:17:00 PM
Loaded from MAINT(094)
       HRC106DK: ./ I 00584000          $ 00584100 100
       HRC106DK:          CLI   RDEVTYPE,TYP3375 Is it a 3375 ?                 HRC106DK
       HRC106DK:          BE    SET3375        Yes -                            HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380 Is it a 3380 ?                 HRC106DK
       HRC106DK:          BE    SET3380        Yes -                            HRC106DK
       HRC106DK: ./ I 00592000          $ 00592100 100
       HRC106DK: SET3375  MVI   MAXPAGE,MAX3375 Set max no. pages per cyl 3375  HRC106DK
       HRC106DK:          B     NINETYPC                                        HRC106DK
       HRC106DK: SET3380  MVI   MAXPAGE,MAX3380 Set max no. pages per cyl 3380  HRC106DK
       HRC106DK:          B     NINETYPC                                        HRC106DK
       HRC106DK: ./ I 01549000          $ 01549100 100
       HRC106DK: MAX3375  EQU   X'61'          3375 max pages (plus 1) = 97     HRC106DK
       HRC106DK: MAX3380  EQU   X'97'          3380 max pages (plus 1) = 151    HRC106DK
 BEGIN APPLY >>> ./ I 00584000          $ 00584100 100
   END APPLY >>> ./ I 00584000          $ 00584100 100
 BEGIN APPLY >>> ./ I 00592000          $ 00592100 100
   END APPLY >>> ./ I 00592000          $ 00592100 100
 BEGIN APPLY >>> ./ I 01549000          $ 01549100 100
   END APPLY >>> ./ I 01549000          $ 01549100 100
Update Succeeded
Update Execution Time 16 milliseconds.

HRC075DK

Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
       HRC075DK: ./ I 00569000          $ 00569500 100
       HRC075DK:          LH    R1,4(,R15)       Get CUU of ERR area            HRC075DK
       HRC075DK: ./ D 00572000
 BEGIN APPLY >>> ./ I 00569000          $ 00569500 100
   END APPLY >>> ./ I 00569000          $ 00569500 100
 BEGIN APPLY >>> ./ D 00572000
   END APPLY >>> ./ D 00572000
Update Succeeded
Update Execution Time 23 milliseconds.