gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.38, 2000/04/27 08:51:33	version 1.39, 2000/08/08 12:37:05
Line 42 decimal	Line 42 decimal

' drop alias d>s ( d -- n ) \ double d_to_s	' drop alias d>s ( d -- n ) \ double d_to_s

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