Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.install +++| IDENT INSTALL,FETS
00002 M00S00002.install +++| ABS
00003 M00S00003.install +++| SST
00004 M00S00004.install +++| ENTRY INSTALL
00005 M00S00005.install +++| ENTRY RFL=
00006 M00S00006.install +++| ENTRY SSJ=
00007 M00S00007.install +++| SYSCOM B1 DEFINE (B1) = 1
00008 M00S00008.install +++| TITLE INSTALL - INSTALL DEADSTART FILE.
00009 M00S00009.install +++|*COMMENT INSTALL - INSTALL DEADSTART FILE.
| Line S00010 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00012 M00S00011.install +++| SPACE 4,10
00013 M00S00012.install +++|***** INSTALL - INSTALL DEADSTART FILE.
00014 M00S00013.install +++|*
00015 M00S00014.install +++|* P. D. HAAS. 78/02/28.
00016 M00S00015.install +++|* D. R. HILGREN. 78/08/18.
00017 M00S00016.install +++| SPACE 4,10
| Line S00017 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00018 M01S00017.ns22000 ---|*** *INSTALL* INSTALLS THE RUNNING SYSTEM FILE OR USER
00019 M01S00018.ns22000 ---|* SPECIFIED DEADSTART FILE ON A RMS DEADSTART DEVICE. IF
00020 M01S00019.ns22000 ---|* DEVICE XX IS A SHARED (MMF) DEVICE, A FULL INITIALIZE
00021 M01S00020.ns22000 ---|* MUST PRECEDE. DEVICE XX MUST BE ON, AVAILABLE, A SINGLE
00022 M01S00021.ns22000 ---|* UNIT DEVICE, AN LDAM TYPE EQUIPMENT, AND MUST HAVE
00023 M01S00022.ns22000 ---|* *CTI* INSTALLED.
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00024 M01S00001.ns22000 +++|*** *INSTALL* COPIES A FILE TO A MASS STORAGE DEVICE AND
00025 M01S00002.ns22000 +++|* UPDATES THE DEADSTART SECTOR SO THAT THE RESULTING FILE CAN BE
00026 M01S00003.ns22000 +++|* DEADSTARTED. THE DEVICE SPECIFIED MUST BE A SINGLE UNIT
00027 M01S00004.ns22000 +++|* *LDAM* TYPE DEVICE WHICH IS *ON*, AVAILABLE, AND HAS HAD *CTI*
00028 M01S00005.ns22000 +++|* INSTALLED ON IT.
00029 M00S00023.install +++| SPACE 4,10
00030 M00S00024.install +++|*** CONTROL CARD CALL.
00031 M00S00025.install +++|*
| Line S00026 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00032 M01S00026.ns22000 ---|* INSTALL,LFN,EQXX.
| Line S00006 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00033 M01S00006.ns22000 +++|* INSTALL,LFN,EQXXX.
00034 M00S00027.install +++|*
00035 M00S00028.install +++|* LFN = MASS STORAGE FILE (ASSIGNED TO THE CONTROL POINT)
00036 M00S00029.install +++|* WHICH IS TO BE INSTALLED AS A SYSTEM DEADSTART
00037 M00S00030.install +++|* FILE. IF *LFN* IS OMITTED, DEFAULT IS FILE
00038 M00S00031.install +++|* *SYSTEM* (WHICH MUST BE ASSIGNED TO THE CONTROL
00039 M00S00032.install +++|* POINT). *SDF* IS A RESERVED FILE NAME AND CANNOT
00040 M00S00033.install +++|* BE USED AS *LFN*.
00041 M00S00034.install +++|*
| Line S00035 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00042 M01S00035.ns22000 ---|* XX = 1 OR 2 OCTAL DIGIT *EST* ORDINAL OF ROTATING MASS
00043 M01S00036.ns22000 ---|* STORAGE DEVICE ON WHICH *LFN* IS TO BE INSTALLED.
| Line S00007 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00044 M01S00007.ns22000 +++|* XXX = EST ORDINAL ON WHICH *LFN* IS TO BE WRITTEN.
00045 M00S00037.install +++|*
00046 M00S00038.install +++|* CALLING JOB MUST BE SYSTEM ORIGIN OR MUST BE VALIDATED
00047 M00S00039.install +++|* FOR SYSTEM ORIGIN PRIVILEGES. IF THE DEADSTART FILE
00048 M00S00040.install +++|* TO BE INSTALLED IS ON TAPE, IT MUST FIRST BE COPIED TO
00049 M00S00041.install +++|* MASS STORAGE.
00050 M00S00042.install +++| SPACE 4,10
00051 M00S00043.install +++|*** DAYFILE MESSAGES.
00052 M00S00044.install +++|*
00053 M00S00045.install +++|* * DEADSTART FILE FORMAT ERROR.* - AN ERROR WAS DETECTED IN
00054 M00S00046.install +++|* THE DIRECTORY OF THE DEADSTART FILE.
00055 M00S00047.install +++|*
00056 M00S00048.install +++|* * INSTALL - ARGUMENT ERROR.* - AN ERROR WAS DETECTED IN THE
00057 M00S00049.install +++|* PARAMETERS ASSOCIATED WITH THE *INSTALL* CONTROL STATEMENT.
00058 M00S00050.install +++|*
00059 M00S00051.install +++|* * SDF INSTALLATION COMPLETE.* - SYSTEM DEADSTART FILE
00060 M00S00052.install +++|* INSTALLATION IS COMPLETED.
00061 M00S00053.install +++| SPACE 4,10
00062 M01S00008.ns22000 +++|** COMMON DECKS.
00063 M01S00009.ns22000 +++|
00064 M01S00010.ns22000 +++|
00065 M00S00054.install +++|*CALL COMCMAC
| Line S00001 Modification History |
M01 (Added by) | ns2428 |
Seq # *Modification Id* Act
----------------------------+
00066 M01S00001.ns2428 +++|*CALL COMCCMD
00067 M00S00055.install +++|*CALL COMSPRD
00068 M00S00056.install +++|*CALL COMSSSD
00069 M00S00057.install +++|*CALL COMSSSJ
00070 M00S00058.install +++| SPACE 4,10
00071 M00S00059.install +++|**** ASSEMBLY CONSTANTS.
00072 M00S00060.install +++|
00073 M00S00061.install +++|
| Line S00062 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00074 M01S00062.v23l617 ---| CBUFL EQU 10200B BUFFER LENGTH
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | instal2 |
Seq # *Modification Id* Act
----------------------------+
00075 M02S00001.instal2 ---| CBUFL EQU 14000B BUFFER LENGTH
| Line S00001 Modification History |
M01 (Added by) | instal2 |
Seq # *Modification Id* Act
----------------------------+
00076 M01S00001.instal2 +++| CBUFL EQU 22000B BUFFER LENGTH
00077 M01S00002.instal2 +++|
00078 M01S00003.instal2 +++|* CODE REQUIRES CBUFL DIVISIBLE BY 3
00079 M01S00004.instal2 +++|
00080 M01S00005.instal2 +++| ERRNZ CBUFL/3*3-CBUFL
00081 M01S00006.instal2 +++|****
00082 M00S00063.install +++|****
| Line S00064 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00083 M01S00064.ns22000 ---| TITLE FETS.
| Line S00011 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00084 M01S00011.ns22000 +++| FETS SPACE 4,10
00085 M01S00012.ns22000 +++|** FETS.
00086 M01S00013.ns22000 +++|
00087 M01S00014.ns22000 +++|
00088 M00S00065.install +++| ORG 104B
00089 M00S00066.install +++| FETS BSS 0
00090 M00S00067.install +++|
00091 M00S00068.install +++|
00092 M00S00069.install +++| I BSS 0 INSTALL FILE
00093 M00S00070.install +++| SYSTEM RFILEB TBUF,TBUFL,FET=7
00094 M00S00071.install +++|
00095 M00S00072.install +++|
00096 M00S00073.install +++| O BSS 0 *SDF* FILE
00097 M00S00074.install +++| SDF RFILEB CBUF,CBUFL,FET=6,EPR
00098 M00S00075.install +++| TITLE DATA STORAGE.
00099 M00S00076.install +++|** DATA STORAGE.
00100 M00S00077.install +++|
00101 M00S00078.install +++|
00102 M00S00079.install +++| EORF CON 1 CURRENT BLOCK EOR FLAG
00103 M00S00080.install +++| SPACE 4,10
00104 M00S00081.install +++|* SPECIAL ENTRY POINTS.
00105 M00S00082.install +++|
00106 M00S00083.install +++|
00107 M00S00084.install +++| SSJ= BSS 0
00108 M00S00085.install +++| VFD 12/0,24/-0,12/SYCS,12/IRSI
00109 M00S00086.install +++| BSSZ SSJ=+SSJL-*
00110 M00S00087.install +++| SPACE 4,10
00111 M00S00088.install +++|* *1IS* FUNCTION REQUESTS.
00112 M00S00089.install +++|
00113 M00S00090.install +++|
00114 M00S00091.install +++| VIFF VFD 18/0L1IS,6/0,12/1,12/0,12/I
00115 M00S00092.install +++| IDFF VFD 18/0L1IS,6/0,12/2,12/O,12/I
00116 M00S00093.install +++| CFIF VFD 18/0L1IS,6/0,12/3,12/O,12/I
00117 M00S00094.install +++| PMEF VFD 18/0L1IS,6/0,12/4,12/O,12/0
00118 M00S00095.install +++| TITLE MAIN PROGRAM.
00119 M01S00015.ns22000 +++| INSTALL SPACE 4,10
00120 M01S00016.ns22000 +++|** INSTALL - MAIN PROGRAM.
00121 M01S00017.ns22000 +++|
00122 M01S00018.ns22000 +++|
00123 M00S00096.install +++| INSTALL BSS 0
00124 M00S00097.install +++| SB1 1 PRESET PROGRAM
00125 M00S00098.install +++| RJ PRS
00126 M00S00099.install +++| RJ CDF COPY DEADSTART FILE
00127 M00S00100.install +++| INS1 R= X7,2
00128 M00S00101.install +++| SX1 CFIF COMPLETE *SDF* INSTALLATION
00129 M00S00102.install +++| R= A7,ARGR
00130 M00S00103.install +++| SYSTEM SPC,,X1 CALL *1IS*
00131 M00S00104.install +++| SA1 CFIF
| Line S00105 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00132 M01S00105.ns22000 ---| ZR X1,INS2 IF *SYSTEM* REQUEST PERFORMED
| Line S00019 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00133 M01S00019.ns22000 +++| ZR X1,INS2 IF *1IS* ASSIGNED
00134 M00S00106.install +++| RECALL
00135 M00S00107.install +++| EQ INS1 RETRY *SYSTEM REQUEST
00136 M00S00108.install +++|
00137 M00S00109.install +++| INS2 RECALL ARGR WAIT *1IS* COMPLETE
| Line S00110 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00138 M01S00110.ns22000 ---| MESSAGE INSA,0 * SDF INSTALLATION COMPLETE.*
| Line S00020 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00139 M01S00020.ns22000 +++| MESSAGE (=C* SDF INSTALLATION COMPLETE.*)
00140 M00S00111.install +++| ENDRUN
| Line S00112 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00141 M01S00112.ns22000 ---|
00142 M01S00113.ns22000 ---| INSA DATA C* SDF INSTALLATION COMPLETE.*
00143 M00S00114.install ---| TITLE SUBROUTINES.
00144 M00S00115.install ---| CDF SPACE 4,10
00145 M00S00116.install ---|** CDF - COPY DEADSTART FILE.
00146 M00S00117.install ---|*
00147 M00S00118.install ---|* ENTRY (B2) = 2.
00148 M00S00119.install ---|*
00149 M00S00120.install ---|* USES A - ALL.
00150 M00S00121.install ---|* B - 3, 4, 5, 6, 7.
00151 M00S00122.install ---|* X - ALL.
00152 M00S00123.install ---|*
00153 M00S00124.install ---|* CALLS *1IS*.
00154 M00S00125.install ---|*
00155 M00S00126.install ---|* MACROS ABORT, MESSAGE, READCW, RECALL, SYSTEM, WRITECW.
00156 M00S00127.install ---|*
00157 M00S00128.install ---|* NOTE WHEN CHECKING FOR FET COMPLETE AND DATA IN THE BUFFER,
00158 M00S00129.install ---|* THE FET STATUS MUST BE PICKED UP BEFORE THE BUFFER
00159 M00S00130.install ---|* POINTER.
00160 M00S00131.install ---|
00161 M00S00132.install ---|
00162 M00S00133.install ---| CDF SUBR ENTRY/EXIT
00163 M00S00134.install ---| SB5 CBUF+CBUFL SET LIMIT ADDRESS
00164 M00S00135.install ---| SA2 I+3
00165 M00S00136.install ---| BX0 X0-X0 INDICATE NO BLOCKS AVAILABLE OR COMPLETE
00166 M00S00137.install ---| SA0 X2 INITIALIZE INPUT PSEUDO OUT POINTER
00167 M00S00138.install ---| EQ CDF13 INITIATE CONTROL WORD READ
00168 M00S00139.install ---|
00169 M00S00140.install ---|* CHECK FOR INPUT BLOCK AVAILABLE.
00170 M00S00141.install ---|
00171 M00S00142.install ---| CDF1 SA5 I CHECK INPUT FILE STATUS
00172 M00S00143.install ---| SA3 I+2 CHECK INPUT IN = PSEUDO OUT POINTER
00173 M00S00144.install ---| BX0 X0-X0 INDICATE NO BLOCKS AVAILABLE OR COMPLETE
00174 M00S00145.install ---| SX1 A0
00175 M00S00146.install ---| IX1 X3-X1
00176 M00S00147.install ---| LX5 59-0
00177 M00S00148.install ---| NZ X1,CDF3 IF INPUT BLOCK AVAILABLE
00178 M00S00149.install ---| PL X5,CDF8 IF BUFFER BUSY
00179 M00S00150.install ---| LX5 59-11-59+0
00180 M00S00151.install ---| NG X5,CDF15 IF PARITY ERROR STATUS IN FET
00181 M00S00152.install ---| LX5 59-3-59+11
00182 M00S00153.install ---| PL X5,CDF8 IF NOT EOF
00183 M00S00154.install ---|
00184 M00S00155.install ---|* PROCESS EOF.
00185 M00S00156.install ---|
00186 M00S00157.install ---| RECALL O WAIT OUTPUT FILE NOT BUSY
00187 M00S00158.install ---| SA3 O+2 CHECK DATA IN BUFFER
00188 M00S00159.install ---| SA4 A3+B1
00189 M00S00160.install ---| IX7 X3-X4
00190 M00S00161.install ---| ZR X7,CDF2 IF BUFFER EMPTY
00191 M00S00162.install ---| WRITECW X2,R FLUSH BUFFER
00192 M00S00163.install ---| CDF2 SA3 CDFB
00193 M00S00164.install ---| SA1 X2+B1
00194 M00S00165.install ---| SA4 A3+B1
00195 M00S00166.install ---| BX6 X3 SET EOF CONTROL WORDS IN BUFFER
00196 M00S00167.install ---| LX7 X4
00197 M00S00168.install ---| SA6 X1
00198 M00S00169.install ---| SA7 X1+B1
00199 M00S00170.install ---| SX6 A6 OUT = FIRST
00200 M00S00171.install ---| SX7 X1+B2 IN = FIRST+2
00201 M00S00172.install ---| SA6 A1+B2
00202 M00S00173.install ---| SA7 A1+B1
00203 M00S00174.install ---| WRITECW X2,R WRITE EOF
00204 M00S00175.install ---| EQ CDFX RETURN
00205 M00S00176.install ---|
00206 M00S00177.install ---|* PROCESS INPUT BLOCK.
00207 M00S00178.install ---|
00208 M00S00179.install ---| CDF3 SX0 B1 INDICATE INPUT BLOCK TRANSFERRED
00209 M00S00180.install ---| SA4 A0 CRACK CONTROL WORD HEADER
00210 M00S00181.install ---| SX2 5
00211 M00S00182.install ---| SX7 X4+4
00212 M00S00183.install ---| IX7 X7/X2 CALCULATE WORD COUNT
00213 M00S00184.install ---| AX4 36
00214 M00S00185.install ---| SB6 X7
00215 M00S00186.install ---| SA2 EORF CHECK FOR PREVIOUS EOR
00216 M00S00187.install ---| SB7 X4 PRU SIZE
00217 M00S00188.install ---| ZR X2,CDF6 IF PREVIOUS BLOCK NOT EOR
00218 M00S00189.install ---| SB4 A0+B1
00219 M00S00190.install ---| NE B4,B5,CDF4 IF NO WRAP AROUND
00220 M00S00191.install ---| SB4 CBUF SET FIRST
00221 M00S00192.install ---| CDF4 ZR B6,CDF6 IF ZERO LENGTH RECORD
00222 M00S00193.install ---| MX6 12
00223 M00S00194.install ---| SA1 B4 GET RECORD NAME
00224 M00S00195.install ---| BX6 X6*X1
00225 M00S00196.install ---| LX6 12
00226 M00S00197.install ---| SX6 X6-7700B
00227 M00S00198.install ---| NZ X6,CDF5 IF NOT 77 TABLE
00228 M00S00199.install ---| SB3 B4+B1
00229 M00S00200.install ---| SA1 B4+B1
00230 M00S00201.install ---| NE B3,B5,CDF5 IF NO WRAP AROUND
00231 M00S00202.install ---| SA1 CBUF
00232 M00S00203.install ---| CDF5 MX7 42
00233 M00S00204.install ---| BX7 X7*X1
00234 M00S00205.install ---| SA7 CDFA+1 ENTER NAME IN MESSAGE
00235 M00S00206.install ---| MESSAGE A7-B1,1 DISPLAY RECORD NAME
00236 M00S00207.install ---| CDF6 SB4 A0+B6 ADVANCE POINTER
00237 M00S00208.install ---| SX7 B6-B7 NO EOR IF FULL BLOCK
00238 M00S00209.install ---| SB4 B4+B2 SKIP CONTROL WORDS
00239 M00S00210.install ---| SB3 B4-B5
00240 M00S00211.install ---| LT B4,B5,CDF7 IF NO WRAP AROUND
00241 M00S00212.install ---| SB4 B3+CBUF
00242 M00S00213.install ---| CDF7 SX6 B4
00243 M00S00214.install ---| SA7 EORF SAVE EOR FLAG
00244 M00S00215.install ---| SA1 A0 GET CONTROL WORD HEADER
00245 M00S00216.install ---| NG X1,CDF15 IF ERROR OCCURRED ON THIS BLOCK
00246 M00S00217.install ---|
00247 M00S00218.install ---|* TRANSFER BLOCK TO OUTPUT.
00248 M00S00219.install ---|
00249 M00S00220.install ---| SA6 O+2 ADVANCE OUTPUT IN POINTER
00250 M00S00221.install ---| SB0 0
00251 M00S00222.install ---| SA0 B4+ ADVANCE INPUT PSEUDO OUT POINTER
00252 M00S00223.install ---|
00253 M00S00224.install ---|* CHECK FOR REINITIATE CONTROL WORD WRITE.
00254 M00S00225.install ---|
00255 M00S00226.install ---| CDF8 SA2 O CHECK OUTPUT FILE STATUS
00256 M00S00227.install ---| LX2 59-0
00257 M00S00228.install ---| SA1 A2+B2
00258 M00S00229.install ---| PL X2,CDF10 IF BUFFER BUSY
00259 M00S00230.install ---| SA2 A1+1 CHECK BUFFER THRESHOLD
00260 M00S00231.install ---| SX3 CBUFL/3
00261 M00S00232.install ---| IX1 X1-X2 (IN-OUT)
00262 M00S00233.install ---| IX2 X1-X3 (IN-OUT) - 1/3(BUFFER SIZE)
00263 M00S00234.install ---| ZR X1,CDF10 IF BUFFER EMPTY
00264 M00S00235.install ---| PL X1,CDF9 IF IN .GT. OUT
00265 M00S00236.install ---| LX3 1
00266 M00S00237.install ---| SB0 0
00267 M00S00238.install ---| IX2 X3+X1 2/3(BUFFER SIZE) - (OUT-IN)
00268 M00S00239.install ---| CDF9 NG X2,CDF10 IF BUFFER THRESHOLD NOT REACHED
00269 M00S00240.install ---| WRITECW O REINITIATE CONTROL WORD WRITE
00270 M00S00241.install ---|
00271 M00S00242.install ---|* CHECK FOR OUTPUT BLOCK WRITTEN.
00272 M00S00243.install ---|
00273 M00S00244.install ---| CDF10 SA1 O+3 CHECK OUTPUT OUT = INPUT OUT
00274 M00S00245.install ---| SA2 I+3
00275 M00S00246.install ---| IX3 X1-X2
00276 M00S00247.install ---| ZR X3,CDF11 IF BLOCK NOT WRITTEN
00277 M00S00248.install ---| BX6 X1
00278 M00S00249.install ---| SX0 1 INDICATE OUTPUT BLOCK COMPLETE
00279 M00S00250.install ---| SA6 I+3 UPDATE INPUT OUT = OUTPUT OUT
00280 M00S00251.install ---|
00281 M00S00252.install ---|* CHECK FOR REINITIATE CONTROL WORD READ.
00282 M00S00253.install ---|
00283 M00S00254.install ---| CDF11 SA4 I CHECK INPUT FILE STATUS
00284 M00S00255.install ---| LX4 59-0
00285 M00S00256.install ---| SA1 A4+B2
00286 M00S00257.install ---| PL X4,CDF14 IF BUFFER BUSY
00287 M00S00258.install ---| LX4 59-3-59+0
00288 M00S00259.install ---| SA2 A1+B1
00289 M00S00260.install ---| NG X4,CDF14 IF EOF/EOI ENCOUNTERED
00290 M00S00261.install ---| SX3 CBUFL/3 CHECK BUFFER THRESHOLD
00291 M00S00262.install ---| IX1 X1-X2 (IN-OUT)
00292 M00S00263.install ---| IX2 X3+X1 1/3(BUFFER SIZE) + (IN-OUT)
00293 M00S00264.install ---| ZR X1,CDF13 IF BUFFER EMPTY
00294 M00S00265.install ---| NG X1,CDF12 IF OUT .GT. IN
00295 M00S00266.install ---| LX3 1
00296 M00S00267.install ---| IX2 X1-X3 (IN-OUT) - 2/3(BUFFER SIZE)
00297 M00S00268.install ---| CDF12 PL X2,CDF14 IF BUFFER THRESHOLD NOT REACHED
00298 M00S00269.install ---|
00299 M00S00270.install ---| CDF13 READCW I,17B INITIATE CONTROL WORD READ TO EOF
00300 M00S00271.install ---|
00301 M00S00272.install ---|* CHECK FOR RECALL.
00302 M00S00273.install ---|
00303 M00S00274.install ---| CDF14 NZ X0,CDF1 IF INPUT AND/OR OUTPUT BLOCKS TRANSFERRED
00304 M00S00275.install ---| RECALL WAIT FOR DATA TRANSFER
00305 M00S00276.install ---| EQ CDF1 CHECK FOR INPUT BLOCKS
00306 M00S00277.install ---|
00307 M00S00278.install ---|* PROCESS PARITY ERROR.
00308 M00S00279.install ---|
00309 M00S00280.install ---| CDF15 SX1 PMEF PROCESS MASS STORAGE ERROR
00310 M00S00281.install ---| SYSTEM SPC,,X1 CALL *1IS*
00311 M00S00282.install ---| SA1 PMEF
00312 M00S00283.install ---| ZR X1,CDF16 IF *SYSTEM* REQUEST PERFORMED
00313 M00S00284.install ---| RECALL
00314 M00S00285.install ---| EQ CDF15 RETRY *SYSTEM* REQUEST
00315 M00S00286.install ---|
00316 M00S00287.install ---| CDF16 ABORT
00317 M00S00288.install ---|
00318 M00S00289.install ---| CDFA DATA 10H COPYING
00319 M00S00290.install ---| CON 0,0
00320 M00S00291.install ---|
00321 M00S00292.install ---| CDFB VFD 24/100B,36/0 EOF CONTROL WORDS
00322 M00S00293.install ---| VFD 12/17B,48/0
00323 M00S00294.install ---| SPACE 4,10
00324 M00S00295.install ---|** COMMON DECKS.
00325 M00S00296.install ---|
00326 M00S00297.install ---|
00327 M00S00298.install ---|*CALL COMCCIO
00328 M00S00299.install ---|*CALL COMCSYS
00329 M00S00300.install ---| SPACE 4,10
00330 M00S00301.install ---|** BUFFERS.
00331 M00S00302.install ---|
00332 M00S00303.install ---|
00333 M00S00304.install ---| USE BUFFERS
00334 M00S00305.install ---| CBUF BSS 0
00335 M00S00306.install ---| RFL= EQU CBUF+CBUFL+4
00336 M00S00307.install ---| TITLE PRESET.
00337 M00S00308.install ---| PRS SPACE 4,10
00338 M00S00309.install ---|** PRS - PRESET PROGRAM.
00339 M00S00310.install ---|*
00340 M00S00311.install ---|* ENTRY (B1) = 1.
00341 M00S00312.install ---|*
00342 M00S00313.install ---|* EXIT (B2) = 2.
00343 M00S00314.install ---|*
00344 M00S00315.install ---|* USES A - 1, 2, 3, 4, 5, 6, 7.
00345 M00S00316.install ---|* B - 2, 3, 7.
00346 M00S00317.install ---|* X - ALL.
00347 M00S00318.install ---|*
00348 M00S00319.install ---|* CALLS DXB, *1IS*.
00349 M00S00320.install ---|*
| Line S00321 Modification History |
M01 (Removed by) | ns2428 |
Seq # *Modification Id* Act
----------------------------+
00350 M01S00321.ns2428 ---|* MACROS ABORT, MESSAGE, READ, RECALL, REWIND, SKIPB, SYSTEM.
| Line S00002 Modification History |
M01 (Added by) | ns2428 |
Seq # *Modification Id* Act
----------------------------+
00351 M01S00002.ns2428 +++|* MACROS ABORT, GETSPS, MESSAGE, READ, RECALL, REWIND, SKIPB,
00352 M01S00003.ns2428 +++|* SYSTEM.
00353 M00S00322.install +++|
00354 M00S00323.install +++|
00355 M00S00324.install +++| PRS SUBR ENTRY/EXIT
00356 M01S00004.ns2428 +++| GETSPS CHECK USER ACCESS
00357 M00S00325.install +++| SA1 ACTR GET ARGUMENT COUNT
00358 M00S00326.install +++| SA2 I
00359 M00S00327.install +++| SB7 X1
00360 M00S00328.install +++| ZR B7,PRS2 IF NO ARGUMENTS
00361 M00S00329.install +++| SB7 B7-B1
00362 M00S00330.install +++| NE B7,B1,PRS6 IF ILLEGAL ARGUMENT COUNT
00363 M00S00331.install +++|
00364 M00S00332.install +++|* PROCESS INPUT FILE NAME.
00365 M00S00333.install +++|
00366 M00S00334.install +++| R= A5,ARGR INPUT FILE NAME
00367 M00S00335.install +++| MX0 42
00368 M00S00336.install +++| SX4 3RSDF
00369 M00S00337.install +++| BX7 X0*X5
00370 M00S00338.install +++| LX4 42
00371 M00S00339.install +++| ZR X7,PRS1 IF NULL NAME (DEFAULT TO *SYSTEM*)
00372 M00S00340.install +++| BX4 X7-X4
00373 M00S00341.install +++| SX3 X2
00374 M00S00342.install +++| ZR X4,PRS6 IF FILE NAME CONFLICT
00375 M00S00343.install +++| BX7 X7+X3
00376 M00S00344.install +++| SA7 A2
00377 M00S00345.install +++|
| Line S00346 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00378 M01S00346.ns22000 ---|* PROCESS *SDF* EQUIPMENT NUMBER.
| Line S00021 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00379 M01S00021.ns22000 +++|* PROCESS EST ORDINAL.
00380 M00S00347.install +++|
00381 M00S00348.install +++| PRS1 SA5 A5+B1 GET NEXT ARGUMENT
00382 M00S00349.install +++| LX5 12
00383 M00S00350.install +++| SX2 X5
00384 M00S00351.install +++| BX5 X5-X2
00385 M00S00352.install +++| SX2 X2-2REQ
00386 M00S00353.install +++| SB7 0
00387 M00S00354.install +++| NZ X2,PRS6 IF ILLEGAL PARAMETER
| Line S00355 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00388 M01S00355.ns22000 ---| RJ DXB CONVERT EQUIPMENT NUMBER
| Line S00022 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00389 M01S00022.ns22000 +++| RJ DXB CONVERT EST ORDINAL
00390 M00S00356.install +++| NZ X4,PRS6 IF CONVERSION ERROR
| Line S00357 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00391 M01S00357.ns22000 ---| SA6 O+5 STORE EQUIPMENT NUMBER
| Line S00023 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00392 M01S00023.ns22000 +++| SA6 O+5 SET EST ORDINAL IN *SDF* FET
00393 M00S00358.install +++| PRS2 R= X7,2
00394 M00S00359.install +++| SX1 VIFF VALIDATE INSTALL FILE
00395 M00S00360.install +++| R= A7,ARGR
00396 M00S00361.install +++| SYSTEM SPC,,X1 CALL *1IS*
00397 M00S00362.install +++| SA1 VIFF
00398 M00S00363.install +++| ZR X1,PRS2.1 IF *SYSTEM* REQUEST PERFORMED
00399 M00S00364.install +++| RECALL
00400 M00S00365.install +++| EQ PRS2 RETRY *SYSTEM* REQUEST
00401 M00S00366.install +++|
00402 M00S00367.install +++| PRS2.1 SB2 B1+B1
00403 M00S00368.install +++| RECALL ARGR WAIT *1IS* COMPLETE
00404 M00S00369.install +++| EREXIT CDF15 SET ERROR EXIT PROCESSOR ADDRESS
00405 M00S00370.install +++| SX7 B2
00406 M00S00371.install +++| SX3 B1
00407 M00S00372.install +++| LX7 29-1 POSITION RANDOM REWRITE FLAG
00408 M00S00373.install +++| BX6 X3+X7
00409 M00S00374.install +++| SA6 O+6 SET RANDOM REWRITE REQUEST
00410 M00S00375.install +++|
00411 M00S00376.install +++|* READ DIRECTORY RECORD ON INSTALL FILE.
00412 M00S00377.install +++|
00413 M00S00378.install +++| SKIPB I,2,R BACKSPACE ACROSS EOF AND DIRECTORY
00414 M00S00379.install +++| SA1 I+6
00415 M00S00380.install +++| BX6 X1
00416 M00S00381.install +++| AX6 30
00417 M00S00382.install +++| PRS3 SX7 TBUF SET IN = FIRST
00418 M00S00383.install +++| SA6 I+6 SET RANDOM ADDRESS FOR READ
00419 M00S00384.install +++| SA7 X2+B2
00420 M00S00385.install +++| SA6 A6+B1
00421 M00S00386.install +++| READ X2,R
00422 M00S00387.install +++| SA4 X2+B2 IN POINTER
00423 M00S00388.install +++| SA3 A4+B1
00424 M00S00389.install +++| SA1 X3 CHECK FIRST WORD OF RECORD
00425 M00S00390.install +++| LX1 18
00426 M00S00391.install +++| SX6 X1-770000B
00427 M00S00392.install +++| LX1 6
00428 M00S00393.install +++| SB3 X1+B1
00429 M00S00394.install +++| NZ X6,PRS7 IF NOT 7700 (PRFX) TABLE
00430 M00S00395.install +++| SX7 X1-16B
00431 M00S00396.install +++| NZ X7,PRS7 IF TABLE WORD COUNT INCORRECT
00432 M00S00397.install +++| SA5 X3+B3 CHECK RECORD TYPE
00433 M00S00398.install +++| LX5 18
00434 M00S00399.install +++| SX7 X5-700000B
00435 M00S00400.install +++| SA1 X2
00436 M00S00401.install +++| SA3 X3+B1
00437 M00S00402.install +++| NZ X7,PRS7 IF NOT OPLD RECORD
00438 M00S00403.install +++| LX1 59-4 CHECK BUFFER STATUS
00439 M00S00404.install +++| MX0 42+12
00440 M00S00405.install +++| PL X1,PRS7 IF NOT EOR (BUFFER TOO SMALL)
00441 M00S00406.install +++| SX6 10B
00442 M00S00407.install +++| LX0 12
00443 M00S00408.install +++| BX6 X3+X6 DIRECTORY NAME + RECORD TYPE OPLD
00444 M00S00409.install +++| SA5 A5-B1
00445 M00S00410.install +++| SA6 X4 STORE SEARCH PARAMETER AT (IN)
00446 M00S00411.install +++|
00447 M00S00412.install +++|* SEARCH DIRECTORY FOR FIRST OPLD ENTRY.
00448 M00S00413.install +++|
00449 M00S00414.install +++| PRS4 BX7 X0*X3
00450 M00S00415.install +++| SA5 A5+2 GET DIRECTORY ENTRY
00451 M00S00416.install +++| BX3 X5-X6
00452 M00S00417.install +++| NZ X7,PRS4 IF NOT DIRECTORY OPLD ENTRY
00453 M00S00418.install +++| SX3 A5-B2
00454 M00S00419.install +++| BX6 X4-X3
00455 M00S00420.install +++| ZR X6,PRS7 IF NO OPLD ENTRY FOR DIRECTORY
00456 M00S00421.install +++| SA1 I+7 RANDOM ADDRESS FOR CURRENT DIRECTORY
00457 M00S00422.install +++| SA5 A5-1
00458 M00S00423.install +++| IX7 X5-X1
00459 M00S00424.install +++| BX6 X5 RANDOM ADDRESS OF FIRST DIRECTORY
00460 M00S00425.install +++| NZ X7,PRS3 IF NOT FIRST DIRECTORY ON FILE
00461 M00S00426.install +++| SA2 PRSA
00462 M00S00427.install +++| SA3 A4+B1 SET UP *OSB* SEARCH
00463 M00S00428.install +++| BX6 X2
00464 M00S00429.install +++| SA1 A1-B1
00465 M00S00430.install +++| SB3 X3+B3
00466 M00S00431.install +++| AX1 30
00467 M00S00432.install +++| SX7 B2
00468 M00S00433.install +++| SA6 X4 STORE SEARCH PARAMETER AT (IN)
00469 M00S00434.install +++| SX2 B1
00470 M00S00435.install +++| IX1 X1+X7 RANDOM ADDRESS OF EOI
00471 M00S00436.install +++| SA5 B3-B1
00472 M00S00437.install +++| LX2 47 POSITION RANDOM ACCESS BIT
00473 M00S00438.install +++| BX3 X6
00474 M00S00439.install +++|
00475 M00S00440.install +++|* SEARCH DIRECTORY FOR *OSB* ENTRY.
00476 M00S00441.install +++|
00477 M00S00442.install +++| PRS5 BX7 X0*X3
00478 M00S00443.install +++| SA5 A5+2
00479 M00S00444.install +++| BX3 X5-X6
00480 M00S00445.install +++| NZ X7,PRS5 IF NO MATCH
00481 M00S00446.install +++| SX3 A5-2
00482 M00S00447.install +++| BX6 X4-X3
00483 M00S00448.install +++| SA5 A5-B1
00484 M00S00449.install +++| ZR X6,PRS7 IF *OSB* NOT FOUND
00485 M00S00450.install +++| LX5 36
00486 M00S00451.install +++| BX6 X5+X1
00487 M00S00452.install +++| SA6 I+5 SAVE RELATIVE SECTOR ADDRESS OF *OSB*
00488 M00S00453.install +++| MX0 42
00489 M00S00454.install +++| BX0 -X2*X0 CLEAR RANDOM ACCESS BIT IN MASK
00490 M00S00455.install +++| SA1 A4-B1
00491 M00S00456.install +++| AX2 47-44 POSITION ERROR PROCESSING FLAG
00492 M00S00457.install +++| BX1 X0*X1
00493 M00S00458.install +++| SX7 CBUF RESET BUFFER POINTERS
00494 M00S00459.install +++| BX1 X1+X2
00495 M00S00460.install +++| BX6 X1+X7
00496 M00S00461.install +++| SA6 A1
00497 M00S00462.install +++| SA7 A1+B1
00498 M00S00463.install +++| SA7 A7+B1
00499 M00S00464.install +++| PRS5.1 R= X6,2
00500 M00S00465.install +++| SX1 IDFF INITIALIZE *SDF*
00501 M00S00466.install +++| R= A6,ARGR
00502 M00S00467.install +++| SYSTEM SPC,,X1 CALL *1IS*
00503 M00S00468.install +++| SA1 IDFF
00504 M00S00469.install +++| ZR X1,PRS5.2 IF *SYSTEM* REQUEST PERFORMED
00505 M00S00470.install +++| RECALL
00506 M00S00471.install +++| EQ PRS5.1 RETRY *SYSTEM* REQUEST
00507 M00S00472.install +++|
00508 M00S00473.install +++| PRS5.2 REWIND I REWIND INSTALL FILE
00509 M00S00474.install +++| RECALL ARGR WAIT *1IS* COMPLETE
00510 M00S00475.install +++| EQ PRSX RETURN
00511 M00S00476.install +++|
00512 M00S00477.install +++| PRS6 MESSAGE PRSB,0 * INSTALL - ARGUMENT ERROR.*
00513 M00S00478.install +++| ABORT
00514 M00S00479.install +++|
00515 M00S00480.install +++| PRS7 MESSAGE PRSC,0 * DEADSTART FILE FORMAT ERROR.*
00516 M00S00481.install +++| ABORT
00517 M00S00482.install +++|
00518 M00S00483.install +++| PRSA VFD 42/0LOSB,6/0,12/1
00519 M00S00484.install +++|
00520 M00S00485.install +++| PRSB DATA C* INSTALL - ARGUMENT ERROR.*
00521 M00S00486.install +++| PRSC DATA C* DEADSTART FILE FORMAT ERROR.*
00522 M00S00487.install +++| SPACE 4,10
00523 M00S00488.install +++|** COMMON DECKS.
00524 M00S00489.install +++|
00525 M00S00490.install +++|
00526 M00S00491.install +++|*CALL COMCCPM
00527 M00S00492.install +++|*CALL COMCDXB
00528 M00S00493.install +++| SPACE 4,10
00529 M00S00494.install +++| TBUF BSS 0
00530 M00S00495.install +++| TBUFL EQU CBUF+CBUFL-TBUF
00531 M00S00496.install +++| SPACE 4,10
00532 M00S00497.install +++| END