some cleanup

1 files changed, 12 insertions, 0 deletions

diff --git a/state.cpp b/state.cpp
index ae9c059..0fe0905 100644
--- a/state.cpp
+++ b/state.cpp
@@ -16,6 +16,7 @@
  * along with this program.  If not, see <https://www.gnu.org/licenses/>.
  */
 
+#include "corewords.hpp"
 #include "state.hpp"
 
 #include <iterator>
@@ -37,6 +38,17 @@ void State::compiling(bool yes)
     dict.write(Dictionary::Compiling, yes);
 }
 
+void State::execute(Addr addr)
+{
+    pushr(0);
+    ip = addr - sizeof(Cell);
+
+    do {
+        ip += sizeof(Cell);
+        CoreWords::run(dict.read(ip), *this);
+    } while (ip);
+}
+
 Cell State::beyondip() const
 {
     return dict.read(ip + sizeof(Cell));