mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-08 09:28:46 +10:00
I think that when I added NL, I had troubles having access to CRLF's address at boot time, which is why I had this system. But now that CRLF is easily accessible during BOOT, we can simplify. (and that will help us in the hopefully-upcoming change, which is quite nice...)
17 lines
552 B
Plaintext
17 lines
552 B
Plaintext
: (main) INTERPRET BYE ;
|
|
: BOOT
|
|
0x02 RAM+ CURRENT* !
|
|
CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
|
|
0 0x08 RAM+ ! ( 08 == C<* override )
|
|
0 0x53 RAM+ ! ( 53 == (emit) override )
|
|
0 0x55 RAM+ ! ( 55 == (key) override )
|
|
['] CRLF 0x0a RAM+ ! ( NLPTR )
|
|
( 0c == C<* )
|
|
['] (boot<) 0x0c RAM+ !
|
|
['] C@ A@* ! ['] C! A!* !
|
|
( boot< always has a char waiting. 06 == C<?* )
|
|
1 0x06 RAM+ ! INTERPRET
|
|
RDLN$ LIT" _sys" [entry]
|
|
LIT" Collapse OS" (print) NL (main) ;
|
|
XCURRENT @ _xapply ORG @ 0x04 ( stable ABI BOOT ) + !
|