ibm:vm370-lib:cp:dmksav.assemble_hst
Table of Contents
DMKSAV History
References
- Fixes Applied : 10
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKSAV ASSEMBLE
Date : 12/7/1978 5:14:00 PM
VM Context : MAINT(394)
File Name : DMKSAV.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R08870DK 601 WAIT011 LOADING FROM WRONG DEVICE AFTER VMSAVE ON RESTART
- R10206DK 607 DEVICE ADDRESS WRONG WITH MSDMKSAV350W
- R09882DK 608 SENSE IS MISSING IN ROUTINE FOR WRITING IPL RECORD
- R11387DK 613 UV01113 ERRONEOUS CHARACTERS IN MSDMKSAV350W.
- R11884DK 618 UV03378 ADD STARTING AND ENDING CYL INFO TO MESSAGE
- R11715DK 618 UV03496 ENABLE CHANNELS 6-F FOR DMKSAV IN BC MODE.
- HRC027DK V01 CHANGE CYLINDER FROM HEX TO DECIMAL.
- HRC102DK V02 ADD UPPER BOUNDARY FOR NUCLEUS WRITE/READ
- HRC202DK V03 GENERAL MESSAGE CLEANUP
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R08870DK
Date Wednesday Jan 24, 1979 12:13:00 PM
Loaded from MAINT(294)
R08870DK: ./ D 207000 $ 00001000 BEGIN APPLY >>> ./ D 207000 $ 00001000 END APPLY >>> ./ D 207000 $ 00001000 Update Succeeded Update Execution Time 16 milliseconds.
R10206DK
Date Friday Dec 07, 1979 08:07:00 AM
Loaded from MAINT(294)
R10206DK: ./ R 656000 $ 656010 10 00001000
R10206DK: SCPBADLB L R1,DISK GET SYSRES ADDRESS @VA10206 00002000
R10206DK: CALL DMKCVTBH CONVERT ADDRESS TO EBCDIC @VA10206 00003000
R10206DK: STCM R1,B'0111',NRADDR PUT ADDRESS INTO MSG @VA10206 00004000
R10206DK: ./ D 660000 $ 00005000
BEGIN APPLY >>> ./ R 656000 $ 656010 10 00001000
END APPLY >>> ./ R 656000 $ 656010 10 00001000
BEGIN APPLY >>> ./ D 660000 $ 00005000
END APPLY >>> ./ D 660000 $ 00005000
Update Succeeded
Update Execution Time 8 milliseconds.
R09882DK
Date Friday Jan 11, 1980 05:23:00 AM
Loaded from MAINT(294)
R09882DK: ./ I 613000 $ 613100 100 00001000
R09882DK: SNSRTSIO SIO 0(R10) START SENSE @VA09882 00002000
R09882DK: BNZ SNSRTSIO LOOP UNTIL FINISHED @VA09882 00003000
R09882DK: SNSRTTIO TIO 0(R10) TIO TO CLEAR STATUS @VA09882 00004000
R09882DK: BNZ SNSRTTIO @VA09882 00005000
BEGIN APPLY >>> ./ I 613000 $ 613100 100 00001000
END APPLY >>> ./ I 613000 $ 613100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11387DK
Date Thursday Jun 05, 1980 05:12:00 AM
Loaded from MAINT(294)
R11387DK: ./ R 668000 $ 668100 100 00001000
R11387DK: VOLMSG1 DC CL6' ' @VA11387 00002000
BEGIN APPLY >>> ./ R 668000 $ 668100 100 00001000
END APPLY >>> ./ R 668000 $ 668100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R11884DK
Date Tuesday Jan 13, 1981 01:13:00 AM
Loaded from MAINT(294)
R11884DK: ./ I 321000 $ 321100 100 00001000
R11884DK: DC C' --- ' @VA11884 00002000
R11884DK: DC C'STARTING CYL=' @VA11884 00003000
R11884DK: NUCSTRT DC CL3' ' @VA11884 00004000
R11884DK: DC C',' @VA11884 00005000
R11884DK: DC C' LAST CYL USED=' @VA11884 00006000
R11884DK: NUCSTOP DC CL3' ' @VA11884 00007000
R11884DK: ./ I 586000 $ 586100 100 00008000
R11884DK: LH R1,START GET NUC START @VA11884 00009000
R11884DK: CALL DMKCVTBH CONVERT TO EBCDIC @VA11884 00010000
R11884DK: STCM R1,B'0111',NUCSTRT SAVE RESULT @VA11884 00011000
R11884DK: LH R1,CYL GET NUC END @VA11884 00012000
R11884DK: CALL DMKCVTBH CONVERT TO EBCDIC @VA11884 00013000
R11884DK: STCM R1,B'0111',NUCSTOP SAVE THE RESULT @VA11884 00014000
BEGIN APPLY >>> ./ I 321000 $ 321100 100 00001000
END APPLY >>> ./ I 321000 $ 321100 100 00001000
BEGIN APPLY >>> ./ I 586000 $ 586100 100 00008000
END APPLY >>> ./ I 586000 $ 586100 100 00008000
Update Succeeded
Update Execution Time 8 milliseconds.
R11715DK
Date Tuesday Jan 13, 1981 01:06:00 AM
Loaded from MAINT(294)
R11715DK: ./ I 418000 $ 418050 50 00001000
R11715DK: ST R8,SAVE @VA11715 00002000
R11715DK: SRL R10,8 @VA11715 00003000
R11715DK: LA R8,1 @VA11715 00004000
R11715DK: SR R9,R9 @VA11715 00005000
R11715DK: AR R10,R8 @VA11715 00006000
R11715DK: LUPE SRDL R8,1 @VA11715 00007000
R11715DK: BCT R10,LUPE @VA11715 00008000
R11715DK: ST R9,CREG2 @VA11715 00009000
R11715DK: N R9,MASK @VA11715 00010000
R11715DK: LTR R9,R9 @VA11715 00011000
R11715DK: BZ NEXT @VA11715 00012000
R11715DK: LCTL C2,C2,CREG2 @VA11715 00013000
R11715DK: NEXT L R8,SAVE @VA11715 00014000
R11715DK: ./ I 627000 $ 627100 100 00015000
R11715DK: SAVE DS F'0' @VA11715 00016000
R11715DK: MASK DC XL4'03FF0000' @VA11715 00017000
R11715DK: CREG2 DS F'0' @VA11715 00018000
BEGIN APPLY >>> ./ I 418000 $ 418050 50 00001000
END APPLY >>> ./ I 418000 $ 418050 50 00001000
BEGIN APPLY >>> ./ I 627000 $ 627100 100 00015000
END APPLY >>> ./ I 627000 $ 627100 100 00015000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC027DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC027DK: ./ R 00138000 $ 138040 40 02/12/06 11:46:04
HRC027DK: EXTRN DMKCVTBH,DMKCVTBD HRC027DK 00138040
HRC027DK: ./ R 00321300 $ 321340 40 02/12/06 11:46:04
HRC027DK: NUCSTRT DC CL4' ' HRC027DK 00321340
HRC027DK: ./ R 00321600 $ 321790 190 02/12/06 11:46:04
HRC027DK: NUCSTOP DC CL4' ' HRC027DK 00321790
HRC027DK: ./ R 00586200 00586300 $ 586250 50 02/12/06 11:46:04
HRC027DK: CALL DMKCVTBD CONVERT TO EBCDIC HRC027DK 00586250
HRC027DK: STCM R1,B'1111',NUCSTRT SAVE RESULT HRC027DK 00586300
HRC027DK: ./ R 00586500 00586600 $ 586590 90 02/12/06 11:46:04
HRC027DK: CALL DMKCVTBD CONVERT TO EBCDIC HRC027DK 00586590
HRC027DK: STCM R1,B'1111',NUCSTOP SAVE THE RESULT HRC027DK 00586680
BEGIN APPLY >>> ./ R 00138000 $ 138040 40 02/12/06 11:46:04
END APPLY >>> ./ R 00138000 $ 138040 40 02/12/06 11:46:04
BEGIN APPLY >>> ./ R 00321300 $ 321340 40 02/12/06 11:46:04
END APPLY >>> ./ R 00321300 $ 321340 40 02/12/06 11:46:04
BEGIN APPLY >>> ./ R 00321600 $ 321790 190 02/12/06 11:46:04
END APPLY >>> ./ R 00321600 $ 321790 190 02/12/06 11:46:04
BEGIN APPLY >>> ./ R 00586200 00586300 $ 586250 50 02/12/06 11:46:04
END APPLY >>> ./ R 00586200 00586300 $ 586250 50 02/12/06 11:46:04
BEGIN APPLY >>> ./ R 00586500 00586600 $ 586590 90 02/12/06 11:46:04
END APPLY >>> ./ R 00586500 00586600 $ 586590 90 02/12/06 11:46:04
Update Succeeded
Update Execution Time 23 milliseconds.
HRC102DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC102DK: ./ R 00047000 $ 47290 290 03/15/06 10:23:46
HRC102DK: * DMKSYSNU - NUCLEUS STARTING AND ENDING CYLINDER NUMBERHRC102DK 00047000
HRC102DK: * ON SYSTEM RESIDENCE VOLUME HRC102DK
HRC102DK: ./ D 00170000 03/15/06 10:23:46
HRC102DK: ./ I 00172000 $ 172300 300 03/15/06 10:23:46
HRC102DK: SPACE , HRC102DK
HRC102DK: WRITERR DS 0H HRC102DK
HRC102DK: ./ I 00173000 $ 173500 500 03/15/06 10:23:46
HRC102DK: OI SAVEFLAG,MSG352 SET SWITCH TO LOAD REGS HRC102DK 00170000
HRC102DK: ./ R 00175000 $ 175090 90 03/15/06 10:23:46
HRC102DK: B CNIO NOW ISSUE ERROR MESSAGE HRC102DK 00175000
HRC102DK: SPACE , HRC102DK
HRC102DK: BNDRYERR DS 0H HRC102DK
HRC102DK: LA R1,ERR354 ERROR MSG DMKSAV354E HRC102DK 00171000
HRC102DK: LA R0,ERR354L LENGTH OF MESSAGE HRC102DK 00172000
HRC102DK: B WRITERR HRC102DK
HRC102DK: SPACE , HRC102DK
HRC102DK: ./ I 00182000 $ 182300 300 03/15/06 10:23:46
HRC102DK: CH R2,ENDCYL GREATER THAN MAX CYL HRC102DK
HRC102DK: BH BNDRYERR TOO LARGE OF NUCLEUS HRC102DK
HRC102DK: ./ I 00304000 $ 304500 500 03/15/06 10:23:46
HRC102DK: ENDCYL DC H'0' ENDING CYLINDER HRC102DK 00306000
HRC102DK: ./ R 00420000 00422000 $ 420590 590 03/15/06 10:23:46
HRC102DK: L R9,0(,R9) CYLS START,END TWO HALF WORDS HRC102DK 00420000
HRC102DK: STCM R9,B'1100',CYL SAVE STARTING CYLINDER ADDRESS HRC102DK 00421000
HRC102DK: STCM R9,B'1100',START FOR RESTORE HRC102DK 00421000
HRC102DK: STCM R9,B'0011',ENDCYL UPPER BOUNDARY HRC102DK
HRC102DK: ./ I 00679000 $ 679020 20 03/15/06 10:23:46
HRC102DK: ERR354 DC C'DMKSAV354E NUCLEUS CYLINDERS EXCEEDED MAXIMUM' *00676000
HRC102DK: HRC102DK
HRC102DK: ERR354L EQU *-ERR354 HRC102DK 00677000
BEGIN APPLY >>> ./ R 00047000 $ 47290 290 03/15/06 10:23:46
END APPLY >>> ./ R 00047000 $ 47290 290 03/15/06 10:23:46
BEGIN APPLY >>> ./ D 00170000 03/15/06 10:23:46
END APPLY >>> ./ D 00170000 03/15/06 10:23:46
BEGIN APPLY >>> ./ I 00172000 $ 172300 300 03/15/06 10:23:46
END APPLY >>> ./ I 00172000 $ 172300 300 03/15/06 10:23:46
BEGIN APPLY >>> ./ I 00173000 $ 173500 500 03/15/06 10:23:46
END APPLY >>> ./ I 00173000 $ 173500 500 03/15/06 10:23:46
BEGIN APPLY >>> ./ R 00175000 $ 175090 90 03/15/06 10:23:46
END APPLY >>> ./ R 00175000 $ 175090 90 03/15/06 10:23:46
BEGIN APPLY >>> ./ I 00182000 $ 182300 300 03/15/06 10:23:46
END APPLY >>> ./ I 00182000 $ 182300 300 03/15/06 10:23:46
BEGIN APPLY >>> ./ I 00304000 $ 304500 500 03/15/06 10:23:46
END APPLY >>> ./ I 00304000 $ 304500 500 03/15/06 10:23:46
BEGIN APPLY >>> ./ R 00420000 00422000 $ 420590 590 03/15/06 10:23:46
END APPLY >>> ./ R 00420000 00422000 $ 420590 590 03/15/06 10:23:46
BEGIN APPLY >>> ./ I 00679000 $ 679020 20 03/15/06 10:23:46
END APPLY >>> ./ I 00679000 $ 679020 20 03/15/06 10:23:46
Update Succeeded
Update Execution Time 23 milliseconds.
HRC202DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC202DK: ./ R 00320000 $ 320490 490 03/30/06 21:47:10
HRC202DK: LDMSG DC C'Nucleus loaded on ' HRC202DK 00320000
HRC202DK: ./ R 00321200 $ 321260 60 03/30/06 21:47:10
HRC202DK: DC C'Starting CYL=' HRC202DK 00321200
HRC202DK: ./ R 00321500 $ 321590 90 03/30/06 21:47:10
HRC202DK: DC C' last CYL used=' HRC202DK 00321500
HRC202DK: ./ R 00667000 $ 667490 490 03/30/06 21:47:10
HRC202DK: DC C'Volid not ' HRC202DK 00667000
HRC202DK: ./ R 00673000 $ 673490 490 03/30/06 21:47:10
HRC202DK: DC C' not Ready' HRC202DK 00673000
HRC202DK: ./ R 00676000 $ 676490 490 03/30/06 21:47:10
HRC202DK: ERR352 DC C'DMKSAV352W Fatal DASD I/O error' HRC202DK 00676000
HRC202DK: ./ R 00678000 $ 678490 490 03/30/06 21:47:10
HRC202DK: ERR353 DC C'DMKSAV353W SYSRES device type invalid' HRC202DK 00678000
HRC202DK: ./ R 00679020 679040 $ 679020 20 03/30/06 21:47:10
HRC202DK: ERR354 DC C'DMKSAV354E Nucleus cylinders exceed allocation; Reload*00679020
HRC202DK: Nucleus from BACKUP.'
BEGIN APPLY >>> ./ R 00320000 $ 320490 490 03/30/06 21:47:10
END APPLY >>> ./ R 00320000 $ 320490 490 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00321200 $ 321260 60 03/30/06 21:47:10
END APPLY >>> ./ R 00321200 $ 321260 60 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00321500 $ 321590 90 03/30/06 21:47:10
END APPLY >>> ./ R 00321500 $ 321590 90 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00667000 $ 667490 490 03/30/06 21:47:10
END APPLY >>> ./ R 00667000 $ 667490 490 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00673000 $ 673490 490 03/30/06 21:47:10
END APPLY >>> ./ R 00673000 $ 673490 490 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00676000 $ 676490 490 03/30/06 21:47:10
END APPLY >>> ./ R 00676000 $ 676490 490 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00678000 $ 678490 490 03/30/06 21:47:10
END APPLY >>> ./ R 00678000 $ 678490 490 03/30/06 21:47:10
BEGIN APPLY >>> ./ R 00679020 679040 $ 679020 20 03/30/06 21:47:10
END APPLY >>> ./ R 00679020 679040 $ 679020 20 03/30/06 21:47:10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:17:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00301000 $ 00301100 10
HRC106DK: SPACE 1 HRC106DK
HRC106DK: TBL3375 EQU * Head-> record table for 3375 HRC106DK
HRC106DK: DC AL1(00,01,00,02,00,03,00,04) HRC106DK
HRC106DK: DC AL1(00,05,00,06,00,07,00,08) HRC106DK
HRC106DK: DC AL1(01,09,01,10,01,11,01,12) HRC106DK
HRC106DK: DC AL1(01,13,01,14,01,15,01,16) HRC106DK
HRC106DK: DC AL1(02,17,02,18,02,19,02,20) HRC106DK
HRC106DK: DC AL1(02,21,02,22,02,23,02,24) HRC106DK
HRC106DK: DC AL1(03,25,03,26,03,27,03,28) HRC106DK
HRC106DK: DC AL1(03,29,03,30,03,31,03,32) HRC106DK
HRC106DK: DC AL1(04,33,04,34,04,35,04,36) HRC106DK
HRC106DK: DC AL1(04,37,03,38,03,39,03,40) HRC106DK
HRC106DK: DC AL1(05,41,05,42,05,43,05,44) HRC106DK
HRC106DK: DC AL1(05,45,05,46,05,47,05,48) HRC106DK
HRC106DK: DC AL1(06,49,06,50,06,51,06,52) HRC106DK
HRC106DK: DC AL1(06,53,06,54,06,55,06,56) HRC106DK
HRC106DK: DC AL1(07,57,07,58,07,59,07,60) HRC106DK
HRC106DK: DC AL1(07,61,07,62,07,63,07,64) HRC106DK
HRC106DK: DC AL1(08,65,08,66,08,67,08,68) HRC106DK
HRC106DK: DC AL1(08,69,08,70,08,71,08,72) HRC106DK
HRC106DK: DC AL1(09,73,09,74,09,75,09,76) HRC106DK
HRC106DK: DC AL1(09,77,09,78,09,79,09,80) HRC106DK
HRC106DK: DC AL1(10,81,10,82,10,83,10,84) HRC106DK
HRC106DK: DC AL1(10,85,10,86,10,87,10,88) HRC106DK
HRC106DK: DC AL1(11,89,11,90,11,91,11,92) HRC106DK
HRC106DK: DC AL1(11,93,11,94,11,95,11,96) HRC106DK
HRC106DK: TBL3375E EQU TBL3375+95*2 Address of last table entry HRC106DK
HRC106DK: SPACE 1 HRC106DK
HRC106DK: TBL3380 EQU * Head-> record table for 3380 HRC106DK
HRC106DK: DC AL1(00,001,00,002,00,003,00,004,00,005) HRC106DK
HRC106DK: DC AL1(00,006,00,007,00,008,00,009,00,010) HRC106DK
HRC106DK: DC AL1(01,011,01,012,01,013,01,014,01,015) HRC106DK
HRC106DK: DC AL1(01,016,01,017,01,018,01,019,01,020) HRC106DK
HRC106DK: DC AL1(02,021,02,022,02,023,02,024,02,025) HRC106DK
HRC106DK: DC AL1(02,026,02,027,02,028,02,029,02,030) HRC106DK
HRC106DK: DC AL1(03,031,03,032,03,033,03,034,03,035) HRC106DK
HRC106DK: DC AL1(03,036,03,037,03,038,03,039,03,040) HRC106DK
HRC106DK: DC AL1(04,041,04,042,04,043,04,044,04,045) HRC106DK
HRC106DK: DC AL1(04,046,04,047,04,048,04,049,04,050) HRC106DK
HRC106DK: DC AL1(05,051,05,052,05,053,05,054,05,055) HRC106DK
HRC106DK: DC AL1(05,056,05,057,05,058,05,059,05,060) HRC106DK
HRC106DK: DC AL1(06,061,06,062,06,063,06,064,06,065) HRC106DK
HRC106DK: DC AL1(06,066,06,067,06,068,06,069,06,070) HRC106DK
HRC106DK: DC AL1(07,071,07,072,07,073,07,074,07,075) HRC106DK
HRC106DK: DC AL1(07,076,07,077,07,078,07,079,07,080) HRC106DK
HRC106DK: DC AL1(08,081,08,082,08,083,08,084,08,085) HRC106DK
HRC106DK: DC AL1(08,086,08,087,08,088,08,089,08,090) HRC106DK
HRC106DK: DC AL1(09,091,09,092,09,093,09,094,09,095) HRC106DK
HRC106DK: DC AL1(09,096,09,097,09,098,09,099,09,100) HRC106DK
HRC106DK: DC AL1(10,101,10,102,10,103,10,104,10,105) HRC106DK
HRC106DK: DC AL1(10,106,10,107,10,108,10,109,10,110) HRC106DK
HRC106DK: DC AL1(11,111,11,112,11,113,11,114,11,115) HRC106DK
HRC106DK: DC AL1(11,116,11,117,11,118,11,119,11,120) HRC106DK
HRC106DK: DC AL1(12,121,12,122,12,123,12,124,12,125) HRC106DK
HRC106DK: DC AL1(12,126,12,127,12,128,12,129,12,130) HRC106DK
HRC106DK: DC AL1(13,131,13,132,13,133,13,134,13,135) HRC106DK
HRC106DK: DC AL1(13,136,13,137,13,138,13,139,13,140) HRC106DK
HRC106DK: DC AL1(14,141,14,142,14,143,14,144,14,145) HRC106DK
HRC106DK: DC AL1(14,146,14,147,14,148,14,149,14,150) HRC106DK
HRC106DK: TBL3380E EQU TBL3380+149*2 Address of last table entry HRC106DK
HRC106DK: ./ I 00399000 $ 00399100 100
HRC106DK: LA R4,TBL3375 Set up for 3375 HRC106DK
HRC106DK: LA R5,TBL3375E .. HRC106DK
HRC106DK: CLI 1(R9),TYP3375 Is it 3375 ? HRC106DK
HRC106DK: BE SETGPRS Yes -- process HRC106DK
HRC106DK: LA R4,TBL3380 Set up for 3380 HRC106DK
HRC106DK: LA R5,TBL3380E .. HRC106DK
HRC106DK: CLI 1(R9),TYP3380 Is it 3380 ? HRC106DK
HRC106DK: BE SETGPRS Yes -- process HRC106DK
BEGIN APPLY >>> ./ I 00301000 $ 00301100 10
END APPLY >>> ./ I 00301000 $ 00301100 10
BEGIN APPLY >>> ./ I 00399000 $ 00399100 100
END APPLY >>> ./ I 00399000 $ 00399100 100
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmksav.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator