Re: [Flashforth-devel] FF50 dspic33 - some missing words for fp

[Mikael N. <mik...@pp...>]

<div style="font-size:10pt;"><p style="margin-top:0;margin-bottom:0;">&nbsp;</p><p style="margin-top:0;margin-bottom:0;">: fconstant 2constant ;</p><p style="margin-top:0;margin-bottom:0;">: fliteral swap literal literal ;</p><p style="margin-top:0;margin-bottom:0;">&nbsp;</p><p style="margin-top:0;margin-bottom:0;">Simple :-)</p><p style="margin-top:0;margin-bottom:0;">&nbsp;</p><p style="margin-top:0;margin-bottom:0;">Mike</p><p style="margin-top:0;margin-bottom:0;">&nbsp;</p><div><signature_tag><p style="margin-top:0;margin-bottom:0;">Sent from my LG Mobile</p></signature_tag></div><p id="last_enter" style="margin-top:0;margin-bottom:0;">&nbsp;</p><p style="margin-top:0;margin-bottom:0;">&nbsp;</p><p style="margin-top:0;margin-bottom:0;">------ Original message------</p> <p style="margin-top:0;margin-bottom:0;"><b>From:&nbsp;</b>pito<pi...@vo...></p><p style="margin-top:0;margin-bottom:0;"><b>Date:&nbsp;</b>Sat, 12/07/2014 17:05</p><p style="margin-top:0;margin-bottom:0;"><b>To:&nbsp;</b>flashforth-devel;</p><p style="margin-top:0;margin-bottom:0;"><b>Subject:</b>Re: [Flashforth-devel] FF50 dspic33 - some missing words for fp</p><p style="margin-top:0;margin-bottom:0;">&nbsp;</p><pre>The !i and @i are used in:

: fconstant ( f -- )
 &nbsp;&nbsp;&nbsp;create , ,
 &nbsp;&nbsp;&nbsp;does&gt;
 &nbsp;&nbsp;&nbsp;dup @i swap 1+ @i swap 
;

: (fliteral) ( -- f )
 &nbsp;r@ 1+ @i r@ @i r&gt; 2 + &gt;r ;

: fliteral ( f -- )
 &nbsp;compile (fliteral) , , ; immediate
 &nbsp;
 &nbsp;
: set-precision ( u -- )
 &nbsp;abs [ ' precision 1+ ] literal !i ; 

The nop could be:

: nop 0= ;

What I miss is &quot;compile&quot; used in fliteral above, and sp0 and number.
Maybe there is a workaround..
P.



______________________________________________________________
&gt; Od: &quot;pito&quot;&nbsp;<pi...@vo...>
&gt; Komu: &quot;flashforth-devel&quot;&nbsp;<fla...@li...>
&gt; Datum: 12.07.2014 15:05
&gt; Předmět: FF50 dspic33 - some missing words for fp
&gt;
&gt;I am trying to load the Leon's fp library, which may work &quot;as-is&quot;. We do not need recogniser for the initial experiments, as we can enter the fp numbers as doubles.
&gt;I missed a few words there ie. ?dup 2&gt;r 2r&gt; which I added, still need the equivalents for
&gt;@i i !i compile not sp0 size number
&gt;
&gt;BTW where I can set the number of chars the FF50 reads from input?? It seems it does 75 only (even the rx buffer is 80 now)?
&gt;How can I increase the number to at least 80?
&gt;P.
&gt;

------------------------------------------------------------------------------
_______________________________________________
Flashforth-devel mailing list
Fla...@li...
https://lists.sourceforge.net/lists/listinfo/flashforth-devel
</pre></div>