From: Ralph Ronnquist Date: Tue, 18 May 2021 14:54:12 +0000 (+1000) Subject: added some decoration labels (not really used) X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=86231a519d2f4966c99091d4aa532b2c4e05b1fa;p=rrq%2Frrqforth.git added some decoration labels (not really used) --- diff --git a/machine.asm b/machine.asm index 74b1060..8da016a 100644 --- a/machine.asm +++ b/machine.asm @@ -134,6 +134,7 @@ label#_TFA: end if previous_word = label#_TFA ;; PFA +label#_pCFA: dq label#_CFA ; link to CFA of word dq flags + 0 label#_PFA: @@ -141,6 +142,7 @@ label#_PFA: db name pname: db 0 ; extra NUL byte ;; align 8 +label#_pTFA: dq label#_TFA ; link to TFA of word label#_OFF: dq offset + 0 ; The DOES offset. Defaults to 0.