mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 16:38:06 +11:00
5 lines
77 B
Forth
5 lines
77 B
Forth
HERE @ 256 /MOD 2 PC! 2 PC!
|
|
: EMIT 0 PC! ;
|
|
: KEY 0 PC@ ;
|
|
CURRENT @ 12 RAM+ !
|