2 - Forth Interest Group

\ FCONTROL.SEQ
\ F-PC
Ken Merk Apr/95
\
\
Forth Code to control parallel printer port.
............................................
DECIMAL
\ Look for active LPTl port
\ If no port found then abort
CLS
23 8 AT . ( Parallel printer port not found.)
CLOSE QUIT
$0040 $0008 @L CONSTANT #PORT \ Find port addr for printer card
\ assign to constant #PORT
1 CONSTANT FAN \ assign each device its
2 CONSTANT DRILL \ binary weighting
4 CONSTANT PUMP
8 CONSTANT SPRINKLER
16 CONSTANT HEATER
32 CONSTANT LIGHT
64 CONSTANT MOTOR
128 CONSTANT VALVE
code bset ( b #port -- ) \ will SET each bit in #port that
POP dx \ matches every high bit in byte b.
POP bx
in ax, dx
or al, bx
out dx, a1
next
end-code
code breset ( b #port -- ) \ will RESET each bit in #port that
POP dx \ matches every high bit in byte b.
POP bx
not bx
in ax, dx
and al, bx
out dx, a1
next
end-code
code btoggle ( b #port -- ) \ w i l l TOGGLE each bit in #port that
POP dx \ matches every high bit in byte b.
POP bx
in ax, dx
xor al, bx
out dx, a1
next
end-code (code continues on nextpage.)
Forth Dimensions July 1995 August