User Tools

Site Tools


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

Common COMPVMS

9 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compvms +++|          CTEXT  COMPVMS - VALIDATE MASS STORAGE ORDINAL.
00002  M01S00002.compvms +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compvms +++|          QUAL   COMPVMS
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compvms +++|          SPACE  4
00006  M01S00005.compvms +++|***       VMS - VALIDATES A MASS STORAGE ORDINAL FOR NON - SYSTEM USE.
00007  M01S00006.compvms +++|*         R. L. CLAESON      75/02/15.
00008  M01S00007.compvms +++|          SPACE  4
00009  M01S00008.compvms +++|***              VMS VALIDATES A MASS STORAGE ORDINAL FOR NON - SYSTEM
00010  M01S00009.compvms +++|*         USE.
00011  M01S00010.compvms +++|*
00012  M01S00011.compvms +++|*         A DEVICE WILL BE VALIDATED FOR READ AND/OR WRITE DEPENDING
00013  M01S00012.compvms +++|*         UPON THE CONDITIONS IN THE FOLLOWING TABLE.  A DEVICE WHICH
00014  M01S00013.compvms +++|*         IS READ VALID MAY BE READ SAFELY BY A NON - STANDARD MASS
00015  M01S00014.compvms +++|*         STORAGE DRIVER WITHOUT INTERFERING WITH SYSTEM OPERATION.
00016  M01S00015.compvms +++|*
00017  M01S00016.compvms +++|*         A DEVICE WHICH IS WRITE VALID MAY BE SAFELY MODIFIED BY A
Line S00017 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.ns22000 ---|*         NON - STANDARD MASS STORAGE DRIVER AS LONG AS *MST* TABLES
00019  M01S00001.ns22000 +++|*         NON-STANDARD MASS STORAGE DRIVER AS LONG AS MST TABLES
00020  M01S00018.compvms +++|*         ARE PROPERLY MAINTAINED.  IF NOT THE DEVICE MUST BE
00021  M01S00019.compvms +++|*         REINITIALIZED BEFORE USE BY THE OPERATING SYSTEM.
00022  M01S00020.compvms +++|*
00023  M01S00021.compvms +++|*         A DEVICE WHICH IS FOUND BUT NOT READ OR WRITE VALID MAY
00024  M01S00022.compvms +++|*         BE USED ONLY AFTER REVALIDATION WITH THE NEW PARAMETERS
00025  M01S00023.compvms +++|*         RETURNED BY THE FIRST VALIDATION REQUEST.  THE USER IS
00026  M01S00024.compvms +++|*         RESPONSIBLE FOR DETERMINING THAT THE NEW PARAMETERS WILL
00027  M01S00025.compvms +++|*         ALLOW THE ROUTINE TO CONTINUE PROPERLY AS THE DEVICE TYPE,
00028  M01S00026.compvms +++|*         CHANNEL, EQUIPMENT, UNIT, EST ORDINAL MAY HAVE CHANGED FROM
00029  M01S00027.compvms +++|*         THE REQUESTED CHANNEL ETC.  EXTREME CARE MUST BE EXERCISED BY
00030  M01S00028.compvms +++|*         THE USER IF HE DECIDES TO REVALIDATE WITH PARAMETERS
00031  M01S00029.compvms +++|*         RETURNED FOLLOWING A FOUND BUT NOT READ OR WRITE VALID
00032  M01S00030.compvms +++|*         RESPONSE.
00033  M01S00031.compvms +++|*
00034  M01S00032.compvms +++|*
00035  M01S00033.compvms +++|*         VALIDATION BY THIS COMMON DECK DOES NOT RELIEVE THE USER FROM
00036  M01S00034.compvms +++|*         USING THE SYSTEM CHANNEL INTERFACE TO MAINTAIN SYSTEM
00037  M01S00035.compvms +++|*         INTEGRITY.
00038  M01S00036.compvms +++|*
00039  M01S00037.compvms +++|*
00040  M01S00038.compvms +++|*         1)  A DEVICE IS FOUND AND READ VALID IF -
00041  M01S00039.compvms +++|*
00042  M01S00040.compvms +++|*                            REQUEST         EST ENTRY
00043  M01S00041.compvms +++|*
00044  M01S00042.compvms +++|*                A)          THE DEVICE IS MASS STORAGE.
00045  M01S00043.compvms +++|*                B)          EQ         =    EQ
00046  M01S00044.compvms +++|*
00047  M01S00045.compvms +++|*
00048  M01S00046.compvms +++|*                THE FOLLOWING CONDITIONS APPLY IF CC .LT. 40B.
00049  M01S00047.compvms +++|*                C)          CC         =    CC
00050  M01S00048.compvms +++|*                D)   E = E  (IGNORED FOR *DI* DRIVER DEVICES)
00051  M01S00049.compvms +++|*                E)          UU         =    UU
00052  M01S00050.compvms +++|*
00053  M01S00051.compvms +++|*                THE FOLLOWING CONDITION APPLIES IF CC = 40.
00054  M01S00052.compvms +++|*                F)          THE DEVICE MUST BE SINGLE SPINDLE.
00055  M01S00053.compvms +++|*
00056  M01S00054.compvms +++|*
00057  M01S00055.compvms +++|*         2)  A DEVICE IS FOUND AND READ AND WRITE VALID IF -
00058  M01S00056.compvms +++|*
00059  M01S00057.compvms +++|*
00060  M01S00058.compvms +++|*             I) THE DEVICE IS NOT SHARED.
00061  M01S00059.compvms +++|*                            - OR -
00062  M01S00060.compvms +++|*             II)THE DEVICE IS SHARED AND GLOBAL UNLOAD IS SET.
00063  M01S00061.compvms +++|*                            - AND -
00064  M01S00062.compvms +++|*                A)          THE DEVICE IS *OFF*.
00065  M01S00063.compvms +++|*                            - AND -
00066  M01S00064.compvms +++|*                B)          THE DEVICE IS *REMOVABLE*.
00067  M01S00065.compvms +++|*                            - AND -
00068  M01S00066.compvms +++|*                C)          THE DEVICE IS *NOT IN USE*.
00069  M01S00067.compvms +++|*                            - AND -
00070  M01S00068.compvms +++|*                D)          THE DEVICE IS *UNAVAILABLE FOR PF ACCESS*.
00071  M01S00069.compvms +++|*
00072  M01S00070.compvms +++|*
00073  M01S00071.compvms +++|*                - OR-
00074  M01S00072.compvms +++|*
00075  M01S00073.compvms +++|*
00076  M01S00074.compvms +++|*             I) THE DEVICE IS NOT SHARED.
00077  M01S00075.compvms +++|*                            - OR -
00078  M01S00076.compvms +++|*             II)THE DEVICE IS SHARED AND GLOBAL UNLOAD IS SET.
00079  M01S00077.compvms +++|*                            - AND -
00080  M01S00078.compvms +++|*                A)          THE DEVICE IS *OFF*.
00081  M01S00079.compvms +++|*                            - AND-
00082  M01S00080.compvms +++|*                B)          THE DEVICE IS *REMOVABLE*.
00083  M01S00081.compvms +++|*                            - AND -
00084  M01S00082.compvms +++|*                C)          THE DEVICE IS *NOT IN USE*.
00085  M01S00083.compvms +++|*                            - AND -
00086  M01S00084.compvms +++|*                D)          THE DEVICE IS TO BE FULL INITIALIZED.
00087  M01S00085.compvms +++|*                            - AND -
00088  M01S00086.compvms +++|*                E)          THE DEVICE HAS FORMAT PENDING.
00089  M01S00087.compvms +++|*                            - AND -
00090  M01S00088.compvms +++|*                F)          THE DIRECT ACCESS FILE USER COUNT = 0.
00091  M01S00089.compvms +++|*
00092  M01S00090.compvms +++|*         3)  THE DEVICE WILL BE FOUND BUT NOT READ OR WRITE VALID IF
00093  M01S00091.compvms +++|*         THE DEVICE IS NOT MASS STORAGE OR THE DEVICE TYPES DO NOT
00094  M01S00092.compvms +++|*         MATCH.
00095  M01S00093.compvms +++|*
00096  M01S00094.compvms +++|*
00097  M01S00095.compvms +++|*         4)  ANY DEVICE WHICH IS NOT FOUND MAY BE USED BY THE CALLER
00098  M01S00096.compvms +++|*         IF HE USES THE STANDARD SYSTEM CHANNEL INTERFACE.
00099  M01S00097.compvms +++|*
00100  M01S00098.compvms +++|*
00101  M01S00099.compvms +++|*         5)  ANY DEVICE WHICH IS FOUND ON A CHANNEL WITH A DEDICATED
00102  M01S00100.compvms +++|*         EQUIPMENT SUCH AS THE SYSTEM DISPLAY WILL BE FOUND AND NOT
Line S00101 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00101.ns22000 ---|*         READ OR WRITE VALID.  THE EST ORDINAL RETURNED WILL BE FOR
Line S00102 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00102.ns22000 ---|*         EQUIPMENT 77 THE NON - EXISTENT EQUIPMENT ORDINAL.
00105  M01S00002.ns22000 +++|*         READ OR WRITE VALID.  THE EST ORDINAL RETURNED WILL BE 7777.
00106  M01S00103.compvms +++|*
00107  M01S00104.compvms +++|*
00108  M01S00105.compvms +++|*         6)  ANY DEVICE WHICH IS FOUND ON A NON - EXISTENT CHANNEL
00109  M01S00106.compvms +++|*         WILL ALSO BE FOUND AND NOT READ OR WRITE VALID AND ORDINAL
Line S00107 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00107.ns22000 ---|*         77 WILL BE SET.
00111  M01S00003.ns22000 +++|*         7777 WILL BE RETURNED.
00112  M01S00108.compvms +++|*
00113  M01S00109.compvms +++|*
00114  M01S00110.compvms +++|*
00115  M01S00111.compvms +++|*
Line S00112 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00112.ns22000 ---|*         ENTRY  (A) = CCEGUU.
Line S00113 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00113.ns22000 ---|*
Line S00114 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00114.ns22000 ---|*                      CC = REQUIRED CHANNEL
Line S00115 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00115.ns22000 ---|*                         = 40 IF UU = EST ORDINAL.
Line S00116 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00116.ns22000 ---|*                      E = PHYSICAL EQUIPMENT NUMBER.
Line S00117 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00117.ns22000 ---|*                      G = RELATIVE ORDINAL OF MULTISPINDLE GROUP.
Line S00118 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00118.ns22000 ---|*                      UU = DESIRED UNIT  OR  EST ORDINAL IF CC = 40B.
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  M01S00119.compvms +++|*                (DT) = DEVICE TYPE.
00130  M01S00120.compvms +++|*
00131  M01S00121.compvms +++|*         EXIT   (A) = 0  IF DEVICE NOT IN EST OR THE ENTRY IS 0.
00132  M01S00122.compvms +++|*                (A) = NECCUU  IF DEVICE IN EST.
00133  M01S00123.compvms +++|*
00134  M01S00124.compvms +++|*                            N = 4 IF DEVICE IN EST.
00135  M01S00125.compvms +++|*                              = 5 IF DEVICE IS READ VALID.
00136  M01S00126.compvms +++|*                              = 6 IF WRITE VALID (NOT USED).
00137  M01S00127.compvms +++|*                              = 7 IF READ AND WRITE VALID.
00138  M01S00128.compvms +++|*
00139  M01S00129.compvms +++|*                (T1) = CC OR 0000.
00140  M01S00130.compvms +++|*                (T2) = E OR 0000.
00141  M01S00131.compvms +++|*                (T3) = UU OR 0000.
Line S00132 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00132.ns22000 ---|*                (T4) = FWA OF EST.
Line S00133 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00133.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
Line S00134 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00134.ns22000 ---|*                (T6) = LWA + 1 OF MASS STORAGE ENTRIES IN EST.
00145  M01S00135.compvms +++|*                (CM - CM+4) = EST ENTRY FOR DEVICE.
00146  M01S00136.compvms +++|*                (T8) = STATUS CODE (N).
Line S00137 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00137.ns22000 ---|*                (CN - CN+4) = *MST* WORD *STLL* OR *ACGL*.
00148  M01S00010.ns22000 +++|*                (CN - CN+4) = MST WORD *STLL* OR *ACGL*.
00149  M01S00138.compvms +++|*                (DT) = DEVICE TYPE OR 0000.
Line S00139 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00139.ns22000 ---|*                (OD) = EST ORDINAL OF THE DEVICE OR 0077.
00151  M01S00011.ns22000 +++|*                (OD) = EST ORDINAL OF THE DEVICE OR 7777.
00152  M01S00140.compvms +++|*                (RU) = RELATIVE ORDINAL OF UNIT IN MULTISPINDLE UNIT.
00153  M01S00141.compvms +++|*
00154  M01S00142.compvms +++|*         THE VALUES OF 0000 FOR THE CHANNEL, EQUIPMENT, UNIT, DEVICE
Line S00143 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00143.ns22000 ---|*         TYPE AND 0077 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
00156  M01S00012.ns22000 +++|*         TYPE AND 7777 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
00157  M01S00144.compvms +++|*         NOT IN THE EST OR THE EST ENTRY IS EMPTY OR THE PHYSICAL
00158  M01S00145.compvms +++|*         PARAMETERS DO NOT MATCH.
00159  M01S00146.compvms +++|*
00160  M01S00147.compvms +++|*
Line S00148 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00148.ns22000 ---|*         USES   T1 - T7, CM - CM+4, T8, T9, CN - CN+4, DT, OD.
00162  M01S00013.ns22000 +++|*         USES   DT, OD, T8, T9, CM - CM+4, CN - CN+4, T1 - T7.
00163  M01S00149.compvms +++|*
Line S00150 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00150.ns22000 ---|*         CALLS  BCT, VME, VMC.
00165  M01S00014.ns22000 +++|*         CALLS  BCT, VMC, VME.
00166  M01S00151.compvms +++|
00167  M01S00152.compvms +++| VMS1     RJM    VMC         CHECK MASS STORAGE FOR DEVICE
00168  M01S00153.compvms +++|
00169  M01S00154.compvms +++| VMS      SUBR               ENTRY/EXIT
Line S00155 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00155.ns22000 ---|          STD    T4
Line S00156 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00156.ns22000 ---|          SHN    6
Line S00157 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00157.ns22000 ---|          LPN    77
Line S00158 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00158.ns22000 ---|          STD    T1          *CC*
Line S00159 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00159.ns22000 ---|          LDD    T4
Line S00160 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00160.ns22000 ---|          LPN    77
Line S00161 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00161.ns22000 ---|          STD    T3          *UU*  OR EST ORDINAL
Line S00162 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00162.ns22000 ---|          LDD    T4          SET GROUP ORDINAL
Line S00163 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00163.ns22000 ---|          SHN    -6
Line S00164 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00164.ns22000 ---|          LPN    7
Line S00165 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00165.ns22000 ---|          STD    RU
Line S00166 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00166.ns22000 ---|          LDD    T4
Line S00167 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00167.ns22000 ---|          SHN    -11
Line S00168 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00168.ns22000 ---|          STD    T2          *E*
00184  M01S00169.compvms +++|          LDN    ESTP        READ EST POINTER
00185  M01S00170.compvms +++|          CRD    T4
00186  M01S00171.compvms +++|          RJM    BCT         BUILD AVAILABLE CHANNEL TABLE
00187  M01S00172.compvms +++|          LDD    T1          CHECK CHANNEL REQUESTED
00188  M01S00173.compvms +++|          SHN    21-5
00189  M01S00174.compvms +++|          PJN    VMS1        IF NOT EST ORDINAL REQUEST
Line S00175 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00175.ns22000 ---|
00191  M01S00176.compvms +++|          LDD    T3          SET EST ORDINAL
Line S00177 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00177.ns22000 ---|          ADD    T4
00193  M01S00178.compvms +++|          STD    OD
00194  M01S00179.compvms +++|          RJM    VME         VALIDATE EST ORDINAL
00195  M01S00180.compvms +++|          UJN    VMSX        RETURN
00196  M01S00181.compvms +++| VMC      SPACE  4,10
00197  M01S00182.compvms +++|**        VMC - VALIDATE MASS STORAGE CHANNEL.
00198  M01S00183.compvms +++|*
00199  M01S00184.compvms +++|*         ENTRY  (T1) = CHANNEL.
Line S00185 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00185.ns22000 ---|*                (T2) = EQUIPMENT NUMBER.
00201  M01S00015.ns22000 +++|*                (T2) = EST ORDINAL.
00202  M01S00186.compvms +++|*                (T3) = UNIT NUMBER.
Line S00187 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00187.ns22000 ---|*                (T4) = FWA EST.
Line S00188 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00188.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
Line S00189 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00189.ns22000 ---|*                (T6) = LWA + 1 OF MAXIMUM MASS STORAGE EST ENTRY.
00206  M01S00016.ns22000 +++|*                (T6) = LAST EST ORDINAL + 1.
00207  M01S00017.ns22000 +++|*                (T7) = LAST MASS STORAGE ORDINAL + 1.
00208  M01S00190.compvms +++|*                (DT) = DEVICE TYPE.
00209  M01S00191.compvms +++|*
00210  M01S00192.compvms +++|*         EXIT   (A) = 0  IF DEVICE NOT IN EST.
Line S00193 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00193.ns22000 ---|*                (OD) = 77  IF DEVICE NOT IN EST.
00212  M01S00018.ns22000 +++|*                (OD) = 7777 IF DEVICE NOT IN EST.
00213  M01S00194.compvms +++|*
Line S00195 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00195.ns22000 ---|*         USES   T1, T2, T3, CM - CM+4, T8, DT, OD.
00215  M01S00019.ns22000 +++|*         USES   DT, OD, T1, T2, T3, T8, CM - CM+4.
00216  M01S00196.compvms +++|*
Line S00197 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00197.ns22000 ---|*         CALLS  CCE, CEE, CUE, VME, FAR.
00218  M01S00020.ns22000 +++|*         CALLS  CCE, CEE, CUE, FAR, VME.
00219  M01S00021.ns22000 +++|*
00220  M01S00022.ns22000 +++|*         MACROS SFA.
00221  M01S00198.compvms +++|
00222  M01S00199.compvms +++|
00223  M01S00200.compvms +++| VMC7     RJM    VME         VALIDATE EST ENTRY
00224  M01S00201.compvms +++|
00225  M01S00202.compvms +++| VMC      SUBR               ENTRY/EXIT
Line S00203 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00203.ns22000 ---|          LDD    T4          SET EST ENTRY ADDRESS
00227  M01S00023.ns22000 +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00228  M01S00204.compvms +++|          STD    OD
Line S00205 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00205.ns22000 ---| VMC1     LDD    OD          READ EST ENTRY
00230  M01S00024.ns22000 +++| VMC1     SFA    EST,OD      READ EST ENTRY
00231  M01S00025.ns22000 +++|          ADK    EQDE
00232  M01S00206.compvms +++|          CRD    CM
00233  M01S00207.compvms +++|          RJM    CCE         CHECK CHANNEL EQUIVALENCE
00234  M01S00208.compvms +++|          NJN    VMC4        IF CHANNELS DO NOT MATCH
00235  M01S00209.compvms +++|          RJM    CEE         CHECK EQUIPMENT EQUIVALENCE
00236  M01S00210.compvms +++|          NJN    VMC4        IF EQUIPMENTS DO NOT MATCH
00237  M01S00211.compvms +++| VMC3     RJM    CUE         CHECK UNIT EQUIVALENCE
00238  M01S00212.compvms +++|          ZJN    VMC7        IF UNIT MATCHES
00239  M01S00213.compvms +++|
00240  M01S00214.compvms +++| VMC4     AOD    OD
Line S00215 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00215.ns22000 ---|          LMD    T5
00242  M01S00026.ns22000 +++|          LMD    T6
00243  M01S00216.compvms +++|          NJN    VMC1        IF MORE EST ENTRIES
Line S00217 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00217.ns22000 ---|
00245  M01S00218.compvms +++|          RJM    CDC         CHECK FOR DEDICATED CHANNEL
00246  M01S00219.compvms +++|          NJN    VMC5        IF DEDICATED OR NON - EXISTENT CHANNEL
Line S00220 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00220.ns22000 ---|
Line S00221 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00221.ns22000 ---|          LDN    77          SET NON - EXISTENT DEVICE
00249  M01S00027.ns22000 +++|          LCN    0           RETURN (OD) = 7777 FOR NON-EXISTENT DEVICE
00250  M01S00222.compvms +++|          STD    OD
00251  M01S00223.compvms +++|          LDN    0
00252  M01S00224.compvms +++|          STD    T1
00253  M01S00225.compvms +++|          STD    T2
00254  M01S00226.compvms +++|          STD    T3
00255  M01S00227.compvms +++|          STD    T8
00256  M01S00228.compvms +++|          STD    DT
00257  M01S00229.compvms +++|          UJN    VMC6        RETURN
00258  M01S00230.compvms +++|
00259  M01S00231.compvms +++| VMC5     LDN    4           SET FOUND BUT NOT READ OR WRITE VALID
00260  M01S00232.compvms +++|          STD    T8
Line S00233 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00233.ns22000 ---|          LDD    T4          FORM EST ADDRESS
Line S00234 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00234.ns22000 ---|          ADN    77
00263  M01S00028.ns22000 +++|          LCN    0           RETURN (OD) = 7777 FOR INVALID DEVICE
00264  M01S00235.compvms +++|          STD    OD
Line S00236 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00236.ns22000 ---|          RJM    FAR
00266  M01S00029.ns22000 +++|          RJM    FAR         FORMAT A - REGISTER
00267  M01S00237.compvms +++| VMC6     LJM    VMCX        RETURN
00268  M01S00238.compvms +++| VME      SPACE  4,20
00269  M01S00239.compvms +++|**        VME - VALIDATE EST ORDINAL FOR NON - SYSTEM USE.
00270  M01S00240.compvms +++|*
00271  M01S00241.compvms +++|*         VALIDATION IS AS DEFINED IN ROUTINE *VMS* IN THIS COMMON
00272  M01S00242.compvms +++|*         DECK.
00273  M01S00243.compvms +++|*
00274  M01S00244.compvms +++|*         ENTRY  (T1) = CHANNEL.
00275  M01S00245.compvms +++|*                (T2) = PHYSICAL EQUIPMENT.
00276  M01S00246.compvms +++|*                (T3) = UNIT OR EST ORDINAL IF CHANNEL = 40B.
Line S00247 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00247.ns22000 ---|*                (T4) = FWA OF EST.
Line S00248 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00248.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
Line S00249 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00249.ns22000 ---|*                (T6) = LWA + 1 OF MASS STORAGE IN EST.
00280  M01S00030.ns22000 +++|*                (T6) = LAST EST ORDINAL + 1.
00281  M01S00031.ns22000 +++|*                (T7) = LAST MASS STORAGE ORDINAL + 1.
00282  M01S00250.compvms +++|*                (DT) = DEVICE TYPE.
Line S00251 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00251.ns22000 ---|*                (OD) = EST ENTRY ADDRESS.
00284  M01S00032.ns22000 +++|*                (OD) = EST ORDINAL.
00285  M01S00252.compvms +++|*
00286  M01S00253.compvms +++|*         EXIT   (A) = NECCUU.
00287  M01S00254.compvms +++|*                            N = 0 IF NOT IN EST  AND  (A) = 0.
00288  M01S00255.compvms +++|*                            N = 4 IF FOUND IN EST.
00289  M01S00256.compvms +++|*                            N = 5 IF FOUND AND READ IS VALID.
00290  M01S00257.compvms +++|*                            N = 6 IF FOUND AND WRITE IS VALID.
00291  M01S00258.compvms +++|*                            N = 7 IF FOUND AND READ AND WRITE ARE
00292  M01S00259.compvms +++|*                            VALID.
00293  M01S00260.compvms +++|*
00294  M01S00261.compvms +++|*                (T1) = CHANNEL IN EST OR 0000.
Line S00262 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00262.ns22000 ---|*                (T2) = EQUIPMENT NUMBER IN *EST* OR 0000.
00296  M01S00033.ns22000 +++|*                (T2) = EQUIPMENT (CONTROLLER) NUMBER IN EST OR 0000.
00297  M01S00263.compvms +++|*                (T3) = UNIT NUMBER OR 0000.
Line S00264 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00264.ns22000 ---|*                (T4) = FWA OF EST.
Line S00265 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00265.ns22000 ---|*                (T5) = LWA + 1 OF EST ENTRIES.
Line S00266 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00266.ns22000 ---|*                (T6) = LWA + 1 OF MASS STORAGE IN EST.
00301  M01S00267.compvms +++|*                (CM - CM+4) = EST ENTRY FOR DEVICE.
00302  M01S00268.compvms +++|*                (T8) = STATUS CODE (N).
Line S00269 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00269.ns22000 ---|*                (CN - CN+4) = *MST* WORD *STLL* FOR DEVICE.
00304  M01S00034.ns22000 +++|*                (CN - CN+4) = MST WORD *STLL* FOR DEVICE.
00305  M01S00270.compvms +++|*                (DT) = DEVICE TYPE FOUND IN EST.
00306  M01S00271.compvms +++|*                (OD) = EST ORDINAL OF DEVICE.
00307  M01S00272.compvms +++|*                (RU) = RELATIVE UNIT OF A GROUP TYPE DEVICE.
00308  M01S00273.compvms +++|*
00309  M01S00274.compvms +++|*         THE VALUES OF 0000 FOR THE CHANNEL, EQUIPMENT, UNIT, DEVICE
Line S00275 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00275.ns22000 ---|*         TYPE AND 0077 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
00311  M01S00035.ns22000 +++|*         TYPE AND 7777 FOR THE EST ORDINAL ARE SET IF THE DEVICE IS
00312  M01S00276.compvms +++|*         NOT FOUND IN THE EST OR IF THE EST ENTRY IS EMPTY OR THE
00313  M01S00277.compvms +++|*         PHYSICAL PARAMETERS DO NOT MATCH.
00314  M01S00278.compvms +++|*
Line S00279 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00279.ns22000 ---|*         USES   T1, T2, T3, CM - CM+4, T8, T9, CN - CN+4, DT, OD.
00316  M01S00036.ns22000 +++|*         USES   DT, OD, T1, T2, T3, T8, T9, CM - CM+4, CN - CN+4.
00317  M01S00280.compvms +++|*
00318  M01S00281.compvms +++|*         CALLS  CCE, CDC, CEE, CUE, FAR, SPP, SUN.
00319  M01S00037.ns22000 +++|*
00320  M01S00038.ns22000 +++|*         MACROS SFA.
00321  M01S00282.compvms +++|
00322  M01S00283.compvms +++|
Line S00284 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00284.ns22000 ---| VME11    LDN    77
00324  M01S00039.ns22000 +++| VME11    LCN    0           RETURN (OD) = 7777
00325  M01S00285.compvms +++|          STD    OD
00326  M01S00286.compvms +++|          LDN    0           SET NON - EXISTENT DEVICE
00327  M01S00287.compvms +++|          STD    T1
00328  M01S00288.compvms +++|          STD    T2
00329  M01S00289.compvms +++|          STD    T3
00330  M01S00290.compvms +++|          STD    T8
00331  M01S00291.compvms +++|          STD    DT
00332  M01S00292.compvms +++|
00333  M01S00293.compvms +++| VME      SUBR               ENTRY/EXIT
00334  M01S00294.compvms +++|          LDD    OD          CHECK FOR VALID ENTRY
Line S00295 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00295.ns22000 ---|          SBD    T5
00336  M01S00040.ns22000 +++|          SBD    T6
00337  M01S00296.compvms +++|          PJN    VME11       IF .GT. MAXIMUM EST ENTRY
Line S00297 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00297.ns22000 ---|
Line S00298 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00298.ns22000 ---|          LDD    OD          READ EST ENTRY
00340  M01S00041.ns22000 +++|          SFA    EST,OD      READ EST ENTRY
00341  M01S00042.ns22000 +++|          ADK    EQDE
00342  M01S00299.compvms +++|          CRD    CM
Line S00300 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00300.ns22000 ---|
00344  M01S00301.compvms +++|          LDD    CM+3        CHECK FOR DEFINED ORDINAL
00345  M01S00302.compvms +++|          ZJN    VME11       IF ORDINAL NOT DEFINED
Line S00303 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00303.ns22000 ---|
00347  M01S00304.compvms +++|          LDD    OD          CHECK ORDINAL
Line S00305 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00305.ns22000 ---|          SBD    T6
00349  M01S00043.ns22000 +++|          SBD    T7
00350  M01S00306.compvms +++|          PJN    VME1        IF .GT. MASS STORAGE EST ORDINAL
00351  M01S00307.compvms +++|          LDD    CM
00352  M01S00308.compvms +++|          SHN    21-13
00353  M01S00309.compvms +++|          PJN    VME1        IF NOT MASS STORAGE
00354  M01S00310.compvms +++|          LDD    CM+3        CHECK DEVICE TYPE
Line S00311 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00311.252l678 ---|          LPC    3777
00356  M01S00312.compvms +++|          LMD    DT
00357  M01S00313.compvms +++|          ZJN    VME2        IF CORRECT DEVICE TYPE
Line S00314 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00314.ns22000 ---|
00359  M01S00315.compvms +++| VME1     LDN    4           SET FOUND AND NOT READ OR WRITE VALID
00360  M01S00316.compvms +++|          STD    T8
00361  M01S00317.compvms +++|          RJM    SPP         SET NEW PHYSICAL PARAMETERS
00362  M01S00318.compvms +++|          LJM    VME10       RETURN
00363  M01S00319.compvms +++|
00364  M01S00320.compvms +++| VME2     LDD    T1          CHECK EST REQUEST
00365  M01S00321.compvms +++|          SHN    21-5
00366  M01S00322.compvms +++|          PJN    VME2.1      IF NOT EST REQUEST
00367  M01S00323.compvms +++|          LJM    VME6        PROCESS EST REQUEST
00368  M01S00324.compvms +++|
00369  M01S00325.compvms +++| VME2.1   RJM    CCE         CHECK CHANNEL EQUIVALENCE
00370  M01S00326.compvms +++| VME3     NJN    VME1        IF CHANNELS DO NOT MATCH
00371  M01S00327.compvms +++|          LDD    CM          CHECK FOR *LDAM* DEVICE
00372  M01S00328.compvms +++|          SHN    21-7
00373  M01S00329.compvms +++|          MJN    VME5        IF *LDAM* DEVICE
00374  M01S00330.compvms +++|          RJM    CEE         CHECK EQUIPMENT EQUIVALENCE
00375  M01S00331.compvms +++|          NJN    VME1        IF EQUIPMENTS DO NOT MATCH
00376  M01S00332.compvms +++| VME5     RJM    CUE         CHECK FOR UNIT EQUIVALENCE
00377  M01S00333.compvms +++|          NJN    VME1        IF UNITS DO NOT MATCH
Line S00334 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00334.ns22000 ---|
00379  M01S00335.compvms +++|          RJM    CDC         CHECK FOR DEDICATED CHANNEL
00380  M01S00336.compvms +++|          ZJN    VME8        IF CHANNEL EXISTS OR NON - DEDICATED
00381  M01S00337.compvms +++|          LDN    4           SET FOUND BUT NOT READ OR WRITE VALID
00382  M01S00338.compvms +++|          STD    T8
Line S00339 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00339.ns22000 ---|          LDD    T4          SET EST ADDRESS
Line S00340 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00340.ns22000 ---|          ADN    77
00385  M01S00044.ns22000 +++|          LCN    0           RETURN (OD) = 7777
00386  M01S00341.compvms +++|          STD    OD
00387  M01S00342.compvms +++|          LJM    VME10       CONTINUE
00388  M01S00343.compvms +++|
00389  M01S00344.compvms +++| VME6     RJM    SPP         SET PHYSICAL PARAMETERS
00390  M01S00345.compvms +++|          RJM    SUN         SET MULTISPINDLE UNIT NUMBER
00391  M01S00346.compvms +++|          NJN    VME3        IF NOT VALID SPINDLE
00392  M01S00347.compvms +++| VME8     LDN    5           SET FOUND AND READ VALID
00393  M01S00348.compvms +++|          STD    T8
Line S00349 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00349.ns22000 ---|
00395  M01S00350.compvms +++|          LDD    CM+4        READ DEVICE STATUS
00396  M01S00351.compvms +++|          SHN    3
00397  M01S00352.compvms +++|          ADN    ACGL        READ GLOBAL STATUS
00398  M01S00353.compvms +++|          CRD    CN
Line S00354 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00354.ns22000 ---|
00400  M01S00355.compvms +++|          LDD    CM          CHECK FOR SHARED DEVICE
00401  M01S00356.compvms +++|          SHN    21-11
00402  M01S00357.compvms +++|          PJN    VME8.1      IF NOT SHARED
00403  M01S00358.compvms +++|          LDD    CN+4        CHECK GLOBAL UNLOAD
00404  M01S00359.compvms +++|          SHN    21-5
00405  M01S00360.compvms +++|          PJN    VME10       IF NOT GLOBAL UNLOAD
Line S00361 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00361.ns22000 ---|
00407  M01S00362.compvms +++| VME8.1   LDD    CM+4        READ LOCAL STATUS
00408  M01S00363.compvms +++|          SHN    3
00409  M01S00364.compvms +++|          ADN    STLL
00410  M01S00365.compvms +++|          CRD    CN
Line S00366 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00366.ns22000 ---|
Line S00367 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00367.251l664 ---|          LDD    CM+3        CHECK DEVICE OFF
Line S00368 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00368.251l664 ---|          SHN    21-13
Line S00369 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00369.251l664 ---|          PJN    VME10       IF NOT OFF
00415  M01S00001.251l664 +++|          LDD    CM
00416  M01S00002.251l664 +++|          LPN    2
00417  M01S00003.251l664 +++|          ZJN    VME10       IF DEVICE IS NOT DOWN/OFF
00418  M01S00370.compvms +++|          LDD    CN+4        CHECK DEVICE IN USE
00419  M01S00371.compvms +++|          SHN    21-2
00420  M01S00372.compvms +++|          MJN    VME10       IF IN USE
00421  M01S00373.compvms +++|          LDD    CM          CHECK REMOVABLE
00422  M01S00374.compvms +++|          SHN    21-10
00423  M01S00375.compvms +++|          PJN    VME10       IF NOT REMOVABLE
00424  M01S00376.compvms +++|          SHN    10-6
00425  M01S00377.compvms +++|          MJN    VME9        IF NOT AVAILABLE FOR PF ACCESS
00426  M01S00378.compvms +++|          LDD    CN          CHECK FORMAT PENDING
00427  M01S00379.compvms +++|          SHN    21-13
00428  M01S00380.compvms +++|          PJN    VME10       IF NOT FORMAT PENDING
00429  M01S00381.compvms +++|          LPC    MLIAL*100+MLIHD*100+MLIFD*100
00430  M01S00382.compvms +++|          ZJN    VME10       IF NOT INITIALIZE *AL*, *HT* OR *FT*
00431  M01S00383.compvms +++|          LDD    CN+3        CHECK USER COUNT
00432  M01S00384.compvms +++|          NJN    VME10       IF USERS ACTIVE
00433  M01S00385.compvms +++| VME9     LDN    2           SET WRITE VALID
00434  M01S00386.compvms +++|          RAD    T8
00435  M01S00387.compvms +++| VME10    RJM    FAR         FORMAT A - REGISTER
00436  M01S00388.compvms +++|          LJM    VMEX        RETURN
00437  M01S00389.compvms +++| CCE      SPACE  4,10
Line S00390 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00390.ns22000 ---|**        CCE  -  CHECK CHANNEL EQUIVALENCES.
00439  M01S00045.ns22000 +++|**        CCE - CHECK CHANNEL EQUIVALENCE.
00440  M01S00391.compvms +++|*
00441  M01S00392.compvms +++|*         ENTRY  (T1) = CHANNEL.
00442  M01S00393.compvms +++|*                (CM - CM+4) = EST ENTRY.
00443  M01S00394.compvms +++|*
00444  M01S00395.compvms +++|*         EXIT   (A) = 0 IF CHANNEL VALID.
00445  M01S00396.compvms +++|*                (A) .NE. 0 IF CHANNEL NOT VALID.
00446  M01S00397.compvms +++|*
00447  M01S00398.compvms +++|
00448  M01S00399.compvms +++|
00449  M01S00400.compvms +++| CCE1     LDN    1           SET INVALID CHANNEL
00450  M01S00401.compvms +++|
00451  M01S00402.compvms +++| CCE      SUBR               ENTRY/EXIT
00452  M01S00403.compvms +++|          LDD    CM+1        CHECK FIRST CHANNEL
00453  M01S00404.compvms +++|          LPN    77
00454  M01S00405.compvms +++|          LMD    T1
00455  M01S00406.compvms +++|          ZJN    CCEX        IF FIRST CHANNEL
Line S00407 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00407.ns22000 ---|
Line S00408 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00408.252l678 ---|          LDD    CM+1        CHECK SECOND CHANNEL
Line S00409 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00409.252l678 ---|          SHN    -6
00459  M01S00001.252l678 +++|          LDD    CM+2        CHECK SECOND CHANNEL
00460  M01S00002.252l678 +++|          LPN    77
00461  M01S00410.compvms +++|          ZJN    CCE1        IF NO SECOND CHANNEL
Line S00411 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00411.ns22000 ---|
Line S00412 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00412.252l678 ---|          LMD    T1
Line S00413 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00413.252l678 ---|          ZJN    CCEX        RETURN
Line S00414 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00465  M03S00414.252l678 ---|
Line S00415 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00415.252l678 ---|          LDD    CM          CHECK MASS STORAGE
Line S00416 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00416.252l678 ---|          SHN    21-13
Line S00417 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00417.252l678 ---|          MJN    CCEX        IF MASS STORAGE
Line S00418 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00469  M03S00418.252l678 ---|
Line S00419 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00419.252l678 ---|          LDD    CM+2        CHECK THIRD CHANNEL
Line S00420 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00420.252l678 ---|          LPN    77
Line S00421 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00421.252l678 ---|          ZJN    CCE1        IF NO THIRD CHANNEL
Line S00422 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00473  M03S00422.252l678 ---|
Line S00423 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00423.252l678 ---|          LMD    T1
Line S00424 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00424.252l678 ---|          ZJN    CCEX        RETURN
Line S00425 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00476  M03S00425.252l678 ---|
Line S00426 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00426.252l678 ---|          LDD    CM+2        CHECK FOURTH CHANNEL
Line S00427 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00427.252l678 ---|          SHN    -6
Line S00428 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00428.252l678 ---|          ZJN    CCE1        IF NO FOURTH CHANNEL
Line S00429 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00429.ns22000 ---|
00481  M01S00430.compvms +++|          LMD    T1
00482  M01S00431.compvms +++|          ZJN    CCEX        RETURN
00483  M01S00432.compvms +++|          UJN    CCE1
00484  M01S00433.compvms +++| CEE      SPACE  4,10
Line S00434 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00434.ns22000 ---|**        CEE  -  CHECK EQUIPMENT EQUIVALENCE.
00486  M01S00046.ns22000 +++|**        CEE - CHECK EQUIPMENT EQUIVALENCE.
00487  M01S00435.compvms +++|*
00488  M01S00436.compvms +++|*         ENTRY  (T2) = PHYSICAL EQUIPMENT.
00489  M01S00437.compvms +++|*                (CM - CM+4) = EST ENTRY.
00490  M01S00438.compvms +++|*
00491  M01S00439.compvms +++|*         EXIT   (A) = 0 IF EQUIPMENT IS VALID.
00492  M01S00440.compvms +++|*                (A) .NE. 0 IF EQUIPMENT NOT VALID.
00493  M01S00441.compvms +++|*
00494  M01S00442.compvms +++|*         USES   T0.
00495  M01S00443.compvms +++|
00496  M01S00444.compvms +++|
00497  M01S00445.compvms +++| CEE      SUBR               ENTRY/EXIT
00498  M01S00446.compvms +++|          LDD    CM          CHECK MASS STORAGE
00499  M01S00447.compvms +++|          SHN    21-13
00500  M01S00448.compvms +++|          PJN    CEE1        IF NOT MASS STORAGE
00501  M01S00449.compvms +++|          LDD    CM+4        READ DRIVER NAME
00502  M01S00450.compvms +++|          SHN    3
00503  M01S00451.compvms +++|          ADN    MDGL
00504  M01S00452.compvms +++|          CRM    CEEA,ON
00505  M01S00453.compvms +++|          LDM    CEEA+2
00506  M01S00454.compvms +++|          LMC    2RDI
00507  M01S00455.compvms +++|          ZJN    CEEX        IF *DI* DRIVER
00508  M01S00456.compvms +++|          LDD    CM+2
00509  M01S00457.compvms +++|          UJN    CEE2        CONTINUE
00510  M01S00458.compvms +++| CEE1     LDD    CM+4
00511  M01S00459.compvms +++| CEE2     SHN    -11
00512  M01S00460.compvms +++|          LMD    T2
00513  M01S00461.compvms +++|          UJN    CEEX        RETURN
00514  M01S00462.compvms +++|
00515  M01S00463.compvms +++| CEEA     BSS    5
00516  M01S00464.compvms +++| CUE      SPACE  4,10
Line S00465 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00465.ns22000 ---|**        CUE  -  CHECK UNIT EQUIVALENCE.
00518  M01S00047.ns22000 +++|**        CUE - CHECK UNIT EQUIVALENCE.
00519  M01S00466.compvms +++|*
00520  M01S00467.compvms +++|*         ENTRY  (T3) = UNIT NUMBER.
00521  M01S00468.compvms +++|*                (CM - CM + 4) = EST ENTRY.
00522  M01S00469.compvms +++|*
00523  M01S00470.compvms +++|*         EXIT   (A) = 0  IF UNIT IS VALID.
00524  M01S00471.compvms +++|*                (A) .NE. 0  IF UNIT NOT VALID.
00525  M01S00472.compvms +++|*
00526  M01S00473.compvms +++|*         USES   T0, T7, T9, CN - CN+4.
00527  M01S00474.compvms +++|
00528  M01S00475.compvms +++|
00529  M01S00476.compvms +++| CUE      SUBR               ENTRY/EXIT
00530  M01S00477.compvms +++|          LDD    CM          CHECK MASS STORAGE
00531  M01S00478.compvms +++|          SHN    21-13
00532  M01S00479.compvms +++|          MJN    CUE1        IF MASS STORAGE
00533  M01S00480.compvms +++|          LDN    CM+4
00534  M01S00481.compvms +++|          STD    T0
00535  M01S00482.compvms +++|          LDI    T0          FORCE SINGLE DEVICE
00536  M01S00483.compvms +++|          LPC    7077
00537  M01S00484.compvms +++|          STI    T0
00538  M01S00485.compvms +++|          LDN    0
00539  M01S00486.compvms +++|          STD    T9
00540  M01S00487.compvms +++|          LJM    CUE3        CHECK UNIT NUMBER
00541  M01S00488.compvms +++|
00542  M01S00489.compvms +++| CUE1     LDD    CM+4        GET UNIT LIST
00543  M01S00490.compvms +++|          SHN    3
00544  M01S00491.compvms +++|          ADN    DDLL
00545  M01S00492.compvms +++|          CRD    CN
00546  M01S00493.compvms +++|          LDD    CN
00547  M01S00494.compvms +++|          LPN    7
00548  M01S00495.compvms +++|          STD    T9
00549  M01S00496.compvms +++|          LDD    CN
00550  M01S00497.compvms +++|          SHN    21-12
00551  M01S00498.compvms +++|          MJN    CUE5        IF NULL EQUIPMENT
00552  M01S00499.compvms +++|          LDN    CN+4        SET FIRST UNIT POSITION
00553  M01S00500.compvms +++|          STD    T0
00554  M01S00501.compvms +++| CUE2     LDI    T0          CHECK ODD UNIT
00555  M01S00502.compvms +++|          LPN    77
00556  M01S00503.compvms +++|          LMD    T3
00557  M01S00504.compvms +++|          ZJN    CUE5        IF VALID UNIT
00558  M01S00505.compvms +++|          SOD    T9          DECREMENT UNIT COUNT
00559  M01S00506.compvms +++|          MJN    CUE5        IF END OF UNITS
00560  M01S00507.compvms +++|          LDI    T0
00561  M01S00508.compvms +++|          SHN    -6
00562  M01S00509.compvms +++|          LMD    T3
00563  M01S00510.compvms +++|          ZJN    CUE5        IF VALID UNIT
00564  M01S00511.compvms +++|          SOD    T0          DECREMENT ADDRESS
00565  M01S00512.compvms +++|          SOD    T9          DECREMENT UNIT COUNT
00566  M01S00513.compvms +++|          MJN    CUE5        IF END OF UNITS
00567  M01S00514.compvms +++|          UJN    CUE2        LOOP FOR NEXT UNIT
00568  M01S00515.compvms +++|
00569  M01S00516.compvms +++| CUE3     LDI    T0          SET FIRST UNIT
00570  M01S00517.compvms +++|          LPN    77
00571  M01S00518.compvms +++|          STD    T7
00572  M01S00519.compvms +++| CUE4     SBD    T3          CHECK NEXT UNIT
00573  M01S00520.compvms +++|          ZJN    CUE5        IF UNIT VALID
Line S00521 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00521.ns22000 ---|
00575  M01S00522.compvms +++|          SOD    T9
00576  M01S00523.compvms +++|          MJN    CUE5        IF NO MORE UNITS
Line S00524 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00524.ns22000 ---|
00578  M01S00525.compvms +++|          AOD    T7          INCREMENT UNIT NUMBER
00579  M01S00526.compvms +++|          UJN    CUE4        CONTINUE
00580  M01S00527.compvms +++|
00581  M01S00528.compvms +++| CUE5     LJM    CUEX        RETURN
00582  M01S00529.compvms +++| SUN      SPACE  4,10
Line S00530 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00530.ns22000 ---|**        SUN  -  SET MULTISPINDLE UNIT NUMBER.
00584  M01S00048.ns22000 +++|**        SUN - SET MULTISPINDLE UNIT NUMBER.
00585  M01S00531.compvms +++|*
00586  M01S00532.compvms +++|*         ENTRY  (RU) = RELATIVE UNIT WITHIN MULTISPINDLE DEVICE.
00587  M01S00533.compvms +++|*                (CM  -  CM+4) = EST ENTRY.
00588  M01S00534.compvms +++|*
00589  M01S00535.compvms +++|*         EXIT   (T3) = UNIT NUMBER WITHIN MULTISPINDLE DEVICE.
00590  M01S00536.compvms +++|*                (A) = 0 IF VALID.
00591  M01S00537.compvms +++|*
00592  M01S00538.compvms +++|*         USES   T0, T3, T7, T9, CN - CN+4.
00593  M01S00539.compvms +++|
00594  M01S00540.compvms +++|
00595  M01S00541.compvms +++| SUN      SUBR               ENTRY/EXIT
00596  M01S00542.compvms +++|          LDD    RU          SET ORDINAL
00597  M01S00543.compvms +++|          STD    T3
00598  M01S00544.compvms +++|          LDD    CM
00599  M01S00545.compvms +++|          SHN    21-13
00600  M01S00546.compvms +++|          MJN    SUN1        IF MASS STORAGE
00601  M01S00547.compvms +++|          LDN    CM+4
00602  M01S00548.compvms +++|          STD    T0
00603  M01S00549.compvms +++|          LDI    T0          CLEAR EQUIPMENT CHARACTERISTICS CODE
00604  M01S00550.compvms +++|          LPC    7077
00605  M01S00551.compvms +++|          STI    T0
00606  M01S00552.compvms +++|          LDN    0
00607  M01S00553.compvms +++|          STD    T9
00608  M01S00554.compvms +++|          LJM    SUN4        SET UNIT NUMBER
00609  M01S00555.compvms +++|
00610  M01S00556.compvms +++| SUN1     LDD    CM+4        GET UNIT LIST
00611  M01S00557.compvms +++|          SHN    3
00612  M01S00558.compvms +++|          ADN    DDLL
00613  M01S00559.compvms +++|          CRD    CN
00614  M01S00560.compvms +++|          LDD    CN
00615  M01S00561.compvms +++|          LPN    7
00616  M01S00562.compvms +++|          STD    T9
00617  M01S00563.compvms +++|          LDD    T3          SET WORD INDEX
00618  M01S00564.compvms +++|          SHN    -1
00619  M01S00565.compvms +++|          STD    T3
00620  M01S00566.compvms +++|          LDN    CN+4
00621  M01S00567.compvms +++|          SBD    T3
00622  M01S00568.compvms +++|          STD    T3
00623  M01S00569.compvms +++|          LDD    RU          CHECK FOR UPPER/LOWER UNIT
00624  M01S00570.compvms +++|          LPN    1
00625  M01S00571.compvms +++|          ZJN    SUN2        IF LOWER UNIT
00626  M01S00572.compvms +++|          LDI    T3
00627  M01S00573.compvms +++|          SHN    -6
00628  M01S00574.compvms +++|          UJN    SUN3        PROCESS UNIT
00629  M01S00575.compvms +++|
00630  M01S00576.compvms +++| SUN2     LDI    T3
00631  M01S00577.compvms +++| SUN3     LPN    77
00632  M01S00578.compvms +++|          STD    T7
00633  M01S00579.compvms +++|          UJN    SUN6        SET UNIT NUMBER
00634  M01S00580.compvms +++|
00635  M01S00581.compvms +++| SUN4     LDI    T0          SET STARTING UNIT
00636  M01S00582.compvms +++|          LPN    77
00637  M01S00583.compvms +++|          STD    T7
00638  M01S00584.compvms +++| SUN5     SOD    T3
00639  M01S00585.compvms +++|          MJN    SUN6        IF REQUESTED UNIT
00640  M01S00586.compvms +++|          SOD    T9
00641  M01S00587.compvms +++|          MJN    SUN7        IF NO MORE UNITS WITHIN MULTISPINDLE DEVICE
00642  M01S00588.compvms +++|          AOD    T7          INCREMENT UNIT
00643  M01S00589.compvms +++|          UJN    SUN5        CONTINUE
00644  M01S00590.compvms +++|
00645  M01S00591.compvms +++| SUN6     LDD    T7          SET CORRECT UNIT
00646  M01S00592.compvms +++|          STD    T3
00647  M01S00593.compvms +++|          LDN    0
00648  M01S00594.compvms +++| SUN7     LJM    SUNX        RETURN
00649  M01S00595.compvms +++| SPP      SPACE  4,10
00650  M01S00596.compvms +++|**        SPP - SET PHYSICAL EQUIPMENT PARAMETERS.
00651  M01S00597.compvms +++|*
00652  M01S00598.compvms +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00653  M01S00599.compvms +++|*
00654  M01S00600.compvms +++|*         EXIT   (T1) = CHANNEL.
Line S00601 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00601.ns22000 ---|*                (T2) = EQUIPMENT NUMBER.
Line S00049 Modification History
M01 (Added by) ns22000
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00049.252l678 ---|*                (T2) = EST ORDINAL.
00657  M01S00003.252l678 +++|*                (T2) = EQUIPMENT NUMBER.
00658  M01S00602.compvms +++|*                (T3) = INITIAL UNIT NUMBER.
00659  M01S00603.compvms +++|*                (DT) = DEVICE TYPE.
00660  M01S00604.compvms +++|*
00661  M01S00605.compvms +++|*         USES   T0, T1, T2, T3, DT, CN - CN+4.
00662  M01S00606.compvms +++|
00663  M01S00607.compvms +++|
00664  M01S00608.compvms +++| SPP3     LDN    CM+4
00665  M01S00609.compvms +++| SPP4     STD    T0
00666  M01S00610.compvms +++|          LDI    T0          SET UNIT PARAMETER
00667  M01S00611.compvms +++|          LPN    77
00668  M01S00612.compvms +++|          STD    T3
00669  M01S00613.compvms +++|          LDI    T0          SET EQUIPMENT PARAMETER
00670  M01S00614.compvms +++|          SHN    -11
00671  M01S00615.compvms +++|          STD    T2
00672  M01S00616.compvms +++|
00673  M01S00617.compvms +++| SPP      SUBR               ENTRY/EXIT
00674  M01S00618.compvms +++|          LDD    CM+1        SET CHANNEL FOUND
00675  M01S00619.compvms +++|          LPN    77
00676  M01S00620.compvms +++|          STD    T1
00677  M01S00621.compvms +++|          LDD    CM+3        SET DEVICE TYPE
Line S00622 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00622.252l678 ---|          LPC    3777
00679  M01S00623.compvms +++|          STD    DT
00680  M01S00624.compvms +++|          LDD    CM          CHECK FOR MASS STORAGE DEVICE
00681  M01S00625.compvms +++|          SHN    21-13
00682  M01S00626.compvms +++|          PJN    SPP3        IF NOT MASS STORAGE
00683  M01S00627.compvms +++|          LDD    CM+4        GET UNIT LIST
00684  M01S00628.compvms +++|          SHN    3
00685  M01S00629.compvms +++|          ADN    DDLL
00686  M01S00630.compvms +++|          CRD    CN
Line S00631 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00631.252l678 ---|          LDD    CN+4        MERGE EQUIPMENT AND UNIT
Line S00632 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00632.252l678 ---|          SCN    77
Line S00633 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00633.252l678 ---|          LMD    CM+2
Line S00634 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00634.252l678 ---|          SCN    77
Line S00635 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00691  M02S00635.252l678 ---|          LMD    CN+4
Line S00636 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00636.252l678 ---|          STD    CN+4
00693  M01S00637.compvms +++|          LDN    CN+4
00694  M01S00638.compvms +++|          UJN    SPP4        CHECK EQUIPMENT
00695  M01S00639.compvms +++| FAR      SPACE  4,15
00696  M01S00640.compvms +++|**        FAR - FORMAT A - REGISTER FOR RETURN TO CALLING PROGRAM.
00697  M01S00641.compvms +++|*
Line S00642 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00642.ns22000 ---|*         ENTRY  (OD) = EST ADDRESS.
Line S00643 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00643.ns22000 ---|*                (T4) = FWA OF EST.
00700  M01S00050.ns22000 +++|*         ENTRY  (OD) = EST ORDINAL.
00701  M01S00644.compvms +++|*                (T8) = VALIDATION CODE.
00702  M01S00645.compvms +++|*                (T1) = CHANNEL.
Line S00646 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00646.ns22000 ---|*                (T2) = EQUIPMENT NUMBER.
00704  M01S00051.ns22000 +++|*                (T2) = EST ORDINAL.
00705  M01S00647.compvms +++|*                (T3) = UNIT NUMBER.
00706  M01S00648.compvms +++|*
00707  M01S00649.compvms +++|*         EXIT   (A) = NECCUU AS DEFINED PREVIOUSLY.
00708  M01S00650.compvms +++|*
00709  M01S00651.compvms +++|*         USES   OD.
00710  M01S00652.compvms +++|
00711  M01S00653.compvms +++|
00712  M01S00654.compvms +++| FAR      SUBR               ENTRY/EXIT
Line S00655 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00655.ns22000 ---|          LDD    OD          SET EST ORDINAL
Line S00656 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00656.ns22000 ---|          SBD    T4
Line S00657 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00657.ns22000 ---|          STD    OD
00716  M01S00658.compvms +++|          LDD    T8          SET VALIDATION CODE
00717  M01S00659.compvms +++|          SHN    3
00718  M01S00660.compvms +++|          LMD    T2          SET EQUIPMENT CODE
00719  M01S00661.compvms +++|          SHN    6
00720  M01S00662.compvms +++|          LMD    T1          SET CHANNEL
00721  M01S00663.compvms +++|          SHN    6
00722  M01S00664.compvms +++|          LMD    T3          SET UNIT NUMBER
00723  M01S00665.compvms +++|          UJN    FARX        RETURN
00724  M01S00666.compvms +++| CDC      SPACE  4,10
00725  M01S00667.compvms +++|**        CDC - CHECK FOR DEDICATED OR NON - EXISTENT CHANNEL.
00726  M01S00668.compvms +++|*
00727  M01S00669.compvms +++|*         ENTRY  (T1) = CHANNEL REQUESTED.
00728  M01S00670.compvms +++|*                (CHANNEL TABLE ENTRY) = 100 IF CHANNEL DEDICATED.
00729  M01S00671.compvms +++|*
00730  M01S00672.compvms +++|*         EXIT   (A) .EQ. 0 IF CHANNEL EXISTS AND NOT DEDICATED.
00731  M01S00673.compvms +++|*                (A) .NE. 0 IF CHANNEL NON - EXISTENT OR DEDICATED.
00732  M01S00674.compvms +++|*
00733  M01S00675.compvms +++|
00734  M01S00676.compvms +++|
00735  M01S00677.compvms +++| CDC1     LDN    1           SET DEDICATED
00736  M01S00678.compvms +++|
00737  M01S00679.compvms +++| CDC      SUBR               ENTRY/EXIT
00738  M01S00680.compvms +++|          LDD    T1          CHECK FOR NON - EXISTENT CHANNEL
Line S00681 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00681.251l664 ---|          SBN    CTALL*5
00740  M01S00004.251l664 +++|          SBN    MXNC+1
00741  M01S00682.compvms +++|          PJN    CDC1        IF NO SUCH CHANNEL
Line S00683 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00683.ns22000 ---|
00743  M01S00684.compvms +++|          LDM    CHT,T1      CHECK FOR DEDICATED CHANNEL
00744  M01S00685.compvms +++|          LMD    HN
00745  M01S00686.compvms +++|          ZJN    CDC1        IF DEDICATED
00746  M01S00687.compvms +++|          LDN    0
00747  M01S00688.compvms +++|          UJN    CDCX        RETURN
00748  M01S00689.compvms +++| BCT      SPACE  4,10
00749  M01S00690.compvms +++|**        BCT - BUILD AVAILABLE CHANNEL TABLE.
00750  M01S00691.compvms +++|*
Line S00692 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00751  M02S00692.ns22000 ---|*         ENTRY  (T4) .EQ. FWA OF EST.
Line S00693 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00693.ns22000 ---|*                (T5) .EQ. LWA + 1 OF EST.
00753  M01S00052.ns22000 +++|*         ENTRY  (T6) = LAST EST ORDINAL + 1.
00754  M01S00694.compvms +++|*
00755  M01S00695.compvms +++|*         EXIT   (CHT) + CHANNEL .EQ. 100 IF ILLEGAL CHANNEL.
00756  M01S00696.compvms +++|*                (CHT) + CHANNEL .EQ. CURRENT CHANNEL REQUESTED IF
00757  M01S00697.compvms +++|*                CHANNEL NOT DEDICATED.
00758  M01S00698.compvms +++|*
00759  M01S00699.compvms +++|*         USES   T8, T9, CN - CN+4.
00760  M01S00700.compvms +++|*
00761  M01S00701.compvms +++|*         CALLS  SCU.
00762  M01S00053.ns22000 +++|*
00763  M01S00054.ns22000 +++|*         MACROS SFA.
00764  M01S00702.compvms +++|
00765  M01S00703.compvms +++|
00766  M01S00704.compvms +++| BCT      SUBR               ENTRY/EXIT
Line S00705 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00705.251l664 ---|          LDN    CTALL       CHANNEL STATUS TABLE LENGTH
00768  M01S00005.251l664 +++|          LDN    NCTAL       CHANNEL STATUS TABLE LENGTH
00769  M01S00706.compvms +++|          STD    T8
00770  M01S00707.compvms +++|          LDC    CHTP        FWA OF CHANNEL TABLES
00771  M01S00708.compvms +++|          CRD    CN
00772  M01S00709.compvms +++|          LDD    CN+2        READ CHANNEL STATUS TABLE
00773  M01S00710.compvms +++|          SHN    14
00774  M01S00711.compvms +++|          LMD    CN+3
00775  M01S00712.compvms +++|          CRM    CHT,T8
00776  M01S00713.compvms +++| BCT1     LDD    HN          SET INVALID CHANNELS
00777  M01S00714.compvms +++|          STM    CHT+14
00778  M01S00715.compvms +++|          STM    CHT+15
00779  M01S00716.compvms +++|          STM    CHT+16
00780  M01S00717.compvms +++|          STM    CHT+17
Line S00718 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00718.ns22000 ---|
Line S00719 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00719.ns22000 ---|          LDD    T4          T4 .EQ. FWA OF EST
00783  M01S00055.ns22000 +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00784  M01S00720.compvms +++|          STD    T8
Line S00721 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00721.ns22000 ---| BCT2     LDD    T8          READ EST ENTRY
00786  M01S00056.ns22000 +++| BCT2     SFA    EST,T8      READ EST ENTRY
00787  M01S00057.ns22000 +++|          ADK    EQDE
00788  M01S00722.compvms +++|          CRD    CN
Line S00723 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00723.251l664 ---|          LDN    0           SET DEVICE TABLE INDEX
Line S00006 Modification History
M01 (Added by) 251l664
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00006.252l678 ---|          LDD    CN          CHECK CHANNEL TYPE
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
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  M01S00724.compvms +++|          STD    T9
00799  M01S00725.compvms +++| BCT3     LDD    CN+3        CHECK EQUIPMENT TYPE
Line S00726 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00726.252l678 ---|          LPC    3777
00801  M01S00727.compvms +++|          ZJN    BCT4        IF NO EQUIPMENT DEFINED
00802  M01S00728.compvms +++|          LMM    DTB,T9
00803  M01S00729.compvms +++|          ZJN    BCT5        IF DEFINED EQUIPMENT
00804  M01S00730.compvms +++|          LDN    2
00805  M01S00731.compvms +++|          RAD    T9
Line S00732 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00732.ns22000 ---|          LMN    DTBL
00807  M01S00058.ns22000 +++|          LMC    DTBL
00808  M01S00733.compvms +++|          NJN    BCT3        IF NOT END OF DEDICATED EQUIPMENT TABLE
00809  M01S00734.compvms +++|          RJM    SCU         SET UNAVAILABLE FOR UNDEFINED MNEMONIC
00810  M01S00735.compvms +++| BCT4     AOD    T8          CHECK NEXT EST ENTRY
Line S00736 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00736.ns22000 ---|          LMD    T5
00812  M01S00059.ns22000 +++|          LMD    T6
00813  M01S00737.compvms +++|          NJN    BCT2        IF NOT LAST ENTRY
00814  M01S00738.compvms +++|          LJM    BCTX        RETURN
00815  M01S00739.compvms +++|
00816  M01S00740.compvms +++| BCT5     AOD    T9
00817  M01S00741.compvms +++|          LDM    DTB,T9
00818  M01S00742.compvms +++|          ZJN    BCT4        IF NOT DEDICATED EQUIPMENT
00819  M01S00743.compvms +++|          SHN    21-1
00820  M01S00744.compvms +++|          PJN    BCT6        IF *OFF* CONDITION DOES NOT APPLY
Line S00745 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00745.251l664 ---|          LDD    CN+3
Line S00746 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00746.251l664 ---|          SHN    21-13
Line S00747 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00747.251l664 ---|          MJN    BCT4        IF *OFF*
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 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00828  M02S00748.ns22000 ---|
00829  M01S00749.compvms +++| BCT6     RJM    SCU         SET CHANNEL UNAVAILABLE
00830  M01S00750.compvms +++|          UJN    BCT4        CONTINUE
00831  M01S00751.compvms +++| DTB      SPACE  4,33
00832  M01S00752.compvms +++|**        DEVICE TYPE TABLE.
00833  M01S00753.compvms +++|*
00834  M01S00754.compvms +++|*
00835  M01S00755.compvms +++|*         TABLE OF SYSTEM RECOGNIZED DEVICES AND DEDICATED STATUS.
00836  M01S00060.ns22000 +++|*         ANY DEVICE WHICH IS NOT IN THIS TABLE WILL BE ASSUMED TO BE
00837  M01S00061.ns22000 +++|*         ON A DEDICATED CHANNEL.
00838  M01S00756.compvms +++|*
00839  M01S00757.compvms +++|*T,       12/EQ
Figure

