User Tools

Site Tools


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

Common COMPVMS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compvms +++|          CTEXT  COMPVMS - VALIDATE MASS STORAGE ORDINAL.
00002  M00S00002.compvms +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compvms +++|          QUAL   COMPVMS
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compvms +++|          SPACE  4
00006  M00S00005.compvms +++|***       VMS - VALIDATES A MASS STORAGE ORDINAL FOR NON - SYSTEM USE.
00007  M00S00006.compvms +++|*         R. L. CLAESON      75/02/15.
00008  M00S00007.compvms +++|          SPACE  4
00009  M00S00008.compvms +++|***              VMS VALIDATES A MASS STORAGE ORDINAL FOR NON - SYSTEM
00010  M00S00009.compvms +++|*         USE.
00011  M00S00010.compvms +++|*
00012  M00S00011.compvms +++|*         A DEVICE WILL BE VALIDATED FOR READ AND/OR WRITE DEPENDING
00013  M00S00012.compvms +++|*         UPON THE CONDITIONS IN THE FOLLOWING TABLE.  A DEVICE WHICH
00014  M00S00013.compvms +++|*         IS READ VALID MAY BE READ SAFELY BY A NON - STANDARD MASS
00015  M00S00014.compvms +++|*         STORAGE DRIVER WITHOUT INTERFERING WITH SYSTEM OPERATION.
00016  M00S00015.compvms +++|*
00017  M00S00016.compvms +++|*         A DEVICE WHICH IS WRITE VALID MAY BE SAFELY MODIFIED BY A
Line S00017 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00017.ns22000 ---|*         NON - STANDARD MASS STORAGE DRIVER AS LONG AS *MST* TABLES
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00001.ns22000 +++|*         NON-STANDARD MASS STORAGE DRIVER AS LONG AS MST TABLES
00020  M00S00018.compvms +++|*         ARE PROPERLY MAINTAINED.  IF NOT THE DEVICE MUST BE
00021  M00S00019.compvms +++|*         REINITIALIZED BEFORE USE BY THE OPERATING SYSTEM.
00022  M00S00020.compvms +++|*
00023  M00S00021.compvms +++|*         A DEVICE WHICH IS FOUND BUT NOT READ OR WRITE VALID MAY
00024  M00S00022.compvms +++|*         BE USED ONLY AFTER REVALIDATION WITH THE NEW PARAMETERS
00025  M00S00023.compvms +++|*         RETURNED BY THE FIRST VALIDATION REQUEST.  THE USER IS
00026  M00S00024.compvms +++|*         RESPONSIBLE FOR DETERMINING THAT THE NEW PARAMETERS WILL
00027  M00S00025.compvms +++|*         ALLOW THE ROUTINE TO CONTINUE PROPERLY AS THE DEVICE TYPE,
00028  M00S00026.compvms +++|*         CHANNEL, EQUIPMENT, UNIT, EST ORDINAL MAY HAVE CHANGED FROM
00029  M00S00027.compvms +++|*         THE REQUESTED CHANNEL ETC.  EXTREME CARE MUST BE EXERCISED BY
00030  M00S00028.compvms +++|*         THE USER IF HE DECIDES TO REVALIDATE WITH PARAMETERS
00031  M00S00029.compvms +++|*         RETURNED FOLLOWING A FOUND BUT NOT READ OR WRITE VALID
00032  M00S00030.compvms +++|*         RESPONSE.
00033  M00S00031.compvms +++|*
00034  M00S00032.compvms +++|*
00035  M00S00033.compvms +++|*         VALIDATION BY THIS COMMON DECK DOES NOT RELIEVE THE USER FROM
00036  M00S00034.compvms +++|*         USING THE SYSTEM CHANNEL INTERFACE TO MAINTAIN SYSTEM
00037  M00S00035.compvms +++|*         INTEGRITY.
00038  M00S00036.compvms +++|*
00039  M00S00037.compvms +++|*
00040  M00S00038.compvms +++|*         1)  A DEVICE IS FOUND AND READ VALID IF -
00041  M00S00039.compvms +++|*
00042  M00S00040.compvms +++|*                            REQUEST         EST ENTRY
00043  M00S00041.compvms +++|*
00044  M00S00042.compvms +++|*                A)          THE DEVICE IS MASS STORAGE.
00045  M00S00043.compvms +++|*                B)          EQ         =    EQ
00046  M00S00044.compvms +++|*
00047  M00S00045.compvms +++|*
00048  M00S00046.compvms +++|*                THE FOLLOWING CONDITIONS APPLY IF CC .LT. 40B.
00049  M00S00047.compvms +++|*                C)          CC         =    CC
00050  M00S00048.compvms +++|*                D)   E = E  (IGNORED FOR *DI* DRIVER DEVICES)
00051  M00S00049.compvms +++|*                E)          UU         =    UU
00052  M00S00050.compvms +++|*
00053  M00S00051.compvms +++|*                THE FOLLOWING CONDITION APPLIES IF CC = 40.
00054  M00S00052.compvms +++|*                F)          THE DEVICE MUST BE SINGLE SPINDLE.
00055  M00S00053.compvms +++|*
00056  M00S00054.compvms +++|*
00057  M00S00055.compvms +++|*         2)  A DEVICE IS FOUND AND READ AND WRITE VALID IF -
00058  M00S00056.compvms +++|*
00059  M00S00057.compvms +++|*
00060  M00S00058.compvms +++|*             I) THE DEVICE IS NOT SHARED.
00061  M00S00059.compvms +++|*                            - OR -
00062  M00S00060.compvms +++|*             II)THE DEVICE IS SHARED AND GLOBAL UNLOAD IS SET.
00063  M00S00061.compvms +++|*                            - AND -
00064  M00S00062.compvms +++|*                A)          THE DEVICE IS *OFF*.
00065  M00S00063.compvms +++|*                            - AND -
00066  M00S00064.compvms +++|*                B)          THE DEVICE IS *REMOVABLE*.
00067  M00S00065.compvms +++|*                            - AND -
00068  M00S00066.compvms +++|*                C)          THE DEVICE IS *NOT IN USE*.
00069  M00S00067.compvms +++|*                            - AND -
00070  M00S00068.compvms +++|*                D)          THE DEVICE IS *UNAVAILABLE FOR PF ACCESS*.
00071  M00S00069.compvms +++|*
00072  M00S00070.compvms +++|*
00073  M00S00071.compvms +++|*                - OR-
00074  M00S00072.compvms +++|*
00075  M00S00073.compvms +++|*
00076  M00S00074.compvms +++|*             I) THE DEVICE IS NOT SHARED.
00077  M00S00075.compvms +++|*                            - OR -
00078  M00S00076.compvms +++|*             II)THE DEVICE IS SHARED AND GLOBAL UNLOAD IS SET.
00079  M00S00077.compvms +++|*                            - AND -
00080  M00S00078.compvms +++|*                A)          THE DEVICE IS *OFF*.
00081  M00S00079.compvms +++|*                            - AND-
00082  M00S00080.compvms +++|*                B)          THE DEVICE IS *REMOVABLE*.
00083  M00S00081.compvms +++|*                            - AND -
00084  M00S00082.compvms +++|*                C)          THE DEVICE IS *NOT IN USE*.
00085  M00S00083.compvms +++|*                            - AND -
00086  M00S00084.compvms +++|*                D)          THE DEVICE IS TO BE FULL INITIALIZED.
00087  M00S00085.compvms +++|*                            - AND -
00088  M00S00086.compvms +++|*                E)          THE DEVICE HAS FORMAT PENDING.
00089  M00S00087.compvms +++|*                            - AND -
00090  M00S00088.compvms +++|*                F)          THE DIRECT ACCESS FILE USER COUNT = 0.
00091  M00S00089.compvms +++|*
00092  M00S00090.compvms +++|*         3)  THE DEVICE WILL BE FOUND BUT NOT READ OR WRITE VALID IF
00093  M00S00091.compvms +++|*         THE DEVICE IS NOT MASS STORAGE OR THE DEVICE TYPES DO NOT
00094  M00S00092.compvms +++|*         MATCH.
00095  M00S00093.compvms +++|*
00096  M00S00094.compvms +++|*
00097  M00S00095.compvms +++|*         4)  ANY DEVICE WHICH IS NOT FOUND MAY BE USED BY THE CALLER
00098  M00S00096.compvms +++|*         IF HE USES THE STANDARD SYSTEM CHANNEL INTERFACE.
00099  M00S00097.compvms +++|*
00100  M00S00098.compvms +++|*
00101  M00S00099.compvms +++|*         5)  ANY DEVICE WHICH IS FOUND ON A CHANNEL WITH A DEDICATED
00102  M00S00100.compvms +++|*         EQUIPMENT SUCH AS THE SYSTEM DISPLAY WILL BE FOUND AND NOT
Line S00101 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00101.ns22000 ---|*         READ OR WRITE VALID.  THE EST ORDINAL RETURNED WILL BE FOR
00104  M01S00102.ns22000 ---|*         EQUIPMENT 77 THE NON - EXISTENT EQUIPMENT ORDINAL.
Line S00002 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00105  M01S00002.ns22000 +++|*         READ OR WRITE VALID.  THE EST ORDINAL RETURNED WILL BE 7777.
00106  M00S00103.compvms +++|*
00107  M00S00104.compvms +++|*
00108  M00S00105.compvms +++|*         6)  ANY DEVICE WHICH IS FOUND ON A NON - EXISTENT CHANNEL
00109  M00S00106.compvms +++|*         WILL ALSO BE FOUND AND NOT READ OR WRITE VALID AND ORDINAL
Line S00107 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00107.ns22000 ---|*         77 WILL BE SET.
Line S00003 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00003.ns22000 +++|*         7777 WILL BE RETURNED.
00112  M00S00108.compvms +++|*
00113  M00S00109.compvms +++|*
00114  M00S00110.compvms +++|*
00115  M00S00111.compvms +++|*
Line S00112 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00112.ns22000 ---|*         ENTRY  (A) = CCEGUU.
00117  M01S00113.ns22000 ---|*
00118  M01S00114.ns22000 ---|*                      CC = REQUIRED CHANNEL
00119  M01S00115.ns22000 ---|*                         = 40 IF UU = EST ORDINAL.
00120  M01S00116.ns22000 ---|*                      E = PHYSICAL EQUIPMENT NUMBER.
00121  M01S00117.ns22000 ---|*                      G = RELATIVE ORDINAL OF MULTISPINDLE GROUP.
00122  M01S00118.ns22000 ---|*                      UU = DESIRED UNIT  OR  EST ORDINAL IF CC = 40B.
Line S00004 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00123  M01S00004.ns22000 +++|*         ENTRY  (T1) = REQUIRED CHANNEL.
00124  M01S00005.ns22000 +++|*                     = 40 IF (T3) = EST ORDINAL.
00125  M01S00006.ns22000 +++|*                (T2) = EQUIPMENT (CONTROLLER) NUMBER.
00126  M01S00007.ns22000 +++|*                (T3) = DESIRED UNIT.
00127  M01S00008.ns22000 +++|*                     = EST ORDINAL IF (T1) = 40.
00128  M01S00009.ns22000 +++|*                (RU) = RELATIVE ORDINAL OF MULTISPINDLE GROUP.
00129  M00S00119.compvms +++|*                (DT) = DEVICE TYPE.
00130  M00S00120.compvms +++|*
00131  M00S00121.compvms +++|*         EXIT   (A) = 0  IF DEVICE NOT IN EST OR THE ENTRY IS 0.
00132  M00S00122.compvms +++|*                (A) = NECCUU  IF DEVICE IN EST.
00133  M00S00123.compvms +++|*
00134  M00S00124.compvms +++|*                            N = 4 IF DEVICE IN EST.
00135  M00S00125.compvms +++|*                              = 5 IF DEVICE IS READ VALID.
00136  M00S00126.compvms +++|*                              = 6 IF WRITE VALID (NOT USED).
00137  M00S00127.compvms +++|*                              = 7 IF READ AND WRITE VALID.
00138  M00S00128.compvms +++|*
00139  M00S00129.compvms +++|*                (T1) = CC OR 0000.
00140  M00S00130.compvms +++|*                (T2) = E OR 0000.
00141  M00S00131.compvms +++|*                (T3) = UU OR 0000.
Line S00132 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00142  M01S00132.ns22000 ---|*                (T4) = FWA OF EST.
00143  M01S00133.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
00144  M01S00134.ns22000 ---|*                (T6) = LWA + 1 OF MASS STORAGE ENTRIES IN EST.
00145  M00S00135.compvms ---|*                (CM - CM+4) = EST ENTRY FOR DEVICE.
00146  M00S00136.compvms ---|*                (T8) = STATUS CODE (N).
00147  M01S00137.ns22000 ---|*                (CN - CN+4) = *MST* WORD *STLL* OR *ACGL*.
Line S00010 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00148  M01S00010.ns22000 +++|*                (CN - CN+4) = MST WORD *STLL* OR *ACGL*.
00149  M00S00138.compvms +++|*                (DT) = DEVICE TYPE OR 0000.
Line S00139 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00139.ns22000 ---|*                (OD) = EST ORDINAL OF THE DEVICE OR 0077.
Line S00011 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00011.ns22000 +++|*                (OD) = EST ORDINAL OF THE DEVICE OR 7777.
00152  M00S00140.compvms +++|*                (RU) = RELATIVE ORDINAL OF UNIT IN MULTISPINDLE UNIT.
00153  M00S00141.compvms +++|*
00154  M00S00142.compvms +++|*         THE VALUES OF 0000 FOR THE CHANNEL, EQUIPMENT, UNIT, DEVICE
Line S00143 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00143.ns22000 ---|*         TYPE AND 0077 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
Line S00012 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00012.ns22000 +++|*         TYPE AND 7777 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
00157  M00S00144.compvms +++|*         NOT IN THE EST OR THE EST ENTRY IS EMPTY OR THE PHYSICAL
00158  M00S00145.compvms +++|*         PARAMETERS DO NOT MATCH.
00159  M00S00146.compvms +++|*
00160  M00S00147.compvms +++|*
Line S00148 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00161  M01S00148.ns22000 ---|*         USES   T1 - T7, CM - CM+4, T8, T9, CN - CN+4, DT, OD.
Line S00013 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00013.ns22000 +++|*         USES   DT, OD, T8, T9, CM - CM+4, CN - CN+4, T1 - T7.
00163  M00S00149.compvms +++|*
Line S00150 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00150.ns22000 ---|*         CALLS  BCT, VME, VMC.
Line S00014 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00014.ns22000 +++|*         CALLS  BCT, VMC, VME.
00166  M00S00151.compvms +++|
00167  M00S00152.compvms +++| VMS1     RJM    VMC         CHECK MASS STORAGE FOR DEVICE
00168  M00S00153.compvms +++|
00169  M00S00154.compvms +++| VMS      SUBR               ENTRY/EXIT
Line S00155 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00155.ns22000 ---|          STD    T4
00171  M01S00156.ns22000 ---|          SHN    6
00172  M01S00157.ns22000 ---|          LPN    77
00173  M01S00158.ns22000 ---|          STD    T1          *CC*
00174  M01S00159.ns22000 ---|          LDD    T4
00175  M01S00160.ns22000 ---|          LPN    77
00176  M01S00161.ns22000 ---|          STD    T3          *UU*  OR EST ORDINAL
00177  M01S00162.ns22000 ---|          LDD    T4          SET GROUP ORDINAL
00178  M01S00163.ns22000 ---|          SHN    -6
00179  M01S00164.ns22000 ---|          LPN    7
00180  M01S00165.ns22000 ---|          STD    RU
00181  M01S00166.ns22000 ---|          LDD    T4
00182  M01S00167.ns22000 ---|          SHN    -11
00183  M01S00168.ns22000 ---|          STD    T2          *E*
00184  M00S00169.compvms ---|          LDN    ESTP        READ EST POINTER
00185  M00S00170.compvms ---|          CRD    T4
00186  M00S00171.compvms ---|          RJM    BCT         BUILD AVAILABLE CHANNEL TABLE
00187  M00S00172.compvms ---|          LDD    T1          CHECK CHANNEL REQUESTED
00188  M00S00173.compvms ---|          SHN    21-5
00189  M00S00174.compvms ---|          PJN    VMS1        IF NOT EST ORDINAL REQUEST
00190  M01S00175.ns22000 ---|
00191  M00S00176.compvms ---|          LDD    T3          SET EST ORDINAL
00192  M01S00177.ns22000 ---|          ADD    T4
00193  M00S00178.compvms ---|          STD    OD
00194  M00S00179.compvms ---|          RJM    VME         VALIDATE EST ORDINAL
00195  M00S00180.compvms ---|          UJN    VMSX        RETURN
00196  M00S00181.compvms ---| VMC      SPACE  4,10
00197  M00S00182.compvms ---|**        VMC - VALIDATE MASS STORAGE CHANNEL.
00198  M00S00183.compvms ---|*
00199  M00S00184.compvms ---|*         ENTRY  (T1) = CHANNEL.
00200  M01S00185.ns22000 ---|*                (T2) = EQUIPMENT NUMBER.
Line S00015 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00015.ns22000 +++|*                (T2) = EST ORDINAL.
00202  M00S00186.compvms +++|*                (T3) = UNIT NUMBER.
Line S00187 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00187.ns22000 ---|*                (T4) = FWA EST.
00204  M01S00188.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
00205  M01S00189.ns22000 ---|*                (T6) = LWA + 1 OF MAXIMUM MASS STORAGE EST ENTRY.
Line S00016 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00016.ns22000 +++|*                (T6) = LAST EST ORDINAL + 1.
00207  M01S00017.ns22000 +++|*                (T7) = LAST MASS STORAGE ORDINAL + 1.
00208  M00S00190.compvms +++|*                (DT) = DEVICE TYPE.
00209  M00S00191.compvms +++|*
00210  M00S00192.compvms +++|*         EXIT   (A) = 0  IF DEVICE NOT IN EST.
Line S00193 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00211  M01S00193.ns22000 ---|*                (OD) = 77  IF DEVICE NOT IN EST.
Line S00018 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00018.ns22000 +++|*                (OD) = 7777 IF DEVICE NOT IN EST.
00213  M00S00194.compvms +++|*
Line S00195 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00214  M01S00195.ns22000 ---|*         USES   T1, T2, T3, CM - CM+4, T8, DT, OD.
Line S00019 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00215  M01S00019.ns22000 +++|*         USES   DT, OD, T1, T2, T3, T8, CM - CM+4.
00216  M00S00196.compvms +++|*
Line S00197 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00197.ns22000 ---|*         CALLS  CCE, CEE, CUE, VME, FAR.
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00218  M01S00020.ns22000 +++|*         CALLS  CCE, CEE, CUE, FAR, VME.
00219  M01S00021.ns22000 +++|*
00220  M01S00022.ns22000 +++|*         MACROS SFA.
00221  M00S00198.compvms +++|
00222  M00S00199.compvms +++|
00223  M00S00200.compvms +++| VMC7     RJM    VME         VALIDATE EST ENTRY
00224  M00S00201.compvms +++|
00225  M00S00202.compvms +++| VMC      SUBR               ENTRY/EXIT
Line S00203 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00203.ns22000 ---|          LDD    T4          SET EST ENTRY ADDRESS
Line S00023 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00227  M01S00023.ns22000 +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00228  M00S00204.compvms +++|          STD    OD
Line S00205 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00229  M01S00205.ns22000 ---| VMC1     LDD    OD          READ EST ENTRY
Line S00024 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00230  M01S00024.ns22000 +++| VMC1     SFA    EST,OD      READ EST ENTRY
00231  M01S00025.ns22000 +++|          ADK    EQDE
00232  M00S00206.compvms +++|          CRD    CM
00233  M00S00207.compvms +++|          RJM    CCE         CHECK CHANNEL EQUIVALENCE
00234  M00S00208.compvms +++|          NJN    VMC4        IF CHANNELS DO NOT MATCH
00235  M00S00209.compvms +++|          RJM    CEE         CHECK EQUIPMENT EQUIVALENCE
00236  M00S00210.compvms +++|          NJN    VMC4        IF EQUIPMENTS DO NOT MATCH
00237  M00S00211.compvms +++| VMC3     RJM    CUE         CHECK UNIT EQUIVALENCE
00238  M00S00212.compvms +++|          ZJN    VMC7        IF UNIT MATCHES
00239  M00S00213.compvms +++|
00240  M00S00214.compvms +++| VMC4     AOD    OD
Line S00215 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00215.ns22000 ---|          LMD    T5
Line S00026 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00026.ns22000 +++|          LMD    T6
00243  M00S00216.compvms +++|          NJN    VMC1        IF MORE EST ENTRIES
Line S00217 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00217.ns22000 ---|
00245  M00S00218.compvms ---|          RJM    CDC         CHECK FOR DEDICATED CHANNEL
00246  M00S00219.compvms ---|          NJN    VMC5        IF DEDICATED OR NON - EXISTENT CHANNEL
00247  M01S00220.ns22000 ---|
00248  M01S00221.ns22000 ---|          LDN    77          SET NON - EXISTENT DEVICE
Line S00027 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00249  M01S00027.ns22000 +++|          LCN    0           RETURN (OD) = 7777 FOR NON-EXISTENT DEVICE
00250  M00S00222.compvms +++|          STD    OD
00251  M00S00223.compvms +++|          LDN    0
00252  M00S00224.compvms +++|          STD    T1
00253  M00S00225.compvms +++|          STD    T2
00254  M00S00226.compvms +++|          STD    T3
00255  M00S00227.compvms +++|          STD    T8
00256  M00S00228.compvms +++|          STD    DT
00257  M00S00229.compvms +++|          UJN    VMC6        RETURN
00258  M00S00230.compvms +++|
00259  M00S00231.compvms +++| VMC5     LDN    4           SET FOUND BUT NOT READ OR WRITE VALID
00260  M00S00232.compvms +++|          STD    T8
Line S00233 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00261  M01S00233.ns22000 ---|          LDD    T4          FORM EST ADDRESS
00262  M01S00234.ns22000 ---|          ADN    77
Line S00028 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00028.ns22000 +++|          LCN    0           RETURN (OD) = 7777 FOR INVALID DEVICE
00264  M00S00235.compvms +++|          STD    OD
Line S00236 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00236.ns22000 ---|          RJM    FAR
Line S00029 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00266  M01S00029.ns22000 +++|          RJM    FAR         FORMAT A - REGISTER
00267  M00S00237.compvms +++| VMC6     LJM    VMCX        RETURN
00268  M00S00238.compvms +++| VME      SPACE  4,20
00269  M00S00239.compvms +++|**        VME - VALIDATE EST ORDINAL FOR NON - SYSTEM USE.
00270  M00S00240.compvms +++|*
00271  M00S00241.compvms +++|*         VALIDATION IS AS DEFINED IN ROUTINE *VMS* IN THIS COMMON
00272  M00S00242.compvms +++|*         DECK.
00273  M00S00243.compvms +++|*
00274  M00S00244.compvms +++|*         ENTRY  (T1) = CHANNEL.
00275  M00S00245.compvms +++|*                (T2) = PHYSICAL EQUIPMENT.
00276  M00S00246.compvms +++|*                (T3) = UNIT OR EST ORDINAL IF CHANNEL = 40B.
Line S00247 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00277  M01S00247.ns22000 ---|*                (T4) = FWA OF EST.
00278  M01S00248.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
00279  M01S00249.ns22000 ---|*                (T6) = LWA + 1 OF MASS STORAGE IN EST.
Line S00030 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00280  M01S00030.ns22000 +++|*                (T6) = LAST EST ORDINAL + 1.
00281  M01S00031.ns22000 +++|*                (T7) = LAST MASS STORAGE ORDINAL + 1.
00282  M00S00250.compvms +++|*                (DT) = DEVICE TYPE.
Line S00251 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00251.ns22000 ---|*                (OD) = EST ENTRY ADDRESS.
Line S00032 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00032.ns22000 +++|*                (OD) = EST ORDINAL.
00285  M00S00252.compvms +++|*
00286  M00S00253.compvms +++|*         EXIT   (A) = NECCUU.
00287  M00S00254.compvms +++|*                            N = 0 IF NOT IN EST  AND  (A) = 0.
00288  M00S00255.compvms +++|*                            N = 4 IF FOUND IN EST.
00289  M00S00256.compvms +++|*                            N = 5 IF FOUND AND READ IS VALID.
00290  M00S00257.compvms +++|*                            N = 6 IF FOUND AND WRITE IS VALID.
00291  M00S00258.compvms +++|*                            N = 7 IF FOUND AND READ AND WRITE ARE
00292  M00S00259.compvms +++|*                            VALID.
00293  M00S00260.compvms +++|*
00294  M00S00261.compvms +++|*                (T1) = CHANNEL IN EST OR 0000.
Line S00262 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00262.ns22000 ---|*                (T2) = EQUIPMENT NUMBER IN *EST* OR 0000.
Line S00033 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00296  M01S00033.ns22000 +++|*                (T2) = EQUIPMENT (CONTROLLER) NUMBER IN EST OR 0000.
00297  M00S00263.compvms +++|*                (T3) = UNIT NUMBER OR 0000.
Line S00264 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00264.ns22000 ---|*                (T4) = FWA OF EST.
00299  M01S00265.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
00300  M01S00266.ns22000 ---|*                (T6) = LWA + 1 OF MASS STORAGE IN EST.
00301  M00S00267.compvms ---|*                (CM - CM+4) = EST ENTRY FOR DEVICE.
00302  M00S00268.compvms ---|*                (T8) = STATUS CODE (N).
00303  M01S00269.ns22000 ---|*                (CN - CN+4) = *MST* WORD *STLL* FOR DEVICE.
Line S00034 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00304  M01S00034.ns22000 +++|*                (CN - CN+4) = MST WORD *STLL* FOR DEVICE.
00305  M00S00270.compvms +++|*                (DT) = DEVICE TYPE FOUND IN EST.
00306  M00S00271.compvms +++|*                (OD) = EST ORDINAL OF DEVICE.
00307  M00S00272.compvms +++|*                (RU) = RELATIVE UNIT OF A GROUP TYPE DEVICE.
00308  M00S00273.compvms +++|*
00309  M00S00274.compvms +++|*         THE VALUES OF 0000 FOR THE CHANNEL, EQUIPMENT, UNIT, DEVICE
Line S00275 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00275.ns22000 ---|*         TYPE AND 0077 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
Line S00035 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00035.ns22000 +++|*         TYPE AND 7777 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
00312  M00S00276.compvms +++|*         NOT FOUND IN THE EST OR IF THE EST ENTRY IS EMPTY OR THE
00313  M00S00277.compvms +++|*         PHYSICAL PARAMETERS DO NOT MATCH.
00314  M00S00278.compvms +++|*
Line S00279 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00315  M01S00279.ns22000 ---|*         USES   T1, T2, T3, CM - CM+4, T8, T9, CN - CN+4, DT, OD.
Line S00036 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00316  M01S00036.ns22000 +++|*         USES   DT, OD, T1, T2, T3, T8, T9, CM - CM+4, CN - CN+4.
00317  M00S00280.compvms +++|*
00318  M00S00281.compvms +++|*         CALLS  CCE, CDC, CEE, CUE, FAR, SPP, SUN.
00319  M01S00037.ns22000 +++|*
00320  M01S00038.ns22000 +++|*         MACROS SFA.
00321  M00S00282.compvms +++|
00322  M00S00283.compvms +++|
Line S00284 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00284.ns22000 ---| VME11    LDN    77
Line S00039 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00324  M01S00039.ns22000 +++| VME11    LCN    0           RETURN (OD) = 7777
00325  M00S00285.compvms +++|          STD    OD
00326  M00S00286.compvms +++|          LDN    0           SET NON - EXISTENT DEVICE
00327  M00S00287.compvms +++|          STD    T1
00328  M00S00288.compvms +++|          STD    T2
00329  M00S00289.compvms +++|          STD    T3
00330  M00S00290.compvms +++|          STD    T8
00331  M00S00291.compvms +++|          STD    DT
00332  M00S00292.compvms +++|
00333  M00S00293.compvms +++| VME      SUBR               ENTRY/EXIT
00334  M00S00294.compvms +++|          LDD    OD          CHECK FOR VALID ENTRY
Line S00295 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00335  M01S00295.ns22000 ---|          SBD    T5
Line S00040 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00336  M01S00040.ns22000 +++|          SBD    T6
00337  M00S00296.compvms +++|          PJN    VME11       IF .GT. MAXIMUM EST ENTRY
Line S00297 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00297.ns22000 ---|
00339  M01S00298.ns22000 ---|          LDD    OD          READ EST ENTRY
Line S00041 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00340  M01S00041.ns22000 +++|          SFA    EST,OD      READ EST ENTRY
00341  M01S00042.ns22000 +++|          ADK    EQDE
00342  M00S00299.compvms +++|          CRD    CM
Line S00300 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00300.ns22000 ---|
00344  M00S00301.compvms ---|          LDD    CM+3        CHECK FOR DEFINED ORDINAL
00345  M00S00302.compvms ---|          ZJN    VME11       IF ORDINAL NOT DEFINED
00346  M01S00303.ns22000 ---|
00347  M00S00304.compvms ---|          LDD    OD          CHECK ORDINAL
00348  M01S00305.ns22000 ---|          SBD    T6
Line S00043 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00349  M01S00043.ns22000 +++|          SBD    T7
00350  M00S00306.compvms +++|          PJN    VME1        IF .GT. MASS STORAGE EST ORDINAL
00351  M00S00307.compvms +++|          LDD    CM
00352  M00S00308.compvms +++|          SHN    21-13
00353  M00S00309.compvms +++|          PJN    VME1        IF NOT MASS STORAGE
00354  M00S00310.compvms +++|          LDD    CM+3        CHECK DEVICE TYPE
Line S00311 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00355  M01S00311.252l678 ---|          LPC    3777
00356  M00S00312.compvms ---|          LMD    DT
00357  M00S00313.compvms ---|          ZJN    VME2        IF CORRECT DEVICE TYPE
Line S00314 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00358  M01S00314.ns22000 ---|
00359  M00S00315.compvms ---| VME1     LDN    4           SET FOUND AND NOT READ OR WRITE VALID
00360  M00S00316.compvms ---|          STD    T8
00361  M00S00317.compvms ---|          RJM    SPP         SET NEW PHYSICAL PARAMETERS
00362  M00S00318.compvms ---|          LJM    VME10       RETURN
00363  M00S00319.compvms ---|
00364  M00S00320.compvms ---| VME2     LDD    T1          CHECK EST REQUEST
00365  M00S00321.compvms ---|          SHN    21-5
00366  M00S00322.compvms ---|          PJN    VME2.1      IF NOT EST REQUEST
00367  M00S00323.compvms ---|          LJM    VME6        PROCESS EST REQUEST
00368  M00S00324.compvms ---|
00369  M00S00325.compvms ---| VME2.1   RJM    CCE         CHECK CHANNEL EQUIVALENCE
00370  M00S00326.compvms ---| VME3     NJN    VME1        IF CHANNELS DO NOT MATCH
00371  M00S00327.compvms ---|          LDD    CM          CHECK FOR *LDAM* DEVICE
00372  M00S00328.compvms ---|          SHN    21-7
00373  M00S00329.compvms ---|          MJN    VME5        IF *LDAM* DEVICE
00374  M00S00330.compvms ---|          RJM    CEE         CHECK EQUIPMENT EQUIVALENCE
00375  M00S00331.compvms ---|          NJN    VME1        IF EQUIPMENTS DO NOT MATCH
00376  M00S00332.compvms ---| VME5     RJM    CUE         CHECK FOR UNIT EQUIVALENCE
00377  M00S00333.compvms ---|          NJN    VME1        IF UNITS DO NOT MATCH
00378  M01S00334.ns22000 ---|
00379  M00S00335.compvms ---|          RJM    CDC         CHECK FOR DEDICATED CHANNEL
00380  M00S00336.compvms ---|          ZJN    VME8        IF CHANNEL EXISTS OR NON - DEDICATED
00381  M00S00337.compvms ---|          LDN    4           SET FOUND BUT NOT READ OR WRITE VALID
00382  M00S00338.compvms ---|          STD    T8
00383  M01S00339.ns22000 ---|          LDD    T4          SET EST ADDRESS
00384  M01S00340.ns22000 ---|          ADN    77
Line S00044 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00044.ns22000 +++|          LCN    0           RETURN (OD) = 7777
00386  M00S00341.compvms +++|          STD    OD
00387  M00S00342.compvms +++|          LJM    VME10       CONTINUE
00388  M00S00343.compvms +++|
00389  M00S00344.compvms +++| VME6     RJM    SPP         SET PHYSICAL PARAMETERS
00390  M00S00345.compvms +++|          RJM    SUN         SET MULTISPINDLE UNIT NUMBER
00391  M00S00346.compvms +++|          NJN    VME3        IF NOT VALID SPINDLE
00392  M00S00347.compvms +++| VME8     LDN    5           SET FOUND AND READ VALID
00393  M00S00348.compvms +++|          STD    T8
Line S00349 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00394  M01S00349.ns22000 ---|
00395  M00S00350.compvms ---|          LDD    CM+4        READ DEVICE STATUS
00396  M00S00351.compvms ---|          SHN    3
00397  M00S00352.compvms ---|          ADN    ACGL        READ GLOBAL STATUS
00398  M00S00353.compvms ---|          CRD    CN
00399  M01S00354.ns22000 ---|
00400  M00S00355.compvms ---|          LDD    CM          CHECK FOR SHARED DEVICE
00401  M00S00356.compvms ---|          SHN    21-11
00402  M00S00357.compvms ---|          PJN    VME8.1      IF NOT SHARED
00403  M00S00358.compvms ---|          LDD    CN+4        CHECK GLOBAL UNLOAD
00404  M00S00359.compvms ---|          SHN    21-5
00405  M00S00360.compvms ---|          PJN    VME10       IF NOT GLOBAL UNLOAD
00406  M01S00361.ns22000 ---|
00407  M00S00362.compvms ---| VME8.1   LDD    CM+4        READ LOCAL STATUS
00408  M00S00363.compvms ---|          SHN    3
00409  M00S00364.compvms ---|          ADN    STLL
00410  M00S00365.compvms ---|          CRD    CN
00411  M01S00366.ns22000 ---|
Line S00367 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00412  M01S00367.251l664 ---|          LDD    CM+3        CHECK DEVICE OFF
00413  M01S00368.251l664 ---|          SHN    21-13
00414  M01S00369.251l664 ---|          PJN    VME10       IF NOT OFF
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00415  M01S00001.251l664 +++|          LDD    CM
00416  M01S00002.251l664 +++|          LPN    2
00417  M01S00003.251l664 +++|          ZJN    VME10       IF DEVICE IS NOT DOWN/OFF
00418  M00S00370.compvms +++|          LDD    CN+4        CHECK DEVICE IN USE
00419  M00S00371.compvms +++|          SHN    21-2
00420  M00S00372.compvms +++|          MJN    VME10       IF IN USE
00421  M00S00373.compvms +++|          LDD    CM          CHECK REMOVABLE
00422  M00S00374.compvms +++|          SHN    21-10
00423  M00S00375.compvms +++|          PJN    VME10       IF NOT REMOVABLE
00424  M00S00376.compvms +++|          SHN    10-6
00425  M00S00377.compvms +++|          MJN    VME9        IF NOT AVAILABLE FOR PF ACCESS
00426  M00S00378.compvms +++|          LDD    CN          CHECK FORMAT PENDING
00427  M00S00379.compvms +++|          SHN    21-13
00428  M00S00380.compvms +++|          PJN    VME10       IF NOT FORMAT PENDING
00429  M00S00381.compvms +++|          LPC    MLIAL*100+MLIHD*100+MLIFD*100
00430  M00S00382.compvms +++|          ZJN    VME10       IF NOT INITIALIZE *AL*, *HT* OR *FT*
00431  M00S00383.compvms +++|          LDD    CN+3        CHECK USER COUNT
00432  M00S00384.compvms +++|          NJN    VME10       IF USERS ACTIVE
00433  M00S00385.compvms +++| VME9     LDN    2           SET WRITE VALID
00434  M00S00386.compvms +++|          RAD    T8
00435  M00S00387.compvms +++| VME10    RJM    FAR         FORMAT A - REGISTER
00436  M00S00388.compvms +++|          LJM    VMEX        RETURN
00437  M00S00389.compvms +++| CCE      SPACE  4,10
Line S00390 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00390.ns22000 ---|**        CCE  -  CHECK CHANNEL EQUIVALENCES.
Line S00045 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00439  M01S00045.ns22000 +++|**        CCE - CHECK CHANNEL EQUIVALENCE.
00440  M00S00391.compvms +++|*
00441  M00S00392.compvms +++|*         ENTRY  (T1) = CHANNEL.
00442  M00S00393.compvms +++|*                (CM - CM+4) = EST ENTRY.
00443  M00S00394.compvms +++|*
00444  M00S00395.compvms +++|*         EXIT   (A) = 0 IF CHANNEL VALID.
00445  M00S00396.compvms +++|*                (A) .NE. 0 IF CHANNEL NOT VALID.
00446  M00S00397.compvms +++|*
00447  M00S00398.compvms +++|
00448  M00S00399.compvms +++|
00449  M00S00400.compvms +++| CCE1     LDN    1           SET INVALID CHANNEL
00450  M00S00401.compvms +++|
00451  M00S00402.compvms +++| CCE      SUBR               ENTRY/EXIT
00452  M00S00403.compvms +++|          LDD    CM+1        CHECK FIRST CHANNEL
00453  M00S00404.compvms +++|          LPN    77
00454  M00S00405.compvms +++|          LMD    T1
00455  M00S00406.compvms +++|          ZJN    CCEX        IF FIRST CHANNEL
Line S00407 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00407.ns22000 ---|
Line S00408 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00408.252l678 ---|          LDD    CM+1        CHECK SECOND CHANNEL
00458  M01S00409.252l678 ---|          SHN    -6
Line S00001 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00001.252l678 +++|          LDD    CM+2        CHECK SECOND CHANNEL
00460  M01S00002.252l678 +++|          LPN    77
00461  M00S00410.compvms +++|          ZJN    CCE1        IF NO SECOND CHANNEL
Line S00411 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00462  M01S00411.ns22000 ---|
Line S00412 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00412.252l678 ---|          LMD    T1
00464  M01S00413.252l678 ---|          ZJN    CCEX        RETURN
Line S00414 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00414.252l678 ---|
Line S00415 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00466  M01S00415.252l678 ---|          LDD    CM          CHECK MASS STORAGE
00467  M01S00416.252l678 ---|          SHN    21-13
00468  M01S00417.252l678 ---|          MJN    CCEX        IF MASS STORAGE
Line S00418 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00418.252l678 ---|
Line S00419 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00470  M01S00419.252l678 ---|          LDD    CM+2        CHECK THIRD CHANNEL
00471  M01S00420.252l678 ---|          LPN    77
00472  M01S00421.252l678 ---|          ZJN    CCE1        IF NO THIRD CHANNEL
Line S00422 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00422.252l678 ---|
Line S00423 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00423.252l678 ---|          LMD    T1
00475  M01S00424.252l678 ---|          ZJN    CCEX        RETURN
Line S00425 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00425.252l678 ---|
Line S00426 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00477  M01S00426.252l678 ---|          LDD    CM+2        CHECK FOURTH CHANNEL
00478  M01S00427.252l678 ---|          SHN    -6
00479  M01S00428.252l678 ---|          ZJN    CCE1        IF NO FOURTH CHANNEL
Line S00429 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00480  M01S00429.ns22000 ---|
00481  M00S00430.compvms ---|          LMD    T1
00482  M00S00431.compvms ---|          ZJN    CCEX        RETURN
00483  M00S00432.compvms ---|          UJN    CCE1
00484  M00S00433.compvms ---| CEE      SPACE  4,10
00485  M01S00434.ns22000 ---|**        CEE  -  CHECK EQUIPMENT EQUIVALENCE.
Line S00046 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00046.ns22000 +++|**        CEE - CHECK EQUIPMENT EQUIVALENCE.
00487  M00S00435.compvms +++|*
00488  M00S00436.compvms +++|*         ENTRY  (T2) = PHYSICAL EQUIPMENT.
00489  M00S00437.compvms +++|*                (CM - CM+4) = EST ENTRY.
00490  M00S00438.compvms +++|*
00491  M00S00439.compvms +++|*         EXIT   (A) = 0 IF EQUIPMENT IS VALID.
00492  M00S00440.compvms +++|*                (A) .NE. 0 IF EQUIPMENT NOT VALID.
00493  M00S00441.compvms +++|*
00494  M00S00442.compvms +++|*         USES   T0.
00495  M00S00443.compvms +++|
00496  M00S00444.compvms +++|
00497  M00S00445.compvms +++| CEE      SUBR               ENTRY/EXIT
00498  M00S00446.compvms +++|          LDD    CM          CHECK MASS STORAGE
00499  M00S00447.compvms +++|          SHN    21-13
00500  M00S00448.compvms +++|          PJN    CEE1        IF NOT MASS STORAGE
00501  M00S00449.compvms +++|          LDD    CM+4        READ DRIVER NAME
00502  M00S00450.compvms +++|          SHN    3
00503  M00S00451.compvms +++|          ADN    MDGL
00504  M00S00452.compvms +++|          CRM    CEEA,ON
00505  M00S00453.compvms +++|          LDM    CEEA+2
00506  M00S00454.compvms +++|          LMC    2RDI
00507  M00S00455.compvms +++|          ZJN    CEEX        IF *DI* DRIVER
00508  M00S00456.compvms +++|          LDD    CM+2
00509  M00S00457.compvms +++|          UJN    CEE2        CONTINUE
00510  M00S00458.compvms +++| CEE1     LDD    CM+4
00511  M00S00459.compvms +++| CEE2     SHN    -11
00512  M00S00460.compvms +++|          LMD    T2
00513  M00S00461.compvms +++|          UJN    CEEX        RETURN
00514  M00S00462.compvms +++|
00515  M00S00463.compvms +++| CEEA     BSS    5
00516  M00S00464.compvms +++| CUE      SPACE  4,10
Line S00465 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00517  M01S00465.ns22000 ---|**        CUE  -  CHECK UNIT EQUIVALENCE.
Line S00047 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00047.ns22000 +++|**        CUE - CHECK UNIT EQUIVALENCE.
00519  M00S00466.compvms +++|*
00520  M00S00467.compvms +++|*         ENTRY  (T3) = UNIT NUMBER.
00521  M00S00468.compvms +++|*                (CM - CM + 4) = EST ENTRY.
00522  M00S00469.compvms +++|*
00523  M00S00470.compvms +++|*         EXIT   (A) = 0  IF UNIT IS VALID.
00524  M00S00471.compvms +++|*                (A) .NE. 0  IF UNIT NOT VALID.
00525  M00S00472.compvms +++|*
00526  M00S00473.compvms +++|*         USES   T0, T7, T9, CN - CN+4.
00527  M00S00474.compvms +++|
00528  M00S00475.compvms +++|
00529  M00S00476.compvms +++| CUE      SUBR               ENTRY/EXIT
00530  M00S00477.compvms +++|          LDD    CM          CHECK MASS STORAGE
00531  M00S00478.compvms +++|          SHN    21-13
00532  M00S00479.compvms +++|          MJN    CUE1        IF MASS STORAGE
00533  M00S00480.compvms +++|          LDN    CM+4
00534  M00S00481.compvms +++|          STD    T0
00535  M00S00482.compvms +++|          LDI    T0          FORCE SINGLE DEVICE
00536  M00S00483.compvms +++|          LPC    7077
00537  M00S00484.compvms +++|          STI    T0
00538  M00S00485.compvms +++|          LDN    0
00539  M00S00486.compvms +++|          STD    T9
00540  M00S00487.compvms +++|          LJM    CUE3        CHECK UNIT NUMBER
00541  M00S00488.compvms +++|
00542  M00S00489.compvms +++| CUE1     LDD    CM+4        GET UNIT LIST
00543  M00S00490.compvms +++|          SHN    3
00544  M00S00491.compvms +++|          ADN    DDLL
00545  M00S00492.compvms +++|          CRD    CN
00546  M00S00493.compvms +++|          LDD    CN
00547  M00S00494.compvms +++|          LPN    7
00548  M00S00495.compvms +++|          STD    T9
00549  M00S00496.compvms +++|          LDD    CN
00550  M00S00497.compvms +++|          SHN    21-12
00551  M00S00498.compvms +++|          MJN    CUE5        IF NULL EQUIPMENT
00552  M00S00499.compvms +++|          LDN    CN+4        SET FIRST UNIT POSITION
00553  M00S00500.compvms +++|          STD    T0
00554  M00S00501.compvms +++| CUE2     LDI    T0          CHECK ODD UNIT
00555  M00S00502.compvms +++|          LPN    77
00556  M00S00503.compvms +++|          LMD    T3
00557  M00S00504.compvms +++|          ZJN    CUE5        IF VALID UNIT
00558  M00S00505.compvms +++|          SOD    T9          DECREMENT UNIT COUNT
00559  M00S00506.compvms +++|          MJN    CUE5        IF END OF UNITS
00560  M00S00507.compvms +++|          LDI    T0
00561  M00S00508.compvms +++|          SHN    -6
00562  M00S00509.compvms +++|          LMD    T3
00563  M00S00510.compvms +++|          ZJN    CUE5        IF VALID UNIT
00564  M00S00511.compvms +++|          SOD    T0          DECREMENT ADDRESS
00565  M00S00512.compvms +++|          SOD    T9          DECREMENT UNIT COUNT
00566  M00S00513.compvms +++|          MJN    CUE5        IF END OF UNITS
00567  M00S00514.compvms +++|          UJN    CUE2        LOOP FOR NEXT UNIT
00568  M00S00515.compvms +++|
00569  M00S00516.compvms +++| CUE3     LDI    T0          SET FIRST UNIT
00570  M00S00517.compvms +++|          LPN    77
00571  M00S00518.compvms +++|          STD    T7
00572  M00S00519.compvms +++| CUE4     SBD    T3          CHECK NEXT UNIT
00573  M00S00520.compvms +++|          ZJN    CUE5        IF UNIT VALID
Line S00521 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00521.ns22000 ---|
00575  M00S00522.compvms ---|          SOD    T9
00576  M00S00523.compvms ---|          MJN    CUE5        IF NO MORE UNITS
00577  M01S00524.ns22000 ---|
00578  M00S00525.compvms ---|          AOD    T7          INCREMENT UNIT NUMBER
00579  M00S00526.compvms ---|          UJN    CUE4        CONTINUE
00580  M00S00527.compvms ---|
00581  M00S00528.compvms ---| CUE5     LJM    CUEX        RETURN
00582  M00S00529.compvms ---| SUN      SPACE  4,10
00583  M01S00530.ns22000 ---|**        SUN  -  SET MULTISPINDLE UNIT NUMBER.
Line S00048 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00048.ns22000 +++|**        SUN - SET MULTISPINDLE UNIT NUMBER.
00585  M00S00531.compvms +++|*
00586  M00S00532.compvms +++|*         ENTRY  (RU) = RELATIVE UNIT WITHIN MULTISPINDLE DEVICE.
00587  M00S00533.compvms +++|*                (CM  -  CM+4) = EST ENTRY.
00588  M00S00534.compvms +++|*
00589  M00S00535.compvms +++|*         EXIT   (T3) = UNIT NUMBER WITHIN MULTISPINDLE DEVICE.
00590  M00S00536.compvms +++|*                (A) = 0 IF VALID.
00591  M00S00537.compvms +++|*
00592  M00S00538.compvms +++|*         USES   T0, T3, T7, T9, CN - CN+4.
00593  M00S00539.compvms +++|
00594  M00S00540.compvms +++|
00595  M00S00541.compvms +++| SUN      SUBR               ENTRY/EXIT
00596  M00S00542.compvms +++|          LDD    RU          SET ORDINAL
00597  M00S00543.compvms +++|          STD    T3
00598  M00S00544.compvms +++|          LDD    CM
00599  M00S00545.compvms +++|          SHN    21-13
00600  M00S00546.compvms +++|          MJN    SUN1        IF MASS STORAGE
00601  M00S00547.compvms +++|          LDN    CM+4
00602  M00S00548.compvms +++|          STD    T0
00603  M00S00549.compvms +++|          LDI    T0          CLEAR EQUIPMENT CHARACTERISTICS CODE
00604  M00S00550.compvms +++|          LPC    7077
00605  M00S00551.compvms +++|          STI    T0
00606  M00S00552.compvms +++|          LDN    0
00607  M00S00553.compvms +++|          STD    T9
00608  M00S00554.compvms +++|          LJM    SUN4        SET UNIT NUMBER
00609  M00S00555.compvms +++|
00610  M00S00556.compvms +++| SUN1     LDD    CM+4        GET UNIT LIST
00611  M00S00557.compvms +++|          SHN    3
00612  M00S00558.compvms +++|          ADN    DDLL
00613  M00S00559.compvms +++|          CRD    CN
00614  M00S00560.compvms +++|          LDD    CN
00615  M00S00561.compvms +++|          LPN    7
00616  M00S00562.compvms +++|          STD    T9
00617  M00S00563.compvms +++|          LDD    T3          SET WORD INDEX
00618  M00S00564.compvms +++|          SHN    -1
00619  M00S00565.compvms +++|          STD    T3
00620  M00S00566.compvms +++|          LDN    CN+4
00621  M00S00567.compvms +++|          SBD    T3
00622  M00S00568.compvms +++|          STD    T3
00623  M00S00569.compvms +++|          LDD    RU          CHECK FOR UPPER/LOWER UNIT
00624  M00S00570.compvms +++|          LPN    1
00625  M00S00571.compvms +++|          ZJN    SUN2        IF LOWER UNIT
00626  M00S00572.compvms +++|          LDI    T3
00627  M00S00573.compvms +++|          SHN    -6
00628  M00S00574.compvms +++|          UJN    SUN3        PROCESS UNIT
00629  M00S00575.compvms +++|
00630  M00S00576.compvms +++| SUN2     LDI    T3
00631  M00S00577.compvms +++| SUN3     LPN    77
00632  M00S00578.compvms +++|          STD    T7
00633  M00S00579.compvms +++|          UJN    SUN6        SET UNIT NUMBER
00634  M00S00580.compvms +++|
00635  M00S00581.compvms +++| SUN4     LDI    T0          SET STARTING UNIT
00636  M00S00582.compvms +++|          LPN    77
00637  M00S00583.compvms +++|          STD    T7
00638  M00S00584.compvms +++| SUN5     SOD    T3
00639  M00S00585.compvms +++|          MJN    SUN6        IF REQUESTED UNIT
00640  M00S00586.compvms +++|          SOD    T9
00641  M00S00587.compvms +++|          MJN    SUN7        IF NO MORE UNITS WITHIN MULTISPINDLE DEVICE
00642  M00S00588.compvms +++|          AOD    T7          INCREMENT UNIT
00643  M00S00589.compvms +++|          UJN    SUN5        CONTINUE
00644  M00S00590.compvms +++|
00645  M00S00591.compvms +++| SUN6     LDD    T7          SET CORRECT UNIT
00646  M00S00592.compvms +++|          STD    T3
00647  M00S00593.compvms +++|          LDN    0
00648  M00S00594.compvms +++| SUN7     LJM    SUNX        RETURN
00649  M00S00595.compvms +++| SPP      SPACE  4,10
00650  M00S00596.compvms +++|**        SPP - SET PHYSICAL EQUIPMENT PARAMETERS.
00651  M00S00597.compvms +++|*
00652  M00S00598.compvms +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00653  M00S00599.compvms +++|*
00654  M00S00600.compvms +++|*         EXIT   (T1) = CHANNEL.
Line S00601 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00655  M01S00601.ns22000 ---|*                (T2) = EQUIPMENT NUMBER.
Line S00049 Modification History
M01 (Added by) ns22000
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00049.252l678 ---|*                (T2) = EST ORDINAL.
Line S00003 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00657  M01S00003.252l678 +++|*                (T2) = EQUIPMENT NUMBER.
00658  M00S00602.compvms +++|*                (T3) = INITIAL UNIT NUMBER.
00659  M00S00603.compvms +++|*                (DT) = DEVICE TYPE.
00660  M00S00604.compvms +++|*
00661  M00S00605.compvms +++|*         USES   T0, T1, T2, T3, DT, CN - CN+4.
00662  M00S00606.compvms +++|
00663  M00S00607.compvms +++|
00664  M00S00608.compvms +++| SPP3     LDN    CM+4
00665  M00S00609.compvms +++| SPP4     STD    T0
00666  M00S00610.compvms +++|          LDI    T0          SET UNIT PARAMETER
00667  M00S00611.compvms +++|          LPN    77
00668  M00S00612.compvms +++|          STD    T3
00669  M00S00613.compvms +++|          LDI    T0          SET EQUIPMENT PARAMETER
00670  M00S00614.compvms +++|          SHN    -11
00671  M00S00615.compvms +++|          STD    T2
00672  M00S00616.compvms +++|
00673  M00S00617.compvms +++| SPP      SUBR               ENTRY/EXIT
00674  M00S00618.compvms +++|          LDD    CM+1        SET CHANNEL FOUND
00675  M00S00619.compvms +++|          LPN    77
00676  M00S00620.compvms +++|          STD    T1
00677  M00S00621.compvms +++|          LDD    CM+3        SET DEVICE TYPE
Line S00622 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00678  M01S00622.252l678 ---|          LPC    3777
00679  M00S00623.compvms ---|          STD    DT
00680  M00S00624.compvms ---|          LDD    CM          CHECK FOR MASS STORAGE DEVICE
00681  M00S00625.compvms ---|          SHN    21-13
00682  M00S00626.compvms ---|          PJN    SPP3        IF NOT MASS STORAGE
00683  M00S00627.compvms ---|          LDD    CM+4        GET UNIT LIST
00684  M00S00628.compvms ---|          SHN    3
00685  M00S00629.compvms ---|          ADN    DDLL
00686  M00S00630.compvms ---|          CRD    CN
00687  M01S00631.252l678 ---|          LDD    CN+4        MERGE EQUIPMENT AND UNIT
00688  M01S00632.252l678 ---|          SCN    77
00689  M01S00633.252l678 ---|          LMD    CM+2
00690  M01S00634.252l678 ---|          SCN    77
00691  M01S00635.252l678 ---|          LMD    CN+4
00692  M01S00636.252l678 ---|          STD    CN+4
00693  M00S00637.compvms ---|          LDN    CN+4
00694  M00S00638.compvms ---|          UJN    SPP4        CHECK EQUIPMENT
00695  M00S00639.compvms ---| FAR      SPACE  4,15
00696  M00S00640.compvms ---|**        FAR - FORMAT A - REGISTER FOR RETURN TO CALLING PROGRAM.
00697  M00S00641.compvms ---|*
Line S00642 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00642.ns22000 ---|*         ENTRY  (OD) = EST ADDRESS.
00699  M01S00643.ns22000 ---|*                (T4) = FWA OF EST.
Line S00050 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00700  M01S00050.ns22000 +++|*         ENTRY  (OD) = EST ORDINAL.
00701  M00S00644.compvms +++|*                (T8) = VALIDATION CODE.
00702  M00S00645.compvms +++|*                (T1) = CHANNEL.
Line S00646 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00703  M01S00646.ns22000 ---|*                (T2) = EQUIPMENT NUMBER.
Line S00051 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00704  M01S00051.ns22000 +++|*                (T2) = EST ORDINAL.
00705  M00S00647.compvms +++|*                (T3) = UNIT NUMBER.
00706  M00S00648.compvms +++|*
00707  M00S00649.compvms +++|*         EXIT   (A) = NECCUU AS DEFINED PREVIOUSLY.
00708  M00S00650.compvms +++|*
00709  M00S00651.compvms +++|*         USES   OD.
00710  M00S00652.compvms +++|
00711  M00S00653.compvms +++|
00712  M00S00654.compvms +++| FAR      SUBR               ENTRY/EXIT
Line S00655 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00713  M01S00655.ns22000 ---|          LDD    OD          SET EST ORDINAL
00714  M01S00656.ns22000 ---|          SBD    T4
00715  M01S00657.ns22000 ---|          STD    OD
00716  M00S00658.compvms ---|          LDD    T8          SET VALIDATION CODE
00717  M00S00659.compvms ---|          SHN    3
00718  M00S00660.compvms ---|          LMD    T2          SET EQUIPMENT CODE
00719  M00S00661.compvms ---|          SHN    6
00720  M00S00662.compvms ---|          LMD    T1          SET CHANNEL
00721  M00S00663.compvms ---|          SHN    6
00722  M00S00664.compvms ---|          LMD    T3          SET UNIT NUMBER
00723  M00S00665.compvms ---|          UJN    FARX        RETURN
00724  M00S00666.compvms ---| CDC      SPACE  4,10
00725  M00S00667.compvms ---|**        CDC - CHECK FOR DEDICATED OR NON - EXISTENT CHANNEL.
00726  M00S00668.compvms ---|*
00727  M00S00669.compvms ---|*         ENTRY  (T1) = CHANNEL REQUESTED.
00728  M00S00670.compvms ---|*                (CHANNEL TABLE ENTRY) = 100 IF CHANNEL DEDICATED.
00729  M00S00671.compvms ---|*
00730  M00S00672.compvms ---|*         EXIT   (A) .EQ. 0 IF CHANNEL EXISTS AND NOT DEDICATED.
00731  M00S00673.compvms ---|*                (A) .NE. 0 IF CHANNEL NON - EXISTENT OR DEDICATED.
00732  M00S00674.compvms ---|*
00733  M00S00675.compvms ---|
00734  M00S00676.compvms ---|
00735  M00S00677.compvms ---| CDC1     LDN    1           SET DEDICATED
00736  M00S00678.compvms ---|
00737  M00S00679.compvms ---| CDC      SUBR               ENTRY/EXIT
00738  M00S00680.compvms ---|          LDD    T1          CHECK FOR NON - EXISTENT CHANNEL
Line S00681 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00739  M01S00681.251l664 ---|          SBN    CTALL*5
Line S00004 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00004.251l664 +++|          SBN    MXNC+1
00741  M00S00682.compvms +++|          PJN    CDC1        IF NO SUCH CHANNEL
Line S00683 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00742  M01S00683.ns22000 ---|
00743  M00S00684.compvms ---|          LDM    CHT,T1      CHECK FOR DEDICATED CHANNEL
00744  M00S00685.compvms ---|          LMD    HN
00745  M00S00686.compvms ---|          ZJN    CDC1        IF DEDICATED
00746  M00S00687.compvms ---|          LDN    0
00747  M00S00688.compvms ---|          UJN    CDCX        RETURN
00748  M00S00689.compvms ---| BCT      SPACE  4,10
00749  M00S00690.compvms ---|**        BCT - BUILD AVAILABLE CHANNEL TABLE.
00750  M00S00691.compvms ---|*
00751  M01S00692.ns22000 ---|*         ENTRY  (T4) .EQ. FWA OF EST.
00752  M01S00693.ns22000 ---|*                (T5) .EQ. LWA + 1 OF EST.
Line S00052 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00753  M01S00052.ns22000 +++|*         ENTRY  (T6) = LAST EST ORDINAL + 1.
00754  M00S00694.compvms +++|*
00755  M00S00695.compvms +++|*         EXIT   (CHT) + CHANNEL .EQ. 100 IF ILLEGAL CHANNEL.
00756  M00S00696.compvms +++|*                (CHT) + CHANNEL .EQ. CURRENT CHANNEL REQUESTED IF
00757  M00S00697.compvms +++|*                CHANNEL NOT DEDICATED.
00758  M00S00698.compvms +++|*
00759  M00S00699.compvms +++|*         USES   T8, T9, CN - CN+4.
00760  M00S00700.compvms +++|*
00761  M00S00701.compvms +++|*         CALLS  SCU.
00762  M01S00053.ns22000 +++|*
00763  M01S00054.ns22000 +++|*         MACROS SFA.
00764  M00S00702.compvms +++|
00765  M00S00703.compvms +++|
00766  M00S00704.compvms +++| BCT      SUBR               ENTRY/EXIT
Line S00705 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00767  M01S00705.251l664 ---|          LDN    CTALL       CHANNEL STATUS TABLE LENGTH
Line S00005 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00768  M01S00005.251l664 +++|          LDN    NCTAL       CHANNEL STATUS TABLE LENGTH
00769  M00S00706.compvms +++|          STD    T8
00770  M00S00707.compvms +++|          LDC    CHTP        FWA OF CHANNEL TABLES
00771  M00S00708.compvms +++|          CRD    CN
00772  M00S00709.compvms +++|          LDD    CN+2        READ CHANNEL STATUS TABLE
00773  M00S00710.compvms +++|          SHN    14
00774  M00S00711.compvms +++|          LMD    CN+3
00775  M00S00712.compvms +++|          CRM    CHT,T8
00776  M00S00713.compvms +++| BCT1     LDD    HN          SET INVALID CHANNELS
00777  M00S00714.compvms +++|          STM    CHT+14
00778  M00S00715.compvms +++|          STM    CHT+15
00779  M00S00716.compvms +++|          STM    CHT+16
00780  M00S00717.compvms +++|          STM    CHT+17
Line S00718 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00718.ns22000 ---|
00782  M01S00719.ns22000 ---|          LDD    T4          T4 .EQ. FWA OF EST
Line S00055 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00783  M01S00055.ns22000 +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00784  M00S00720.compvms +++|          STD    T8
Line S00721 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00785  M01S00721.ns22000 ---| BCT2     LDD    T8          READ EST ENTRY
Line S00056 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00056.ns22000 +++| BCT2     SFA    EST,T8      READ EST ENTRY
00787  M01S00057.ns22000 +++|          ADK    EQDE
00788  M00S00722.compvms +++|          CRD    CN
Line S00723 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00723.251l664 ---|          LDN    0           SET DEVICE TABLE INDEX
Line S00006 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00006.252l678 ---|          LDD    CN          CHECK CHANNEL TYPE
Line S00004 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00791  M01S00004.252l678 +++|          LDD    CN+1        CHECK CHANNEL TYPE
00792  M01S00005.252l678 +++|          LPN    40
00793  M01S00006.252l678 +++|          NJN    BCT4        IF CONCURENT CHANNEL
00794  M01S00007.252l678 +++|          LDD    CN+2
Line S00007 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00795  M01S00007.251l664 +++|          LPN    40
00796  M01S00008.251l664 +++|          NJN    BCT4        IF EQUIPMENT IS ON CONCURRENT CHANNELS
00797  M01S00009.251l664 +++|*         LDN    0           SET DEVICE TABLE INDEX
00798  M00S00724.compvms +++|          STD    T9
00799  M00S00725.compvms +++| BCT3     LDD    CN+3        CHECK EQUIPMENT TYPE
Line S00726 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00800  M01S00726.252l678 ---|          LPC    3777
00801  M00S00727.compvms ---|          ZJN    BCT4        IF NO EQUIPMENT DEFINED
00802  M00S00728.compvms ---|          LMM    DTB,T9
00803  M00S00729.compvms ---|          ZJN    BCT5        IF DEFINED EQUIPMENT
00804  M00S00730.compvms ---|          LDN    2
00805  M00S00731.compvms ---|          RAD    T9
Line S00732 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00806  M01S00732.ns22000 ---|          LMN    DTBL
Line S00058 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00058.ns22000 +++|          LMC    DTBL
00808  M00S00733.compvms +++|          NJN    BCT3        IF NOT END OF DEDICATED EQUIPMENT TABLE
00809  M00S00734.compvms +++|          RJM    SCU         SET UNAVAILABLE FOR UNDEFINED MNEMONIC
00810  M00S00735.compvms +++| BCT4     AOD    T8          CHECK NEXT EST ENTRY
Line S00736 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00811  M01S00736.ns22000 ---|          LMD    T5
Line S00059 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00812  M01S00059.ns22000 +++|          LMD    T6
00813  M00S00737.compvms +++|          NJN    BCT2        IF NOT LAST ENTRY
00814  M00S00738.compvms +++|          LJM    BCTX        RETURN
00815  M00S00739.compvms +++|
00816  M00S00740.compvms +++| BCT5     AOD    T9
00817  M00S00741.compvms +++|          LDM    DTB,T9
00818  M00S00742.compvms +++|          ZJN    BCT4        IF NOT DEDICATED EQUIPMENT
00819  M00S00743.compvms +++|          SHN    21-1
00820  M00S00744.compvms +++|          PJN    BCT6        IF *OFF* CONDITION DOES NOT APPLY
Line S00745 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00821  M01S00745.251l664 ---|          LDD    CN+3
00822  M01S00746.251l664 ---|          SHN    21-13
00823  M01S00747.251l664 ---|          MJN    BCT4        IF *OFF*
Line S00010 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00824  M01S00010.251l664 +++|          LDD    CN
00825  M01S00011.251l664 +++|          LPN    3
00826  M01S00012.251l664 +++|          LMN    2
00827  M01S00013.251l664 +++|          ZJN    BCT4        IF *OFF*
Line S00748 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00828  M01S00748.ns22000 ---|
00829  M00S00749.compvms ---| BCT6     RJM    SCU         SET CHANNEL UNAVAILABLE
00830  M00S00750.compvms ---|          UJN    BCT4        CONTINUE
00831  M00S00751.compvms ---| DTB      SPACE  4,33
00832  M00S00752.compvms ---|**        DEVICE TYPE TABLE.
00833  M00S00753.compvms ---|*
00834  M00S00754.compvms ---|*
00835  M00S00755.compvms ---|*         TABLE OF SYSTEM RECOGNIZED DEVICES AND DEDICATED STATUS.
Line S00060 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00836  M01S00060.ns22000 +++|*         ANY DEVICE WHICH IS NOT IN THIS TABLE WILL BE ASSUMED TO BE
00837  M01S00061.ns22000 +++|*         ON A DEDICATED CHANNEL.
00838  M00S00756.compvms +++|*
00839  M00S00757.compvms +++|*T,       12/EQ
Figure

