Re: High Level Definition for U*/

On Nov 7, 2007, at 12:36 PM, Bob Nash wrote:

> I need a high level definition for U*/. The SF definition is a code
> definition. I need something that will transport to GForth (Linux).

Hello Bob

I have not a U*/ in the eforth library, I have:

: M* ( n n -- d )( 6.1.1810 )
   2DUP XOR 0< >R ABS SWAP ABS UM* R> IF DNEGATE THEN ;
: M/ ( d n -- q ) FM/MOD NIP ;

: */MOD ( n n n -- r q )( 6.1.0110 ) >R M* R> FM/MOD ;
: */ ( n n n -- q )( 6.1.0100 ) */MOD NIP ;

I suspect if something like this may work:

: u*/mod ( u u u -- r q ) >r um* r> um/mod ;
: u*/ ( u u u -- q ) u*/mod nip ;

But I may be wrong.

--
Bill Muench
Santa Cruz, California
----------------------------------------------------------------------
sftalk_at_forth.com      The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users.  For product support and
bug reports, please send email to support_at_forth.com
----------------------------------------------------------------------