ibm:vm370-lib:cms:dmsacm.assemble_hst
Table of Contents
DMSACM History
References
- Fixes Applied : 1
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC004DS]
Update History
CMS File Input : DMSACM ASSEMBLE
Date : 12/12/1978 8:20:00 AM
VM Context : MAINT(393)
File Name : DMSACM.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM
Update Order
- HRC004DS V01 ADD SUPPORT FOR D/T3380
HRC004DS
Date Sunday Feb 12, 2006 09:23:00 PM
Loaded from MAINT(093)
HRC004DS: ./ R 00041000 $ 41490 490 02/12/06 21:23:07
HRC004DS: * 3330, 3340, 3350 OR 3380) HRC004DS 00041490
HRC004DS: ./ R 00089000 00090000 $ 89390 390 02/12/06 21:23:07
HRC004DS: * DEVICE IS A HRC004DS 00089390
HRC004DS: * A 3330(X'10'), 2314(X'40'), 3340(X'01'), HRC004DS 00089780
HRC004DS: * 3350(X'08') OR 3380(X'20'), HRC004DS 00090170
HRC004DS: * A X'09', X'08', X'07', X'0B', OR X'0E' HRC004DS 00090560
HRC004DS: ./ I 00227000 $ 227300 300 02/12/06 21:23:07
HRC004DS: LA R2,266 GET NUMBER OF REC'S PER CYLINDER.HRC004DS 00227300
HRC004DS: MVI DTADT(R7),T3330 FLAG THE DEVICE TYPE HRC004DS 00227600
HRC004DS: ./ R 00229000 $ 229190 190 02/12/06 21:23:07
HRC004DS: BE GETMFD B IF YES HRC004DS 00229190
HRC004DS: LA R2,96 GET NO. OF RECS PER CYL HRC004DS 00229380
HRC004DS: MVI DTADT(R7),T3340 FLAG THE DEVICE TYPE HRC004DS 00229570
HRC004DS: ./ R 00231000 $ 231190 190 02/12/06 21:23:07
HRC004DS: BE GETMFD YES..BR HRC004DS 00231190
HRC004DS: LA R2,570 GET NO. OF RECS PER CYL HRC004DS 00231380
HRC004DS: MVI DTADT(R7),T3350 FLAG THE DEVICE TYPE HRC004DS 00231570
HRC004DS: ./ R 00233000 $ 233090 90 02/12/06 21:23:07
HRC004DS: BE GETMFD YES..BR HRC004DS 00233090
HRC004DS: LA R2,540 GET NO. OF RECS PER CYL HRC004DS 00233180
HRC004DS: MVI DTADT(R7),T3380 FLAG THE DEVICE TYPE HRC004DS 00233270
HRC004DS: CLM R15,B'0100',M3380 IS IT A 3380 ? HRC004DS 00233360
HRC004DS: BE GETMFD YES..BR HRC004DS 00233450
HRC004DS: ./ D 00238000 00246000 02/12/06 21:23:07
HRC004DS: ./ I 00545000 $ 545500 500 02/12/06 21:23:07
HRC004DS: ERROR2B EQU * HRC004DS
HRC004DS: ./ R 00575000 00576000 $ 575190 190 02/12/06 21:23:07
HRC004DS: MVI ERRCOD0,28 SAVE ERROR CODE HRC004DS 00578000
HRC004DS: ERROR3 EQU * HRC004DS
HRC004DS: DMSERR TEXT='ERROR LOADING ''DMSROS TEXT''', *00584000
HRC004DS: NUM=240,LET=E,CSECT=ACC HRC004DS 00585000
HRC004DS: CLI ERRCOD0,28 HRC004DS
HRC004DS: BNE NOROS HRC004DS
HRC004DS: ./ D 00578000 02/12/06 21:23:07
HRC004DS: ./ R 00581000 00586000 $ 583990 2990 02/12/06 21:23:07
HRC004DS: B ERROR2B RETURN TO ACC HRC004DS 00582000
HRC004DS: ./ I 00592000 $ 592500 500 02/12/06 21:23:07
HRC004DS: T3380 EQU X'0E' CMS' 3380 DEVICE TYPE HRC004DS 00592500
HRC004DS: ./ I 00598000 $ 598500 500 02/12/06 21:23:07
HRC004DS: M3380 DC X'20' CP'S 3380 DEVICE TYPE HRC004DS 00598500
BEGIN APPLY >>> ./ R 00041000 $ 41490 490 02/12/06 21:23:07
END APPLY >>> ./ R 00041000 $ 41490 490 02/12/06 21:23:07
BEGIN APPLY >>> ./ R 00089000 00090000 $ 89390 390 02/12/06 21:23:07
END APPLY >>> ./ R 00089000 00090000 $ 89390 390 02/12/06 21:23:07
BEGIN APPLY >>> ./ I 00227000 $ 227300 300 02/12/06 21:23:07
END APPLY >>> ./ I 00227000 $ 227300 300 02/12/06 21:23:07
BEGIN APPLY >>> ./ R 00229000 $ 229190 190 02/12/06 21:23:07
END APPLY >>> ./ R 00229000 $ 229190 190 02/12/06 21:23:07
BEGIN APPLY >>> ./ R 00231000 $ 231190 190 02/12/06 21:23:07
END APPLY >>> ./ R 00231000 $ 231190 190 02/12/06 21:23:07
BEGIN APPLY >>> ./ R 00233000 $ 233090 90 02/12/06 21:23:07
END APPLY >>> ./ R 00233000 $ 233090 90 02/12/06 21:23:07
BEGIN APPLY >>> ./ D 00238000 00246000 02/12/06 21:23:07
END APPLY >>> ./ D 00238000 00246000 02/12/06 21:23:07
BEGIN APPLY >>> ./ I 00545000 $ 545500 500 02/12/06 21:23:07
END APPLY >>> ./ I 00545000 $ 545500 500 02/12/06 21:23:07
BEGIN APPLY >>> ./ R 00575000 00576000 $ 575190 190 02/12/06 21:23:07
END APPLY >>> ./ R 00575000 00576000 $ 575190 190 02/12/06 21:23:07
BEGIN APPLY >>> ./ D 00578000 02/12/06 21:23:07
END APPLY >>> ./ D 00578000 02/12/06 21:23:07
BEGIN APPLY >>> ./ R 00581000 00586000 $ 583990 2990 02/12/06 21:23:07
END APPLY >>> ./ R 00581000 00586000 $ 583990 2990 02/12/06 21:23:07
BEGIN APPLY >>> ./ I 00592000 $ 592500 500 02/12/06 21:23:07
END APPLY >>> ./ I 00592000 $ 592500 500 02/12/06 21:23:07
BEGIN APPLY >>> ./ I 00598000 $ 598500 500 02/12/06 21:23:07
END APPLY >>> ./ I 00598000 $ 598500 500 02/12/06 21:23:07
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cms/dmsacm.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator