Changes
/* TODO : writing a basic testbench */
ST3SENSE.BAS :
10 OUT &FB7F,&X00000100
20 OUT &FB7F,&X00000101X00000001:PRINT"HD US1 US0)"
30 PRINT BIN$(INP(&FB7F),8):PRINT"ST3"
HD US1 US0)
01110001 or 01010001for drive B, 00000000 on drive A (with US0=0)
ST3
READID.BAS :
10 OUT &FB7F,&X01001010:PRINT"0 MF"
20 OUT &FB7F,&X00000101X00000000:PRINT"HD US1 US0)"
30 PRINT BIN$(INP(&FB7F),8):PRINT"ST0"
40 PRINT BIN$(INP(&FB7F),8):PRINT"ST1"
00000000
ST2
C
00000000
