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