ibm:vm370-lib:cms:dmsdio.assemble_hst
Table of Contents
DMSDIO History
References
- Fixes Applied : 2
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC004DS]
Update History
CMS File Input : DMSDIO ASSEMBLE
Date : 12/12/1978 8:23:00 AM
VM Context : MAINT(393)
File Name : DMSDIO.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- R15103DS 629 UV06137 DMSDIO ERROR RETURN NOT SPECIFIED ON DMSFREE MACRO
- HRC004DS V01 ADD SUPPORT FOR D/T3380
R15103DS
Date Monday Mar 15, 1982 08:44:00 AM
Loaded from MAINT(193)
R15103DS: ./ R 00565000 $ 565000 100 02/16/82 09:44:24
R15103DS: DMSFREE DWORDS=100,TYPE=NUCLEUS,TYPCALL=BALR,ERR=*,MSG=NO 00565000
R15103DS: * @VA15103
BEGIN APPLY >>> ./ R 00565000 $ 565000 100 02/16/82 09:44:24
END APPLY >>> ./ R 00565000 $ 565000 100 02/16/82 09:44:24
Update Succeeded
Update Execution Time 16 milliseconds.
HRC004DS
Date Thursday Feb 09, 2006 09:25:00 PM
Loaded from MAINT(093)
HRC004DS: ./ R 00283000 $ 283490 490 01/28/06 13:37:03
HRC004DS: * FOR 3330, 3340, 3350 OR 3380 HRC004DS 00283490
HRC004DS: ./ R 00468100 $ 468110 10 01/28/06 13:37:03
HRC004DS: JAS3 EQU * HRC004DS 00468110
HRC004DS: SR R13,R13 CLEAR A WORK REGISTER HRC004DS 00468120
HRC004DS: IC R13,6(,R10) ...AND GET THE DISPLACEMENT. HRC004DS 00468130
HRC004DS: TM DEVTYP,TYP3380 RPS TYPE DEVICE ? HRC004DS 00468140
HRC004DS: BO JAS3B HRC004DS 00468150
HRC004DS: TM DEVTYP,RPSTYP RPS TYPE DEVICE ? HRC004DS 00468160
HRC004DS: ./ R 00470000 00472000 $ 470990 990 01/28/06 13:37:03
HRC004DS: JAS3B MVC 4(4,R9),CCWX+4 MOVE IN THE SET SECTOR CCW. HRC004DS 00470990
HRC004DS: ./ I 00473760 $ 473770 10 01/28/06 13:37:03
HRC004DS: IC R15,SECT3380(R13) NO..USE 3380 SECTORS HRC004DS 00473770
HRC004DS: CLI DEVTYP,TYP3380 3380? HRC004DS 00473780
HRC004DS: BE SECTSET YES..USE 3380 SECTORS HRC004DS 00473790
HRC004DS: ./ D 00478500 01/28/06 13:37:03
HRC004DS: ./ R 00480000 $ 480190 190 01/28/06 13:37:03
HRC004DS: JAS3M EQU * HRC004DS 00480190
HRC004DS: STC R13,LASTREC SAVE "THIS ONE" (C.C. INTACT) HRC004DS 00480380
HRC004DS: LA R15,2(,R10) STORE SEEKAD+2 HRC004DS 00480570
HRC004DS: ./ I 00603200 $ 603220 20 01/28/06 13:37:03
HRC004DS: LA R1,L'SENSB DETERMINE # SENSE BYTES PRESENT HRC004DS 00603220
HRC004DS: SH R1,CSW+6 HRC004DS 00603240
HRC004DS: STH R1,DIOSNSCT HRC004DS 00603260
HRC004DS: ./ I 00663300 $ 663400 100 01/28/06 13:37:03
HRC004DS: LA R13,TBL3380 SET TENTATIVELY FOR 3380 HRC004DS 00663400
HRC004DS: CLI DEVTYP,TYP3380 IS THIS A 3380 ? HRC004DS 00663500
HRC004DS: BE R13OK YES, OBTAIN DISK ADDRESS HRC004DS 00663600
HRC004DS: ./ I 00694000 $ 694300 300 01/28/06 13:37:03
HRC004DS: TM DEVTYP,TYP3380 IS THIS A 3380? HRC004DS 00694300
HRC004DS: BE JFILL3B HRC004DS 00694600
HRC004DS: ./ I 00695200 $ 696100 900 01/28/06 13:37:03
HRC004DS: JFILL3B EQU * NOW CONTINUE (OR CAN ENTER HERE).HRC004DS 00696100
HRC004DS: ./ I 00702360 $ 702370 10 01/28/06 13:37:03
HRC004DS: IC R15,SECT3380(R14) NO..USE 3380 SECTORS HRC004DS 00702370
HRC004DS: CLI DEVTYP,TYP3380 3380 ? HRC004DS 00702380
HRC004DS: BE STRSECT YES..BR HRC004DS 00702390
HRC004DS: ./ I 00739000 $ 739090 90 01/28/06 13:37:03
HRC004DS: * HRC004DS 00739090
HRC004DS: TBL3380 DS 0F 3380 TABLE (FOR 800 BYTE BLKS) @V6AE8C1X00739180
HRC004DS: (INDICATED BY 'UNIT TYPE' OF X'0EHRC004DS 00739270
HRC004DS: DC F'540' NUMBER OF RECORDS PER CYLINDER HRC004DS 00739360
HRC004DS: DC F'36' NUMBER OF RECORDS PER TRACK HRC004DS 00739450
HRC004DS: DC H'1' PER ONE HEAD HRC004DS 00739540
HRC004DS: DC H'37' OVERFLOW RECORD NUMBER (N/A) HRC004DS 00739630
HRC004DS: DC H'15' NUMBER OF TRACKS PER CYLINDER HRC004DS 00739720
HRC004DS: DC H'121' MAXIMUM NUMBER OF CYLINDERS HRC004DS 00739810
HRC004DS: * HRC004DS 00739900
HRC004DS: ./ I 00753620 $ 753621 1 01/28/06 13:37:03
HRC004DS: SECT3380 DC XL1'00' HRC004DS 00753621
HRC004DS: DC AL1(5,11,17,23,29,34,40,46,52,58,64,70) HRC004DS 00753622
HRC004DS: DC AL1(75,81,87,93,99,105,111,116,122,128,134,140) HRC004DS 00753623
HRC004DS: DC AL1(146,152,157,163,169,175,181,187,193,198) HRC004DS 00753624
HRC004DS: DC AL1(204,210) HRC004DS 00753625
HRC004DS: ./ I 00767150 $ 767170 20 01/28/06 13:37:03
HRC004DS: TYP3380 EQU X'0E' DEVICE TYPE 3380 HRC004DS 00767170
BEGIN APPLY >>> ./ R 00283000 $ 283490 490 01/28/06 13:37:03
END APPLY >>> ./ R 00283000 $ 283490 490 01/28/06 13:37:03
BEGIN APPLY >>> ./ R 00468100 $ 468110 10 01/28/06 13:37:03
END APPLY >>> ./ R 00468100 $ 468110 10 01/28/06 13:37:03
BEGIN APPLY >>> ./ R 00470000 00472000 $ 470990 990 01/28/06 13:37:03
END APPLY >>> ./ R 00470000 00472000 $ 470990 990 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00473760 $ 473770 10 01/28/06 13:37:03
END APPLY >>> ./ I 00473760 $ 473770 10 01/28/06 13:37:03
BEGIN APPLY >>> ./ D 00478500 01/28/06 13:37:03
END APPLY >>> ./ D 00478500 01/28/06 13:37:03
BEGIN APPLY >>> ./ R 00480000 $ 480190 190 01/28/06 13:37:03
END APPLY >>> ./ R 00480000 $ 480190 190 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00603200 $ 603220 20 01/28/06 13:37:03
END APPLY >>> ./ I 00603200 $ 603220 20 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00663300 $ 663400 100 01/28/06 13:37:03
END APPLY >>> ./ I 00663300 $ 663400 100 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00694000 $ 694300 300 01/28/06 13:37:03
END APPLY >>> ./ I 00694000 $ 694300 300 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00695200 $ 696100 900 01/28/06 13:37:03
END APPLY >>> ./ I 00695200 $ 696100 900 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00702360 $ 702370 10 01/28/06 13:37:03
END APPLY >>> ./ I 00702360 $ 702370 10 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00739000 $ 739090 90 01/28/06 13:37:03
END APPLY >>> ./ I 00739000 $ 739090 90 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00753620 $ 753621 1 01/28/06 13:37:03
END APPLY >>> ./ I 00753620 $ 753621 1 01/28/06 13:37:03
BEGIN APPLY >>> ./ I 00767150 $ 767170 20 01/28/06 13:37:03
END APPLY >>> ./ I 00767150 $ 767170 20 01/28/06 13:37:03
Update Succeeded
Update Execution Time 39 milliseconds.
ibm/vm370-lib/cms/dmsdio.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator