forth: Forth-ify "BYE"

2020-03-28 10:14:27 -04:00 · 2020-03-28 10:14:27 -04:00 · 2db6ebc247
commit 2db6ebc247
parent e0eaa8ba63
3 changed files with 6 additions and 9 deletions
--- a/emul/forth/z80c.bin
+++ b/emul/forth/z80c.bin
--- a/forth/forth.asm
+++ b/forth/forth.asm
@ -660,21 +660,14 @@ abortUnderflow:
 .name:
 	.db "(uflw)", 0

-.fill 41
-
-	.db "BYE"
-	.dw $-QUIT
-	.db 3
-BYE:
-	.dw nativeWord
-	halt
+.fill 50

 ; STABLE ABI
 ; Offset: 02aa
 .out $
 ; ( c -- )
 	.db "EMIT"
-	.dw $-BYE
+	.dw $-QUIT
 	.db 4
 EMIT:
 	.dw	compiledWord
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@ -246,6 +246,10 @@ CODE IMMED?
    DE PUSHqq,
 ;CODE

+CODE BYE
+    HALT,
+;CODE
+
 CODE (resSP)
    ( INITIAL_SP == JTBL+28 )
    SP JTBL 28 + @ LDdd(nn),