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

Add +!, -! and allot

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-02 02:44:57 +09:00
parent f2ce995009
commit 8fc41ad39f
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
core.fs
View file

@ -770,4 +770,15 @@ alias-builtin xor ^
Now we can use multiline comment with ( nests. )
)
( === Memory Operation === )
: +! ( n a-addr -- ) tuck @ + swap ! ;
: -! ( n a-addr -- ) tuck @ - swap ! ;
\ allocate n bytes
: allot ( n -- c-addr )
here @ swap
here +!
;
bye