update

[rrq/rrqforth.git] / memory.asm

diff --git a/memory.asm b/memory.asm
index ff888938b34a4a831d950fd6180b07569f877e05..4fe4772f76c38b3652e4308b1941ca1871541b27 100644 (file)
--- a/memory.asm
+++ b/memory.asm
@@ -25,7 +25,15 @@
        WORD p_tfa2namez,'TFA>NAMEZ',fasm
        ;; (  tfa -- char* )
        pop rax
-       push qword[rax+32]
+       add rax,32
+       push rax
+       next
+
+       WORD p_cfa2tfa,'CFA>TFA',fasm
+       ;; ( cfa -- tfa )
+       pop rax
+       cfa2tfa rax
+       push rax
        next
 
        WORD p_cfa2flags_get,'CFA>FLAGS@',fasm