;;;
;;; WORDLIST ( "name" -- ) = start
- 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
-
WORD p_wordlist,'CURRENT-WORDLIST',dovariable
;; CURRENT-WORDLIST points to cfa of the currently active wordlist.
dq p_forth_DFA
-
+
WORD p_words,'WORDS',fasm
;; ( -- )
;; Dump all words