From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 1 Jun 2021 14:04:47 +0000 (+1000)
Subject: added tfa2namez
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=69f36d333521b482b3b92349c1dccb654f43b65b;p=rrq%2Frrqforth.git

added tfa2namez
---

diff --git a/memory.asm b/memory.asm
index 7d5f144..ff88893 100644
--- a/memory.asm
+++ b/memory.asm
@@ -17,11 +17,17 @@
 	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
+	push qword[rax+32]
+	next
+
 	WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
 	;; ( cfa -- flags )
 	pop rax