2020-04-23 15:14:14 -04:00
|
|
|
: BOOT
|
|
|
|
0x02 RAM+ CURRENT* !
|
|
|
|
LIT< (parse) (find) DROP (parse*) !
|
2020-05-02 08:06:37 -04:00
|
|
|
CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
|
2020-04-24 14:10:40 -04:00
|
|
|
0 0x08 RAM+ ! ( 08 == C<* override )
|
2020-05-02 10:26:34 -04:00
|
|
|
0 0x53 RAM+ ! ( 53 == (emit) override )
|
2020-05-02 10:37:37 -04:00
|
|
|
0 0x55 RAM+ ! ( 55 == (key) override )
|
2020-04-24 12:10:07 -04:00
|
|
|
( 0c == C<* )
|
2020-04-23 15:14:14 -04:00
|
|
|
LIT< (boot<) (find) DROP 0x0c RAM+ !
|
2020-04-24 12:10:07 -04:00
|
|
|
( boot< always has a char waiting. 06 == C<?* )
|
|
|
|
1 0x06 RAM+ !
|
2020-04-23 15:14:14 -04:00
|
|
|
LIT< INIT (find)
|
2020-05-01 20:05:15 -04:00
|
|
|
IF EXECUTE ELSE DROP INTERPRET THEN
|
2020-04-23 15:14:14 -04:00
|
|
|
;
|
|
|
|
|