6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-01-23 14:30:12 +00:00
Code Issues Projects Releases Wiki Activity

system interface fcode now supported

Browse Source
This commit is contained in:
mgcaret 2019-07-13 01:14:40 -07:00
parent 63fb66bfb2
commit 77ed386fdd
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
asm/forth-dictionary.s
View File

@ -398,6 +398,26 @@ hword ddSYSINIT,"$$SYSINIT"
.dword ALLOC ; TODO: catch exception .dword ALLOC ; TODO: catch exception
.dword dTIB .dword dTIB
.dword STORE .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. NLIT NOOP ; set up STATUS defer.
SLIT "STATUS" SLIT "STATUS"
.dword dDEFER .dword dDEFER