adding execution control words

[rrq/rrqforth.git] / memory.asm

diff --git a/memory.asm b/memory.asm
index 171ac487c8a19b40a533c51a1e62e2b5dd73c740..335a04d22779af2ac0ab4c5f9dd7661e8c6d5299 100644 (file)
--- 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