projects
/
rrq
/
rrqforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
005c34f
)
pack up forth ptrs for more compact source
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sun, 23 May 2021 14:52:34 +0000
(
00:52
+1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sun, 23 May 2021 14:52:34 +0000
(
00:52
+1000)
rrqforth.asm
patch
|
blob
|
history
diff --git
a/rrqforth.asm
b/rrqforth.asm
index ab4fd997cb32f85c2b1c767ea5945347ab369449..765b8fc26497555fb3c2a6373344cd0c3eaabf1f 100644
(file)
--- 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
;; 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
;;; 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
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
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: '
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
STRING 10
dq p_tell
ENDFORTH