User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:compmsv

Common COMPMSV

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compmsv +++|          CTEXT  COMPMSV - MASS STORAGE DEVICE VERIFICATION.
00002  M01S00002.compmsv +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compmsv +++|          QUAL   COMPMSV
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compmsv +++|          SPACE  4
00006  M01S00005.compmsv +++|***       MSV - MASS STORAGE DEVICE WRITE/READ VERIFICATION.
00007  M01S00006.compmsv +++|*
00008  M01S00007.compmsv +++|*         W. E. GOEBEL.      80/02/25.
00009  M01S00008.compmsv +++|          SPACE  4
00010  M01S00009.compmsv +++|***              *MSV* VALIDATES THAT A FIXED DATA PATTERN CAN
00011  M01S00010.compmsv +++|*         BE WRITTEN AND READ SUCCESSFULLY.  THE SECTOR IS WRITTEN
00012  M01S00011.compmsv +++|*         TO SECTOR 54 OF THE CURRENT UNIT OF THE LABEL TRACK.
00013  M01S00012.compmsv +++|*         IF NO SECTOR 54 EXISTS, *MSV* EXITS WITH NO ERROR STATUS.
00014  M01S00013.compmsv +++|*
00015  M01S00014.compmsv +++|*         DATA PATTERN WRITTEN.
00016  M01S00015.compmsv +++|*
00017  M01S00016.compmsv +++|*         3777   BYTE 0
00018  M01S00017.compmsv +++|*         0077   BYTE 1
00019  M01S00018.compmsv +++|*         0000   BYTES 2 - 101
00020  M01S00019.compmsv +++|*         0001   BYTES 102 - 201
00021  M01S00020.compmsv +++|*         0077   BYTES 202 - 301
00022  M01S00021.compmsv +++|*         7777   BYTES 302 - 401
00023  M01S00022.compmsv +++|*         7700   BYTES 402 - 501
00024  M01S00023.compmsv +++|*
Line S00024 Modification History
M01 (Added by) compmsv
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00024.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00026  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00027  M01S00025.compmsv +++|*                (T6) = LABEL TRACK.
00028  M01S00026.compmsv +++|*                (T7) = LOGICAL UNIT NUMBER * SINGLE UNIT SECTOR LIMIT.
00029  M01S00027.compmsv +++|*                CHANNEL MAY BE RESERVED.
00030  M01S00028.compmsv +++|*
00031  M01S00029.compmsv +++|*         EXIT   (A) .LT. 0 IF MASS STORAGE ERROR.
00032  M01S00030.compmsv +++|*                (A) = 0 IF VERIFY GOOD.
00033  M01S00031.compmsv +++|*                (A) .GT. 0 IF VERIFY ERROR.
00034  M01S00032.compmsv +++|*
00035  M01S00033.compmsv +++|*         USES   T1 - T7, CM - CM+4.
00036  M01S00034.compmsv +++|*
00037  M01S00035.compmsv +++|*         CALLS  RDS, WDS.
00038  M01S00036.compmsv +++|*
00039  M01S00037.compmsv +++|*         MACROS ENDMS, SETMS.
00040  M01S00038.compmsv +++|
00041  M01S00039.compmsv +++|
00042  M01S00040.compmsv +++|          SPACE  4
00043  M01S00041.compmsv +++| MSV8     LCN    54          RESET SECTOR NUMBER
00044  M01S00042.compmsv +++|          RAD    T7
00045  M01S00043.compmsv +++|          ENDMS              INSURE CHANNEL RETURNED
00046  M01S00044.compmsv +++|          SOD    T3          RETURN STATUS
00047  M01S00045.compmsv +++|
00048  M01S00046.compmsv +++| MSV      SUBR               ENTRY/EXIT
00049  M01S00047.compmsv +++|          LDN    1           PRESET STATUS RETURNED
00050  M01S00048.compmsv +++|          STD    T3
Line S00049 Modification History
M01 (Added by) compmsv
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00049.242l642 ---|          SETMS  WRITE,NR
Line S00001 Modification History
M01 (Added by) 242l642
M02 (Updated by) pmsv1
Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00001.pmsv1   ---|          SETMS  IO
00053  M01S00001.pmsv1   +++|          SETMS  IO,(AD,DF,NR)
00054  M01S00050.compmsv +++|          LDN    54          SET SECTOR
00055  M01S00051.compmsv +++|          RAD    T7
00056  M01S00052.compmsv +++|          SBM    SLM
00057  M01S00053.compmsv +++|          PJN    MSV8        IF SECTOR NON-EXISTENT
00058  M01S00054.compmsv +++|
00059  M01S00055.compmsv +++|*         PRESET DATA PATTERN.
00060  M01S00056.compmsv +++|
00061  M01S00057.compmsv +++|          LDN    4           LOOP COUNTER
00062  M01S00058.compmsv +++|          STD    T2
00063  M01S00059.compmsv +++|          LDC    BFMS+501    BUFFER INDEX
00064  M01S00060.compmsv +++|          STD    T1
00065  M01S00061.compmsv +++| MSV1     LDD    T1          SET LOOP TERMINATION
00066  M01S00062.compmsv +++|          SBD    HN
00067  M01S00063.compmsv +++|          STD    T0
00068  M01S00064.compmsv +++| MSV2     LDM    TMSV,T2     SET BYTE OF PATTERN
00069  M01S00065.compmsv +++|          STI    T1
00070  M01S00066.compmsv +++|          SOD    T1
00071  M01S00067.compmsv +++|          LMD    T0
00072  M01S00068.compmsv +++|          NJN    MSV2        IF NOT END OF BLOCK
00073  M01S00069.compmsv +++|          SOD    T2
00074  M01S00070.compmsv +++|          PJN    MSV1        IF NOT END OF BLOCKS
00075  M01S00071.compmsv +++|          LDC    3777        SET LINKAGE BYTES
00076  M01S00072.compmsv +++|          STM    BFMS
00077  M01S00073.compmsv +++|          LDN    77
00078  M01S00074.compmsv +++|          STI    T1
00079  M01S00075.compmsv +++|          SOD    T3          PRESET MASS STORAGE ERROR
00080  M01S00076.compmsv +++|
00081  M01S00077.compmsv +++|*         WRITE DATA PATTERN.
00082  M01S00078.compmsv +++|
00083  M01S00079.compmsv +++|          LDC    BFMS+WLSF
00084  M01S00080.compmsv +++|          RJM    WDS
00085  M01S00081.compmsv +++|          MJN    MSV3        IF MASS STORAGE ERROR
00086  M01S00082.compmsv +++|
00087  M01S00083.compmsv +++|*         READ DATA PATTERN.
00088  M01S00084.compmsv +++|
Line S00085 Modification History
M01 (Added by) compmsv
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00085.242l642 ---|          SETMS  READ,NR
00090  M01S00086.compmsv +++|          LDC    BFMS
00091  M01S00087.compmsv +++|          RJM    RDS
00092  M01S00088.compmsv +++| MSV3     MJN    MSV7        IF MASS STORAGE ERROR
00093  M01S00089.compmsv +++|
00094  M01S00090.compmsv +++|*         VERIFY DATA PATTERN.
00095  M01S00091.compmsv +++|
00096  M01S00092.compmsv +++|          LDN    4           PRESET VERIFY LOOP
00097  M01S00093.compmsv +++|          STD    T2
00098  M01S00094.compmsv +++|          AOD    T3
00099  M01S00095.compmsv +++|          LDC    BFMS+501
00100  M01S00096.compmsv +++|          STD    T1
00101  M01S00097.compmsv +++| MSV4     LDD    T1
00102  M01S00098.compmsv +++|          SBD    HN
00103  M01S00099.compmsv +++|          STD    T0
00104  M01S00100.compmsv +++| MSV5     LDM    TMSV,T2     GET DATA PATTERN FROM TABLE
00105  M01S00101.compmsv +++|          LMI    T1
00106  M01S00102.compmsv +++|          NJN    MSV6        IF ERROR
00107  M01S00103.compmsv +++|          SOD    T1
00108  M01S00104.compmsv +++|          LMD    T0
00109  M01S00105.compmsv +++|          NJN    MSV5        IF NOT END OF BLOCK
00110  M01S00106.compmsv +++|          SOD    T2
00111  M01S00107.compmsv +++|          PJN    MSV4        IF NOT END OF BLOCKS
00112  M01S00108.compmsv +++|          LDI    T1          CHECK HEADER BYTES
00113  M01S00109.compmsv +++|          LMN    77
00114  M01S00110.compmsv +++|          NJN    MSV6        IF ERROR
00115  M01S00111.compmsv +++|          LDM    BFMS
00116  M01S00112.compmsv +++|          LMC    3777
00117  M01S00113.compmsv +++|          NJN    MSV6        IF ERROR
00118  M01S00114.compmsv +++|          SOD    T3
00119  M01S00115.compmsv +++| MSV6     AOD    T3
00120  M01S00116.compmsv +++| MSV7     LJM    MSV8        RETURN
00121  M01S00117.compmsv +++|
00122  M01S00118.compmsv +++| TMSV     BSS    0           TABLE OF DATA PATTERNS
00123  M01S00119.compmsv +++|          CON    0000
00124  M01S00120.compmsv +++|          CON    0001
00125  M01S00121.compmsv +++|          CON    0077
00126  M01S00122.compmsv +++|          CON    7777
00127  M01S00123.compmsv +++|          CON    7700
00128  M01S00124.compmsv +++|
00129  M01S00125.compmsv +++| QUAL$    IF     -DEF,QUAL$
00130  M01S00126.compmsv +++|          QUAL   *
00131  M01S00127.compmsv +++| MSV      EQU    /COMPMSV/MSV
00132  M01S00128.compmsv +++| QUAL$    ENDIF
00133  M01S00129.compmsv +++|          ENDX
00134  M01S00014.compmsv +++|COMPNFL
00135  M01S00005.compmsv +++|          BASE   MIXED
Line S00006 Modification History
M01 (Added by) compmsv
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00006.ns22000 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
00137  M01S00001.ns22000 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00138  M01S00007.compmsv +++|          SPACE  4,10
00139  M01S00008.compmsv +++|***       NFL - REQUEST NEGATIVE FL.
00140  M01S00009.compmsv +++|*
00141  M01S00010.compmsv +++|*         R. J. PRIEVE.      79/09/12.
00142  M01S00011.compmsv +++| NFL      SPACE  4,15
00143  M01S00012.compmsv +++|***              *NFL* PROCESSES STORAGE CHANGES FOR NEGATIVE FL.
00144  M01S00013.compmsv +++|*         FOR INCREASES OF NEGATIVE FL, THE ADDITIONAL FL IS
00145  M01S00014.compmsv +++|*         ALSO CLEARED.  *FLIW* IS USED IN THE CASE OF A REJECTED
00146  M01S00015.compmsv +++|*         NEGATIVE FL INCREASE.
00147  M01S00016.compmsv +++|*
00148  M01S00017.compmsv +++|*         ENTRY  (A) = DESIRED NEGATIVE FL/100B.
00149  M01S00018.compmsv +++|*
00150  M01S00019.compmsv +++|*         EXIT   (A) = 0 IF STORAGE OBTAINED.
00151  M01S00020.compmsv +++|*                (A) .LT. 0 IF INCREASE NOT AVAILABLE.
00152  M01S00021.compmsv +++|*                (A) = 1 IF NFL INCREASE PENDING.
00153  M01S00022.compmsv +++|*
00154  M01S00023.compmsv +++|*         USES   T1, T2, CM - CM+4.
00155  M01S00024.compmsv +++|*
00156  M01S00025.compmsv +++|*         MACROS MONITOR.
00157  M01S00026.compmsv +++|
00158  M01S00027.compmsv +++|
00159  M01S00028.compmsv +++| NFL2     LDD    CP          READ FL INCREASE CONTROL WORD
00160  M01S00029.compmsv +++|          ADN    FLIW
00161  M01S00030.compmsv +++|          CRD    CM
00162  M01S00031.compmsv +++|          LDD    CM+1
00163  M01S00032.compmsv +++|          SHN    21-0
00164  M01S00033.compmsv +++|          MJN    NFLX        IF INCREASE REJECTED BY SCHEDULER
00165  M01S00034.compmsv +++|          LDN    1           SET INCREASE PENDING
00166  M01S00035.compmsv +++|
00167  M01S00036.compmsv +++| NFL      SUBR               ENTRY/EXIT
00168  M01S00037.compmsv +++|          STD    T1          SAVE NEGATIVE FL REQUEST
00169  M01S00038.compmsv +++|          LDD    CP          READ FL STATUS WORD
00170  M01S00039.compmsv +++|          ADN    FLSW
00171  M01S00040.compmsv +++|          CRD    CM
00172  M01S00041.compmsv +++|          LDD    T1
00173  M01S00042.compmsv +++|          STD    CM+1
00174  M01S00043.compmsv +++|          SBD    CM
00175  M01S00044.compmsv +++|          ZJN    NFLX        IF NEGATIVE FL ALREADY ASSIGNED
00176  M01S00045.compmsv +++|          STD    T2
00177  M01S00046.compmsv +++|          LDC    500         INDICATE TO SET *FLIW* ON REJECT
00178  M01S00047.compmsv +++|          STD    CM+2
00179  M01S00048.compmsv +++|          MONITOR  RSTM      REQUEST STORAGE
00180  M01S00049.compmsv +++|          LDD    CM+1
00181  M01S00050.compmsv +++|          NJN    NFL2        IF STORAGE NOT OBTAINED
00182  M01S00051.compmsv +++|*         LDN    0           SET *NFL* OBTAINED
00183  M01S00052.compmsv +++|          UJN    NFLX        RETURN
00184  M01S00053.compmsv +++|          SPACE  4,10
00185  M01S00054.compmsv +++|          BASE   *
00186  M01S00055.compmsv +++| QUAL$    IF     -DEF,QUAL$
00187  M01S00056.compmsv +++|          QUAL   *
00188  M01S00057.compmsv +++| NFL      EQU    /COMPNFL/NFL
00189  M01S00058.compmsv +++| QUAL$    ENDIF
00190  M01S00059.compmsv +++|          ENDX
cdc/nos2.source/opl.opl871/common/compmsv.txt ยท Last modified: by 127.0.0.1