Pamux User’s Guide 119
The following loop will check a range of I/O port addresses for conflicts before the AC28 is installed.
The AC28 I/O address is assumed to be in the variable MyAc28IoPort%.
DIM i%
DIM InpByte%
CONST MaxPamuxAddress% = 63
DIM MaxPort%: MaxPort% = MyAc28IoPort% + MaxPamuxAddress%
FOR i% = MyAc28IoPort% TO MaxPort%
InpByte% = INP(i%)
IF &HFF <> InpByte% THEN
EXIT FOR
‘ Error -- a port is in use
END IF
NEXT
IF &HFF <> InpByte% THEN
‘ Print something like “Port &H100 is in use.”
PRINT “Port &H”; HEX$(i%); “ is in use.”
BEEP
ELSE
‘ Print something like “Ports &H100 thru &H13F are OK to use.”
PRINT “Ports &H”; HEX$(MyAc28IoPort%); “ thru &H”; HEX$(MaxPort%);
PRINT “ are OK to use.”
END IF
PROGRAMING WITHOUT THE PAMUX DRIVER
To Next Page
Loading...
