X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=memory.asm;h=4fe4772f76c38b3652e4308b1941ca1871541b27;hb=c39ff90d7e44da4984c0b04370eb41d839779d3b;hp=80ce28075e6c69a6e5523f3336ed7532a0dbe6f3;hpb=d5613f1ba2ae4065d60df8e768027f437f740a7f;p=rrq%2Frrqforth.git

diff --git a/memory.asm b/memory.asm
index 80ce280..4fe4772 100644
--- a/memory.asm
+++ b/memory.asm
@@ -29,6 +29,13 @@
 	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
 	;; ( cfa -- flags )
 	pop rax