X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=memory.asm;h=171ac487c8a19b40a533c51a1e62e2b5dd73c740;hb=a3427c86d68cc40ac6f9ed1bd153bb45f0456b55;hp=64f54bce09e24d698485b61b2d62ad97677d122e;hpb=e086c1738e84f6952008d1d2efa4e36b31b061b3;p=rrq%2Frrqforth.git

diff --git a/memory.asm b/memory.asm
index 64f54bc..171ac48 100644
--- a/memory.asm
+++ b/memory.asm
@@ -1,5 +1,12 @@
 ;;; This file defines "memory access words"
 
+	WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
+	;; ( cfa -- flags )
+	pop rax
+	cfa2tfa rax
+	push qword[rax+16]
+	next
+
 	WORD p_tfa2cfa,'TFA>CFA',fasm
 	;; ( tfa -- cfa )
 	;; Advance a word tfa pointer to the cfa field