forth: Forth-ify "C,"

forth/forth.asm

@@ -720,24 +720,10 @@ EMIT:
 	.dw	EXIT
 
 
-.fill 49
+.fill 71
-
-	.db	"C,"
-	.dw	$-EMIT
-	.db	2
-CWR:
-	.dw	nativeWord
-	pop	de
-	call	chkPS
-	ld	hl, (HERE)
-	ld	(hl), e
-	inc	hl
-	ld	(HERE), hl
-	jp	next
-
 
 	.db	","
-	.dw	$-CWR
+	.dw	$-EMIT
 	.db	1
 WR:
 	.dw	nativeWord

forth/icore.fs

@@ -81,6 +81,11 @@
     AGAIN
 ;
 
+: C,
+    HERE @ _c C!
+    HERE @ 1 + HERE !
+;
+
 : (entry)
     HERE @          ( h )
     WORD            ( h s )
@@ -92,7 +97,7 @@
     ( write prev value )
     HERE @ CURRENT @ _c - ,
     ( write size )
-    C,
+    _c C,
     HERE @ CURRENT !
 ;