next
WORD p_tfa2flags_get,'TFA>FLAGS@',fasm
- ;; ( cfa -- flags )
+ ;; ( tfa -- flags )
pop rax
push qword[rax+16]
next
+ WORD p_tfa2namez,'TFA>NAMEZ',fasm
+ ;; ( tfa -- char* )
+ pop rax
+ add rax,32
+ push rax
+ next
+
WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
;; ( cfa -- flags )
pop rax