mirror of https://github.com/hsoft/collapseos.git
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
|