X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=memory.asm;h=80ce28075e6c69a6e5523f3336ed7532a0dbe6f3;hb=b49fed131d5a7806d0737bdc6f9b693c64753cf2;hp=7d5f1440eb53e93fa7a1eeb1625afa2d52ea140b;hpb=bf67023324b2a0c5723dd3167ef757209ba62e01;p=rrq%2Frrqforth.git

diff --git a/memory.asm b/memory.asm
index 7d5f144..80ce280 100644
--- a/memory.asm
+++ b/memory.asm
@@ -17,11 +17,18 @@
 	next
 
 	WORD p_tfa2flags_get,'TFA>FLAGS@',fasm
-	;; ( cfa -- flags )
+	;; ( tfa -- flags )
 	pop rax
 	push qword[rax+16]
 	next
 
+	WORD p_tfa2namez,'TFA>NAMEZ',fasm
+	;; (  tfa -- char* )
+	pop rax
+	add rax,32
+	push rax
+	next
+
 	WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
 	;; ( cfa -- flags )
 	pop rax