From: Ralph Ronnquist Date: Fri, 28 May 2021 04:05:46 +0000 (+1000) Subject: bug fix X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=fc7b2467cc920eb3fdbf48b323bf0d7d0e9255b1;p=rrq%2Frrqforth.git bug fix --- diff --git a/rrqforth.asm b/rrqforth.asm index 7c1b5ca..fd37709 100644 --- a/rrqforth.asm +++ b/rrqforth.asm @@ -126,10 +126,9 @@ previous_word = 0 jmp qword rsi WORD p_execute,'EXECUTE',fasm - ;; ( tfa -- ) + ;; ( cfa -- ) ;; Execute the word pop rax - tfa2cfa rax jmp qword [rax] ; goto code of that FORTH word (64 bit jump) WORD p_exit, 'EXIT',fasm