aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt
blob: 94959d44d7c0b2a836d8653e48e91bbe72ffb60a (plain)
1
2
3
4
5
6
7

: m*/ ( d1 n2 u3 -- dquot ) \ double m-star-slash
    >r s>d >r abs rot rot
    s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*
    swap >r 0 d+ r> rot rot r@ um/mod rot rot r> um/mod
    nip swap r> if dnegate then
;