011EQ

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

01211DS0

00841  M01S00759.compvms +++|*
00842  M01S00760.compvms +++|*         EQ = DEVICE CODE.
00843  M01S00761.compvms +++|*         S = *ON* STATUS REQUIRED FOR DEDICATED DEVICE.
00844  M01S00762.compvms +++|*         D = DEDICATED DEVICE.
00845  M01S00763.compvms +++|
00846  M01S00764.compvms +++|
00847  M01S00765.compvms +++|**        DTY - DEVICE TYPE MACRO.
00848  M01S00766.compvms +++|*
00849  M01S00767.compvms +++|*         DTY    DV,DED,ON
00850  M01S00768.compvms +++|*
00851  M01S00769.compvms +++|*                DV = DEVICE MNEMONIC.
00852  M01S00770.compvms +++|*                DED = DEDICATED TO SYSTEM .
00853  M01S00771.compvms +++|*                ON = DEDICATED TO SYSTEM ONLY IF *ON*.
00854  M01S00772.compvms +++|
00855  M01S00773.compvms +++|
00856  M01S00774.compvms +++| DTY      MACRO  DV,DED,ON
00857  M01S00775.compvms +++|          LOCAL  A,B
00858  M01S00776.compvms +++| A        MICRO  1,2,*DV*
00859  M01S00777.compvms +++| B        SET    0
00860  M01S00778.compvms +++|          CON    2R_"A"
00861  M01S00779.compvms +++|          IFC    NE,$DED$$,3
00862  M01S00780.compvms +++| B        SET    1
00863  M01S00781.compvms +++|          IFC    NE,$ON$$,1
00864  M01S00782.compvms +++| B        SET    B+2
00865  M01S00783.compvms +++|          CON    B
00866  M01S00784.compvms +++|          ENDM
00867  M01S00785.compvms +++|
00868  M01S00786.compvms +++|
Line S00787 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00787.ns22000 ---| DTB      DTY    DS,DED      SYSTEM DISPLAY CONSOLE
Line S00788 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00788.ns22000 ---|          DTY    MT,DED      7 TRACK TAPE
Line S00789 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00789.ns22000 ---|          DTY    NT,DED      9 TRACK TAPE
Line S00790 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00790.ns22000 ---|          DTY    TT,DED,ON   6671/6676 MULTIPLEXER
Line S00791 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00791.ns22000 ---|          DTY    SA,DED,ON   6673/6674 MULTIPLEXER
Line S00792 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00874  M02S00792.ns22000 ---|          DTY    ST,DED,ON   STIMULATOR MULTIPLEXER
Line S00793 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00793.ns22000 ---|          DTY    TE          TAPE EQUIPMENT
Line S00794 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00794.ns22000 ---|          DTY    NE          NON - EXISTENT EQUIPMENT
Line S00795 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00795.ns22000 ---|          DTY    CR          CARD READER
Line S00796 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00796.ns22000 ---|          DTY    CP          CARD PUNCH
Line S00797 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00797.ns22000 ---|          DTY    LP          501/505/512/580 LINE PRINTER
Line S00798 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00798.ns22000 ---|          DTY    LQ          512/580 LINE PRINTER
Line S00799 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00799.ns22000 ---|          DTY    LR          580 LINE PRINTER
Line S00800 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00882  M02S00800.ns22000 ---|          DTY    DE          ECS
Line S00801 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00801.ns22000 ---|          DTY    DH
Line S00802 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00802.ns22000 ---|          DTY    DJ          7054/844-41 DISK FILE(DOUBLE DENSITY)
Line S00803 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00803.ns22000 ---|          DTY    DI          7054/844-21 DISK FILE (SINGLE DENSITY
Line S00804 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00886  M02S00804.ns22000 ---|          DTY    DK          7154/844-21 DISK FILE (FULL TRACK)
Line S00805 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00805.ns22000 ---|          DTY    DL          7154/844-4X DISK FILE (FULL TRACK)
Line S00806 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00806.ns22000 ---|          DTY    DM          885 HALF TRACK
Line S00807 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00807.ns22000 ---|          DTY    DQ          885 FULL TRACK
Line S00808 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00808.ns22000 ---|          DTY    DP          ECS PPU ACCESS
Line S00809 Modification History
M01 (Added by) compvms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00809.ns22000 ---|          DTY    MD          841 DISK FILE
00892  M01S00062.ns22000 +++| DTB      BSS    0
00893  M01S00001.274l797 +++|          DTY    AT,DED      5680 CARTRIDGE MAGNETIC TAPE ON 5744 ACS
00894  M01S00063.ns22000 +++|          DTY    CC,DED,ON   6683 SATELLITE COUPLER
00895  M01S00001.v22l602 +++|          DTY    CM          CONTROL MODULE
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 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00001.274l797 ---|          DTY    CS          MSS CARTRIDGE SELECTOR
Line S00002 Modification History
M01 (Added by) pvms1
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00002.274l797 ---|          DTY    CT          MSS CARTRIDGE TRANSPORT
00900  M01S00002.274l797 +++|          DTY    CT,DED      5680 CARTRIDGE MAGNETIC TAPE
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 (Updated 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 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00002.274l797 ---|          DTY    DD          834 (FULL TRACK)
Line S00001 Modification History
M01 (Added by) 242l642
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00001.274l797 ---|          DTY    DG          836 (FULL TRACK)
00906  M01S00003.274l797 +++|          DTY    DC          895-1/2
00907  M01S00004.274l797 +++|          DTY    DD          834
00908  M01S00068.ns22000 +++|          DTY    DE          EXTENDED MEMORY
00909  M01S00005.274l797 +++|          DTY    DF          887 (4KB SECTOR)
00910  M01S00006.274l797 +++|          DTY    DG          836
00911  M01S00007.274l797 +++|          DTY    DH          887 (16KB SECTOR)
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)
00917  M01S00008.274l797 +++|          DTY    DN          9853
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
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)
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
00937  M01S00001.241l630 +++|          DTY    LX          5870 NON-IMPACT PRINTER
00938  M01S00002.241l630 +++|          DTY    LY          5970 NON-IMPACT PRINTER
00939  M01S00004.pvms1   +++|          DTY    MP          MAP III
00940  M01S00087.ns22000 +++|          DTY    MT,DED      66X/67X MAGNETIC TAPES
00941  M01S00088.ns22000 +++|          DTY    NC          NAD
00942  M01S00005.pvms1   +++|          DTY    ND,DED,ON   MAINFRAME INTERFACE (MDI)
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
00947  M01S00006.pvms1   +++|          DTY    RP          RING PORT
00948  M01S00007.pvms1   +++|          DTY    SS          7990 CONTROLLER
00949  M01S00093.ns22000 +++|          DTY    TE          *TE* PSEUDO-EQUIPMENT
00950  M01S00094.ns22000 +++|          DTY    TT          *TT* PSEUDO-EQUIPMENT/STIMULATOR MUX
00951  M01S00810.compvms +++| DTBL     EQU    *-DTB
00952  M01S00811.compvms +++| SCU      SPACE  4,10
00953  M01S00812.compvms +++|**        SCU - SET CHANNEL UNAVAILABLE.
00954  M01S00813.compvms +++|*
00955  M01S00814.compvms +++|*         ENTRY  (CN - CN+4) .EQ. EST ENTRY.
00956  M01S00815.compvms +++|*
00957  M01S00816.compvms +++|*         EXIT   (CHT) +  CHANNEL .EQ. 100B IF NOT AVAILABLE.
00958  M01S00817.compvms +++|*
00959  M01S00818.compvms +++|*         USES   CN - CN+4.
00960  M01S00819.compvms +++|
00961  M01S00820.compvms +++|
00962  M01S00821.compvms +++| SCU      SUBR               ENTRY/EXIT
00963  M01S00822.compvms +++|          LDD    CN+1
00964  M01S00823.compvms +++|          LPN    77
00965  M01S00824.compvms +++|          STD    CN+4
00966  M01S00825.compvms +++|          LDD    HN
00967  M01S00826.compvms +++|          STM    CHT,CN+4
Line S00827 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00968  M02S00827.252l678 ---|          LDD    CN+1        CHECK NEXT CHANNEL
Line S00828 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00828.252l678 ---|          SHN    -6
00970  M01S00008.252l678 +++|          LDD    CN+2        CHECK NEXT CHANNEL
00971  M01S00009.252l678 +++|          LPN    77
00972  M01S00829.compvms +++|          ZJN    SCUX        IF NOT ALTERNATE CHANNEL
00973  M01S00830.compvms +++|          STD    CN+4
00974  M01S00831.compvms +++|          LDD    HN          SET DEDICATED
Line S00832 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00975  M02S00832.252l678 ---|          STM    CHT,CN+4
Line S00833 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00833.252l678 ---|          LDD    CN          CHECK FOR MASS STORAGE
Line S00834 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00834.252l678 ---|          SHN    21-13
Line S00835 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00835.252l678 ---|          MJN    SCUX        IF MASS STORAGE
Line S00836 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00836.252l678 ---|          LDD    CN+2
Line S00837 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00837.252l678 ---|          LPN    77
Line S00838 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00838.252l678 ---|          ZJN    SCUX        IF NOT ALTERNATE CHANNEL
Line S00839 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00839.252l678 ---|          STD    CN+4
Line S00840 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00840.252l678 ---|          LDD    HN          SET DEDICATED
Line S00841 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00841.252l678 ---|          STM    CHT,CN+4
Line S00842 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00842.252l678 ---|          LDD    CN+2
Line S00843 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00843.252l678 ---|          SHN    -6
Line S00844 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00844.252l678 ---|          ZJN    SCUX        IF NOT ALTERNATE CHANNEL
Line S00845 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00845.252l678 ---|          STD    CN+4
Line S00846 Modification History
M01 (Added by) compvms
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00846.252l678 ---|          LDD    HN
00990  M01S00847.compvms +++|          STM    CHT,CN+4
00991  M01S00848.compvms +++|          LJM    SCUX        RETURN
00992  M01S00849.compvms +++|
00993  M01S00850.compvms +++|
Line S00851 Modification History
M01 (Added by) compvms
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00851.251l664 ---| CHT      BSS    CTALL*5     CHANNEL STATUS TABLE BUFFER
00995  M01S00014.251l664 +++| CHT      BSS    NCTAL*5     CHANNEL STATUS TABLE BUFFER
00996  M01S00852.compvms +++| CHTL     EQU    *-CHT
00997  M01S00853.compvms +++|          SPACE  4
00998  M01S00854.compvms +++| QUAL$    IF     -DEF,QUAL$
00999  M01S00855.compvms +++|          QUAL   *
01000  M01S00856.compvms +++| VMS      EQU    /COMPVMS/VMS
01001  M01S00857.compvms +++| QUAL$    ENDIF
01002  M01S00858.compvms +++|          ENDX
cdc/nos2.source/opl.opl871/common/compvms.txt · Last modified: by 127.0.0.1