From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 May 2021 11:20:00 +0000 (+1000)
Subject: added CFA>FLAGS@ helper
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=ea16f5d7f9a9ff7a7af9d7f8d6cac589b02620a0;p=rrq%2Frrqforth.git

added CFA>FLAGS@ helper
---

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