• Abstract / Synopsis of DMSSVT
• Latest Source of DMSSVT
• Fixes Applied : 6
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC380DS]

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

1. R09243DS 602 DMSSVT MSDMSFNS908T OR LOOP IF WRITE TO KEYED R/O DISK
2. R10101DS 605 SIMULATION OF OS BLDL CAUSES OVERLAY IN USER AREA
3. R09674DS 606 DMSSVT SNAP DUMP TITLE HAS HEX ZEROS
4. R12189DS 618 UV02910 ELIMINATE NEGATIVE RETURN CODE ON BLDL
5. R15155DS 629 UV06189 DMSSVT INCORRECT TIMER VALUE IN STIMER MACRO
6. HRC380DS v03 minimal SVC120 support

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.

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.

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.

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.

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.

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.