DMSACC History

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

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

1. R11334DS 613 UV01184 DMSACC 'ACCESS XXX B/A(ERASE' DOES NOT WORK PROPERLY
2. R12352DS 618 UV03370 LEAVES DEV 000 ACCESSED AFTER ACCESS WITH INVALID OPTION.
3. R13896DS 624 UV05227 DMSACC CUU IS 000 AFTER MSDMSACC003E.
4. HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
5. HRC004DS V01 ADD SUPPORT FOR D/T3380
6. HRC010DS V01 ACCESS EMPTY R/O DISK & R/O MODE 0

Date Wednesday Jun 04, 1980 05:17:00 AM
Loaded from MAINT(193)

       R11334DS: ./ I 00580000          $ 580300 300
       R11334DS:          SR    R5,R5          NEEDED FOR RESET IN DEVTAB       @VA11334
       R11334DS:          STH   R5,DTAD(,R9)   RESTORE SINCE ACCESS WON'T OCCUR @VA11334
 BEGIN APPLY >>> ./ I 00580000          $ 580300 300
   END APPLY >>> ./ I 00580000          $ 580300 300
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Jan 15, 1981 01:14:00 AM
Loaded from MAINT(193)

       R12352DS: ./ D 00546200 00546300
       R12352DS: ./ D 00580300 00580600
 BEGIN APPLY >>> ./ D 00546200 00546300
   END APPLY >>> ./ D 00546200 00546300
 BEGIN APPLY >>> ./ D 00580300 00580600
   END APPLY >>> ./ D 00580300 00580600
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Aug 27, 1981 03:17:00 PM
Loaded from MAINT(193)

       R13896DS: ./ I 00347100          $ 00347500 100
       R13896DS:          LH    R5,DTAD(,R9)   SAVE OLD DEVICE IN CASE OF ERROR @VA13896
 BEGIN APPLY >>> ./ I 00347100          $ 00347500 100
   END APPLY >>> ./ I 00347100          $ 00347500 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Feb 10, 2006 01:06:00 PM
Loaded from MAINT(093)

       HRC002DS: ./ R 00528000 00531000 $ 528490 490                   02/10/06 13:06:35
       HRC002DS:          CLI   8(R4),C'S'     CHECK LETTER 'S'                 HRC002DS 00528990
       HRC002DS:          BE    SETLAST        IF NOT, IT'S NO GOOD('S' IN N.G.)HRC002DS 00529980
       HRC002DS:          CLI   8(R4),C'A'     IS THIS AN 'A'                   HRC002DS
       HRC002DS:          BL    SETLAST        LESS THAN AN 'A'                 HRC002DS
       HRC002DS:          CLI   8(R4),C'Z'     IS THIS AN 'Z'                   HRC002DS
       HRC002DS:          BH    SETLAST        GREATER THAN A 'Z'               HRC002DS
 BEGIN APPLY >>> ./ R 00528000 00531000 $ 528490 490                   02/10/06 13:06:35
   END APPLY >>> ./ R 00528000 00531000 $ 528490 490                   02/10/06 13:06:35
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Feb 10, 2006 11:57:00 AM
Loaded from MAINT(093)

       HRC004DS: ./ * ADD SUPPORT FOR D/T3380
 BEGIN APPLY >>> ./ * ADD SUPPORT FOR D/T3380
     Comment >>> ./ * ADD SUPPORT FOR D/T3380
   END APPLY >>> ./ * ADD SUPPORT FOR D/T3380
Update Succeeded
Update Execution Time 16 milliseconds.

