pack up forth ptrs for more compact source
authorRalph Ronnquist <ralph.ronnquist@gmail.com>
Sun, 23 May 2021 14:52:34 +0000 (00:52 +1000)
committerRalph Ronnquist <ralph.ronnquist@gmail.com>
Sun, 23 May 2021 14:52:34 +0000 (00:52 +1000)
rrqforth.asm

index ab4fd997cb32f85c2b1c767ea5945347ab369449..765b8fc26497555fb3c2a6373344cd0c3eaabf1f 100644 (file)
@@ -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