Table of Contents

DMSPRT History

References

Update History

CMS File Input : DMSPRT ASSEMBLE
Date : 12/12/1978 8:32:00 AM
VM Context : MAINT(393)
File Name : DMSPRT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM

Update Order

  1. R10604DS 610 PRINT (UPCASE DOES NOT TRANSLATE ALL CHARACTERS CORRECTLY
  2. R12416DS 622 UV04650 DMSPRT NO MSDMSPRT069E FOR R(00036);

R10604DS

Date Thursday Mar 13, 1980 03:13:00 AM
Loaded from MAINT(193)
       R10604DS: ./ R 35000 36000 $ 35000 500
       R10604DS: *              UPCASE OR UP - EACH LOWER CASE ALPHABETIC
       R10604DS: *                             CHARACTER IS CHANGED
       R10604DS: *                             TO UPPERCASE.
       R10604DS: ./ R 122000 123000 $ 122000 500
       R10604DS: *              B) UP OR UPCASE - TRANSLATE LOWER CASE ALPHA-
       R10604DS: *                 BETIC CHARACTERS TO UPPER CASE. ALL OTHER
       R10604DS: *                 CHARACTERS REMAIN UNCHANGED. TRANSLATE
       R10604DS: *                 TABLE (UPTRTBL) IS USED.
       R10604DS: ./ I 415100 $ 415200
       R10604DS:          LA    R8,UPTRTBL       GET UPCASE XLATE TABLE ADDR    @VA10604
       R10604DS: ./ R 442000 $ 442000
       R10604DS: UPTRANS  TR    0(0,R3),0(R8)    TRANSLATE TO UPPERCASE         @VA10604
       R10604DS: ./ I 853000 $ 853600
       R10604DS:          LTORG                                                 @VA10604
       R10604DS: ./ R 925000 $ 925000 10
       R10604DS:          EJECT
       R10604DS: *
       R10604DS: UPTRTBL  EQU   *                 UPPERCASE TRANSLATE TABLE     @VA10604
       R10604DS: *
       R10604DS:          DC    X'000102030405060708090A0B0C0D0E0F'             @VA10604
       R10604DS:          DC    X'101112131415161718191A1B1C1D1E1F'             @VA10604
       R10604DS:          DC    X'202122232425262728292A2B2C2D2E2F'             @VA10604
       R10604DS:          DC    X'303132333435363738393A3B3C3D3E3F'             @VA10604
       R10604DS:          DC    X'404142434445464748494A4B4C4D4E4F'             @VA10604
       R10604DS:          DC    X'505152535455565758595A5B5C5D5E5F'             @VA10604
       R10604DS:          DC    X'606162636465666768696A6B6C6D6E6F'             @VA10604
       R10604DS:          DC    X'707172737475767778797A7B7C7D7E7F'             @VA10604
       R10604DS:          DC    X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'             @VA10604
       R10604DS:          DC    X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'             @VA10604
       R10604DS:          DC    X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'             @VA10604
       R10604DS:          DC    X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'             @VA10604
       R10604DS:          DC    X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'             @VA10604
       R10604DS:          DC    X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'             @VA10604
       R10604DS:          DC    X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'             @VA10604
       R10604DS:          DC    X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'             @VA10604
       R10604DS: *
       R10604DS: ./ R 959000 961000 $ 959000 1000
       R10604DS:          CCW   X'63',DYFCBUFF,X'40',66                         @VA10604
       R10604DS:          CCW   X'08',DYTICTO,X'60',1                           @VA10604
       R10604DS: FCBUFF   DC    X'01020304050607080A0B'                         @VA10604
       R10604DS: ./ R 965000 $ 965000
       R10604DS: ENDFCB   EQU   *                                               @VA10604
       R10604DS: ./ R 972000 $ 972000
       R10604DS: BUFDATA  EQU   *               USE FROM HERE TO 'LIMIT'        @VA10604
       R10604DS: DYFCBUFF EQU   BUFDATA+(FCBUFF-CCWLFCB)                        @VA10604
       R10604DS: DYTICTO  EQU   BUFDATA+(ENDFCB-CCWLFCB)                        @VA10604
 BEGIN APPLY >>> ./ R 35000 36000 $ 35000 500
   END APPLY >>> ./ R 35000 36000 $ 35000 500
 BEGIN APPLY >>> ./ R 122000 123000 $ 122000 500
   END APPLY >>> ./ R 122000 123000 $ 122000 500
 BEGIN APPLY >>> ./ I 415100 $ 415200
   END APPLY >>> ./ I 415100 $ 415200
 BEGIN APPLY >>> ./ R 442000 $ 442000
   END APPLY >>> ./ R 442000 $ 442000
 BEGIN APPLY >>> ./ I 853000 $ 853600
   END APPLY >>> ./ I 853000 $ 853600
 BEGIN APPLY >>> ./ R 925000 $ 925000 10
   END APPLY >>> ./ R 925000 $ 925000 10
 BEGIN APPLY >>> ./ R 959000 961000 $ 959000 1000
   END APPLY >>> ./ R 959000 961000 $ 959000 1000
 BEGIN APPLY >>> ./ R 965000 $ 965000
   END APPLY >>> ./ R 965000 $ 965000
 BEGIN APPLY >>> ./ R 972000 $ 972000
   END APPLY >>> ./ R 972000 $ 972000
Update Succeeded
Update Execution Time 23 milliseconds.

R12416DS

Date Tuesday Jun 30, 1981 06:18:00 AM
Loaded from MAINT(193)
       R12416DS: ./ I 53000 $ 53500 100
       R12416DS: *          36    TARGET DISK NOT ACCESSED                      @VA12416
       R12416DS: ./ I 675000 $ 675150 150
       R12416DS: ERRMSG36 EQU   *                                               @VA12416
       R12416DS:          LA    R0,FILEMODE         POINT TO MODE LETTER        @VA12416
       R12416DS:          DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69,                X
       R12416DS:                LET=E,SUB=(CHARA,((R0),1)),TYPCALL=SVC          @VA12416
       R12416DS:          LA    R15,36              GIVE RETCODE                @VA12416
       R12416DS:          B     ERRET               AND GO RETURN TO CALLER     @VA12416
       R12416DS: ./ R 682000 $ 682000 250
       R12416DS: STATERR  EQU   *                                               @VA12416
       R12416DS:          C     R15,=F'36'      WAS DISK NOT ACCESSED?          @VA12416
       R12416DS:          BE    ERRMSG36        GIVE MSG                        @VA12416
       R12416DS:          C     R15,=F'28'      FILE NOT FOUND FROM STATE?      @VA12416
 BEGIN APPLY >>> ./ I 53000 $ 53500 100
   END APPLY >>> ./ I 53000 $ 53500 100
 BEGIN APPLY >>> ./ I 675000 $ 675150 150
   END APPLY >>> ./ I 675000 $ 675150 150
 BEGIN APPLY >>> ./ R 682000 $ 682000 250
   END APPLY >>> ./ R 682000 $ 682000 250
Update Succeeded
Update Execution Time 16 milliseconds.