mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 07:48:45 +10:00
18 lines
211 B
Forth
18 lines
211 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
|