X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=memory.asm;h=80ce28075e6c69a6e5523f3336ed7532a0dbe6f3;hb=aa6d10c30115571b859b9e7e3d6e8a9b9ced599b;hp=ff888938b34a4a831d950fd6180b07569f877e05;hpb=69f36d333521b482b3b92349c1dccb654f43b65b;p=rrq%2Frrqforth.git

diff --git a/memory.asm b/memory.asm
index ff88893..80ce280 100644
--- a/memory.asm
+++ b/memory.asm
@@ -25,7 +25,8 @@
 	WORD p_tfa2namez,'TFA>NAMEZ',fasm
 	;; (  tfa -- char* )
 	pop rax
-	push qword[rax+32]
+	add rax,32
+	push rax
 	next
 
 	WORD p_cfa2flags_get,'CFA>FLAGS@',fasm