From c5e10679c7e10345e9bf6db4efeda4f5ee7d573c Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 9 Mar 2023 19:27:47 -0500
Subject: packed literals again

---
 libalee/corewords.cpp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'libalee/corewords.cpp')

diff --git a/libalee/corewords.cpp b/libalee/corewords.cpp
index 4de9413..d981098 100644
--- a/libalee/corewords.cpp
+++ b/libalee/corewords.cpp
@@ -60,14 +60,14 @@ void CoreWords::run(unsigned int index, State& state)
     DoubleCell dcell;
 
 execute:
-    if (/*(index & 1) == 0 &&*/ index >= WordCount) {
+    if (index >= Dictionary::Begin) {
         // must be calling a defined subroutine
         state.pushr(state.ip);
         state.ip = index;
         return;
-    } else switch (index & 0x1F) {
+    } else switch (index) {
     case 0: // _lit
-        state.push(/*(index & 0xFF00) ? ((Addr)index >> 8u) - 1 :*/ state.beyondip());
+        state.push(state.beyondip());
         break;
     case 1: // drop
         state.pop();
@@ -206,6 +206,9 @@ execute:
     case 31: // _in
         state.input(state);
         break;
+    default:
+        state.push(index - WordCount);
+        break;
     }
 
     state.ip += sizeof(Cell);
-- 
cgit v1.2.3