projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
some new words
[rrq/rrqforth.git]
/
rrqforth.asm
diff --git
a/rrqforth.asm
b/rrqforth.asm
index 894e4b440bcb5e2d890020dd87a2577e7890aa9d..5187c902a06c7a202b08a4292bb98482d2a897e6 100644
(file)
--- a/
rrqforth.asm
+++ b/
rrqforth.asm
@@
-133,7
+133,12
@@
previous_word = 0
pop rax
jmp qword [rax] ; goto code of that FORTH word (64 bit jump)
pop rax
jmp qword [rax] ; goto code of that FORTH word (64 bit jump)
- WORD p_exit, 'EXIT',fasm
+ WORD p_sysexit, 'EXIT',
+ ;; ( v -- )
+ ;; Terminate RRQFORTH with error code
+ dq sys_exit
+
+ WORD p_return, 'RETURN',fasm
;; ( -- ) ( R: addr -- )
;; Returns execution to the calling definition as per the
;; return stack.
;; ( -- ) ( R: addr -- )
;; Returns execution to the calling definition as per the
;; return stack.