commen editing

[rrq/rrqforth.git] / wordlists.asm

diff --git a/wordlists.asm b/wordlists.asm
index 705f360927b5dd001be626ecdde81721efa63b12..b2e8260e479d275c24a3162776cb5ab28fc82757 100644 (file)
--- a/wordlists.asm
+++ b/wordlists.asm
@@ -19,34 +19,10 @@
 ;;; 
 ;;; 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