Re: [Amforth-devel] printing floats

[pito <pi...@vo...>]

FYI: f+ f- f* f/ duration (@25MHz):
> : measure
oktimer-start
ok400 0 do _pi fdup fdrop fdrop loop
oktimer-stop 400 s>f f/ fs. ." sec";
ok
> measure
2.6214392E-5 sec ok
> : measure
oktimer-start
ok400 0 do _pi fdup f+ fdrop loop
oktimer-stop 400 s>f f/ fs. ." sec";
ok
> measure
1.12721896E-3 sec ok
> : measure
oktimer-start
ok400 0 do _pi fdup f- fdrop loop
oktimer-stop 400 s>f f/ fs. ." sec";
ok
> measure
4.0108027E-3 sec ok
> : measure
oktimer-start
ok400 0 do _pi fdup f* fdrop loop
oktimer-stop 400 s>f f/ fs. ." sec";
ok
> measure
4.6923761E-3 sec ok
> : measure
oktimer-start
ok400 0 do _pi fdup f/ fdrop loop
oktimer-stop 400 s>f f/ fs. ." sec";
ok
> measure
1.33169138E-2 sec ok
>