| 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 | $ |