crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

double cell example: fix shift directions

Browse source 
FossilOrigin-Name: 09fc476ef1e3c4169d6bb43adb5e4a061f363a692ed2bbed75ad318eaa8e374e
This commit is contained in:
crc 2023-09-20 12:00:49 +00:00
parent fb38ef58f2
commit 2e81e348d5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
example/double.retro
View file

@ -49,8 +49,8 @@ small changes (see the `dn:div` in particular).
dn:new !~res dn:new !~res
dup-pair dn:lows n:div @~res dn:l! dup-pair dn:lows n:div @~res dn:l!
dup-pair dup-pair
[ dn:h@ ] [ dn:l@ ] bi* n:div #1 shift-left [ dn:h@ ] [ dn:l@ ] bi* n:div #-1 shift
[ [ dn:l@ ] [ dn:h@ ] bi* n:mod #31 shift-right ] dip n:add [ [ dn:l@ ] [ dn:h@ ] bi* n:mod #31 shift ] dip n:add
@~res dn:h! @~res dn:h!
@~res ; @~res ;
~~~ ~~~