Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | / RK05 SURFACE SCAN |
2 | / Do a destructive write/read check on all sectors. Header words should be | |
3 | / checked in all sectors except 0. 0 probably missed since won't be first | |
4 | / after seek. | |
5 | / Four different patterns are used. | |
6 | / To run start at 0200 with drive # in bits 9-11. | |
7 | / It will print drive being tested to console | |
8 | / and then halt. Set SR = 0 for continuous testing or 1 to halt after 1 pass. | |
9 | DSKP=6741 | |
10 | DCLR=6742 | |
11 | DLAG=6743 | |
12 | DLCA=6744 | |
13 | DRST=6745 | |
14 | DLDC=6746 | |
15 | ||
16 | *10 | |
17 | FILLOC, 0 | |
18 | *20 | |
19 | DRIVE, 2 | |
20 | K0200, 0200 | |
21 | K4000, 4000 | |
22 | TRACK, 0 | |
23 | MAXTRK, 4537 | |
24 | EXBIT, 0 | |
25 | REDDAT, 1000 | |
26 | WRTDAT, 5000 | |
27 | WRTLOC, 3000 | |
28 | RDLOC, 4000 | |
29 | K17, 17 | |
30 | K6, 6 | |
31 | K0007, 0007 | |
32 | K215, 0215 | |
33 | K212, 0212 | |
34 | M4, -4 | |
35 | LOOP, 0 | |
36 | CURPAT, 0 | |
37 | PATCNT, 0 | |
38 | FILCNT, 0 | |
39 | FILLEN, -400 | |
40 | INCF, INCTRK | |
41 | CRLFF, CRLF | |
42 | K0077, 0077 | |
43 | K7700, 7700 | |
44 | K3740, 3740 | |
45 | K4100, 4100 | |
46 | K0240, 0240 | |
47 | K0377, 0377 | |
48 | K0001, 0001 | |
49 | SIDEM, 7757 | |
50 | SIDE1, 0020 | |
51 | PRTXTF, PRTXT | |
52 | FROCTF, FROCT | |
53 | PRADF, PRAD | |
54 | WRITEF, WRITE | |
55 | PATLOC, PATS | |
56 | PATS, 7777 / Test patterns to use | |
57 | 0000 | |
58 | 5252 | |
59 | 2525 | |
60 | NUMPAT, 4 | |
61 | ||
62 | *200 | |
63 | CLA CLL OSR | |
64 | RAL | |
65 | AND K6 / Clear out high bits such as 0200 start address | |
66 | DCA DRIVE | |
67 | TAD DRIVE | |
68 | RAR | |
69 | JMS I FROCTF | |
70 | JMS I PRTXTF | |
71 | DTXT | |
72 | JMS I CRLFF | |
73 | HLT | |
74 | CLA | |
75 | DCA LOOP | |
76 | RESTRT, CLA CLL IAC | |
77 | DCLR | |
78 | TAD DRIVE | |
79 | DLDC | |
80 | CLA CLL CML RTL | |
81 | DCLR | |
82 | DSKP | |
83 | JMP .-1 | |
84 | TAD K0200 | |
85 | TAD DRIVE | |
86 | DLDC | |
87 | DSKP | |
88 | JMP .-1 | |
89 | DRST | |
90 | CIA | |
91 | TAD K4000 | |
92 | SZA CLA | |
93 | JMP BADSTA | |
94 | CLA | |
95 | TAD NUMPAT | |
96 | CMA IAC | |
97 | DCA PATCNT | |
98 | TAD PATLOC | |
99 | DCA CURPAT | |
100 | FILP, CLA | |
101 | TAD FILLEN | |
102 | DCA FILCNT | |
103 | CMA | |
104 | TAD WRTLOC | |
105 | DCA FILLOC | |
106 | LP, TAD I CURPAT | |
107 | DCA I FILLOC | |
108 | ISZ FILCNT | |
109 | JMP LP | |
110 | CLA CLL | |
111 | DCA TRACK | |
112 | DCA EXBIT | |
113 | WRTPAT, JMS I WRITEF | |
114 | JMS I INCF | |
115 | JMP WRTPAT | |
116 | CLA CLL | |
117 | DCA TRACK | |
118 | DCA EXBIT | |
119 | RDPAT, JMS READ | |
120 | JMS I INCF | |
121 | JMP RDPAT | |
122 | ISZ CURPAT | |
123 | ISZ PATCNT | |
124 | JMP FILP | |
125 | DONE, JMS I PRTXTF | |
126 | PSTXT | |
127 | TAD LOOP | |
128 | JMS I FROCTF | |
129 | JMS I CRLFF | |
130 | ISZ LOOP | |
131 | NOP | |
132 | CLA OSR | |
133 | SZA | |
134 | HLT | |
135 | JMP RESTRT | |
136 | ||
137 | BADSTA, HLT | |
138 | ||
139 | READ, 0 | |
140 | CLA CLL IAC | |
141 | DCLR | |
142 | TAD RDLOC | |
143 | DLCA | |
144 | TAD DRIVE | |
145 | TAD REDDAT | |
146 | TAD EXBIT | |
147 | DLDC | |
148 | TAD TRACK | |
149 | AND SIDEM | |
150 | TAD SIDE1 | |
151 | DLAG | |
152 | TAD EXBIT | |
153 | RAR | |
154 | TAD TRACK | |
155 | RAR | |
156 | DSKP | |
157 | JMP .-1 | |
158 | DRST | |
159 | CIA | |
160 | TAD K4000 | |
161 | SZA CLA | |
162 | JMP ERROR | |
163 | JMP I READ | |
164 | ERROR, JMS I PRTXTF | |
165 | RERRT | |
166 | JMS I PRADF | |
167 | JMP I READ | |
168 | ||
169 | PAGE | |
170 | WRITE, 0 | |
171 | CLA CLL IAC / We have one waiting, write it | |
172 | DCLR | |
173 | TAD WRTLOC | |
174 | DLCA | |
175 | TAD DRIVE | |
176 | TAD WRTDAT | |
177 | TAD EXBIT | |
178 | DLDC | |
179 | TAD TRACK | |
180 | AND SIDEM | |
181 | TAD SIDE1 | |
182 | DLAG | |
183 | TAD EXBIT | |
184 | RAR | |
185 | TAD TRACK | |
186 | RAR | |
187 | DSKP | |
188 | JMP .-1 | |
189 | DRST | |
190 | CIA | |
191 | TAD K4000 | |
192 | SZA CLA | |
193 | JMP ERROR2 | |
194 | JMP I WRITE | |
195 | ERROR2, JMS I PRTXTF | |
196 | WERRT | |
197 | JMS I PRADF | |
198 | JMP I WRITE | |
199 | ||
200 | ||
201 | ||
202 | PAGE | |
203 | INCTRK, 0 / Increment track and exbit value for next sector | |
204 | CLA CLL / AC non zero on return if done | |
205 | TAD EXBIT | |
206 | SZA | |
207 | JMP CHKCYL | |
208 | INC2, ISZ TRACK | |
209 | JMP I INCTRK | |
210 | ISZ EXBIT | |
211 | JMP I INCTRK | |
212 | HLT | |
213 | CHKCYL, CLA | |
214 | TAD TRACK | |
215 | CIA | |
216 | TAD MAXTRK | |
217 | SNA | |
218 | JMP FIN | |
219 | CLA | |
220 | JMP INC2 | |
221 | FIN, CLA IAC | |
222 | ISZ INCTRK | |
223 | JMP I INCTRK | |
224 | ||
225 | RERRT, TEXT "READ ERR " | |
226 | WERRT, TEXT "WRITE ERR " | |
227 | PSTXT, TEXT "PASS " | |
228 | CTXT, TEXT "CYL " | |
229 | STXT, TEXT "SECTOR " | |
230 | SUTXT, TEXT "SURFACE " | |
231 | PTXT, TEXT "PATTERN " | |
232 | DTXT, TEXT "DRIVE WILL BE R/W TESTED, SET SR" | |
233 | ||
234 | PAGE | |
235 | PRTXT, 0 | |
236 | CLA CLL | |
237 | TAD I PRTXT | |
238 | ISZ PRTXT | |
239 | DCA FROCT | |
240 | TAD I FROCT | |
241 | AND K7700 | |
242 | SNA | |
243 | JMP PREX | |
244 | SMA | |
245 | CML | |
246 | IAC | |
247 | RTR | |
248 | RTR | |
249 | RTR | |
250 | JMS PRINT | |
251 | TAD I FROCT | |
252 | AND K0077 | |
253 | SNA | |
254 | JMP PREX | |
255 | TAD K3740 | |
256 | SMA | |
257 | TAD K4100 | |
258 | TAD K0240 | |
259 | JMS PRINT | |
260 | ISZ FROCT | |
261 | CLA CLL | |
262 | JMP PRTXT+5 | |
263 | PREX, CLA CLL | |
264 | JMP I PRTXT | |
265 | ||
266 | TOCT, 0 | |
267 | UPONE, 0 | |
268 | K0260, 0260 | |
269 | FROCT, 0 / DUMP OCTAL | |
270 | RTL | |
271 | RTL | |
272 | DCA UPONE | |
273 | TAD M4 | |
274 | DCA TOCT | |
275 | TAD UPONE | |
276 | AND K0007 | |
277 | TAD K0260 | |
278 | JMS PRINT | |
279 | TAD UPONE | |
280 | RTL | |
281 | RAL | |
282 | DCA UPONE | |
283 | ISZ TOCT | |
284 | JMP .-11 | |
285 | TAD K0240 | |
286 | JMS PRINT | |
287 | JMP I FROCT | |
288 | ||
289 | PRINT, 0 | |
290 | TLS | |
291 | TSF | |
292 | JMP .-1 | |
293 | TCF | |
294 | CLA | |
295 | JMP I PRINT | |
296 | ||
297 | PRAD, 0 | |
298 | CLA | |
299 | DRST | |
300 | JMS FROCT | |
301 | JMS PRTXT | |
302 | CTXT | |
303 | TAD EXBIT | |
304 | RAR | |
305 | TAD TRACK | |
306 | RAR | |
307 | RTR | |
308 | RTR | |
309 | AND K0377 | |
310 | JMS FROCT | |
311 | JMS PRTXT | |
312 | SUTXT | |
313 | TAD TRACK | |
314 | RTR | |
315 | RTR | |
316 | AND K0001 | |
317 | JMS FROCT | |
318 | JMS PRTXT | |
319 | STXT | |
320 | TAD TRACK | |
321 | AND K17 | |
322 | JMS FROCT | |
323 | JMS PRTXT | |
324 | PTXT | |
325 | TAD I WRTLOC | |
326 | JMS FROCT | |
327 | JMS CRLF | |
328 | JMP I PRAD | |
329 | ||
330 | CRLF, 0 | |
331 | TAD K215 | |
332 | JMS PRINT | |
333 | TAD K212 | |
334 | JMS PRINT | |
335 | JMP I CRLF | |
336 | $ |