Retro1.org codex

User Tools

Site Tools

Trace: • DMSTIO History
ibm:vm370-lib:cms:dmstio.assemble_hst

Table of Contents

DMSTIO History

References

Update History

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

Update Order

  1. R09217DS 601 DMSTIO CERTAIN SEQUENCE NUMBERS WERE MISSING
  2. R11365DS 614 UV01564 DMSTIO SHOULD CHECK FOR 3420-8 NO DUAL DENSITY FEATURE
  3. R13323DS 623 UV04866 TAPE MODESET DENSITY IGNORED BY TAPEIO
  4. HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP

R09217DS

Date Friday Jan 26, 1979 01:24:00 AM
Loaded from MAINT(193)
       R09217DS: ./ R 96000 97000 $ 96000 650
       R09217DS: *             R15 = 6   TAPE IS FILE PROTECTED
       R09217DS: *             R15 = 8   INCORRECT LENGTH
       R09217DS: *
 BEGIN APPLY >>> ./ R 96000 97000 $ 96000 650
   END APPLY >>> ./ R 96000 97000 $ 96000 650
Update Succeeded
Update Execution Time 16 milliseconds.

R11365DS

Date Friday Jun 27, 1980 06:27:00 AM
Loaded from MAINT(193)
       R11365DS: ./ D 00190000
       R11365DS: ./ I 00191000          $ 191010 10
       R11365DS:          LR    R0,R5          SAVE XR1                         @VA11365 00191010
       R11365DS:          LH    R5,DEVADDR     GET THE DEVICE CUU               @VA11365 00191020
       R11365DS:          DROP  XR1                                             @VA11365 00191030
       R11365DS:          DIAG  R5,R6,X'24'    DIAGNOSE FOR DEVICE INFO         @VA11365 00191040
       R11365DS:          BNE   ERR05          DEVICE NOT ATTACHED              @VA11365 00191050
       R11365DS: ./ I 00191100          $ 191120 20
       R11365DS:          ICM   R15,B'1000',PBUFF  PLIST MODESET                @VA11365 00191120
       R11365DS:          BZ    PMODEOK        OK IF NONE                       @VA11365 00191140
       R11365DS:          CLM   R7,B'0100',TYP3420 IS IT 3420 MODEL .?          @VA11365 00191160
       R11365DS:          BNE   PMODEOK        IF NOT, NO CHECK DONE..ELSE IS IT@VA11365 00191180
       R11365DS:          CLM   R7,B'0010',MODEL3 MODEL 3 OR LESS?              @VA11365 00191200
       R11365DS:          BNH   TST34208       GO CHECK 800 BPI                 @VA11365 00191220
       R11365DS:          CLM   R7,B'0010',MODEL5 MODEL 5?                      @VA11365 00191240
       R11365DS:          BE    TST34208       GO CHECK 800 BPI                 @VA11365 00191260
       R11365DS:          CLM   R7,B'0010',MODEL7 MODEL 7?                      @VA11365 00191280
       R11365DS:          BE    TST34208       GO CHECK 800 BPI                 @VA11365 00191300
       R11365DS:          TM    PBUFF,D8009TRK 800 BPI?                         @VA11365 00191320
       R11365DS:          BO    ERR01          YES, ERROR 800 BPI NOT SUPPORTED @VA11365 00191340
       R11365DS:          SLDL  R6,25          NOW.. THIS IS SOME STRANGE WAY   @VA11365 00191360
       R11365DS: *                         TO STRIP OFF  THE DUAL DENSITY
       R11365DS: *                         FEATURE FROM R7, BUT THAT'S LIFE..!!
       R11365DS:          LTR   R7,R7          IS THE X'40' BIT ON.?            @VA11365 00191420
       R11365DS:          SRDL  R6,25          MAKE R7 PRESENTABLE AGAIN        @VA11365 00191440
       R11365DS:          BM    PMODEOK        YES,  1600   SUPPORTED FOR 4,6,8 @VA11365 00191460
       R11365DS:          TM    PBUFF,TRK96250 DID HE ASK FOR 6250.?            @VA11365 00191480
       R11365DS:          BO    PMODEOK        LOOKS GOOD. 6250 IS THE DEFAULT  @VA11365 00191500
       R11365DS:          B     ERR01          ELSE HE (SHE) IS WET..!!         @VA11365 00191520
       R11365DS: TST34208 DS    0H                                              @VA11365 00191540
       R11365DS:          TM    PBUFF,D8009TRK IS THIS 800 BPI ?                @VA11365 00191560
       R11365DS:          BNO   TEST6250       BRANCH IF NOT TO CHECK 6250BPI   @VA11365 00191580
       R11365DS: *                         HERE WE GO AGAIN TESTING FOR DUAL FTR
       R11365DS:          SLDL  R6,25          NOW.. THIS IS SOME STRANGE WAY   @VA11365 00191620
       R11365DS: *                         TO STRIP OFF  THE DUAL DENSITY
       R11365DS: *                         FEATURE FROM R7, BUT THAT'S LIFE..
       R11365DS:          LTR   R7,R7          IS THE X'40' BIT ON.?            @VA11365 00191680
       R11365DS:          SRDL  R6,25          MAKE R7 PRESENTABLE AGAIN        @VA11365 00191700
       R11365DS:          BNM   ERR01          800 BPI NOT SUPPORTED            @VA11365 00191720
       R11365DS:          B     PMODEOK        ELSE ALL SET.                    @VA11365 00191740
       R11365DS: TEST6250 DS    0H                                              @VA11365 00191760
       R11365DS:          TM    PBUFF,TRK96250 IS IT 6250.?                     @VA11365 00191780
       R11365DS:          BO    ERR01          YES, CAN'T HAVE IT.!             @VA11365 00191800
       R11365DS: PMODEOK  EQU   *                                               @VA11365 00191820
       R11365DS:          LR    R5,R0          RESTORE XR1                      @VA11365 00191840
       R11365DS: ./ I 00376100          $ 376200 100
       R11365DS: *
       R11365DS: MODEL3   DC    X'03'      3420 MODEL 3                         @VA11365 00376280
       R11365DS: MODEL5   DC    X'05'      3420 MODEL 5                         @VA11365 00376370
       R11365DS: MODEL7   DC    X'07'      3420 MODEL 7                         @VA11365 00376460
       R11365DS: TYP3420  DC    X'10'      3420 TAPE DRIVE..!!                  @VA11365 00376550
       R11365DS: D8009TRK EQU   X'CB'      MODESET - 9 TRACK, 800  BPI          @VA11365 00376640
       R11365DS: TRK96250 EQU   X'D3'      MODESET - 9 TRACK, 6250 BPI          @VA11365 00376820
 BEGIN APPLY >>> ./ D 00190000
   END APPLY >>> ./ D 00190000
 BEGIN APPLY >>> ./ I 00191000          $ 191010 10
   END APPLY >>> ./ I 00191000          $ 191010 10
 BEGIN APPLY >>> ./ I 00191100          $ 191120 20
   END APPLY >>> ./ I 00191100          $ 191120 20
 BEGIN APPLY >>> ./ I 00376100          $ 376200 100
   END APPLY >>> ./ I 00376100          $ 376200 100
