Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Replace "state" with "M"

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

16
core.fs
View file

@ -305,19 +305,11 @@ cG i,
'a, \ align
'e, l!
\ `state` variable (**The 1st multi-char word**)
\ 'M' ( -- c-addr)
\ The state variable
\ 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!
h@ k0k0-, \ allocate 1 cell and fill 0
cM~ i, 'L, , 'e, l!
Q