\ @(#) math.fth 98/01/26 1.2
\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
\ Permission to use, copy, modify, and/or distribute this
\ software for any purpose with or without fee is hereby granted.
\ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
\ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
\ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
\ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
\ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
\ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
\ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
\ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
: FM/MOD { dl dh nn | dlp dhp nnp rem quo -- rem quo , floored }
dlp dhp nnp um/mod -> quo -> rem
: SM/REM { dl dh nn | dlp dhp nnp rem quo -- rem quo , symmetric }
dlp dhp nnp um/mod -> quo -> rem
: /MOD ( a b -- rem quo )
: */MOD ( a b c -- rem a*b/c , use double precision intermediate value )
: */ ( a b c -- a*b/c , use double precision intermediate value )