1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 10:58:06 +11:00
collapseos/recipes/rc2014/run.fs
2020-04-05 09:09:00 -04:00

10 lines
107 B
Forth

: INIT
ACIA$
(c<$)
." Collapse OS" CR LF
( 0c == CINPTR )
['] (c<) 0x0c RAM+ !
;
INIT