Changes
/* FDC Basic testbench */
==== FDC Basic testbench ====
Results from WinAPE... (left Alt is "COPY" key)
SEEK.BAS :
540 GOSUB 420:gosub 170
550 END
CAT
RUN
GOSUB 150 // STATUS
10000000
CAT
Too slow to execute a READ_DATA in Basic...
ST3SENSE.BAS :
10 OUT &FB7F,&X00000100
20 OUT &FB7F,&X00000001:PRINT"HD US1 US0)"
30 PRINT BIN$(INP(&FB7F),8):PRINT"ST3"
HD US1 US0)
01110001 or 01010001 for drive B, 00000000 on drive A (with US0=0)
ST3
==== perl FDC frame decoder ====
