Re: [Amforth-devel] 2variable

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

I am trying with:

: 2variable ( "name" -- ) create 0 , 0 , ;

It seems the 2constant and 2variable needs the number entered as:

w_low w_high 2constant dollars    ( w_high*2^16 + w_low )

2variable euro
w_low w_high euro 2!

Does Amforth know somehow to compile double cell input? E.g.:

123456789 @constant dollars
98765432 euro 2!

Pito




----- PŮVODNÍ ZPRÁVA -----
Od: "pito" <pi...@vo...>
Komu: amf...@li...
Předmět: [Amforth-devel] 2variable
Datum: 7.7.2010 - 1:16:07

> Hi friends, I've found 2constant in lib but I cannot
> find 2variable in
> the libraries. Is that word available in amforth 4.0?
> I'm going to redo
> a routine I'm using in my PIC dev for a quite precise
> 1sec tick:
> int32 Ticker;
> TIMER2_FREQUENCY 19999870 (in Hz=xtal freq when atmega,
> /4 when pic)
> #int_TIMER2                               
> void TIMER2_isr()                          
> { 
> Ticker -= 65536;                        // Decrement
> ticker by clocks
> per interrupt (16bit timer), or 256*prescaler when
> atmega32 and timer2
> 
> if ( Ticker < 65536 )                   // If second
> has expired
> {  Ticker += TIMER1_FREQUENCY;          //   Increment
> ticker by clocks
> per second
> Seconds++;                           //   Increment
> number of seconds
> 
> } 
> 
> The 2variable is required for higher precision. Any
> help where to find
> 2variable?
> Pito.
> 
> 
> 
> 
> 
> ------------------------------------------------------------------------------
> > This SF.net email is sponsored by Sprint
> What will you do first with EVO, the first 4G phone?
> Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
> _______________________________________________
> Amforth-devel mailing list
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel