X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=rrqforth.asm;h=ecea1171612a82f840f91d82ce44931432805576;hb=a3427c86d68cc40ac6f9ed1bd153bb45f0456b55;hp=765b8fc26497555fb3c2a6373344cd0c3eaabf1f;hpb=00cfafed408853dee1e60d4a5ec7651c218134a7;p=rrq%2Frrqforth.git diff --git a/rrqforth.asm b/rrqforth.asm index 765b8fc..ecea117 100644 --- a/rrqforth.asm +++ b/rrqforth.asm @@ -73,6 +73,13 @@ dostring: pushpname rax next + WORD p_calltrace,'calltrace',dovalue + ;; Common call point for debugging + ;; rax = cfa of called word + ;; rsi = cell* of next forth word + ;; [$rsp] = from where the call was + ret + include 'syscalls.asm' ;;; ======================================== @@ -211,13 +218,21 @@ last_forth_word: p_quit_INITIALIZED: ;; Initial blurb FORTH - dq p_program_version, p_tell, p_stdin, p_evaluate_stream + dq p_program_version + dq p_tell + dq p_stdin + dq p_evaluate_stream BRANCH 0,p_quit_ERROR - dq p_false, sys_exit + dq p_false + dq sys_exit p_quit_ERROR: dq p_literal_string STRING 10,'*** Unknown word: ' - dq p_tell, p_this_word, p_2get, p_tell, p_literal_string + dq p_tell + dq p_this_word + dq p_2get + dq p_tell + dq p_literal_string STRING 10 dq p_tell ENDFORTH