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

Wrote ','

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-30 22:51:29 +09:00
parent edde64d0c1
commit 1009da441a
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

@ -104,4 +104,21 @@ l!
\ That's all for the brief explanation. Let's restart bootstrap! \ That's all for the brief explanation. Let's restart bootstrap!
\ The COMMA operator
\ ',' ( a -- ) Store a to 'here' and increment 'here' CELL bytes.
h@l@h@! h@C+h!
k1k0-h@$ k,h@k1k0-+$ h@C+h!
i h@!h@C+h! \ docol
khf h@!h@C+h!
k@f h@!h@C+h!
k!f h@!h@C+h! \ store 'a' to here
khf h@!h@C+h!
k@f h@!h@C+h!
kCf h@!h@C+h!
k+f h@!h@C+h! \ compute here + CELL
khf h@!h@C+h!
k!f h@!h@C+h! \ here <- here + CELL
kef h@!h@C+h! \ exit
l!
Q Q