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
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.
56 PATS, 7777 / Test patterns to use
65 AND K6 / Clear out high bits such as 0200 start address
171 CLA CLL IAC / We have one waiting, write it
203 INCTRK, 0 / Increment track and exbit value for next sector
204 CLA CLL / AC non zero on return if done
225 RERRT, TEXT "READ ERR "
226 WERRT, TEXT "WRITE ERR "
230 SUTXT, TEXT "SURFACE "
231 PTXT, TEXT "PATTERN "
232 DTXT, TEXT "DRIVE WILL BE R/W TESTED, SET SR"
269 FROCT, 0 / DUMP OCTAL