system interface fcode now supported

2019-07-13 01:14:40 -07:00 · 2019-07-13 01:14:40 -07:00 · 77ed386fdd
parent 63fb66bfb2
commit 77ed386fdd
1 changed files with 20 additions and 0 deletions
--- 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