added TFA>FLAGS@
authorRalph Ronnquist <ralph.ronnquist@gmail.com>
Fri, 28 May 2021 04:02:09 +0000 (14:02 +1000)
committerRalph Ronnquist <ralph.ronnquist@gmail.com>
Fri, 28 May 2021 04:02:09 +0000 (14:02 +1000)
memory.asm

index 171ac487c8a19b40a533c51a1e62e2b5dd73c740..335a04d22779af2ac0ab4c5f9dd7661e8c6d5299 100644 (file)
        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