|
version 1.136, 2003/08/17 12:21:05
|
version 1.137, 2003/08/17 22:52:33
|
|
Line 793 ud = ummul(u1,u2);
|
Line 793 ud = ummul(u1,u2);
|
| ud = (UDCell)u1 * (UDCell)u2; |
ud = (UDCell)u1 * (UDCell)u2; |
| #endif |
#endif |
| : |
: |
| >r >r 0 0 r> r> [ 8 cells ] literal 0 |
0 -rot dup [ 8 cells ] literal - |
| DO |
DO |
| over >r dup >r 0< and d2*+ drop |
dup 0< I' and d2*+ drop |
| r> 2* r> swap |
LOOP ; |
| LOOP 2drop ; |
|
| : d2*+ ( ud n -- ud+n c ) |
: d2*+ ( ud n -- ud+n c ) |
| over MINI |
over MINI |
| and >r >r 2dup d+ swap r> + swap r> ; |
and >r >r 2dup d+ swap r> + swap r> ; |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth