diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 0884ccd..299316f 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 a1756f2..d9e95e4 100644
--- a/forth/forth.asm
+++ b/forth/forth.asm
@@ -1505,27 +1505,9 @@ DIVMOD:
 	jp	next
 
 
-	.db	"OR"
-	.fill	5
-	.dw	$-DIVMOD
-	.db	0
-OR:
-	.dw	nativeWord
-	pop	hl
-	pop	de
-	call	chkPS
-	ld	a, e
-	or	l
-	ld	l, a
-	ld	a, d
-	or	h
-	ld	h, a
-	push	hl
-	jp	next
-
 	.db	"XOR"
 	.fill	4
-	.dw	$-OR
+	.dw	$-DIVMOD
 	.db	0
 XOR:
 	.dw	nativeWord
diff --git a/forth/z80a.fs b/forth/z80a.fs
index c98af54..6551fcb 100644
--- a/forth/z80a.fs
+++ b/forth/z80a.fs
@@ -53,6 +53,7 @@
     OR A,
 ;
 0xa0 OP1r0 ANDr,
+0xb0 OP1r0 ORr,
 
 ( qq -- also works for ss )
 : OP1qq
diff --git a/forth/z80c.fs b/forth/z80c.fs
index 1237216..0f359b4 100644
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@@ -84,6 +84,19 @@ CODE AND
     HL PUSHqq,
 ;CODE
 
+CODE OR
+    HL POPqq,
+    DE POPqq,
+    chkPS,
+    A E LDrr,
+    L ORr,
+    L A LDrr,
+    A D LDrr,
+    H ORr,
+    H A LDrr,
+    HL PUSHqq,
+;CODE
+
 CODE PC!
     BC POPqq,
     HL POPqq,