1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 07:28:06 +11:00
collapseos/emul/forth/emul.fs

18 lines
209 B
Forth
Raw Normal View History

2020-03-27 03:05:48 +11:00
( Implementation fo KEY and EMIT in the emulator
stdio port is 0
)
2020-03-29 01:25:02 +11:00
CODE EMIT
2020-03-27 03:05:48 +11:00
HL POPqq,
chkPS,
A L LDrr,
0 OUTnA,
;CODE
2020-03-27 03:12:11 +11:00
CODE KEY
0 INAn,
H 0 LDrn,
L A LDrr,
HL PUSHqq,
;CODE