Date Sunday Feb 12, 2006 09:29:00 PM
Loaded from MAINT(093)

       HRC010DS: ./ R 00034000          $ 34490 490                    02/12/06 21:29:30
       HRC010DS: *               DC    CL8'NOPROFILE'|'ERASE'|'MODE0'>          HRC010DS 00034490
       HRC010DS: ./ R 00340000          $ 340490 490                   02/12/06 21:29:30
       HRC010DS:          OI    OPTBYTE,OPTNORMR                                HRC010DS 00340490
       HRC010DS: ./ R 00344000          $ 344490 490                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTNORMR                                HRC010DS 00344490
       HRC010DS: ./ R 00347000          $ 347040 40                    02/12/06 21:29:30
       HRC010DS:          NI    OPTBYTE,X'FF'-OPTNORMR OFF OPT FOR RET TO R11OK HRC010DS 00347040
       HRC010DS: ./ R 00501000          $ 501490 490                   02/12/06 21:29:30
       HRC010DS:          OI    OPTBYTE,OPTNORMR   OPTION BYTE FOR NORMAL RETURNHRC010DS 00501490
       HRC010DS: ./ R 00508000          $ 508490 490                   02/12/06 21:29:30
       HRC010DS:          OI    OPTBYTE,OPTNAMEF    TURN NAME FLAG ON           HRC010DS 00508490
       HRC010DS: ./ I 00532000          $ 532100 100                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTMODE0                                HRC010DS 00532100
       HRC010DS:          BNO   CHKMODE1                                        HRC010DS 00532200
       HRC010DS:          CLI   9(R4),C'0'     CHECK LOW END ACCEPTABLE MODE NO.HRC010DS 00532300
       HRC010DS:          BE    MODEOK         RANGE IS '0' THRU '5'            HRC010DS 00532400
       HRC010DS: CHKMODE1 EQU   *                                               HRC010DS 00532500
       HRC010DS: ./ R 00555000          $ 555490 490                   02/12/06 21:29:30
       HRC010DS: OPTEND   TM    OPTBYTE,OPTNORMR                                HRC010DS 00555490
       HRC010DS: ./ R 00560000          $ 560490 490                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTERASE CHK IF ERASE OPTION WITH NO DEVHRC010DS 00560490
       HRC010DS: ./ I 00565000          $ 565100 100                   02/12/06 21:29:30
       HRC010DS:          CLC   0(8,R15),MODE0  IS MODE0 R/O REQUESTED ?        HRC010DS 00565100
       HRC010DS:          BNE   OPT20                                           HRC010DS 00565200
       HRC010DS:          OI    OPTBYTE,OPTMODE0                                HRC010DS 00565300
       HRC010DS:          B     CKOPTION       AND CHECK FOR ADDITIONAL OPTIONS HRC010DS 00565400
       HRC010DS: OPT20    EQU   *                                               HRC010DS 00565500
       HRC010DS: ./ R 00568000          $ 568490 490                   02/12/06 21:29:30
       HRC010DS:          OI    OPTBYTE,OPTNOPRO  IF SO, SET ON FLAG            HRC010DS 00568490
       HRC010DS: ./ R 00578000          $ 578490 490                   02/12/06 21:29:30
       HRC010DS:          OI    OPTBYTE,OPTERASE   SIGNAL:  NO-UFD WANTED       HRC010DS 00578490
       HRC010DS: ./ R 00588000          $ 588490 490                   02/12/06 21:29:30
       HRC010DS: CONT1    TM    OPTBYTE,OPTERASE IS NOUFD BIT ON?               HRC010DS 00588490
       HRC010DS: ./ R 00590000          $ 590490 490                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTNAMEF   WANT ONLY SPECIFIED FILES?   HRC010DS 00590490
       HRC010DS: ./ I 00606000          $ 606200 200                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTMODE0 IS THIS FOR MODE ZERO R/O ?    HRC010DS 00606200
       HRC010DS:          BNO   UFD011         NO, CONTINUE                     HRC010DS 00606400
       HRC010DS:          OI    ADTFLG3,ADTFZERO TELL READFST ABOUT IT          HRC010DS 00606600
       HRC010DS: UFD011   EQU   *                                               HRC010DS 00606800
       HRC010DS: ./ D 00620000 00622000                                02/12/06 21:29:30
       HRC010DS: ./ R 00675000          $ 675490 490                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTNOPRO   NOPROF FLAG ON?              HRC010DS 00675490
       HRC010DS: ./ R 00725000          $ 725490 490                   02/12/06 21:29:30
       HRC010DS:          TM    OPTBYTE,OPTNAMEF   CHECK IF FILES SPECIFIED     HRC010DS 00725490
       HRC010DS: ./ R 00858200          $ 858240 40                    02/12/06 21:29:30
       HRC010DS: OSDSK    TM    OPTBYTE,OPTNAMEF+OPTMODE0+OPTERASE+OPTNOPRO ?   HRC010DS 00858240
       HRC010DS: ./ R 00858400 00858500 $ 858450 50                    02/12/06 21:29:30
       HRC010DS:          DMSERR TEXT='O/S DISK - FILEID/OPTIONS ARE IGNORED',          *00858400
       HRC010DS:                LET=W,NUM=230                                   HRC010DS 00858500
       HRC010DS: ./ I 00939000          $ 939500 500                   02/12/06 21:29:30
       HRC010DS: MODE0    DC    CL8'MODE0'     MODE0 OPTION OF THE COMMAND LINE HRC010DS 00939500
       HRC010DS: ./ R 01072000          $ 1072490 490                  02/12/06 21:29:30
       HRC010DS:          SPACE ,                                               HRC010DS 01072490
       HRC010DS: ./ I 01073000          $ 1073100 100                  02/12/06 21:29:30
       HRC010DS: OPTNORMR EQU   X'80'             NORMAL RETURN                 HRC010DS 01073100
       HRC010DS: OPTMODE0 EQU   X'08'             MODE0 FILES ON R/O            HRC010DS 01073200
       HRC010DS: OPTNAMEF EQU   X'04'             FILES SPECIFIED               HRC010DS 01073300
       HRC010DS: OPTERASE EQU   X'02'             ERASE REQUESTED               HRC010DS 01073400
       HRC010DS: OPTNOPRO EQU   X'01'             NOPROFILE REQUESTED           HRC010DS 01073500
       HRC010DS:          SPACE ,                                               HRC010DS 01073600
 BEGIN APPLY >>> ./ R 00034000          $ 34490 490                    02/12/06 21:29:30
   END APPLY >>> ./ R 00034000          $ 34490 490                    02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00340000          $ 340490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00340000          $ 340490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00344000          $ 344490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00344000          $ 344490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00347000          $ 347040 40                    02/12/06 21:29:30
   END APPLY >>> ./ R 00347000          $ 347040 40                    02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00501000          $ 501490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00501000          $ 501490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00508000          $ 508490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00508000          $ 508490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ I 00532000          $ 532100 100                   02/12/06 21:29:30
   END APPLY >>> ./ I 00532000          $ 532100 100                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00555000          $ 555490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00555000          $ 555490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00560000          $ 560490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00560000          $ 560490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ I 00565000          $ 565100 100                   02/12/06 21:29:30
   END APPLY >>> ./ I 00565000          $ 565100 100                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00568000          $ 568490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00568000          $ 568490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00578000          $ 578490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00578000          $ 578490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00588000          $ 588490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00588000          $ 588490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00590000          $ 590490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00590000          $ 590490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ I 00606000          $ 606200 200                   02/12/06 21:29:30
   END APPLY >>> ./ I 00606000          $ 606200 200                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ D 00620000 00622000                                02/12/06 21:29:30
   END APPLY >>> ./ D 00620000 00622000                                02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00675000          $ 675490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00675000          $ 675490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00725000          $ 725490 490                   02/12/06 21:29:30
   END APPLY >>> ./ R 00725000          $ 725490 490                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00858200          $ 858240 40                    02/12/06 21:29:30
   END APPLY >>> ./ R 00858200          $ 858240 40                    02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 00858400 00858500 $ 858450 50                    02/12/06 21:29:30
   END APPLY >>> ./ R 00858400 00858500 $ 858450 50                    02/12/06 21:29:30
 BEGIN APPLY >>> ./ I 00939000          $ 939500 500                   02/12/06 21:29:30
   END APPLY >>> ./ I 00939000          $ 939500 500                   02/12/06 21:29:30
 BEGIN APPLY >>> ./ R 01072000          $ 1072490 490                  02/12/06 21:29:30
   END APPLY >>> ./ R 01072000          $ 1072490 490                  02/12/06 21:29:30
 BEGIN APPLY >>> ./ I 01073000          $ 1073100 100                  02/12/06 21:29:30
   END APPLY >>> ./ I 01073000          $ 1073100 100                  02/12/06 21:29:30
Update Succeeded
Update Execution Time 70 milliseconds.