Common COMPMSV

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compmsv +++|          CTEXT  COMPMSV - MASS STORAGE DEVICE VERIFICATION.
00002  M00S00002.compmsv +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compmsv +++|          QUAL   COMPMSV

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compmsv +++|          SPACE  4
00006  M00S00005.compmsv +++|***       MSV - MASS STORAGE DEVICE WRITE/READ VERIFICATION.
00007  M00S00006.compmsv +++|*
00008  M00S00007.compmsv +++|*         W. E. GOEBEL.      80/02/25.
00009  M00S00008.compmsv +++|          SPACE  4
00010  M00S00009.compmsv +++|***              *MSV* VALIDATES THAT A FIXED DATA PATTERN CAN
00011  M00S00010.compmsv +++|*         BE WRITTEN AND READ SUCCESSFULLY.  THE SECTOR IS WRITTEN
00012  M00S00011.compmsv +++|*         TO SECTOR 54 OF THE CURRENT UNIT OF THE LABEL TRACK.
00013  M00S00012.compmsv +++|*         IF NO SECTOR 54 EXISTS, *MSV* EXITS WITH NO ERROR STATUS.
00014  M00S00013.compmsv +++|*
00015  M00S00014.compmsv +++|*         DATA PATTERN WRITTEN.
00016  M00S00015.compmsv +++|*
00017  M00S00016.compmsv +++|*         3777   BYTE 0
00018  M00S00017.compmsv +++|*         0077   BYTE 1
00019  M00S00018.compmsv +++|*         0000   BYTES 2 - 101
00020  M00S00019.compmsv +++|*         0001   BYTES 102 - 201
00021  M00S00020.compmsv +++|*         0077   BYTES 202 - 301
00022  M00S00021.compmsv +++|*         7777   BYTES 302 - 401
00023  M00S00022.compmsv +++|*         7700   BYTES 402 - 501
00024  M00S00023.compmsv +++|*

Line S00024 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00024.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00027  M00S00025.compmsv +++|*                (T6) = LABEL TRACK.
00028  M00S00026.compmsv +++|*                (T7) = LOGICAL UNIT NUMBER * SINGLE UNIT SECTOR LIMIT.
00029  M00S00027.compmsv +++|*                CHANNEL MAY BE RESERVED.
00030  M00S00028.compmsv +++|*
00031  M00S00029.compmsv +++|*         EXIT   (A) .LT. 0 IF MASS STORAGE ERROR.
00032  M00S00030.compmsv +++|*                (A) = 0 IF VERIFY GOOD.
00033  M00S00031.compmsv +++|*                (A) .GT. 0 IF VERIFY ERROR.
00034  M00S00032.compmsv +++|*
00035  M00S00033.compmsv +++|*         USES   T1 - T7, CM - CM+4.
00036  M00S00034.compmsv +++|*
00037  M00S00035.compmsv +++|*         CALLS  RDS, WDS.
00038  M00S00036.compmsv +++|*
00039  M00S00037.compmsv +++|*         MACROS ENDMS, SETMS.
00040  M00S00038.compmsv +++|
00041  M00S00039.compmsv +++|
00042  M00S00040.compmsv +++|          SPACE  4
00043  M00S00041.compmsv +++| MSV8     LCN    54          RESET SECTOR NUMBER
00044  M00S00042.compmsv +++|          RAD    T7
00045  M00S00043.compmsv +++|          ENDMS              INSURE CHANNEL RETURNED
00046  M00S00044.compmsv +++|          SOD    T3          RETURN STATUS
00047  M00S00045.compmsv +++|
00048  M00S00046.compmsv +++| MSV      SUBR               ENTRY/EXIT
00049  M00S00047.compmsv +++|          LDN    1           PRESET STATUS RETURNED
00050  M00S00048.compmsv +++|          STD    T3

Line S00049 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00049.242l642 ---|          SETMS  WRITE,NR

Line S00001 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`pmsv1`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00001.pmsv1   ---|          SETMS  IO

