mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 17:08:05 +11:00
18 lines
209 B
Forth
18 lines
209 B
Forth
( Implementation fo KEY and EMIT in the emulator
|
|
stdio port is 0
|
|
)
|
|
|
|
CODE EMIT
|
|
HL POPqq,
|
|
chkPS,
|
|
A L LDrr,
|
|
0 OUTnA,
|
|
;CODE
|
|
|
|
CODE KEY
|
|
0 INAn,
|
|
H 0 LDrn,
|
|
L A LDrr,
|
|
HL PUSHqq,
|
|
;CODE
|