Compucolor.org – Virtual Media

Listing of file='TSTMEN.BAS;02' on disk='vmedia/chip_129-sector.ccvf'

20 PLOT  14,12,9,9,9
30 PRINT "DISCO (REPLACE CHIP DISK)"
50 PLOT  10,10,15
70 PRINT "1    SPIN      MARKSTHE DISC AT TRACK 40 AND COMPUTES"
80 PRINT "     THE REVOLUTION TIME IN 100'S OF MICROSECS.  THE ROUTINE IS"
90 PRINT "     PROCESSOR INDEPENDENT AND IS ACCURATE TO .01% WITH A "
100 PRINT "     RESOLUTION OF .025%.   CORRECT READING IS 2000 FOR 300 RPM."
110 PLOT  10
130 PRINT "2    ALIGN     READS TRACK 17 CONTINUOUSLY."
140 PRINT "     LOOK AT TP1 ON DISC BOARD AND MAXIMISE 1KHZ SIGNAL"
150 PRINT "     HALF TRACKS EITHER SIDE HAVE LOWER AMPLITUDE 10 KHZ SIGNALS"
151 PLOT 10
152 PRINT "3    TEST      FILLS TRACKS 33 AND 34 WITH '.'.   READS"
153 PRINT "     THEM TO SCREEN. THE SCREEN IS THEN WRITTEN TO DISC AND "
154 PRINT "     VICA-VERSA.   THIS TEST IS REPEATED 10 TIMES SO THE ERRORS"
155 PRINT "     ARE CUMULATIVE AND CAN BE SEEN AT THE END OF THIS TEST. "
160 PLOT 10,10
170 PRINT "USE ESC^ FOR TEST. ESC S FOR SPIN. ESC I FOR ALIGN"
2000 PLOT 27,4:PRINT "LOAD TESTB.PRG"
2010 PRINT "LOAD SPIN.PRG"
2015 PRINT "LOAD ALIGN.PRG":PLOT 27,27
2020 INPUT "REPLACE DISK AND HIT RETURN TO CONTINUE";ZZ
2021 PLOT 10,10,10
2022 POKE 33215,195
2023 POKE 33216,0
2024 POKE 33217,176
2025
2030 END