- WORD p_tfa2cfa,'TFA>CFA',fasm
- ;; ( tfa -- cfa )
- ;; Advance a word tfa pointer to the cfa field
- mov rax,qword[rsp]
- tfa2cfa rax
- mov qword [rsp],rax
- next
-
- WORD p_tfa2dfa,'TFA>DFA',fasm
- ;; ( tfa -- dfa )
- ;; Advance a word tfa pointer to the dfa field
- mov rax,qword[rsp]
- tfa2dfa rax
- mov qword [rsp],rax
- next
-
- WORD p_dfa2tfa,'DFA>TFA',fasm
- ;; ( dfa -- tfa )
- ;; Advance a word tfa pointer to the dfa field
- mov rax,qword[rsp]
- mov rax,qword [rax-24] ; tfa
- mov qword [rsp],rax
- next
-