X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=memory.asm;h=335a04d22779af2ac0ab4c5f9dd7661e8c6d5299;hb=d5a8f559318ac57934871a48e964bac18557b601;hp=171ac487c8a19b40a533c51a1e62e2b5dd73c740;hpb=ea16f5d7f9a9ff7a7af9d7f8d6cac589b02620a0;p=rrq%2Frrqforth.git

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