Line S00001 Modification History
`M01` (Added by)	`pmsv1`

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00001.pmsv1   +++|          SETMS  IO,(AD,DF,NR)
00054  M00S00050.compmsv +++|          LDN    54          SET SECTOR
00055  M00S00051.compmsv +++|          RAD    T7
00056  M00S00052.compmsv +++|          SBM    SLM
00057  M00S00053.compmsv +++|          PJN    MSV8        IF SECTOR NON-EXISTENT
00058  M00S00054.compmsv +++|
00059  M00S00055.compmsv +++|*         PRESET DATA PATTERN.
00060  M00S00056.compmsv +++|
00061  M00S00057.compmsv +++|          LDN    4           LOOP COUNTER
00062  M00S00058.compmsv +++|          STD    T2
00063  M00S00059.compmsv +++|          LDC    BFMS+501    BUFFER INDEX
00064  M00S00060.compmsv +++|          STD    T1
00065  M00S00061.compmsv +++| MSV1     LDD    T1          SET LOOP TERMINATION
00066  M00S00062.compmsv +++|          SBD    HN
00067  M00S00063.compmsv +++|          STD    T0
00068  M00S00064.compmsv +++| MSV2     LDM    TMSV,T2     SET BYTE OF PATTERN
00069  M00S00065.compmsv +++|          STI    T1
00070  M00S00066.compmsv +++|          SOD    T1
00071  M00S00067.compmsv +++|          LMD    T0
00072  M00S00068.compmsv +++|          NJN    MSV2        IF NOT END OF BLOCK
00073  M00S00069.compmsv +++|          SOD    T2
00074  M00S00070.compmsv +++|          PJN    MSV1        IF NOT END OF BLOCKS
00075  M00S00071.compmsv +++|          LDC    3777        SET LINKAGE BYTES
00076  M00S00072.compmsv +++|          STM    BFMS
00077  M00S00073.compmsv +++|          LDN    77
00078  M00S00074.compmsv +++|          STI    T1
00079  M00S00075.compmsv +++|          SOD    T3          PRESET MASS STORAGE ERROR
00080  M00S00076.compmsv +++|
00081  M00S00077.compmsv +++|*         WRITE DATA PATTERN.
00082  M00S00078.compmsv +++|
00083  M00S00079.compmsv +++|          LDC    BFMS+WLSF
00084  M00S00080.compmsv +++|          RJM    WDS
00085  M00S00081.compmsv +++|          MJN    MSV3        IF MASS STORAGE ERROR
00086  M00S00082.compmsv +++|
00087  M00S00083.compmsv +++|*         READ DATA PATTERN.
00088  M00S00084.compmsv +++|

Line S00085 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00085.242l642 ---|          SETMS  READ,NR
00090  M00S00086.compmsv +++|          LDC    BFMS
00091  M00S00087.compmsv +++|          RJM    RDS
00092  M00S00088.compmsv +++| MSV3     MJN    MSV7        IF MASS STORAGE ERROR
00093  M00S00089.compmsv +++|
00094  M00S00090.compmsv +++|*         VERIFY DATA PATTERN.
00095  M00S00091.compmsv +++|
00096  M00S00092.compmsv +++|          LDN    4           PRESET VERIFY LOOP
00097  M00S00093.compmsv +++|          STD    T2
00098  M00S00094.compmsv +++|          AOD    T3
00099  M00S00095.compmsv +++|          LDC    BFMS+501
00100  M00S00096.compmsv +++|          STD    T1
00101  M00S00097.compmsv +++| MSV4     LDD    T1
00102  M00S00098.compmsv +++|          SBD    HN
00103  M00S00099.compmsv +++|          STD    T0
00104  M00S00100.compmsv +++| MSV5     LDM    TMSV,T2     GET DATA PATTERN FROM TABLE
00105  M00S00101.compmsv +++|          LMI    T1
00106  M00S00102.compmsv +++|          NJN    MSV6        IF ERROR
00107  M00S00103.compmsv +++|          SOD    T1
00108  M00S00104.compmsv +++|          LMD    T0
00109  M00S00105.compmsv +++|          NJN    MSV5        IF NOT END OF BLOCK
00110  M00S00106.compmsv +++|          SOD    T2
00111  M00S00107.compmsv +++|          PJN    MSV4        IF NOT END OF BLOCKS
00112  M00S00108.compmsv +++|          LDI    T1          CHECK HEADER BYTES
00113  M00S00109.compmsv +++|          LMN    77
00114  M00S00110.compmsv +++|          NJN    MSV6        IF ERROR
00115  M00S00111.compmsv +++|          LDM    BFMS
00116  M00S00112.compmsv +++|          LMC    3777
00117  M00S00113.compmsv +++|          NJN    MSV6        IF ERROR
00118  M00S00114.compmsv +++|          SOD    T3
00119  M00S00115.compmsv +++| MSV6     AOD    T3
00120  M00S00116.compmsv +++| MSV7     LJM    MSV8        RETURN
00121  M00S00117.compmsv +++|
00122  M00S00118.compmsv +++| TMSV     BSS    0           TABLE OF DATA PATTERNS
00123  M00S00119.compmsv +++|          CON    0000
00124  M00S00120.compmsv +++|          CON    0001
00125  M00S00121.compmsv +++|          CON    0077
00126  M00S00122.compmsv +++|          CON    7777
00127  M00S00123.compmsv +++|          CON    7700
00128  M00S00124.compmsv +++|
00129  M00S00125.compmsv +++| QUAL$    IF     -DEF,QUAL$
00130  M00S00126.compmsv +++|          QUAL   *
00131  M00S00127.compmsv +++| MSV      EQU    /COMPMSV/MSV
00132  M00S00128.compmsv +++| QUAL$    ENDIF
00133  M00S00129.compmsv +++|          ENDX