011EQ

00840  M00S00758.compvms +++|*T,       10/0,1/S,1/D
Figure

01211DS0

00841  M00S00759.compvms +++|*
00842  M00S00760.compvms +++|*         EQ = DEVICE CODE.
00843  M00S00761.compvms +++|*         S = *ON* STATUS REQUIRED FOR DEDICATED DEVICE.
00844  M00S00762.compvms +++|*         D = DEDICATED DEVICE.
00845  M00S00763.compvms +++|
00846  M00S00764.compvms +++|
00847  M00S00765.compvms +++|**        DTY - DEVICE TYPE MACRO.
00848  M00S00766.compvms +++|*
00849  M00S00767.compvms +++|*         DTY    DV,DED,ON
00850  M00S00768.compvms +++|*
00851  M00S00769.compvms +++|*                DV = DEVICE MNEMONIC.
00852  M00S00770.compvms +++|*                DED = DEDICATED TO SYSTEM .
00853  M00S00771.compvms +++|*                ON = DEDICATED TO SYSTEM ONLY IF *ON*.
00854  M00S00772.compvms +++|
00855  M00S00773.compvms +++|
00856  M00S00774.compvms +++| DTY      MACRO  DV,DED,ON
00857  M00S00775.compvms +++|          LOCAL  A,B
00858  M00S00776.compvms +++| A        MICRO  1,2,*DV*
00859  M00S00777.compvms +++| B        SET    0
00860  M00S00778.compvms +++|          CON    2R_"A"
00861  M00S00779.compvms +++|          IFC    NE,$DED$$,3
00862  M00S00780.compvms +++| B        SET    1
00863  M00S00781.compvms +++|          IFC    NE,$ON$$,1
00864  M00S00782.compvms +++| B        SET    B+2
00865  M00S00783.compvms +++|          CON    B
00866  M00S00784.compvms +++|          ENDM
00867  M00S00785.compvms +++|
00868  M00S00786.compvms +++|
Line S00787 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00787.ns22000 ---| DTB      DTY    DS,DED      SYSTEM DISPLAY CONSOLE
00870  M01S00788.ns22000 ---|          DTY    MT,DED      7 TRACK TAPE
00871  M01S00789.ns22000 ---|          DTY    NT,DED      9 TRACK TAPE
00872  M01S00790.ns22000 ---|          DTY    TT,DED,ON   6671/6676 MULTIPLEXER
00873  M01S00791.ns22000 ---|          DTY    SA,DED,ON   6673/6674 MULTIPLEXER
00874  M01S00792.ns22000 ---|          DTY    ST,DED,ON   STIMULATOR MULTIPLEXER
00875  M01S00793.ns22000 ---|          DTY    TE          TAPE EQUIPMENT
00876  M01S00794.ns22000 ---|          DTY    NE          NON - EXISTENT EQUIPMENT
00877  M01S00795.ns22000 ---|          DTY    CR          CARD READER
00878  M01S00796.ns22000 ---|          DTY    CP          CARD PUNCH
00879  M01S00797.ns22000 ---|          DTY    LP          501/505/512/580 LINE PRINTER
00880  M01S00798.ns22000 ---|          DTY    LQ          512/580 LINE PRINTER
00881  M01S00799.ns22000 ---|          DTY    LR          580 LINE PRINTER
00882  M01S00800.ns22000 ---|          DTY    DE          ECS
00883  M01S00801.ns22000 ---|          DTY    DH
00884  M01S00802.ns22000 ---|          DTY    DJ          7054/844-41 DISK FILE(DOUBLE DENSITY)
00885  M01S00803.ns22000 ---|          DTY    DI          7054/844-21 DISK FILE (SINGLE DENSITY
00886  M01S00804.ns22000 ---|          DTY    DK          7154/844-21 DISK FILE (FULL TRACK)
00887  M01S00805.ns22000 ---|          DTY    DL          7154/844-4X DISK FILE (FULL TRACK)
00888  M01S00806.ns22000 ---|          DTY    DM          885 HALF TRACK
00889  M01S00807.ns22000 ---|          DTY    DQ          885 FULL TRACK
00890  M01S00808.ns22000 ---|          DTY    DP          ECS PPU ACCESS
00891  M01S00809.ns22000 ---|          DTY    MD          841 DISK FILE
Line S00062 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00892  M01S00062.ns22000 +++| DTB      BSS    0
Line S00001 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00893  M01S00001.274l797 +++|          DTY    AT,DED      5680 CARTRIDGE MAGNETIC TAPE ON 5744 ACS
Line S00063 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00063.ns22000 +++|          DTY    CC,DED,ON   6683 SATELLITE COUPLER
Line S00001 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
00895  M01S00001.v22l602 +++|          DTY    CM          CONTROL MODULE
Line S00064 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00896  M01S00064.ns22000 +++|          DTY    CP          405 CARD PUNCH
00897  M01S00065.ns22000 +++|          DTY    CR          415 CARD READER
Line S00001 Modification History
M01 (Added by) pvms1
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00001.274l797 ---|          DTY    CS          MSS CARTRIDGE SELECTOR
00899  M02S00002.274l797 ---|          DTY    CT          MSS CARTRIDGE TRANSPORT
Line S00002 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00900  M01S00002.274l797 +++|          DTY    CT,DED      5680 CARTRIDGE MAGNETIC TAPE
Line S00066 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00901  M01S00066.ns22000 +++|          DTY    DA          FSC DISK
00902  M01S00067.ns22000 +++|          DTY    DB          885-41 PARALLEL HEAD FMD
Line S00003 Modification History
M01 (Added by) pvms1
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00003.274l797 ---|          DTY    DC          895-1/2 (FULL TRACK)
Line S00002 Modification History
M01 (Added by) v22l602
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00002.274l797 ---|          DTY    DD          834 (FULL TRACK)
Line S00001 Modification History
M01 (Added by) 242l642
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00001.274l797 ---|          DTY    DG          836 (FULL TRACK)
Line S00003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00906  M01S00003.274l797 +++|          DTY    DC          895-1/2
00907  M01S00004.274l797 +++|          DTY    DD          834
Line S00068 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00068.ns22000 +++|          DTY    DE          EXTENDED MEMORY
Line S00005 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00909  M01S00005.274l797 +++|          DTY    DF          887 (4KB SECTOR)
00910  M01S00006.274l797 +++|          DTY    DG          836
00911  M01S00007.274l797 +++|          DTY    DH          887 (16KB SECTOR)
Line S00069 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00069.ns22000 +++|          DTY    DI          844-21 (HALF TRACK)
00913  M01S00070.ns22000 +++|          DTY    DJ          844-4X (HALF TRACK)
00914  M01S00071.ns22000 +++|          DTY    DK          844-21 (FULL TRACK)
00915  M01S00072.ns22000 +++|          DTY    DL          844-4X (FULL TRACK)
00916  M01S00073.ns22000 +++|          DTY    DM          885 (HALF TRACK)
Line S00008 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00917  M01S00008.274l797 +++|          DTY    DN          9853
Line S00074 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00918  M01S00074.ns22000 +++|          DTY    DP          EXTENDED MEMORY (WITH DDP)
00919  M01S00075.ns22000 +++|          DTY    DQ          885 (FULL TRACK)
00920  M01S00076.ns22000 +++|          DTY    DS,DED,ON   CONSOLE DISPLAY
00921  M01S00077.ns22000 +++|          DTY    DV          819 (SINGLE DENSITY)
00922  M01S00078.ns22000 +++|          DTY    DW          819 (DOUBLE DENSITY)
00923  M01S00079.ns22000 +++|          DTY    DX          FSC DISK
00924  M01S00080.ns22000 +++|          DTY    DY          FSC DISK
00925  M01S00081.ns22000 +++|          DTY    DZ          FSC DISK
Line S00009 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00926  M01S00009.274l797 +++|          DTY    EA          5832 (1X)
00927  M01S00010.274l797 +++|          DTY    EB          5832 (2X)
00928  M01S00011.274l797 +++|          DTY    EC          5833 (1X)
00929  M01S00012.274l797 +++|          DTY    ED          5833 (1XP)
00930  M01S00013.274l797 +++|          DTY    EE          5833 (2X)
00931  M01S00014.274l797 +++|          DTY    EF          5833 (2XP)
Line S00082 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00082.ns22000 +++|          DTY    LP          512/580 LINE PRINTER
00933  M01S00083.ns22000 +++|          DTY    LQ          512/580 LINE PRINTER
00934  M01S00084.ns22000 +++|          DTY    LR          512/580 LINE PRINTER
00935  M01S00085.ns22000 +++|          DTY    LS          512/580 LINE PRINTER
00936  M01S00086.ns22000 +++|          DTY    LT          512/580 LINE PRINTER
Line S00001 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00937  M01S00001.241l630 +++|          DTY    LX          5870 NON-IMPACT PRINTER
00938  M01S00002.241l630 +++|          DTY    LY          5970 NON-IMPACT PRINTER
Line S00004 Modification History
M01 (Added by) pvms1
Seq #  *Modification Id* Act 
----------------------------+
00939  M01S00004.pvms1   +++|          DTY    MP          MAP III
Line S00087 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00087.ns22000 +++|          DTY    MT,DED      66X/67X MAGNETIC TAPES
00941  M01S00088.ns22000 +++|          DTY    NC          NAD
Line S00005 Modification History
M01 (Added by) pvms1
Seq #  *Modification Id* Act 
----------------------------+
00942  M01S00005.pvms1   +++|          DTY    ND,DED,ON   MAINFRAME INTERFACE (MDI)
Line S00089 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00943  M01S00089.ns22000 +++|          DTY    NE          *NE* PSEUDO-EQUIPMENT
00944  M01S00090.ns22000 +++|          DTY    NP,DED,ON   255X NPU
00945  M01S00091.ns22000 +++|          DTY    NT,DED      66X/67X MAGNETIC TAPES
00946  M01S00092.ns22000 +++|          DTY    RM,DED,ON   TWO-PORT MULTIPLEXER
Line S00006 Modification History
M01 (Added by) pvms1
Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00006.pvms1   +++|          DTY    RP          RING PORT
00948  M01S00007.pvms1   +++|          DTY    SS          7990 CONTROLLER
Line S00093 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00093.ns22000 +++|          DTY    TE          *TE* PSEUDO-EQUIPMENT
00950  M01S00094.ns22000 +++|          DTY    TT          *TT* PSEUDO-EQUIPMENT/STIMULATOR MUX
00951  M00S00810.compvms +++| DTBL     EQU    *-DTB
00952  M00S00811.compvms +++| SCU      SPACE  4,10
00953  M00S00812.compvms +++|**        SCU - SET CHANNEL UNAVAILABLE.
00954  M00S00813.compvms +++|*
00955  M00S00814.compvms +++|*         ENTRY  (CN - CN+4) .EQ. EST ENTRY.
00956  M00S00815.compvms +++|*
00957  M00S00816.compvms +++|*         EXIT   (CHT) +  CHANNEL .EQ. 100B IF NOT AVAILABLE.
00958  M00S00817.compvms +++|*
00959  M00S00818.compvms +++|*         USES   CN - CN+4.
00960  M00S00819.compvms +++|
00961  M00S00820.compvms +++|
00962  M00S00821.compvms +++| SCU      SUBR               ENTRY/EXIT
00963  M00S00822.compvms +++|          LDD    CN+1
00964  M00S00823.compvms +++|          LPN    77
00965  M00S00824.compvms +++|          STD    CN+4
00966  M00S00825.compvms +++|          LDD    HN
00967  M00S00826.compvms +++|          STM    CHT,CN+4
Line S00827 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00968  M01S00827.252l678 ---|          LDD    CN+1        CHECK NEXT CHANNEL
00969  M01S00828.252l678 ---|          SHN    -6
Line S00008 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00970  M01S00008.252l678 +++|          LDD    CN+2        CHECK NEXT CHANNEL
00971  M01S00009.252l678 +++|          LPN    77
00972  M00S00829.compvms +++|          ZJN    SCUX        IF NOT ALTERNATE CHANNEL
00973  M00S00830.compvms +++|          STD    CN+4
00974  M00S00831.compvms +++|          LDD    HN          SET DEDICATED
Line S00832 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00975  M01S00832.252l678 ---|          STM    CHT,CN+4
00976  M01S00833.252l678 ---|          LDD    CN          CHECK FOR MASS STORAGE
00977  M01S00834.252l678 ---|          SHN    21-13
00978  M01S00835.252l678 ---|          MJN    SCUX        IF MASS STORAGE
00979  M01S00836.252l678 ---|          LDD    CN+2
00980  M01S00837.252l678 ---|          LPN    77
00981  M01S00838.252l678 ---|          ZJN    SCUX        IF NOT ALTERNATE CHANNEL
00982  M01S00839.252l678 ---|          STD    CN+4
00983  M01S00840.252l678 ---|          LDD    HN          SET DEDICATED
00984  M01S00841.252l678 ---|          STM    CHT,CN+4
00985  M01S00842.252l678 ---|          LDD    CN+2
00986  M01S00843.252l678 ---|          SHN    -6
00987  M01S00844.252l678 ---|          ZJN    SCUX        IF NOT ALTERNATE CHANNEL
00988  M01S00845.252l678 ---|          STD    CN+4
00989  M01S00846.252l678 ---|          LDD    HN
00990  M00S00847.compvms ---|          STM    CHT,CN+4
00991  M00S00848.compvms ---|          LJM    SCUX        RETURN
00992  M00S00849.compvms ---|
00993  M00S00850.compvms ---|
Line S00851 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00994  M01S00851.251l664 ---| CHT      BSS    CTALL*5     CHANNEL STATUS TABLE BUFFER
Line S00014 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00995  M01S00014.251l664 +++| CHT      BSS    NCTAL*5     CHANNEL STATUS TABLE BUFFER
00996  M00S00852.compvms +++| CHTL     EQU    *-CHT
00997  M00S00853.compvms +++|          SPACE  4
00998  M00S00854.compvms +++| QUAL$    IF     -DEF,QUAL$
00999  M00S00855.compvms +++|          QUAL   *
01000  M00S00856.compvms +++| VMS      EQU    /COMPVMS/VMS
01001  M00S00857.compvms +++| QUAL$    ENDIF
01002  M00S00858.compvms +++|          ENDX
cdc/nos2.source/opl.opl871/common/compvms.txt ยท Last modified: (external edit)