X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=rrqforth.asm;h=765b8fc26497555fb3c2a6373344cd0c3eaabf1f;hb=00cfafed408853dee1e60d4a5ec7651c218134a7;hp=ab4fd997cb32f85c2b1c767ea5945347ab369449;hpb=005c34fcfa86b514b8feb2224949538abbd473ca;p=rrq%2Frrqforth.git

diff --git a/rrqforth.asm b/rrqforth.asm
index ab4fd99..765b8fc 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -192,7 +192,7 @@ main:
 	;; followed by the argument pointers.
 	mov qword [p_args_DFA],rsp
 	jmp p_quit_DFA 		; QUIT
-	
+
 ;;; This word is also the last word before syscalls
 last_forth_word:
 	WORD p_quit,'QUIT',fasm
@@ -211,23 +211,13 @@ last_forth_word:
 p_quit_INITIALIZED:
 	;; Initial blurb
 	FORTH
-	dq p_program_version
-	dq p_tell
-	dq p_stdin
-	dq p_clear_stream
-	dq p_stdin
-	dq p_evaluate_stream
+	dq p_program_version, p_tell, p_stdin, p_evaluate_stream
 	BRANCH 0,p_quit_ERROR
-	dq p_false
-	dq sys_exit
+	dq p_false, sys_exit
 p_quit_ERROR:
 	dq p_literal_string
 	STRING 10,'*** Unknown word: '
-	dq p_tell
-	dq p_this_word
-	dq p_2get
-	dq p_tell
-	dq p_literal_string
+	dq p_tell, p_this_word, p_2get, p_tell, p_literal_string
 	STRING 10
 	dq p_tell
 	ENDFORTH