[Coco] "Floppy Drive Speed Test" Was: coco dysan disk program

[Stephen H. Fischer]

Hi,

Yes.

I posted it here some time back. Here it is again.

Search for

"Floppy Drive Speed Test Wav and MP3 files"

 for another way to load this file, useful if you need to adjust speed first
before writing it to a floppy.

I still am waiting for word that those files are good or if they need to be
recreated.

Here is "*.bas" from the second disk for OS-9 Level-I.

The name best to use is "DSPEED.BAS".

---------------------------------------

10 GOSUB 220
20 IF Q THEN LOADM CHR$(130)+CHR$(129):EXEC
30 FOR I=0 TO 70
40 READ A$
50 POKE &H5000+I,VAL("&H"+A$)
60 NEXT I
70 CLS:PRINT" INSERT OS9 DISKETTE"
80 PRINT" INTO DRIVE 0 AND PRESS A KEY"
90 A$=INKEY$:IF A$="" THEN 90
100 EXEC &H5000
110 DATA 86,22,8E,26,00,8D,0D
120 DATA FC,26,00,10,83,4F,53
130 DATA 26,03,7E,26,02,39,34
140 DATA 20,10,BE,C0,06,A7,22
150 DATA 86,02,A7,A4,6F,21,6F
160 DATA 23,6C,23,AF,24,10,BE
170 DATA C0,06,A6,23,81,13,27
180 DATA 12,AD,9F,C0,04,4D,27
190 DATA 06,6C,23,6C,24,20,E9
200 DATA 7F,FF,40,35,A0,4F,20
210 DATA F8
220 CLS:PRINT
230 PRINT" OS9 UTILITY DISK VER 01.00.00":PRINT
240 PRINT"--------------------------------":PRINT
250 PRINT"       b  BOOT OS9":PRINT
260 PRINT"       t  TEST DISK DRIVE":PRINT:PRINT
270 PRINT"--------------------------------
280 PRINT"   COPYRIGHT 1983 TANDY CORP.
290 PRINT"     ALL RIGHTS RESERVED
300 A$=""
310 A$=INKEY$
320 IF A$="B" THEN CLS: RETURN
330 IF A$="T" THEN Q=1:RETURN
340 GOTO 300

---------------------------------------

SHF

----- Original Message ----- 
From: "Bruce W. Calkins" <brucewcalkins at charter.net>
To: "CoCoList for Color Computer Enthusiasts" <coco at maltedmedia.com>
Sent: Monday, January 23, 2012 8:25 AM
Subject: Re: [Coco] coco dysan disk program


> Isn't there a speed test program on the OS-9 Level one boot or utilities
> disk?
-------------- next part --------------
A non-text attachment was scrubbed...
Name: DSPEED.zip
Type: application/x-zip-compressed
Size: 25362 bytes
Desc: not available
URL: <http://five.pairlist.net/pipermail/coco/attachments/20120123/fe6ad352/attachment.bin>