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.