DMKIOG History
References
-
-
Fixes Applied : 10
-
Last Fix ID : [HRC075DK]
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
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
R09862DK 608 CORRECT RECORDING MODE FLAG FROM APSTAT2 TO APSTAT4
R10477DK 609 CORRECT CCH RECORD LENGTH FOR 4331/4341 PROCCESORS
R10804DK 611 NEW DISPLACEMENTS FOR MCHAREA
R10241DK 616 REMOVE VCON FROM PAGEABLE MODULE
R12571DK 618 UV03178 REMOVE EXTRANEOUS EXTRNS WHICH ARE NOW IN DMKIOH
R12889DK 619 UV03861 CORRECT LOAD OF R4 IN DMKIOG
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
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.