From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 23 May 2021 14:52:34 +0000 (+1000)
Subject: pack up forth ptrs for more compact source
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=00cfafed408853dee1e60d4a5ec7651c218134a7;p=rrq%2Frrqforth.git

pack up forth ptrs for more compact source
---

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