ups, the not could be:
: not 0= ;
______________________________________________________________
> Od: "pito" <pi...@vo...>
> Komu: "flashforth-devel" <fla...@li...>
> Datum: 12.07.2014 16:05
> Předmět: Re: FF50 dspic33 - some missing words for fp
>
>The !i and @i are used in:
>
>: fconstant ( f -- )
> create , ,
> does>
> dup @i swap 1+ @i swap
>;
>
>: (fliteral) ( -- f )
> r@ 1+ @i r@ @i r> 2 + >r ;
>
>: fliteral ( f -- )
> compile (fliteral) , , ; immediate
>
>
>: set-precision ( u -- )
> abs [ ' precision 1+ ] literal !i ;
>
>The nop could be:
>
>: nop 0= ;
>
>What I miss is "compile" used in fliteral above, and sp0 and number.
>Maybe there is a workaround..
>P.
>
>
>
>______________________________________________________________
>> Od: "pito" <pi...@vo...>
>> Komu: "flashforth-devel" <fla...@li...>
>> Datum: 12.07.2014 15:05
>> Předmět: FF50 dspic33 - some missing words for fp
>>
>>I am trying to load the Leon's fp library, which may work "as-is". We do not need recogniser for the initial experiments, as we can enter the fp numbers as doubles.
>>I missed a few words there ie. ?dup 2>r 2r> which I added, still need the equivalents for
>>@i i !i compile not sp0 size number
>>
>>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)?
>>How can I increase the number to at least 80?
>>P.
>>
>
|