Forth-eV Wiki

User Tools

Site Tools

You are here: Forth Wiki » Forth-ev Wiki » pfw » Shifting doubles: DLSHIFT and DRSHIFT
Trace:
en:pfw:dlshift_drshift

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
Last revisionBoth sides next revision
en:pfw:dlshift_drshift [2024-04-04 23:51] – [Test results (noForth t)] alberten:pfw:dlshift_drshift [2024-04-09 14:40] – [Test code] albert
Line 11: Line 11:
 decimal  decimal 
 : DLSHIFT ( lo hi n -- lo' hi' )    \ n in [0,32*2] : DLSHIFT ( lo hi n -- lo' hi' )    \ n in [0,32*2]
-    tuck lshift >r              \ hi' +    tuck lshift >r          \ hi' 
-    2dup 32 - negate rshift >r  \ upper lo to lower hi +    2dup 32 -  
-    2dup 32 - lshift >r         \ lower lo to upper hi +    2dup   lshift >r        \ lower lo to upper hi 
-    lshift                      \ lo' +    negate rshift >r        \ upper lo to lower hi 
-    2r> r> or or   ;            \ build hi' +    lshift                  \ lo' 
 +    2r> r> or or   ;        \ compose hi' 
 +    
 : DRSHIFT ( lo hi n -- lo' hi' )    \ n in [0,32*2] : DRSHIFT ( lo hi n -- lo' hi' )    \ n in [0,32*2]
-    tuck 2dup rshift >r         \ hi' +    tuck 2dup rshift >r     \ hi' 
-    2dup 32 - negate lshift >r  \ lower hi to upper lo +    32 - 
-    32 - rshift >r              \ upper hi to lower lo +    2dup   rshift >r        \ upper hi to lower lo 
-    rshift 2r> or or            \ build lo' +    negate lshift >r        \ lower hi to upper lo 
-    r> ;                        \ hi'+    rshift 2r> or or        \ compose lo' 
 +    r> ;                    \ hi'
 </code> </code>
 ===== Possibly a problem ===== ===== Possibly a problem =====
Line 38: Line 40:
 : (TEST) ( ud ud -- ) 2over 2over du.hex du.hex : (TEST) ( ud ud -- ) 2over 2over du.hex du.hex
     cr ." #shifts dlshift--------- drshift---------"     cr ." #shifts dlshift--------- drshift---------"
-    32 2* 3 +   -2+    32 2* 2 +   -2
     do cr i 3 and 0= if cr then i 7 .r space     do cr i 3 and 0= if cr then i 7 .r space
         2over 2over i dlshift du.hex i drshift du.hex         2over 2over i dlshift du.hex i drshift du.hex
en/pfw/dlshift_drshift.txt · Last modified: 2024-04-09 14:41 by albert