forth: Forth-ify "BYE"

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

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),