changed to dump the word list

[rrq/rrqforth.git] / rrqforth.asm

diff --git a/rrqforth.asm b/rrqforth.asm
index 9709fde6df03a0e85259d8ced4bd970d2ffe0bb1..0f7e8fbf3f9c944834555d5abdbffbfc1587eab1 100644 (file)
--- 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