AXIOMTEK AX5420P, User Manual

Page: 33 / 36

AX5420P & AX5425P User ’ s Manual
Examples
27
reset(fdr);
read(fdr,slotno);
close(fdw);
close(fdr);
writeln('BASE ADDRESS:',ADDR:10);
writeln('IRQ NUMBER :',irqno:10);
writeln('SLOT NUMBER :',slotno:10);
if addr <> 0 then writeln('The information
are correct');
end.
6.3 Qbasic 4.5
**************************************************************************************
*
Example Program for QB45 language *
* To get BASE ADDRESS *
* IRQ LEVEL *
* SLOT NUMBER via device driver *
* Before executing this program, device driver *
* must be installed successfully. *
**************************************************************************************
OPEN "5425DRV" FOR OUTPUT AS #1
OPEN "5425DRV" FOR BINARY AS #2
PRINT #1,"B1"
GET #2,1,BL%
GET #2,1,BH%
PRINT #1,"I1"
GET #2, ,I%
PRINT #1,"S1"
GET #2, ,S%
CLOSE #1
CLOSE #2
BL=BL%
BH=BH%
ADDR=BH*256+BL
PRINT "BASE ADDRESS:",ADDR
PRINT "IRQ LEVEL:",I%
PRINT "SLOT NUMBER :",S%
IF ADDR <> 0 THEN PRINT "The information are correct"