From 3365403c166732a1e3d68a23de2fa5021d8b81da Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 18 May 2021 18:22:42 +1000
Subject: [PATCH] changed to dump the word list

---
 rrqforth.asm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/rrqforth.asm b/rrqforth.asm
index 9709fde..0f7e8fb 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -100,18 +100,13 @@ main:
 	DOFORTH p_stream
 	pop qword [p_stdin_DFA]
 
-	;; read a word
-	push qword 1		; ( fd ) =stdout
-	push qword [p_stdin_DFA]
-	FORTH
-	dq p_read_word		; ( fd s n )
-	dq sys_write
-	ENDFORTH
-
+	;; Initial blurb
 	push qword 1			; stdout
 	DOFORTH p_program_version	; version string => ( s n )
 	DOFORTH sys_write		; printout
 	pop rax				; ignore errors
+
+	DOFORTH p_words
 	
 	push 0
 	DOFORTH sys_exit
-- 
2.39.2