From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 28 May 2021 04:02:09 +0000 (+1000)
Subject: added TFA>FLAGS@
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=f1d78efc6985feda9442e1efb860c9c0e41b9f4f;p=rrq%2Frrqforth.git

added TFA>FLAGS@
---

diff --git a/memory.asm b/memory.asm
index 171ac48..335a04d 100644
--- a/memory.asm
+++ b/memory.asm
@@ -23,6 +23,12 @@
 	mov qword [rsp],rax
 	next
 
+	WORD p_tfa2flags_get,'TFA>FLAGS@',fasm
+	;; ( cfa -- flags )
+	pop rax
+	push qword[rax+16]
+	next
+
 	WORD p_dfa2tfa,'DFA>TFA',fasm
 	;; ( dfa -- tfa )
 	;; Advance a word tfa pointer to the dfa field