\ dnegate d1 -- d2 32 bit negate : dnegate swap invert swap invert 1. d+ \ <<<< Pito: was " 1 m+ " ;
PS: maybe we shall merge 2x.frt and math.frt and add (an example): \ m+ ( d1 n -- d2 ) : m+ s>d d+ ; : dxor ( d1 d2 -- d ) rot xor >r xor r> ; \ double xor : dor ( d1 d2 -- d ) rot or >r or r> ; \ double or : dand ( d1 d2 -- d ) rot and >r and r> ; \ double and : sd* ( multiplicand multiplier_double -- product_double ) >r over r> * >r um* r> + ; \ single * double = double : dmax 2over 2over d< if 2swap then 2drop ; : dmin 2over 2over d< 0= if 2swap then 2drop ; ------------------------------------------------------------------------------ Start uncovering the many advantages of virtual appliances and start using them to simplify application deployment and accelerate your shift to cloud computing. http://p.sf.net/sfu/novell-sfdev2dev _______________________________________________ Amforth-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/amforth-devel
