Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-27 21:58:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Wrote 2nd stage interpreter!

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 18:04:08 +09:00
parent d42fb25bb3
commit f12d59acb4
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
core.fs
View file

@ -312,4 +312,21 @@ cG i,
h@ k0k0-, \ allocate 1 cell and fill 0 h@ k0k0-, \ allocate 1 cell and fill 0
cM~ i, 'L, , 'e, l! 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 Q