+;;; This is the very first word
+
+ ;; FORTH is the last word of WORDLIST FORTH
+ WORD p_forth,'FORTH',dovalue
+ ;; ( -- )
+ ;; Change to use this wordlist
+ dq last_forth_word
+ dq inline_code
+ mov rax,qword [p_forth_DFA]
+ mov qword [p_wordlist],rax
+ popr rsi
+ next
+
+ WORD p_syscall,'SYSCALL',dodoes,,,8
+ ;; ( -- )
+ ;; Change to use this wordlist
+ dq last_syscall_word
+ dq inline_code
+ mov rax,qword [p_syscall_DFA]
+ mov qword [p_wordlist],rax
+ popr rsi
+ next
+
+last_wordlists_word:
+ WORD p_wordlists,'WORDLISTS',dodoes,,,8
+ ;; ( -- )
+ ;; Change to use this wordlist
+ dq p_wordlists_TFA
+ dq inline_code
+ mov rax,qword [p_wordlists_DFA]
+ mov qword [p_wordlist],rax
+ popr rsi
+ next
+
+include 'wordlists.asm'
+