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

Add 'state' variable

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 15:52:39 +09:00
parent eb56e988e3
commit 465dcae4e4
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
core.fs
View file

@ -313,4 +313,20 @@ cG i,
'L, k1k0-, '+, \ add 1 to the addr (1byte for len+field)
'a, \ align
'e, l!
\ `state` variable (**The 1st multi-char word**)
\ 0: immediate mode
\ 1: compile mode
h@ \ save address of cell
k0k0-, \ allocate 1 cell and fill 0
h@ \ save address of word
W state \ ( cell word name u )
l@, \ fill link
#B \ fill length ( cell word name u )
#{ \ preserve u
h@~m \ fill name ( cell word )
h@ } + h! \ restore u, increment here
A \ align here
i, 'L, ~, 'e, l!
Q