forth: Forth-ify "IMMEDIATE"

2020-03-27 21:36:05 -04:00 · 2020-03-27 21:36:05 -04:00 · 8f990ff954
parent 41cd8086d4
commit 8f990ff954
4 changed files with 9 additions and 11 deletions
--- a/emul/forth/z80c.bin
+++ b/emul/forth/z80c.bin
--- a/forth/forth.asm
+++ b/forth/forth.asm
@ -781,19 +781,10 @@ DOES:
 	jp	EXIT+2


-	.db "IMMEDIATE"
-	.dw $-DOES
-	.db 9
-IMMEDIATE:
-	.dw nativeWord
-	ld	hl, (CURRENT)
-	dec	hl
-	set	FLAG_IMMED, (hl)
-	jp	next
-
+.fill 23

 	.db	"IMMED?"
-	.dw	$-IMMEDIATE
+	.dw	$-DOES
 	.db	6
 ISIMMED:
 	.dw	nativeWord
--- a/forth/z80a.fs
+++ b/forth/z80a.fs
@ -79,6 +79,7 @@
 0xc5 OP1qq PUSHqq,
 0xc1 OP1qq POPqq,
 0x03 OP1qq INCss,
+0x0b OP1qq DECss,
 0x09 OP1qq ADDHLss,

 : _1rr
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@ -227,3 +227,9 @@ CODE R>
    JTBL 12 + CALLnn,
    HL PUSHqq,
 ;CODE
+
+CODE IMMEDIATE
+    CURRENT LDHL(nn),
+    HL DECss,
+    7 (HL) SETbr,
+;CODE