mirror of
https://github.com/hsoft/collapseos.git
synced 2024-10-07 03:51:04 +11:00
11 lines
140 B
Forth
11 lines
140 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
|