collapseos/emul/stage1.fs
2020-04-26 08:37:12 -04:00

5 lines
66 B
Forth

CURRENT @ HERE !
: EMIT 0 PC! ;
: KEY 0 PC@ ;
CURRENT @ 12 RAM+ !