ibm:vm370-lib:cp:dmkiog.assemble_hst
Table of Contents
DMKIOG History
References
- Fixes Applied : 10
- Latest Source Date : Monday, January 22, 1979
- 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.
ibm/vm370-lib/cp/dmkiog.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator