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 r@

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-10 17:34:16 +09:00
parent bfb5c2ad9a
commit 41f6ab0bca
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bootstrap.fs
View file

@ -577,6 +577,7 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: >r rp@ rp@ @ rp@ cell - dup rp! ! ! ; \ ( w -- R:w ) : >r rp@ rp@ @ rp@ cell - dup rp! ! ! ; \ ( w -- R:w )
: r> rp@ cell + @ rp@ @ rp@ cell + dup rp! ! ; \ ( R:w -- w) : r> rp@ cell + @ rp@ @ rp@ cell + dup rp! ! ; \ ( R:w -- w)
: r@ rp@ cell + @ ; \ ( -- w, R: w -- w )
: swap sp@ cell + dup @ >r ! r> ; \ ( a b -- b a ) : swap sp@ cell + dup @ >r ! r> ; \ ( a b -- b a )
: rot >r swap r> swap ; \ ( a b c -- b c a ) : rot >r swap r> swap ; \ ( a b c -- b c a )
@ -2408,7 +2409,7 @@ need-defined (read)
%allocate %allot char% cell% byte% ptr% int% field struct end-struct %allocate %allot char% cell% byte% ptr% int% field struct end-struct
sp0 sp@ sp! dup ?dup drop swap over tuck pick nip rot -rot sp0 sp@ sp! dup ?dup drop swap over tuck pick nip rot -rot
2rot -2rot 2tuck 2over 2nip 2swap 2dup 2drop 3dup 3drop depth 2rot -2rot 2tuck 2over 2nip 2swap 2dup 2drop 3dup 3drop depth
rp0 rp@ rp! r> >r rdrop rpick rdepth rp0 rp@ rp! r> >r r@ rdrop rpick rdepth
allocate allot memcpy strlen streq strcpy strcpy, allocate allot memcpy strlen streq strcpy strcpy,
cell cell+ cell- cells align aligned +! -! cell cell+ cell- cells align aligned +! -!