forth: Forth-ify "PC@"

forth/forth.asm

@@ -733,23 +733,9 @@ PRINT:
 	inc	hl
 	jr	.loop
 
-; ( port -- c )
-	.db "PC@"
-	.fill 4
-	.dw $-PRINT
-	.db 0
-PFETCH:
-	.dw nativeWord
-	pop	bc
-	call	chkPS
-	ld	h, 0
-	in	l, (c)
-	push	hl
-	jp	next
-
 	.db	"C,"
 	.fill	5
-	.dw	$-PFETCH
+	.dw	$-PRINT
 	.db	0
 CWR:
 	.dw	nativeWord

forth/z80a.fs

@@ -124,7 +124,7 @@
     OR A,
 ;
 0xed41 OP2r OUT(C)r,
-0xeb40 OP2r INr(C),
+0xed40 OP2r INr(C),
 
 ( dd nn -- )
 : OP3ddnn

forth/z80c.fs

@@ -90,3 +90,11 @@ CODE PC!
     chkPS,
     L OUT(C)r,
 ;CODE
+
+CODE PC@
+    BC POPqq,
+    chkPS,
+    H 0 LDrn,
+    L INr(C),
+    HL PUSHqq,
+;CODE