2020-05-16 12:44:49 +10:00
|
|
|
: (main) INTERPRET BYE ;
|
|
|
|
|
: BOOT
|
|
|
|
|
0x02 RAM+ CURRENT* !
|
|
|
|
|
CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
|
|
|
|
|
0 0x08 RAM+ ! ( 08 == C<* override )
|
2020-10-29 07:00:58 +11:00
|
|
|
['] (emit) ['] EMIT **!
|
|
|
|
|
['] (key) ['] KEY **!
|
2020-10-29 06:02:06 +11:00
|
|
|
['] CRLF ['] NL **!
|
2020-05-16 12:44:49 +10:00
|
|
|
( 0c == C<* )
|
|
|
|
|
['] (boot<) 0x0c RAM+ !
|
2020-10-29 06:02:06 +11:00
|
|
|
['] C@ ['] A@ ! ['] C! ['] A! **!
|
2020-05-16 12:44:49 +10:00
|
|
|
( boot< always has a char waiting. 06 == C<?* )
|
|
|
|
|
1 0x06 RAM+ ! INTERPRET
|
2020-09-20 08:51:29 +10:00
|
|
|
RDLN$ LIT" _sys" [entry]
|
|
|
|
|
LIT" Collapse OS" (print) NL (main) ;
|
2020-06-22 01:41:10 +10:00
|
|
|
XCURRENT @ _xapply ORG @ 0x04 ( stable ABI BOOT ) + !
|
