Got it.

If all you want to test is that f+, f-, f*, and f/ do what they're supposed to 
do, then make floats from single length integers with "s>f", then do what you 
want and convert them back to integers with "f>s" (that doesn't round -- it 
just truncates the part after the decimal point).

For now, there's no direct way to display or make non-integers, but you can do 
it indirectly by dividing or multpilying by powers of 10 (e.g. you can get 
0.125 by "125 s>f 1000 s>f f/")

-Leon

On Friday, August 27, 2010 04:21:35 pm pito wrote:
> s>f defined after the first usage....You have to relocate the
> Conversion words on the better place within the code(:-)). After the
> second upload it has been taken. So now how to test??? I have no
> idea... Float, float..P/
> 
> 
> ----- PŮVODNÍ ZPRÁVA -----
> Od: "pito" <[email protected]>
> Komu: [email protected]
> Předmět: [Amforth-devel] Leon's float
> Datum: 27.8.2010 - 23:03:31
> 
> > Hi Leon,
> > I've tried to upload to my new 1284p, but getting
> > this error:
> > 
> > .....
> > 
> > > : f/ ( f1 f2 -- f1/f2 )
> > 
> > okfdup f0= abort" division by zero "
> > okfzeroexponent >r ( f1 f2, R: n2 )
> > okfswap fzeroexponent r> - >r fswap ( f1 f2, R:
> > n1-n2 )
> > okf0 frot frot ( sum remainder divisor, R:
> > exponent )
> > ok[ 1 s>f ] frot frot ( sum toadd remainder
> > divisor, R: exponent )
> > ^
> > ?? -13 8
> > 
> > > 25 0 do
> > 
> > ok
> > 
> > > fover f0= if leave then  <<<<<<< here it crashed
> > > so reset was
> > > 
> > > > required
> > 
> > Any prerequisite needed?
> > Pito
> > 
> > 
> > -------------------------------------------------------------------------
> > -----
> > 
> > > Sell apps to millions through the Intel(R)
> > 
> > Atom(Tm) Developer Program
> > Be part of this innovative community and reach
> > millions of netbook users
> > worldwide. Take advantage of special opportunities
> > to increase revenue and
> > speed time-to-market. Join now, and jumpstart your
> > future.
> > http://p.sf.net/sfu/intel-atom-d2d
> > _______________________________________________
> > Amforth-devel mailing list
> > [email protected]
> > https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 
> ---------------------------------------------------------------------------
> --- Sell apps to millions through the Intel(R) Atom(Tm) Developer Program
> Be part of this innovative community and reach millions of netbook users
> worldwide. Take advantage of special opportunities to increase revenue and
> speed time-to-market. Join now, and jumpstart your future.
> http://p.sf.net/sfu/intel-atom-d2d
> _______________________________________________
> Amforth-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

------------------------------------------------------------------------------
Sell apps to millions through the Intel(R) Atom(Tm) Developer Program
Be part of this innovative community and reach millions of netbook users 
worldwide. Take advantage of special opportunities to increase revenue and 
speed time-to-market. Join now, and jumpstart your future.
http://p.sf.net/sfu/intel-atom-d2d
_______________________________________________
Amforth-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to