[Amforth-devel] Leon's float

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

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