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