izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 13:08:07 +11:00
Code Issues Releases Wiki Activity

Fix EOT behavior after QUIT

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/393
View File

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

5
blk/436
View File

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

BIN
emul/forth.bin
View File

Binary file not shown.