1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 12:58:09 +11:00

Fix EOT behavior after QUIT

Previously, calling quit would break EOT behavior and not properly
quit Collapse OS.
This commit is contained in:
Virgil Dupras 2020-05-15 10:19:39 -04:00
parent 43eabf566b
commit 0163af470a
3 changed files with 3 additions and 4 deletions

View File

@ -10,6 +10,6 @@
: QUIT
(resRS)
0 0x08 RAM+ ! ( 08 == C<* override )
LIT< INTERPRET (find) DROP EXECUTE
LIT< (main) (find) DROP EXECUTE
;
1 25 LOADR+ ( xcomp core low )

View File

@ -1,3 +1,4 @@
: (main) INTERPRET BYE ;
: BOOT
0x02 RAM+ CURRENT* !
CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
@ -8,6 +9,4 @@
( 0c == C<* )
['] (boot<) 0x0c RAM+ !
( boot< always has a char waiting. 06 == C<?* )
1 0x06 RAM+ !
INTERPRET BYE ;
1 0x06 RAM+ ! (main) ;

Binary file not shown.