collapseos/emul/forth/emul.fs
2020-03-28 10:25:02 -04:00

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