It seems there are constants in float.frt defined as
0 0 fconstant f0 \ 0.0
0 16256 fconstant f1 \ 1.0
0 16672 fconstant f10 \ 10.0
0 16128 fconstant f0.5
So it needs to be redefined - something like _f0, _f1, _f10 ...
p.
- PŮVODNÍ ZPRÁVA -
Od: "pito"
Komu: amforth-devel@lists.sourcefor
Hmm, following gives different results in 4.9:
> hex
ok
> : LCD_PORT F0 PORTC ;
ok
> LCD_PORT
ok
> .s
28 0 0 ok
> ..
.. ?? -13 2
> : LCD_PORT $F0 PORTC ;
ok
> LCD_PORT
ok
> .s
28 F0 ok
>
--
Live Security Virtual Conf
Hmm, be sure the "decimal" is set before loading float librar !! Or
better, ad decimal at the beginning of float lib :)
> 1.222e-4 3.444e12 f* fs.
4.20857E8 ok
> 3.0 2.0 f/ fs.
1.5E0 ok
>
p.
- PŮVODNÍ ZPRÁVA -
Od: "pito"
Komu: amforth-devel@lists.sourceforge.net
Předmět: Re: [Amfor
Hi Pito,
On 05/12/2012 09:59 PM, pito wrote:
>> ' rec-float place-rec
> ok
>> >
> ok
>> > \ again, the next line is for convienence, not nescessity
> ok
>> > marker ->afterfloat
> ok
>> > 2.33e-6 8.99e11 f* fp.
> 2.33e-6 ?? -13 7
I suspect that the order of recognizers is not good.
Check the o
So with get-recognizer.asm and set-recognizer.asm enabled and
compiled and with latest Leon's lib with following change (count
removed):
.
> : rec-float >float
ok if
okstate @ if
ok postpone fliteral
okthen
ok-1
ok else
ok0
ok then
ok;
ok
>
ok
> : place-rec ( xt -- )
..so we need to load set-recognizer.asm and get-recogniser.asm, do
we?
- PŮVODNÍ ZPRÁVA -
Od: "pito"
Komu: "Everything around amforth"
Předmět: Re: [Amforth] Float with v4.9 (trunk) - recognizers
Datum: 12.5.2012 - 21:11:28
> I took the stuff from trunk
>
> \ recognizer is a featur
I took the stuff from trunk
\ recognizer is a feature that is available for amforth 4.3 and up
\ since 4.5 counted strings are replaced by addr/len information
: rec-float >float
if
state @ if
postpone fliteral
then
-1
else
0
then
;
\ ' rec-float place-rec
but it does not recognise the
Hi Pito,
> Hi, as expected this last 2 words from Leon's latest float lib give
> errors with 4.9 (in count, get-recognizer)
> ...
> \ recognizer is a feature that is available for amforth 4.3 and up
> : rec-float count >float
...
>
> Any hint how to get it work with 4.9?
There are a few optio
Hi, as expected this last 2 words from Leon's latest float lib give
errors with 4.9 (in count, get-recognizer)
...
\ recognizer is a feature that is available for amforth 4.3 and up
: rec-float count >float
if
state @ if
postpone fliteral
then
-1
else
0
then
;
: place-rec ( xt -- )
get-recognize
Hello,
I'm looking for a copy of the booklet "Tiny Pascal in Fig-Forth"
Can someone help me with this?
A long time ago I own this booklet, but now it is going!
Any form is welcome.
Cheers,
Jan kromhout
Sacharovlaan 3
3223HM Hellevoetsluis-NL
-
10 matches
Mail list logo
