diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 231bbb5..e7cf673 100644
Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ
diff --git a/forth/forth.asm b/forth/forth.asm
index 8f19996..94dcadc 100644
--- 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
diff --git a/forth/z80a.fs b/forth/z80a.fs
index 6b47b26..17ebc29 100644
--- 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
diff --git a/forth/z80c.fs b/forth/z80c.fs
index 860c40c..4af00e3 100644
--- 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