;;; 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
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