
10 P$="TRACK READS  ##  SHOULD BE  ##  STATUS - %    %"
20 CLS:PRINT"TRS80 DISK DRIVE HEAD STEPPING TEST PROGRAM":PRINT
30 PRINT:INPUT"TEST WHICH DRIVE";D:N=2[D
40 PRINT"HOW MANY TRACKS DOES DRIVE";D;:INPUT"HAVE";TR
50 PRINT:PRINT:PRINT"PUT A FORMATTED DISK INTO DRIVE";D;"AND PRESS ENTER"
60 IF INKEY$="" THEN 60
70 '---------------- RESTORE TO TRK 0 -------------------------
80 POKE 14304,N
90 POKE 14316,3
100 GOSUB 260
110 '------------------- STEP IN ---------------------------
120 V=83:T=0
130 GOSUB 300:T=T+1
140 IF A<>T THEN ST$="ERROR" ELSE ST$="OK"
150 PRINTUSING P$;A,T,ST$
160 IF A<TR THEN 130
170 '------------------- STEP OUT ------------------------
180 V=115:T=TR
190 GOSUB 300:T=T-1
200 IF A<>T THEN ST$="ERROR" ELSE ST$="OK"
210 PRINTUSING P$;A,T,ST$
220 IF A<> 0 THEN 190
230 '---------------- RESTORE TO TRK 0 ----------------------
240 POKE 14304,N:POKE 14316,3:END
250 '------------- TEST IF BUSY ----------------------------
260 A=PEEK(14316)
270 IF (A AND 1)<>0 THEN 260
280 RETURN
290 '-------------- SEND COMMAND TO DISK ---------------------
300 POKE 14304,2
310 POKE 14316,V
320 GOSUB 260
330 A=PEEK(14317)
340 RETURN


Z



Z
[Z
