| version 1.52, Wed Aug 9 20:04:06 2000 UTC | version 1.53, Fri Aug 11 19:49:39 2000 UTC | ||
|---|---|---|---|
|
|
||
| MAXU xor ; | MAXU xor ; | ||
| rshift ( u1 n -- u2 ) core r_shift | rshift ( u1 n -- u2 ) core r_shift | ||
| ""Logical shift right by @i{n} bits."" | |||
| u2 = u1>>n; | u2 = u1>>n; | ||
| : | : | ||
| 0 ?DO 2/ MAXI and LOOP ; | 0 ?DO 2/ MAXI and LOOP ; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |