From 649785d46603182132209b64791f6c996497110e Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 24 Nov 2023 19:58:11 -0500
Subject: add text processing words

---
 source/state.hpp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'source/state.hpp')

diff --git a/source/state.hpp b/source/state.hpp
index 2a4668e..17d8e69 100644
--- a/source/state.hpp
+++ b/source/state.hpp
@@ -22,15 +22,16 @@
 
 constexpr Addr DS = 16; /** Data stack size */
 constexpr Addr RS = 16; /** Return stack size */
-constexpr auto DictSize = 2048u; /** Dictionary size */
+constexpr auto DictSize = 4096u; /** Dictionary size */
 
 constexpr Addr DIdxBase   = 0;
 constexpr Addr DIdxHere   = 1;
 constexpr Addr DIdxLatest = 2;
 constexpr Addr DIdxState  = 3;
-constexpr Addr DIdxSource = 4;
-constexpr Addr DIdxSrcLen = 5;
-constexpr Addr DIdxInBuf  = 6;
+constexpr Addr DIdxCompXt = 4;
+constexpr Addr DIdxSource = 5;
+constexpr Addr DIdxSrcLen = 6;
+constexpr Addr DIdxInBuf  = 7;
 constexpr Addr DIdxBegin  = DIdxInBuf + 80 * sizeof(char);
 
 /**
@@ -52,9 +53,10 @@ extern FuncList IP; /** Instruction pointer */
  */
 inline void initialize(const auto& wordset)
 {
-    LATEST = (Cell)wordset.latest;
-    HERE = (Cell)&DICT[DIdxBegin];
-    STATE = 0;
+    DICT[DIdxBase]   = 10;
+    DICT[DIdxHere]   = (Cell)&DICT[DIdxBegin];
+    DICT[DIdxLatest] = (Cell)wordset.latest;
+    DICT[DIdxState]  = 0;
 }
 
 /**
-- 
cgit v1.2.3