forth: Forth-ify "OR"

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

forth/z80a.fs

@@ -53,6 +53,7 @@
     OR A,
 ;
 0xa0 OP1r0 ANDr,
+0xb0 OP1r0 ORr,
 
 ( qq -- also works for ss )
 : OP1qq

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,