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 rpick

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 18:19:26 +09:00
parent e000fb42ae
commit b1ed4e474a
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -562,6 +562,11 @@ alias-builtin xor ^
: rdrop r> rp@ ! ; \ ( R:w -- ) : rdrop r> rp@ ! ; \ ( R:w -- )
\ ( R xu ... x0 u -- xu ... x0 xu )
: rpick
cells rp@ + cell + @
;
\ ( -- a-addr ) \ ( -- a-addr )
\ The bottom address of stacks. \ The bottom address of stacks.
\ sp@ and rp@ points bottom if implementation so far is correct. \ sp@ and rp@ points bottom if implementation so far is correct.