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