Category : System Diagnostics for your computer
Archive   : SBLASTID.ZIP
Filename : TESTIO.BAS

CLS
ad$ = "388"
ad = &H388
xxx:
LOCATE 1
'OPEN "BLASTIO.TXT" FOR OUTPUT AS #1
OPEN "SCRN:" FOR OUTPUT AS #1

PRINT #1, "SOUNDBLASTER Recognition"
'INPUT "Enter Address in hex ", ad$
'INPUT "Data in hex ", da$
'IF LEN(ad$) > 0 THEN ad = VAL("&H0" + ad$)
'da = VAL("&H0" + da$)
'OUT ad, da





FOR w = &H200 TO &H20F
FOR v = &H10 TO &H60 STEP &H10

a = v + w
d$ = RIGHT$("0" + HEX$(INP(a)), 2)
PRINT #1, HEX$(a); " = "; d$; " ";
NEXT v
IF a = &H268 OR a = &H269 THEN
d$ = RIGHT$("0" + HEX$(INP(w + &H180)), 2)
PRINT #1, HEX$(w + &H180); " = "; d$; " ";
END IF
PRINT #1,

NEXT w

PRINT #1,

'GOTO xxx
CLOSE #1
END