DMSSVT History
References
-
-
Fixes Applied : 6
-
Last Fix ID : [HRC380DS]
Update History
CMS File Input : DMSSVT ASSEMBLE
Date : 12/12/1978 8:35:00 AM
VM Context : MAINT(393)
File Name : DMSSVT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
R09243DS 602 DMSSVT MSDMSFNS908T OR LOOP IF WRITE TO KEYED R/O DISK
R10101DS 605 SIMULATION OF
OS BLDL CAUSES OVERLAY IN USER AREA
R09674DS 606 DMSSVT SNAP DUMP TITLE HAS HEX ZEROS
R12189DS 618 UV02910 ELIMINATE NEGATIVE RETURN CODE ON BLDL
R15155DS 629 UV06189 DMSSVT INCORRECT TIMER VALUE IN STIMER MACRO
HRC380DS v03 minimal SVC120 support
R09243DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09243DS: ./ R 1544000 $ 1544000
R09243DS: LTR R15,R15 TEST REG 15 @VA09243
R09243DS: ./ I 1545000 $ 1545100 100
R09243DS: TM ADTFLG1-ADTSECT(R1),ADTFRW R/W DISK @VA09243
R09243DS: BO UPDISK YES , UPDATE THE DISK @VA09243
R09243DS: LA R15,ERR36 ERROR FOR WRITE ON R/O DISK @VA09243
R09243DS: BR R4 RETURN @VA09243
R09243DS: UPDISK DS 0H @VA09243
R09243DS: SR R1,R1 ZERO REG 1 @VA09243
R09243DS: ./ I 1729000 $ 1729300 300
R09243DS: CLC KEYTABLE(4),EOF EOF ALREADY @VA09243
R09243DS: BE CMSRET YES, GIVE UP @VA09243
R09243DS: ./ I 1971000 $ 1971500 500
R09243DS: ERR36 EQU 36 WRITE TO R/O DISK ERROR @VA09243
R09243DS: ./ I 2759000 $ 2759500 500
R09243DS: ADT
BEGIN APPLY >>> ./ R 1544000 $ 1544000
END APPLY >>> ./ R 1544000 $ 1544000
BEGIN APPLY >>> ./ I 1545000 $ 1545100 100
END APPLY >>> ./ I 1545000 $ 1545100 100
BEGIN APPLY >>> ./ I 1729000 $ 1729300 300
END APPLY >>> ./ I 1729000 $ 1729300 300
BEGIN APPLY >>> ./ I 1971000 $ 1971500 500
END APPLY >>> ./ I 1971000 $ 1971500 500
BEGIN APPLY >>> ./ I 2759000 $ 2759500 500
END APPLY >>> ./ I 2759000 $ 2759500 500
Update Succeeded
Update Execution Time 31 milliseconds.
R10101DS
Date Thursday Oct 11, 1979 09:19:00 AM
Loaded from MAINT(193)
R10101DS: ./ I 1345000 $ 1345500
R10101DS: BM CKFOREND MINIMUM LENGTH REQUESTED @VA10101
BEGIN APPLY >>> ./ I 1345000 $ 1345500
END APPLY >>> ./ I 1345000 $ 1345500
Update Succeeded
Update Execution Time 23 milliseconds.
R09674DS
Date Tuesday Nov 06, 1979 10:24:00 AM
Loaded from MAINT(193)
R09674DS: ./ R 2041000 $ 2040600 600
R09674DS: MVI 0(R7),X'40' SET BLANK TO CLEAR TITLE @VA09674
R09674DS: MVC 1(131,R7),0(R7) CLEAR TITLE AREA @VA09674
BEGIN APPLY >>> ./ R 2041000 $ 2040600 600
END APPLY >>> ./ R 2041000 $ 2040600 600
Update Succeeded
Update Execution Time 23 milliseconds.
R12189DS
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12189DS: ./ I 01355000 $ 1355500 500 10/16/80 14:19:54
R12189DS: SR R15,R15 CLEAR RETURN CODE REG @VA12189
BEGIN APPLY >>> ./ I 01355000 $ 1355500 500 10/16/80 14:19:54
END APPLY >>> ./ I 01355000 $ 1355500 500 10/16/80 14:19:54
Update Succeeded
Update Execution Time 16 milliseconds.
R15155DS
Date Monday Mar 15, 1982 08:45:00 AM
Loaded from MAINT(193)
R15155DS: ./ R 00145000 $ 00145000 200 @VA15155
R15155DS: * USER. THE MAXIMUM TIME INTERVAL ALLOWED IS RESTRICTED TO @VA15155
R15155DS: * X'7FFFFF00' TIMER UNITS (X'00555554' IN BINARY, OR @VA15155
R15155DS: * 15 HOURS, 32 MINUTES, AND 4 SECONDS IF IN DECIMAL). IF @VA15155
R15155DS: * THE TIME INTERVAL IS GREATER THAN THE MAXIMUM, IT WILL BE @VA15155
R15155DS: * SET TO THE MAXIMUM. @VA15155
R15155DS: ./ R 02322000 02324000 $ 02322000 1000
R15155DS: BZ TINT YES, BRANCH @VA15155
R15155DS: ./ I 02351000 $ 02351100 100
R15155DS: TINT EQU * @VA15155
R15155DS: CL R1,MAXTIME IS TIME <= MAX VALUE @VA15155
R15155DS: BNH TIMEOK YES, TIME OK @VA15155
R15155DS: L R1,MAXTIME NO, SET TO MAX VALUE @VA15155
R15155DS: TIMEOK EQU * @VA15155
R15155DS: ./ I 02358000 $ 02358500
R15155DS: MAXTIME DC X'7FFFFF00' MAX VALUE IN TIMER UNITS @VA15155
BEGIN APPLY >>> ./ R 00145000 $ 00145000 200 @VA15155
END APPLY >>> ./ R 00145000 $ 00145000 200 @VA15155
BEGIN APPLY >>> ./ R 02322000 02324000 $ 02322000 1000
END APPLY >>> ./ R 02322000 02324000 $ 02322000 1000
BEGIN APPLY >>> ./ I 02351000 $ 02351100 100
END APPLY >>> ./ I 02351000 $ 02351100 100
BEGIN APPLY >>> ./ I 02358000 $ 02358500
END APPLY >>> ./ I 02358000 $ 02358500
Update Succeeded
Update Execution Time 31 milliseconds.
HRC380DS
Date Thursday May 07, 2009 10:38:00 AM
Loaded from MAINT(093)
HRC380DS: ./ I 02667000 $ 2667025 25 10/10/08 14:16:57
HRC380DS: ************************************************************** HRC380DS 02667025
HRC380DS: SVC120 EQU * 120-GETMAIN for memory above HRC380DS 02667050
HRC380DS: * the 16 megabyte line. HRC380DS 02667075
HRC380DS: * HRC380DS 02667100
HRC380DS: * This is (hopefully) temporary code. As neither CMS HRC380DS 02667025
HRC380DS: * nor CP is ready for 31-bit addressing, this entry HRC380DS 02667050
HRC380DS: * point merely allows programs such as GCC to run as HRC380DS 02667075
HRC380DS: * they do on MVS/XA or z/VM. No memory management is HRC380DS 02667000
HRC380DS: * done here. We simply return a fixed address which HRC380DS 02667025
HRC380DS: * represents where the memory has been "allocated". HRC380DS 02667050
HRC380DS: * On entry, R0 has the requested amount. We leave R0 HRC380DS 02667075
HRC380DS: * alone, as that is where the amount allocated is HRC380DS 02667000
HRC380DS: * returned. We return the address of the allocated HRC380DS 02667025
HRC380DS: * memory in R1. HRC380DS 02667050
HRC380DS: L R1,=XL4'04100000' this is where Paul wants it HRC380DS 02667075
HRC380DS: ST R1,EGPR1 save it for our caller HRC380DS 02667000
HRC380DS: SR R15,R15 works every time HRC380DS 02667025
HRC380DS: B CMSRET HRC380DS 02667050
HRC380DS: EJECT 1 HRC380DS 02667075
HRC380DS: ./ I 02696000 $ 2696100 100 10/10/08 14:16:57
HRC380DS: JTBL 120,SVC120 HRC380DS 02696100
BEGIN APPLY >>> ./ I 02667000 $ 2667025 25 10/10/08 14:16:57
END APPLY >>> ./ I 02667000 $ 2667025 25 10/10/08 14:16:57
BEGIN APPLY >>> ./ I 02696000 $ 2696100 100 10/10/08 14:16:57
END APPLY >>> ./ I 02696000 $ 2696100 100 10/10/08 14:16:57
Update Succeeded
Update Execution Time 31 milliseconds.