From 77ed386fdd09f1cee27c97d35e88dcc9848e1257 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sat, 13 Jul 2019 01:14:40 -0700
Subject: [PATCH] system interface fcode now supported

---
 asm/forth-dictionary.s | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index 870c2eb..4a789e0 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -398,6 +398,26 @@ hword     ddSYSINIT,"$$SYSINIT"
           .dword ALLOC            ; TODO: catch exception
           .dword dTIB
           .dword STORE
+          .if include_fcode
+          ONLIT SI_GET_FCODE      ; See if system wants us to evaluate FCode
+          .dword dSYSIF
+          .dword QDUP
+          .dword _IF
+          .dword no_fcode         ; apparently not
+lp:       .dword PtoR
+          .dword RCOPY
+          .dword FETCH
+          .dword QDUP
+          .dword _IF
+          .dword dn_fcode
+          .dword ONE
+          .dword BYTE_LOAD
+          .dword RtoP
+          .dword CELLPLUS
+          JUMP lp
+dn_fcode: .dword RDROP
+no_fcode:
+          .endif
           NLIT NOOP               ; set up STATUS defer.
           SLIT "STATUS"
           .dword dDEFER