Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compsca +++| CTEXT COMPSCA - SET CATALOG ADDRESS.
00002 M00S00002.compsca +++| IF -DEF,QUAL$,1
00003 M00S00003.compsca +++| QUAL COMPSCA
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00005 M00S00004.compsca +++| SPACE 4
00006 M00S00005.compsca +++|*** SCA - SET CATALOG ADDRESS.
00007 M00S00006.compsca +++|* G. R. MANSFIELD. 70/12/10.
00008 M00S00007.compsca +++|* J. L. WARDELL. 72/08/24.
00009 M00S00008.compsca +++|* P. D. HAAS. 74/10/16.
00010 M00S00009.compsca +++| SPACE 4
Line S00010 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00011 M01S00010.ns22000 ---|*** SCA SETS THE EQUIPMENT NUMBER AND CATALOG TRACK FOR A
Line S00001 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00012 M01S00001.ns22000 +++|*** SCA SETS THE EST ORDINAL AND CATALOG TRACK FOR A
00013 M00S00011.compsca +++|* SPECIFIED USER INDEX.
00014 M00S00012.compsca +++|*
00015 M00S00013.compsca +++|* IF THE SYMBOL SCA$ IS DEFINED IN THE CALLING PROGRAM,
00016 M00S00014.compsca +++|* A MATCHING DEVICE WITH THE *UNLOAD* FLAG SET WILL
00017 M00S00015.compsca +++|* NOT BE REJECTED.
00018 M00S00016.compsca +++|*
00019 M00S00017.compsca +++|* ENTRY (UI - UI+1) = USER INDEX.
00020 M00S00018.compsca +++|* (A) = ADDRESS OF PERMANENT FILE DEVICE DESCRIPTION.
00021 M01S00002.ns22000 +++|*T PFD 42/ NAME, 6/, 12/ EST ORDINAL
Figure
PFD
0 11 12 17 18 29 EST ORDINAL NAME 30 59 NAME
00022 M00S00019.compsca +++|*
Line S00020 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00023 M01S00020.242l642 ---|* EXIT (A) > 0 IF DEVICE FOUND. (A) = ADDRESS OF MST/10.
00024 M01S00021.242l642 ---|* (A) < 0 IF DEVICE NOT FOUND.
Line S00001 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00025 M01S00001.242l642 +++|* EXIT (A) .GT. 0 IF DEVICE FOUND. (A) = ADDRESS OF MST/10.
00026 M01S00002.242l642 +++|* (A) = -0 IF DEVICE NOT FOUND.
00027 M01S00003.242l642 +++|* (A) = -1 IF DEVICE ACCESS DENIED BY *SETMS*.
Line S00022 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00028 M01S00022.ns22000 ---|* (T5) = EQUIPMENT NUMBER.
Line S00003 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00029 M01S00003.ns22000 +++|* (T5) = EST ORDINAL.
00030 M00S00023.compsca +++|* (T6) = CATALOG TRACK.
00031 M00S00024.compsca +++|*
00032 M00S00025.compsca +++|* USES T0 - T7, CM - CM+6, FN - FN+4.
00033 M01S00004.ns22000 +++|*
Line S00005 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00034 M02S00005.242l642 ---|* MACROS MONITOR, SFA.
Line S00026 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00035 M01S00026.242l642 ---| SPACE 4
00036 M01S00027.242l642 ---|* INSTRUCTIONS USED AS CONSTANTS.
00037 M01S00028.242l642 ---|
00038 M01S00029.242l642 ---|
00039 M01S00030.242l642 ---| SHNI EQU 1000 SHN
00040 M01S00031.242l642 ---| ADCI EQU 2100 ADC
Line S00004 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00041 M01S00004.242l642 +++|* MACROS MONITOR, SETMS, SFA.
00042 M01S00005.242l642 +++|*
00043 M01S00006.242l642 +++|* XREF COMSPIM.
00044 M00S00032.compsca +++|
00045 M00S00033.compsca +++|
00046 M00S00034.compsca +++| SCA SUBR ENTRY/EXIT
00047 M00S00035.compsca +++| STM SCAA SET ADDRESS OF DEVICE DESCRIPTION
00048 M00S00036.compsca +++| LDD MA
00049 M00S00037.compsca +++| CWM *,ON
00050 M00S00038.compsca +++| SCAA EQU *-1
00051 M00S00039.compsca +++| SBN 1
00052 M00S00040.compsca +++| CRD FN
00053 M00S00041.compsca +++| LDD UI+1 SET EQUIPMENT SHIFT
00054 M00S00042.compsca +++| LPN 7
00055 M00S00043.compsca +++| SBN 21
00056 M00S00044.compsca +++| LMC -SHNI
00057 M00S00045.compsca +++| STM SCAB
00058 M00S00046.compsca +++|
00059 M00S00047.compsca +++|* SET UP FOR EST SEARCH.
00060 M00S00048.compsca +++|
00061 M00S00049.compsca +++| LDN ESTP
00062 M00S00050.compsca +++| CRD T1
00063 M00S00051.compsca +++| LDN 1 SET CHECK FOR AUXILIARY DEVICE
00064 M00S00052.compsca +++| STD T7
Line S00053 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00065 M01S00053.ns22000 ---| LDD T1+2 SET LAST MASS STORAGE EQUIPMENT NUMBER
00066 M01S00054.ns22000 ---| SBD T1
00067 M01S00055.ns22000 ---| STD T5
Line S00006 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00068 M01S00006.ns22000 +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
00069 M01S00007.ns22000 +++| STD T5
00070 M01S00008.ns22000 +++| LDD T1+3 SET LAST MASS STORAGE ORDINAL + 1
00071 M01S00009.ns22000 +++| STD T6
00072 M00S00056.compsca +++| LDD FN
00073 M00S00057.compsca +++| NJN SCA1 IF AUXILIARY DEVICE REQUEST
00074 M00S00058.compsca +++| STD T7 SET CHECK FOR NON-AUXILIARY DEVICE
Line S00059 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00075 M01S00059.ns22000 ---| LDD FN+3 SET EQUIPMENT NUMBER FOR FAMILY
00076 M01S00060.ns22000 ---| LPN 77
00077 M01S00061.ns22000 ---| ADM ESTS
Line S00010 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00078 M01S00010.ns22000 +++| SFA EST,FN+4 READ EST ENTRY
00079 M01S00011.ns22000 +++| ADK EQDE
00080 M00S00062.compsca +++| CRD T0 READ EST ENTRY
00081 M00S00063.compsca +++| LDD T0+4 READ PERMANENT FILE DESCRIPTION
00082 M00S00064.compsca +++| SHN 3
00083 M00S00065.compsca +++| ADN PFGL
00084 M00S00066.compsca +++| CRD FN
Line S00067 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00085 M01S00067.ns22000 ---| SCA1 SOD T5 DECREMENT EQUIPMENT NUMBER
00086 M01S00068.ns22000 ---| PJN SCA2 IF MORE EQUIPMENTS TO CHECK
Line S00012 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00087 M01S00012.ns22000 +++| SCA1 AOD T5 ADVANCE EST ORDINAL
00088 M01S00013.ns22000 +++| LMD T6
00089 M01S00014.ns22000 +++| NJN SCA2 IF NOT END OF EST
Line S00015 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00090 M02S00015.242l642 ---| LCN 0 RETURN WITH (A) .LT. 0
Line S00007 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00091 M01S00007.242l642 +++| LCN 0 RETURN WITH (A) = -0
00092 M00S00069.compsca +++| LJM SCAX
00093 M00S00070.compsca +++|
Line S00071 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00094 M01S00071.ns22000 ---| SCA2 ADM ESTS READ EST ENTRY
Line S00016 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00095 M01S00016.ns22000 +++| SCA2 SFA EST,T5 READ EST ENTRY
00096 M01S00017.ns22000 +++| ADK EQDE
00097 M00S00072.compsca +++| CRD T0
00098 M00S00073.compsca +++| LDD T0
00099 M00S00074.compsca +++| SHN -6
00100 M00S00075.compsca +++| LPN 41
00101 M00S00076.compsca +++| LMN 40
00102 M00S00077.compsca +++| NJN SCA1 IF UNAVAILABLE OR NON MS DEVICE
Line S00078 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00103 M01S00078.242l642 ---| LDD T0+3
00104 M01S00079.242l642 ---| SHN 21-13
00105 M01S00080.242l642 ---| MJN SCA1 IF DEVICE *OFF*
00106 M00S00081.compsca ---| LDD T0+4 READ *STLL* WORD FROM MST
00107 M00S00082.compsca ---| SHN 3
00108 M00S00083.compsca ---| ADN STLL
00109 M00S00084.compsca ---| CRD CM
00110 M00S00085.compsca ---| SBN STLL-MDGL READ *MDGL*
00111 M00S00086.compsca ---| CRD CM+1
00112 M00S00087.compsca ---| SBN MDGL-PFGL GET PF DESCRIPTOR WORD
00113 M00S00088.compsca ---| CRD CM+2
00114 M00S00089.compsca ---| LDD CM
00115 M00S00090.compsca ---| SCA$ IF -DEF,SCA$
00116 M00S00091.compsca ---| LPC MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
00117 M00S00092.compsca ---| SCA$ ELSE
00118 M00S00093.compsca ---| LPC MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLDUL
00119 M00S00094.compsca ---| SCA$ ENDIF
00120 M00S00095.compsca ---| NJN SCA1 IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00121 M00S00096.compsca ---| LDD CM+1
00122 M00S00097.compsca ---| SHN -12
00123 M00S00098.compsca ---| LPN 1
00124 M00S00099.compsca ---| LMD T7
Line S00100 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00125 M01S00100.ns22000 ---| NJN SCA1 IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
Line S00018 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00126 M01S00018.ns22000 +++| NJN SCA3 IF DEVICE UNAVAILABLE FOR THIS PF ACCESS
00127 M00S00101.compsca +++|
00128 M00S00102.compsca +++|* COMPARE FAMILY/PACK NAME WITH THAT REQUESTED.
00129 M00S00103.compsca +++|
00130 M00S00104.compsca +++| LDD FN
00131 M00S00105.compsca +++| LMD CM+2
00132 M00S00106.compsca +++| NJN SCA3 IF NO MATCH
00133 M00S00107.compsca +++| LDD FN+1
00134 M00S00108.compsca +++| LMD CM+3
00135 M00S00109.compsca +++| NJN SCA3 IF NO MATCH
00136 M00S00110.compsca +++| LDD FN+2
00137 M00S00111.compsca +++| LMD CM+4
00138 M00S00112.compsca +++| NJN SCA3 IF NO MATCH
00139 M00S00113.compsca +++| LDD FN+3
00140 M00S00114.compsca +++| LMD CM+5
00141 M00S00115.compsca +++| SCN 77
00142 M00S00116.compsca +++| NJN SCA3 IF NO MATCH
00143 M00S00117.compsca +++| LDD T0+4 RETRIEVE MST WORDS
00144 M00S00118.compsca +++| SHN 3
00145 M00S00119.compsca +++| ADN PUGL PF USER DESCRIPTION
00146 M00S00120.compsca +++| CRD CM+2
00147 M00S00121.compsca +++| SBN PUGL-ALGL DEVICE ALLOCATION WORD
00148 M00S00122.compsca +++| CRD CM
00149 M00S00123.compsca +++| LDD T7
00150 M00S00124.compsca +++| NJN SCA4 IF AUXILIARY DEVICE
00151 M00S00125.compsca +++| LDD CM+6 CHECK DEVICE MASK
00152 M00S00126.compsca +++| SCAB SHN **
00153 M00S00127.compsca +++| MJN SCA4 IF USERS CATALOGS ON THIS DEVICE
00154 M00S00128.compsca +++|
00155 M00S00129.compsca +++|* NOT PROPER DEVICE PROCEED TO NEXT DEVICE.
00156 M00S00130.compsca +++|
00157 M00S00131.compsca +++| SCA3 LJM SCA1
00158 M00S00132.compsca +++|
00159 M00S00133.compsca +++|* DETERMINE CATALOG TRACK.
00160 M00S00134.compsca +++|
00161 M00S00135.compsca +++| SCA4 SOD CM+3 SET MASK FOR NUMBER OF CATALOG TRACKS
00162 M00S00136.compsca +++| STM SCAC
00163 M00S00137.compsca +++| LDD UI+1
00164 M00S00138.compsca +++| SHN -3
00165 M00S00139.compsca +++| LPC *
00166 M00S00140.compsca +++| SCAC EQU *-1
00167 M00S00141.compsca +++| ADN 1
00168 M00S00142.compsca +++| STD T7 SET CATALOG COUNT
00169 M00S00143.compsca +++| ADD CM+1 LABEL TRACK
00170 M00S00144.compsca +++| STD T6
00171 M00S00145.compsca +++| LDD CM+5
00172 M00S00146.compsca +++| SHN 21-5
Line S00147 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00173 M01S00147.ns22000 ---| MJN SCA6 IF CATALOG TRACKS CONTINUOUS
Line S00019 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00174 M01S00019.ns22000 +++| PJN SCA4.1 IF CATALOG TRACKS NOT CONTINUOUS
Line S00020 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00175 M02S00020.242l642 ---| LJM SCA6 SET (A) = MST ADDRESS
Line S00008 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00176 M01S00008.242l642 +++| LJM SCA6 CHECK IF DEVICE CAN BE ACCESSED
Line S00021 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00177 M01S00021.ns22000 +++|
00178 M00S00148.compsca +++|
00179 M00S00149.compsca +++|* LOCATE CATALOG TRACK FROM CHAIN.
00180 M00S00150.compsca +++|
Line S00151 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00181 M01S00151.ns22000 ---| LDD CM+1 SAVE FIRST TRACK OF CHAIN
Line S00022 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00182 M01S00022.ns22000 +++| SCA4.1 LDD CM+1 SAVE FIRST TRACK OF CHAIN
00183 M00S00152.compsca +++| STD T6
00184 M00S00153.compsca +++| LDD T0+4 SET FWA OF TRT - TRACK BIT
00185 M00S00154.compsca +++| SHN 3
Line S00155 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00186 M01S00155.ns22000 ---| ADN MSTL
Line S00023 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00187 M01S00023.ns22000 +++| ADN TRLL
00188 M01S00024.ns22000 +++| CRD CM
00189 M01S00025.ns22000 +++| LDD CM+3
00190 M01S00026.ns22000 +++| LPN 77
00191 M01S00027.ns22000 +++| SHN 14
00192 M01S00028.ns22000 +++| LMD CM+4
00193 M00S00156.compsca +++| SBD TH
00194 M00S00157.compsca +++| STM SCAD+1
00195 M00S00158.compsca +++| SHN -14
00196 M00S00159.compsca +++| LMC ADCI
00197 M00S00160.compsca +++| STM SCAD
00198 M00S00161.compsca +++| SCA5 LDD T6 CHECK VALID TRACK LINKAGE
00199 M00S00162.compsca +++| SHN 21-13
00200 M00S00163.compsca +++| PJN SCA7 IF NOT VALID LINKAGE
00201 M00S00164.compsca +++| SHN 13-21-2 CALCULATE NEXT TRT WORD OFFSET
00202 M00S00165.compsca +++| SCAD ADC TRTS
00203 M00S00166.compsca +++| CRD CM
00204 M00S00167.compsca +++| LDD T6
00205 M00S00168.compsca +++| LPN 3
00206 M00S00169.compsca +++| STD CM+4
00207 M00S00170.compsca +++| LDM CM,CM+4
00208 M00S00171.compsca +++| STD T6
00209 M00S00172.compsca +++| SOD T7
00210 M00S00173.compsca +++| NJN SCA5 IF MORE CATALOG TRACKS
Line S00174 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00211 M01S00174.242l642 ---| SCA6 LDD T0+4 SET (A) = MST ADDRESS
00212 M01S00175.242l642 ---| LJM SCAX EXIT
Line S00009 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00213 M01S00009.242l642 +++|
00214 M01S00010.242l642 +++|* DETERMINE IF DEVICE CAN BE ACCESSED.
00215 M01S00011.242l642 +++|
00216 M01S00012.242l642 +++| SCA6 SETMS STATUS
Line S00001 Modification History
M01 (Added by) ns2776
Seq # *Modification Id* Act
----------------------------+
00217 M01S00001.ns2776 +++| LDM MSD
00218 M01S00002.ns2776 +++| SHN 21-6
Line S00013 Modification History
M01 (Added by) 242l642
M02 (Removed by) 251l670
Seq # *Modification Id* Act
----------------------------+
00219 M02S00013.251l670 ---| NJN SCA8 IF DEVICE SHOULD NOT BE ACCESSED
Line S00001 Modification History
M01 (Added by) 251l670
Seq # *Modification Id* Act
----------------------------+
00220 M01S00001.251l670 +++| MJN SCA8 IF DEVICE NOT TO BE ACCESSED
Line S00014 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00221 M01S00014.242l642 +++| LDD T0+4 SET (A) = MST ADDRESS/10B
00222 M01S00015.242l642 +++| SCA6.1 UJP SCAX RETURN
00223 M00S00176.compsca +++|
00224 M00S00177.compsca +++| SCA7 MONITOR HNGM HANG ON INVALID CATALOG LINKAGE
Line S00178 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
00225 M01S00178.242l642 ---| LCN 1 SET DEVICE NOT FOUND
00226 M01S00179.242l642 ---| LJM SCAX EXIT
Line S00016 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
00227 M01S00016.242l642 +++| LCN 0 RETURN WITH (A) = -0
00228 M01S00017.242l642 +++| UJN SCA6.1 RETURN
00229 M01S00018.242l642 +++|
00230 M01S00019.242l642 +++| SCA8 LCN 1 RETURN WITH (A) = -1
00231 M01S00020.242l642 +++| UJN SCA6.1 RETURN
00232 M00S00180.compsca +++| SPACE 4
00233 M00S00181.compsca +++| QUAL$ IF -DEF,QUAL$
00234 M00S00182.compsca +++| QUAL *
00235 M00S00183.compsca +++| SCA EQU /COMPSCA/SCA
00236 M00S00184.compsca +++| QUAL$ ENDIF
00237 M00S00185.compsca +++| ENDX