From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 18 May 2021 08:22:42 +0000 (+1000)
Subject: changed to dump the word list
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=3365403c166732a1e3d68a23de2fa5021d8b81da;p=rrq%2Frrqforth.git

changed to dump the word list
---

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