From 00cfafed408853dee1e60d4a5ec7651c218134a7 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Mon, 24 May 2021 00:52:34 +1000 Subject: [PATCH 1/1] pack up forth ptrs for more compact source --- rrqforth.asm | 18 ++++-------------- 1 file changed, 4 insertions(+), 14 deletions(-) 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 -- 2.39.2