2 files changed, 13 insertions(+), 0 deletions(-)

M colon.fs
M w65c816.fs

@@ 3,6 3,11 @@
 \ file, You can obtain one at https://mozilla.org/MPL/2.0/.
 
 
+2 CONSTANT b/cell
+
+: TCELLS ( nc -- nb )   b/cell * ;
+
+
 \ Labels are tracked internally to each colon definition.
 
 variable label#


@@ 160,3 165,8 @@ create template
 : cmp:(                     [CHAR] ) parse 2drop ;
 : cmp:\			    POSTPONE \ ;
 
+\ Vocabulary/Wordlist support
+
+: (T:)                      name check header ;
+: TSEAL ( -- )              (T:)  S" (dovoc)" call emit:voclinks ;
+

@@ 96,3 96,6 @@ VARIABLE hsh
   hsh @ remember
 ;
 
+: emit:voclinks ( -- )
+  #buckets 0 DO I bucket count S" .word" absE LOOP 0vocab ;
+