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 / 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.
52 PATS, 7777 / Test patterns to use
61 AND K6 / Clear out high bits such as 0200 start address
164 CLA CLL IAC / We have one waiting, write it
194 INCTRK, 0 / Increment track and exbit value for next sector
195 CLA CLL / AC non zero on return if done
216 RERRT, TEXT "READ ERR "
217 WERRT, TEXT "WRITE ERR "
221 SUTXT, TEXT "SURFACE "
222 PTXT, TEXT "PATTERN "
223 DTXT, TEXT "DRIVE WILL BE R/W TESTED, SET SR"
260 FROCT, 0 / DUMP OCTAL