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