X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_current_wordlist.adoc;h=a5ab03145a5a731927d4e8600cdc0788ef3d39c2;hb=6abdd618f54acab8cb2d04f3c3ee2d0aab36eb22;hp=340cabd73fb4cc349ed752469600846af6497407;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git

diff --git a/adoc/p_current_wordlist.adoc b/adoc/p_current_wordlist.adoc
index 340cabd..a5ab031 100644
--- a/adoc/p_current_wordlist.adoc
+++ b/adoc/p_current_wordlist.adoc
@@ -1,9 +1,26 @@
-anchor:p_wordlist[]
+// wordlists.asm:	WORD p_wordlist,'CURRENT-WORDLIST',dovariable
 
-Word: CURRENT-WORDLIST
-----------------------
+anchor:p_current_wordlist[]
 
+=== Word: CURRENT-WORDLIST
+....
+Data stack: ( -- a )
+....
+
+"CURRENT-WORDLIST" is a variable word that points out the DFA of the
+current word list word for <<p_find,FIND>> to use finding words. The
+word list word content is as follows:
+
+====
+.word list word content
+[caption='Layout {counter:layout}: ']
 ----
-wordlists.asm:	WORD p_wordlist,'CURRENT-WORDLIST',dovariable
+  8 TFA of latest word in the word list
+  8 DFA of the/a subsequent word list to search through
 ----
+====
+
+Note that word lists are chained by "extension" and in general it ends
+with the <<p_forth,FORTH>> word list. Initially the
+<<p_system,SYSTEM>> word list is the only other word list.