From 074202db25f30590bc01762c618770d445a97532 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 18:23:02 +0900
Subject: [PATCH] Fix "I"

---
 core.fs | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/core.fs b/core.fs
index e44c62d..7927d5c 100644
--- a/core.fs
+++ b/core.fs
@@ -316,17 +316,20 @@ cM~ i, 'L, , 'e, l!
 \ 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>
+    'W,                 \ read name from input
+    'F,                 \ find word
+    'M, '@,             \ read state
+    'J, kAk0-C*,        \ goto <immediate> if state=0
+\ <compile>
+        '#, 'C, '+, '?, \ ( w len+flag )
+        'L, k@k@+, '&,  \ test immediate bit
+        'L, k0k0-, '=,
+        'J, k5k0-C*,    \ goto <immediate> if immediate-bit=1
+        'G, ',,         \ compile CFA
+        'j, k0k;-C*,    \ goto <loop>
+\ <immediate>
+        'G, 'x,         \ execute CFA
+        'j, k0kI-C*,    \ goto <loop>
 l!
 
 Q