X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=wordlists.asm;h=b2e8260e479d275c24a3162776cb5ab28fc82757;hb=bdaa235a728bbfa87718c3da18e5fb64ca6b6662;hp=705f360927b5dd001be626ecdde81721efa63b12;hpb=2f357c67f0323aafe05e997053b180e6e79d8ea0;p=rrq%2Frrqforth.git

diff --git a/wordlists.asm b/wordlists.asm
index 705f360..b2e8260 100644
--- 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