From d1f572d2ed52e9935fde089002e38afa0016672d Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 26 Mar 2020 11:51:29 -0400
Subject: [PATCH] forth: Word-ified "(print)"

---
 forth/forth.asm | 34 +++++++++++++++++++++++++++-------
 1 file changed, 27 insertions(+), 7 deletions(-)

diff --git a/forth/forth.asm b/forth/forth.asm
index d457498..ac5e6c2 100644
--- a/forth/forth.asm
+++ b/forth/forth.asm
@@ -696,16 +696,36 @@ EMIT:
 	.dw	$-EMIT
 	.db	7
 PRINT:
+	.dw	compiledWord	; a
+	; BBR mark
+	.dw	DUP		; a a
+	.dw	.getc		; a c
+	.dw	DUP		; a c f
+	.dw	CSKIP		; a c
+	; zero, end of string
+	.dw	FBR
+	.db	12
+	.dw	EMIT		; a
+	.dw	NUMBER		; a 1
+	.dw	1
+	.dw	PLUS		; a+1
+	.dw	BBR
+	.db	21
+	; FBR mark
+	.dw	DROP
+	.dw	DROP
+	.dw	EXIT
+
+; Yes, very much like C@, but it has already been Forth-ified...
+.getc:
 	.dw	nativeWord
 	pop	hl
 	call	chkPS
-.loop:
-	ld	a, (hl)		; load character to send
-	or	a		; is it zero?
-	jp	z, next		; if yes, we're finished
-	call	PUTC
-	inc	hl
-	jr	.loop
+	ld	l, (hl)
+	ld	h, 0
+	push	hl
+	jp	next
+
 
 	.db	"C,"
 	.dw	$-PRINT