af39b37dd1
This is more than cosmetic, it's also highly usable. The presence or absence of the "ok" message allows us to know whether the command aborted. Previously, the "> " prompt appeared when the system expected a prompt in the INTERPRET context, whether the previous command aborted or not. Also, this allows us to get rid of that ugly FLAGS global variable.
15 lines
327 B
Plaintext
15 lines
327 B
Plaintext
: BOOT
|
|
0x02 RAM+ CURRENT* !
|
|
LIT< (parse) (find) DROP (parse*) !
|
|
( 2e == SYSTEM SCRATCHPAD )
|
|
CURRENT @ 0x2e RAM+ !
|
|
( 0c == C<* )
|
|
LIT< (boot<) (find) DROP 0x0c RAM+ !
|
|
( boot< always has a char waiting. 06 == C<?* )
|
|
1 0x06 RAM+ !
|
|
LIT< INIT (find)
|
|
IF EXECUTE
|
|
ELSE DROP INTERPRET THEN
|
|
;
|
|
|