From f12d59acb42f29d8572c85dd4076e32c93bfe439 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 18:04:08 +0900
Subject: [PATCH] Wrote 2nd stage interpreter!

---
 core.fs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/core.fs b/core.fs
index 85cba24..e44c62d 100644
--- a/core.fs
+++ b/core.fs
@@ -312,4 +312,21 @@ cG i,
 h@ k0k0-,   \ allocate 1 cell and fill 0
 cM~ i, 'L, , 'e, l!
 
+\ 'I'
+\ The 2nd Stage Interpreter
+cI i,
+\ <loop>
+    'W,     \ read name from input
+    'F,     \ find word
+    'G,     \ Get CFA
+    'M, '@, \ read state
+    'J, k4k0-C*,    \ goto <immediate_mode> if state=0
+\ <compile_mode>
+    ',,
+    'j, k0k9-C*,    \ goto <loop>
+\ <immediate_mode>
+    'x,
+    'j, k0k<-C*,    \ goto <loop>
+l!
+
 Q