;; ( -- )
;; Change to use this wordlist
dq last_forth_word
- dq inline_code
WORD p_system,'SYSTEM',dowordlist
;; ( -- )
;; Change to use this wordlist
dq last_system_word
- dq inline_code
last_wordlists_word:
WORD p_wordlists,'WORDLISTS',dowordlist
;; ( -- )
;; Change to use this wordlist
dq p_wordlists_TFA
- dq inline_code
;;; ========================================
;;; These are the core "execution semantics" words, which are placed
segment readable executable
-; At fasm compilation: reset previous_word to make a new word list
+;;; At fasm compilation: reset previous_word to make a new word list
+;;; Words above belong to the SYSTEM wordlist, and the following
+;;; belong to the FORTH wordlist.
previous_word = last_wordlists_word
WORD inline_code,'[ASM]',fasm