home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sound Sensations!
/
sound_sensations.iso
/
soundb
/
qbsbkit
/
ctvscan.bas
< prev
next >
Wrap
BASIC Source File
|
1991-05-05
|
1KB
|
49 lines
'QBXSBC CTVSCAN.BAS
'detection scan example for the SoundBlaster routines
'5-May-1991
DEFINT A-Z
REM $INCLUDE: 'QBXIOL.BI'
REM $INCLUDE: 'QBXCTV.BI'
REM $INCLUDE: 'QBXFMI.BI'
DIM ports(1 TO 6)
ports(1) = &H210: ports(2) = &H220: ports(3) = &H230
ports(4) = &H240: ports(5) = &H250: ports(6) = &H260:
DIM irqs(1 TO 4)
irqs(1) = 2: irqs(2) = 3: irqs(3) = 5: irqs(4) = 7
CLS
PRINT "CTVSCAN.BAS for QBXSBC"
PRINT
PRINT " PORT IRQ DMA"
PRINT " 210h 2 1"
PRINT " 220h 3"
PRINT " 230h 5"
PRINT " 240h 7"
PRINT " 250h"
PRINT " 260h"
FOR p = 6 TO 1 STEP -1
LOCATE 3 + p, 2: PRINT ""
FOR I = 1 TO 4
pstat = CTVport(ports(p))
LOCATE 3 + I, 12: PRINT ""
istat = CTVirq(irqs(I))
stat = CTVdetect
IF stat = 0 THEN EXIT FOR
LOCATE 3 + I, 12: PRINT " "
NEXT
IF stat = 0 THEN EXIT FOR
LOCATE 3 + p, 2: PRINT " "
NEXT
LOCATE 11
IF stat THEN
PRINT "Scan failed! SBC not found"
ELSE
PRINT "SBC found!"
END IF