forth: Forth-ify "IMMEDIATE"

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

forth/z80a.fs

@@ -79,6 +79,7 @@
 0xc5 OP1qq PUSHqq,
 0xc1 OP1qq POPqq,
 0x03 OP1qq INCss,
+0x0b OP1qq DECss,
 0x09 OP1qq ADDHLss,
 
 : _1rr

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