Update Succeeded
Update Execution Time 8 milliseconds.

R13323DS

Date Wednesday Aug 05, 1981 07:08:00 AM
Loaded from MAINT(193)
       R13323DS: ./ R 125000  127000    $ 124500 500                   05/12/81 13:38:54
       R13323DS: *        OMITTED FROM THE PARAMETER LIST, THE MODE IS TAKEN    @VA13323
       R13323DS: *        FROM THE FIRST BYTE OF THE DEVMISC FIELD OF THE DEVTAB@VA13323
       R13323DS: *        IN THE NUCLEUS. IF THERE IS NO MODE STORED IN THE     @VA13323
       R13323DS: *        DEVICE TABLE, THE DEFAULT MODE IS 1600 BPI FOR DUAL   @VA13323
       R13323DS: *        DENSITY TAPES, ODD PARITY CONVERTER OFF AND           @VA13323
       R13323DS: *        TRANSLATOR OFF FOR 7-TRACK TAPES.                     @VA13323
       R13323DS: ./ I 191100            $ 191102 2                     05/12/81 13:38:54
       R13323DS:          LR    R5,R0           RESTORE XR1                     @VA13323
       R13323DS:          USING DEVSECT,R5      EST. ADDRESSABILITY TO DEVTAB   @VA13323
       R13323DS:          CLI   DEVMISC,ZEROMODE    IS THERE NO MODE IN DEVTAB  @VA13323
       R13323DS:          BE    SKIPMODE            NO MODE, USE DEFAULT        @VA13323
       R13323DS:          MVC   MODECCW(1),DEVMISC GET THE MODE FROM THE DEVTAB @VA13323
       R13323DS: SKIPMODE EQU   *                                               @VA13323
       R13323DS:          DROP  R5              RELEASE REGISTER                @VA13323
       R13323DS: ./ R 270100            $ 269400 400                   05/12/81 13:38:54
       R13323DS: *                             NOTE: DEFAULT MODE ALREADY SET   @VA13323
       R13323DS: *                                   TO THE MODE IN THE DEVTAB  @VA13323
       R13323DS: *                                   OR X'B3' IF THERE WAS NO   @VA13323
       R13323DS: *                                   MODE IN THE DEVTAB         @VA13323
       R13323DS: ./ I 377000            $ 377500 500                   05/12/81 13:38:54
       R13323DS: ZEROMODE EQU   X'00'      INDICATES DEVTAB HAS NO MODE         @VA13323
 BEGIN APPLY >>> ./ R 125000  127000    $ 124500 500                   05/12/81 13:38:54
   END APPLY >>> ./ R 125000  127000    $ 124500 500                   05/12/81 13:38:54
 BEGIN APPLY >>> ./ I 191100            $ 191102 2                     05/12/81 13:38:54
   END APPLY >>> ./ I 191100            $ 191102 2                     05/12/81 13:38:54
 BEGIN APPLY >>> ./ R 270100            $ 269400 400                   05/12/81 13:38:54
   END APPLY >>> ./ R 270100            $ 269400 400                   05/12/81 13:38:54
 BEGIN APPLY >>> ./ I 377000            $ 377500 500                   05/12/81 13:38:54
   END APPLY >>> ./ I 377000            $ 377500 500                   05/12/81 13:38:54
Update Succeeded
Update Execution Time 23 milliseconds.

HRC002DS

Date Thursday Feb 09, 2006 09:23:00 PM
Loaded from MAINT(093)
       HRC002DS: ./ R 00052000 00053000 $ 52590 590                    01/01/06 12:32:39
       HRC002DS: *        (TAP1 - TAP7, TAP8 - TAPF) OR THE CORRESPONDING  UNIT HRC002DS 00052590
       HRC002DS: *        ADDRESS (0181 - 0187, 0288 - 028F).                   HRC002DS 00053180
 BEGIN APPLY >>> ./ R 00052000 00053000 $ 52590 590                    01/01/06 12:32:39
   END APPLY >>> ./ R 00052000 00053000 $ 52590 590                    01/01/06 12:32:39
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cms/dmstio.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator