amforth-devel — Development discussion and user support

Re: [Amforth-devel] Avra 1.3 released

[Ian J. <ij...@sa...>]

I will try.

My FreeBSD box has been down for a year :-( mainly because it's owner was pre-occupied with relocation but also from some shipping damage.  Now I'm updating my ports to get "git" then avra1.3 and amforth 4.0.

Jerry wrote back to me and was very positive about adding additional devices to avra.  This time around I'll attempt to create diff patches for amforth sources and also provide feedback to the avra project.  You are right about avra/avrasm2 I forgot most of the difficulties related to compatibility.

I'm anxious to try out the butterfly application with the changes Michael mentioned.

Ian

On 2010-07-08, at 6:28 AM, Matthias Trute wrote:

> Ian,
> 
>> 
>> Avra 1.3 was released.  I have asked one of the project managers Jerry 
>> Jacobs how to contribute additional device support to the official 
>> release.
> 
> It would be cool if avra could compile the whole amforth system (again).
> There are not only the devices missing but also some features of the
> assembler itself (esp avrasm2 compatability).
> 
> Matthias
> 
> ------------------------------------------------------------------------------
> 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

It's not worth it without T.B.
ij...@sa...

Re: [Amforth-devel] Thanks

[Matthias T. <mt...@we...>]

Leon,

> To avoid future problems, I do have a couple related quick questions. The FAQ 
> notes the default 1MHz clock (8 MHz internal RC clock divided by 8) can be 
> unreliable and suggests: "Try to maximize the CPU frequency." What are the 
> symptoms of this problem?

You get no terminal prompt or (too much) garbage there.

> Just not being able to get the serial communication 
> to work? Does it help to use the internal clock but not divide by 8 (giving an 
> 8MHz clock), or is inaccuracy with the internal clock part of the problem?

Using the full 8MHz may solve some or most of the problems, the better
solution is a so called baud rate quartz (e.g. 14,... MHz)

Matthias

PS: What terminal app do use use on you Mac? looks funny

Re: [Amforth-devel] Avra 1.3 released

[Matthias T. <mt...@we...>]

Ian,

> 
> Avra 1.3 was released.  I have asked one of the project managers Jerry 
> Jacobs how to contribute additional device support to the official 
> release.

It would be cool if avra could compile the whole amforth system (again).
There are not only the devices missing but also some features of the
assembler itself (esp avrasm2 compatability).

Matthias

Re: [Amforth-devel] Help with word definition- redef

[Matthias T. <mt...@we...>]

Hi Pito,

> Hi dear friends,
> as I am a newbie in forth I would kindly ask you for a minor help with
> a definition of a new word - "redef"
> 
> : redef ( string"word" -- n1 )
> 
> 1. n1 = 0, it finds the address ADDR_LAST of "word" (from the newest
> side - lefthandside)and memorise it; if not n1=-1 and exit
> 2. it finds the address of the next "word" (the next olderer in the word
> list) and replaces its address with the address in ADDR_LAST; n1++
> 3. repeats till the end of the wordlist (to the very righthandside word)


That's definitly not a task for a forth "beginner" and goes very deep
into the code of amforth. Sorry, but I cannot provide any assistance
here and now.

Matthias

Re: [Amforth-devel] USART.asm driver - U2X and baud error

[Matthias T. <mt...@we...>]

Hi Pito,

> I see in usart.asm driver you are not considering U2X (which may improve
> baudrate precision for certain combinations). Also error is set to +/-
> 1% max. So when compiling one gets "systematic baud errors .." even
> when the combination may work properly. It is not so important and probaly
> your intention, however I did some experiments with baudrates and Xtals
> and I saw that message even I know that a combination is correct.

I picked up the settings based upon readings I found in various sites of
teh internet and they work most of the time well. The error range is
based upon the same basis. remember that amforth runs on a wide variety
of controllers with different usart module versions. feel free to adapt
the code to whatever suits you, it's easy.

Matthias

Re: [Amforth-devel] Thanks

[<an...@ki...>]

Excellent, well done.

I am just doing a first trial build of my design for a single sided 644
board. Got the wrong 40 pin dil package width. I guess this is why we do
trial builds.

I am using 16Mhz crystal though.

Something that the arduino folk found ages ago was that certain clock
frequencys don't divide down correctly with the provided options to give
baud rates that are close enough to the established usuals in terms of
error factor.

I did'nt follow the discussion in their forums that closely but
reference to the issues may still be there.

Funnily enough 16Mhz the frequency that the arduino's use was found to
be a good match.

I have had acceptable results with 20Mhz xtals as well.

Cheers

Andy Kirby





On 08/07/10 05:33, Leon Nathaniel Maurer wrote:
> It looks like I've got amforth working (photographic evidence: 
> http://tinyurl.com/2d7cddx) -- thanks for your help!
> 
> To avoid future problems, I do have a couple related quick questions. The FAQ 
> notes the default 1MHz clock (8 MHz internal RC clock divided by 8) can be 
> unreliable and suggests: "Try to maximize the CPU frequency." What are the 
> symptoms of this problem? Just not being able to get the serial communication 
> to work? Does it help to use the internal clock but not divide by 8 (giving an 
> 8MHz clock), or is inaccuracy with the internal clock part of the problem?
> 
> Thanks.
> -Leon
> 
> ------------------------------------------------------------------------------
> 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
> 

[Amforth-devel] Thanks

[Leon N. M. <leo...@gm...>]

It looks like I've got amforth working (photographic evidence: 
http://tinyurl.com/2d7cddx) -- thanks for your help!

To avoid future problems, I do have a couple related quick questions. The FAQ 
notes the default 1MHz clock (8 MHz internal RC clock divided by 8) can be 
unreliable and suggests: "Try to maximize the CPU frequency." What are the 
symptoms of this problem? Just not being able to get the serial communication 
to work? Does it help to use the internal clock but not divide by 8 (giving an 
8MHz clock), or is inaccuracy with the internal clock part of the problem?

Thanks.
-Leon

[Amforth-devel] Avra 1.3 released

[Ian J. <ij...@sa...>]

FYI.

Avra 1.3 was released.  I have asked one of the project managers Jerry 
Jacobs how to contribute additional device support to the official 
release.  I'm not sure I am capable but there are very smart people on 
this list.

Happy to see activity!  Good luck with the bosons.

Ian

Re: [Amforth-devel] 2variable

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

I've used other 2variable definition, it works as well (hopefully).
The Higgs boson is waiting for 14billion years, so let him wait.. Pito

----- PŮVODNÍ ZPRÁVA -----
Od: "Matthias Trute" <mt...@we...>
Komu: "Everything around amforth" <amf...@li...>
Předmět: Re: [Amforth-devel] 2variable
Datum: 7.7.2010 - 20:54:48

> Am Mittwoch, den 07.07.2010, 01:16 +0200 schrieb pito:
> 
> > Hi friends, I've found 2constant in lib but I cannot
> > find 2variable in
> > > the libraries. Is that word available in amforth
> > 4.0?
> > 
> basically yes, but you need to load the file lib/ans94/2x.frt
> and use
> the following definition as well
> 
> : 2variable
> here 2 cells allot constant
> ;
> 
> Matthias
> 
> PS: I need some more time to read your remaining emails,
> the higgs boson
> has to wait slightly longer...
> 

Re: [Amforth-devel] 2variable

[Matthias T. <mt...@we...>]

Am Mittwoch, den 07.07.2010, 01:16 +0200 schrieb pito: 
> Hi friends, I've found 2constant in lib but I cannot find 2variable in
> the libraries. Is that word available in amforth 4.0?

basically yes, but you need to load the file lib/ans94/2x.frt and use
the following definition as well

: 2variable
    here 2 cells allot constant
;

Matthias

PS: I need some more time to read your remaining emails, the higgs boson
has to wait slightly longer...

[Amforth-devel] Any Crystal Zero Drift Clock

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

Hi dear friends,
this is a small routine for generating 1 second with any value Xtal,
using F_CPU only (no need for 32Khz external clock). Precision is subject
to knowing the CPU Xtal frequency as precise as possible. Not optimised
yet. Thanks Erich for tick_isr clarification.

marker _zerodriftclock_

\ ZERO DRIFT CLOCK 
\ IT USES F_CPU ONLY (XTAL FREQUENCY SHALL BE KNOWN AS PRECISE AS POSSIBLE)
\ IT WORKS WITH ANY VALUE XTAL !
\ SECONDS ARE INCREMENTED IN 1 SEC INTERVAL
\ USES TIMER2 ATMEGA32

decimal

2variable ticker
variable seconds

262144. 2constant clkpi    ( clk per interrupt = 256*prescaler )
1. ticker 2!
0 seconds !

\ overflow2 interupt service routine
\ ! not optimised yet
: tick_isr
ticker 2@ clkpi d- ticker 2!
ticker 2@ clkpi d< if  f_cpu ticker 2@ d+ ticker 2!
1 seconds +!
then ;

hex
\ enable ticks
: +ticks
7 TCCR2 c! ( 00000111b = f_cpu clock/1024 )
0 ASSR  c! ( source: internal clock f_cpu)
['] tick_isr TIMER2_OVFAddr int! ( register interupt )
TIMSK c@ 40 or TIMSK c! ( enable timer2 interupt ) ;

\ disable ticks
: -ticks
TIMSK c@
[ 40 invert ff and ] literal and TIMSK c! ( clr timer2 ) ;

decimal
: shwticker 1000 0 do cr ticker 2@ d. space seconds @ u. loop ;
: shwsec seconds @ u. ;

Re: [Amforth-devel] 2variable

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

google knows - trailing dot.....:
> 2variable euro1
ok
> 1300200100. 2constant euro2
ok
> 1300200100. euro1 2!
ok
> euro2 euro1 2@ d+ ud.
2600400200  ok
> Pito



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

> 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
> > 
> 

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

[Amforth-devel] 2variable

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

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.

Re: [Amforth-devel] Interrupts handling

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

Erich,
thanks for the answer! My first lessons learned are:

An user interrupt routine word e.g.:

: tick_isr ...

is registered by following procedure:

['] tick_isr TIMER2_OVFAddr int! ( register interupt )

This is probably the same as seen in another example:

940C 0006 i! ' kbd_clk i@ 0007 i!  \ Set INT2 vector

There is a list of interrupt addresses (vectors) in each particular device
file, e.g.for atmega32:
\ Interrupts
002  constant INT0Addr \ External Interrupt Request 0
004  constant INT1Addr \ External Interrupt Request 1
006  constant INT2Addr \ External Interrupt Request 2
008  constant TIMER2_COMPAddr \ Timer/Counter2 Compare Match
00A  constant TIMER2_OVFAddr \ Timer/Counter2 Overflow
00C  constant TIMER1_CAPTAddr \ Timer/Counter1 Capture Event
00E  constant TIMER1_COMPAAddr \ Timer/Counter1 Compare Match A
010  constant TIMER1_COMPBAddr \ Timer/Counter1 Compare Match B
012  constant TIMER1_OVFAddr \ Timer/Counter1 Overflow
014  constant TIMER0_COMPAddr \ Timer/Counter0 Compare Match
016  constant TIMER0_OVFAddr \ Timer/Counter0 Overflow
018  constant SPI_STCAddr \ Serial Transfer Complete
01A  constant USART_RXCAddr \ USART, Rx Complete
01C  constant USART_UDREAddr \ USART Data Register Empty
01E  constant USART_TXCAddr \ USART, Tx Complete
020  constant ADCAddr \ ADC Conversion Complete
022  constant EE_RDYAddr \ EEPROM Ready
024  constant ANA_COMPAddr \ Analog Comparator
026  constant TWIAddr \ 2-wire Serial Interface
28  constant SPM_RDYAddr \ Store Program Memory Ready.

So I may register my ISR word by above procedure to any interrupt addresses
(vectors) above.

After registering the user's word with interrupt handler vector the interrupt
occured will call the defined word.
Q: can I assign my words to any and all above vectors?
Q: shall I somehow clear interrupt flags or it is done automatically?

Pito

----- PŮVODNÍ ZPRÁVA -----
Od: "Erich Waelde" <ew....@na...>
Komu: amf...@li...
Předmět: Re: [Amforth-devel] Interrupts handling
Datum: 5.7.2010 - 21:29:12

> Hello,
> 
> Interrupt Handling in amforth:
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> http://amforth.sourceforge.net/howto.html says:

Re: [Amforth-devel] Interrupts handling

[Erich W. <ew....@na...>]

Hello,

Interrupt Handling in amforth:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
http://amforth.sourceforge.net/howto.html says:


 >   1.  The low-level interrupt routine stores the
 >       index of the interrupt in a RAM cell (not directly
 >       accessible from amforth)
 >   2.  sets the T-flag in the status register to signal
 >       the inner interpreter that an interrupt needs attention.

In other words:
**lower half**
a "default isr (interrupt service routine)" is registered to every
interrupt with the exception of the rx/tx for your serial connection.

e.g. in amforth/core/devices/atmega32/device.asm you find
.org $002
          rcall isr ; External Interrupt Request 0
.org $004
          rcall isr ; External Interrupt Request 1
...

where isr is defined in amforth/core/drivers/generic-isr.asm as
It determines the interrupt number and stores that on the stack,
and it sets the T flag in the status register.

**upper half**
The inner interpreter loop will react on the T flag and call the
registered amforth ISR from a table of ISR functions (exec tokens,
that is). The default entry in this table points to "' noop", hence
does nothing.

So there are 3 options for interrupt handling:

1. write an ISR in forth and register it it the upper half dispatch table
2. write an ISR in assembler and register it to the lower half addresses
3. write an ISR in forth and do some tricky return stack juggling to have
    your ISR called sooner than in 2.


1. write an ISR in forth and register it it the upper half dispatch table
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
simple example:
--- clock_tick.frt ---
\ count clock ticks from timer2 overflows:

variable timer2

hex
\ overflow2 interupt service routine
\ increment tick
: tick_isr
   1 timer2 +!
;

\ enable ticks
\ crystal:   32768 /sec
\ clock src: 32768 /sec
\ overflow:  32768/256 = 128 /sec =^= 7.8125 milli-sec ticks
: +ticks
   1 TCCR2 c! ( 001 = clock_ts2/1 )
   8 ASSR  c! ( source: 32 kiHz crystal )
   ['] tick_isr TIMER2_OVFAddr int! ( register interupt )
   TIMSK c@ 40 or TIMSK c! ( enable timer2 interupt )
;

\ disable ticks
: -ticks
   TIMSK c@
   [ 40 invert ff and ] literal
   and TIMSK c! ( clr Timer 2 )
;
--- end ---

The function "tick_isr" does nothing else but increment a forth variable,
namely timer2. This function is registered
     ['] tick_isr TIMER2_OVAddr int!
when +ticks is called. After that reading the variable timer2 will result in
changing values as time goes by.

HOWEVER: the interrupt is taken care of when the inner interpreter loop is
entered again. So if your program is stuck somewhere such that this loop
is not reached any more, you are out of luck.

AND HOWEVER: in the case of timer overflows, there is no interrupt flag to clear
in any register. For pretty much everything else, you need to clear the
corresponding flag. Then you need to do it differently:


2. write an ISR in assembler and register it to the lower half addresses
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Go to read the relevant files dealing with the serial interface.


3. write an ISR in forth and do some tricky return stack juggling to have
    your ISR called sooner than in 2.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
There is another way to handle interrupts: the lower half isr will
determine not only which interrupt was triggered, but also the execution
token XT of the word registered to handle this interrupt. This XT is
put onto the return stack. SO when the current word is completed, the
return stack is consulted to determine, where to jump back to. Now
this will call the ISR sooner than entering the inner interpreter loop.
At least, this is how I understood it.

An example can be found here:
http://www.forth-ev.de/filemgmt/visit.php?lid=294
4th Dimension, issue 1/2010, Text in German, Code in amforth
on an atmega162



I would like to mention one more thing:

There is a multitasker available in in amforth. It is a cooperative
multitasker, so every task needs to call "pause" at interruptible
places. Then some stack acrobatik will switch to a different set
of data and return stack and correct the relevant pointers. The next
task is running up to the next pause. At the end of the list, the
first task is serviced again.

I use this setup:
timer2 creates a clock (clock source is a crystal at 32768 Hz) and
drives a counter.
Task 1 in a loop checks the counter, does all the bookkeeping for ticks,
seconds, minutes ....  and dispatches calls to jobs associated with
these intervalls. E.g. job.sec will read sensors if the second is a
multiple of 10.

Task 2 just services the serial interface.

Thus I can talk to the controller, e.g. requesting it to send data,
while Task 1 keeps on working. This is sufficient for everything
I am doing so far.

Check the amforth/applications/ewlib directory for pieces of code.

Please, correct me if I'm wrong on any of the above.
Hope this helps.

Cheers,
Erich

On 07/05/2010 12:22 AM, pito wrote:
> Hi dear friends,
> finally I started to read the docs. The chapter on interrupts is for
> me too difficult to understand so my Q:
> 1. how are actually interrupts handled? I've seen the source of Lubos
> Pekny's keyboard driver, but it is too complex to understand the concept
> 2. I am running the sieve demo and e.g. I'd like to unterrupt simply
> the interations by ctrl-C. How shall this be done?
> 3. Is there an access to ISR? Can I put something in it?
> 4. How the OS is using interrupts? Any periodic activity (ticks, heartbeat..)
> 5. How to write a simple interrupt routine? Any simple example? E.g.
> from rx?
> Thanks a lot, 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

Re: [Amforth-devel] Help with word definition- redef

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

Correction:
2. it finds the address of the next "word" (the next olderer in the word
list) and replaces its header with a JUMP to the address in ADDR_LAST;
n1++


----- PŮVODNÍ ZPRÁVA -----
Od: "pito" <pi...@vo...>
Komu: amf...@li...
Předmět: Help with word definition- redef
Datum: 5.7.2010 - 18:19:43

> Hi dear friends,
> as I am a newbie in forth I would kindly ask you for
> a minor help with
> a definition of a new word - "redef"
> 
> : redef ( string"word" -- n1 )
> 
> 1. n1 = 0, it finds the address ADDR_LAST of "word"
> (from the newest
> side - lefthandside)and memorise it; if not n1=-1 and
> exit
> 2. it finds the address of the next "word" (the next
> olderer in the word
> list) and replaces its address with the address in
> ADDR_LAST; n1++
> 3. repeats till the end of the wordlist (to the very
> righthandside word)
> 
> ;
> 
> Example:
> > words
> redef sqrt power voltage current sqrt current sqrt
> power sqrt .......
> > sqrt redef
> 3 ok
> > words
> redef sqrt power voltage current SQRT current SQRT
> power SQRT .......
> 
> where the SQRT (capitals for clarity only) will have
> a JUMP to sqrt in
> their header. So any call to sqrt, even from old instances
> in any other
> older words (which are using sqrt) will point to sqrt.
> So at the end of day the newest sqrt (very lefthanside)
> will be used
> only.
> Any help would be appreciated. Pito.
> 
> 
> 
> 

[Amforth-devel] Help with word definition- redef

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

Hi dear friends,
as I am a newbie in forth I would kindly ask you for a minor help with
a definition of a new word - "redef"

: redef ( string"word" -- n1 )

1. n1 = 0, it finds the address ADDR_LAST of "word" (from the newest
side - lefthandside)and memorise it; if not n1=-1 and exit
2. it finds the address of the next "word" (the next olderer in the word
list) and replaces its address with the address in ADDR_LAST; n1++
3. repeats till the end of the wordlist (to the very righthandside word)

;

Example:
> words
redef sqrt power voltage current sqrt current sqrt power sqrt .......
> sqrt redef
3 ok
> words
redef sqrt power voltage current SQRT current SQRT power SQRT .......

where the SQRT (capitals for clarity only) will have a JUMP to sqrt in
their header. So any call to sqrt, even from old instances in any other
older words (which are using sqrt) will point to sqrt.
So at the end of day the newest sqrt (very lefthanside) will be used
only.
Any help would be appreciated. Pito.

Re: [Amforth-devel] Words redefiniton and references

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

As the Austrian says "The football is a game where 22 people are chasing
the ball and Germany wins".

----- PŮVODNÍ ZPRÁVA -----
Od: "Andy Kirby" <an...@ki...>
Komu: "pito" <pi...@vo...>, amf...@li...
Předmět: Re: [Amforth-devel] Words redefiniton and references
Datum: 5.7.2010 - 17:33:25

> Aaaaaah football.
> 
> Thats the charity thing where people who are otherwise
> unemployable are paid too much to kick an inflated
> pigs bladder pointlesly backward and forwards on a
> strip of grass.
> 
> Yeah i still struggle to much value in it after all
> these years......
> 
> 
> 
> 
> 
> -- 
> Like a rolling stone
> ----- Original message -----
> > it is a sport not much popular in your country -
> > football..(:-).
> > > 
> > ----- PŮVODNÍ ZPRÁVA -----
> > Od: "Andy Kirby" <an...@ki...>
> > Komu: "pito" <pi...@vo...>, amf...@li...
> > > > > Předmět: Re: [Amforth-devel] Words redefiniton
> > and references
> > > Datum: 5.7.2010 - 9:52:47
> > 
> > > Is that tenis or darts ??
> > > 
> > > I am stereotypicaly not very sporty.... :)
> > > 
> > > 
> > > 
> > > 
> > > -- 
> > > Like a rolling stone
> > > ----- Original message -----
> > > > Africa FIFA 2010 final.
> > > > 
> > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > Od: an...@ki...
> > > > Komu: "pito" <pi...@vo...>
> > > > Předmět: Re: [Amforth-devel] Words redefiniton
> > > > > > > and references
> > > > > Datum: 4.7.2010 - 22:31:45
> > > > 
> > > > > Sorry for being a bit stupid
> > > > > 
> > > > > What is being celebrated 11.7 ??????
> > > > > 
> > > > > Apologies in advance...
> > > > > 
> > > > > 
> > > > > 
> > > > > On 04/07/10 14:51, pito wrote:
> > > > > > Yes, I've got it Andy, therefore I started
> > > > > > this
> > > > > > > > > > > new
> > > > > > > > > post to be more precise.
> > > > > > > However, I still think it is easy to implement
> > > > > > > > > > > > > in
> > > > > > > > > > the amforth compiler
> > > > > > > itself:
> > > > > > 1. check whether the new word is not defined
> > > > > > > > > > > already
> > > > > > > > > in wordlist
> > > > > > > 2. add a new word which "replaces" the
> > > > > > > old
> > > > > > > > > > > > > one
> > > > > > > > > > 3. change references to the new defined
> > > > > > > > > > word
> > > > > > > > > > > > > > > in the
> > > > > > > > > all calls in the
> > > > > > > all words in wordlist.
> > > > > > 
> > > > > > It will be a big improvement, Matthias can
> > > > > > do
> > > > > > > > > > > that
> > > > > > > > > easily, and he will
> > > > > > > be definately ready with this nice feature
> > > > > > > > > > > > > for the
> > > > > > > > > > big celebration on
> > > > > > > 11.7. (:-). Pito.
> > > > > > 
> > > > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > > > Od: "Andy Kirby" <an...@ki...>
> > > > > > Komu: "Everything around amforth"
> > > > > > <amf...@li...>,
> > > > > > > > > "pito" <pi...@vo...>
> > > > > > Předmět: Re: [Amforth-devel] Words redefiniton
> > > > > > > > > > > > > > and references
> > > > > > > Datum: 4.7.2010 - 15:51:07
> > > > > > 
> > > > > > > I apologise i was'nt very clear the other
> > > > > > > explanations
> > > > > > > > > > > > > > > > > > > have been much better.
> > > > > > > 
> > > > > > > Compilation uses the newest definition
> > > > > > > in the
> > > > > > > > > > > > > list.
> > > > > > > > > > > > > As previously compiled words
> > > > > > > > > > > > > have the pointers
> > > > > > > > > > > > > > > > > > > > > stored
> > > > > > > > > > > > > > > at compile time they will
> > > > > > > > > > > > > > > always refer
> > > > > > > > > > > > > > > > > > > > > > > to what ever
> > > > > > > > > > > > > > > was current in the wordlist
> > > > > > > > > > > > > > > at compilation.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Cheers
> > > > > > > 
> > > > > > > andy kirby
> > > > > > > 
> > > > > > > -- 
> > > > > > > Like a rolling stone
> > > > > > > ----- Original message -----
> > > > > > > > So from all the previous posts - in order
> > > > > > > > > > > > > > > to redefine
> > > > > > > > > > > > > > > > sinus I have to
> > > > > > > > > upload a new word:
> > > > > > > > 
> > > > > > > > : sinus_redefine
> > > > > > > > / which defines a new word "sinus" for
> > > > > > > > future
> > > > > > > > > > > > > > > compilations
> > > > > > > > > > > > > > > > > ..
> > > > > > > > / which iteratively looks up wordlist
> > > > > > > > and
> > > > > > > > > > > > > > > changes
> > > > > > > > > > > > > > > > sinus references in
> > > > > > > > > the all other words in the system so
> > > > > > > > > they
> > > > > > > > > > > > > > > > > all
> > > > > > > > > > > > > > > will
> > > > > > > > > > > > use the new sinus
> > > > > > > > > ...
> > > > > > > > ;
> > > > > > > > 
> > > > > > > > than I will get:
> > > > > > > > 
> > > > > > > > sinus5 sinus_redefine sinus4 navigate
> > > > > > > > distance
> > > > > > > > > > > > > > > > > > > > sinus3
> > > > > > > > > > > position sinus2
> > > > > > > > > speed height sinus1 ....
> > > > > > > > 
> > > > > > > > where sinus5 will be used by all existing
> > > > > > > > > > > > > > > words.
> > > > > > > > > > > > > > > > (?)
> > > > > > > > Pito.
> > > > > > > > 
> > > > > > > > 
> > > > > > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > > > > > Od: "pito" <pi...@vo...>
> > > > > > > > Komu: amf...@li...
> > > > > > > > > > > > > > > > > > > > Předmět: Words redefiniton
> > > > > > > > > > > > > and references
> > > > > > > > > > > > > > > > > > > > > > > > > Datum: 4.7.2010 - 14:38:27
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > 
> > > > > > > > > Hi, as the concept of uploading a new
> > > > > > > > > word
> > > > > > > > > > > > > > > > > which
> > > > > > > > > > > > > > > > > > > redefines
> > > > > > > > > > > the old definitions
> > > > > > > > > of the same word and references to
> > > > > > > > > it as
> > > > > > > > > > > > > > > > > well
> > > > > > > > > > > > > > > is
> > > > > > > > > > > > > for
> > > > > > > > > > > me important to
> > > > > > > > > understand let me start this thread.
> > > > > > > > > Imagine
> > > > > > > > > > > > > > > > > my
> > > > > > > > > > > > > > > > > > > satellite
> > > > > > > > > > > flying - I
> > > > > > > > > need to upload a more precise word
> > > > > > > > > "sinus"
> > > > > > > > > > > > > > > > > with
> > > > > > > > > > > > > > > > > > > a higher
> > > > > > > > > > > precision.
> > > > > > > > > I do assume that amforth will put the
> > > > > > > > > new
> > > > > > > > > > > > > > > > > sinus
> > > > > > > > > > > > > > > > > > > as
> > > > > > > > > > > the newest word in
> > > > > > > > > the list and any word which uses sinus
> > > > > > > > > > > > > > > > > will reference
> > > > > > > > > > > > > > > > > > > > > to this new
> > > > > > > > > > > > > > > > > > > > > sinus.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > Let assume
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > following
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > wordlist coming
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > from
> > > > > > > > > > > > > > > > > my onboard
> > > > > > > > > > > > > > > > > > > > > guidance computer:
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > words
> > > > > > > > > sinus4 navigate distance sinus3 position
> > > > > > > > > > > > > > > > > sinus2
> > > > > > > > > > > > > > > > > > > speed
> > > > > > > > > > > height sinus1 ....
> > > > > > > > > 
> > > > > > > > > The suffix in sinus indicates redefinition
> > > > > > > > > > > > > > > > > index
> > > > > > > > > > > > > > > > > > > for
> > > > > > > > > > > clarity only so
> > > > > > > > > all the sinuses are word "sinus" in
> > > > > > > > > the
> > > > > > > > > > > > > > > > > reality.
> > > > > > > > > > > > > > > > > > > Sinus4
> > > > > > > > > > > is the newest
> > > > > > > > > upladed word. The left hand side words
> > > > > > > > > > > > > > > > > are newer.
> > > > > > > > > > > > > > > > > > > > > 
> > > > > > > > > The navigate word uses the words heigh
> > > > > > > > > > > > > > > > > and position.
> > > > > > > > > > > > > > > > > > > > > Which sinus
> > > > > > > > > > > > > > > > > > > > > will
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > be used in
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > height and
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > position words?
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Cheers,
> > > > > > > > > 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> > > > > > > > > > > > > > > > > > > > > > > > > > > > > 
> > > > > > 
> > > > > > 
> > > > > > 
> > > > 
> > > > 
> > > 
> > 
> > 
> 

Re: [Amforth-devel] Words redefiniton and references

[Andy K. <an...@ki...>]

Aaaaaah football.

Thats the charity thing where people who are otherwise unemployable are paid too much to kick an inflated pigs bladder pointlesly backward and forwards on a strip of grass.

Yeah i still struggle to much value in it after all these years......





-- 
Like a rolling stone
----- Original message -----
> it is a sport not much popular in your country - football..(:-).
> 
> ----- PŮVODNÍ ZPRÁVA -----
> Od: "Andy Kirby" <an...@ki...>
> Komu: "pito" <pi...@vo...>, amf...@li...
> Předmět: Re: [Amforth-devel] Words redefiniton and references
> Datum: 5.7.2010 - 9:52:47
> 
> > Is that tenis or darts ??
> > 
> > I am stereotypicaly not very sporty.... :)
> > 
> > 
> > 
> > 
> > -- 
> > Like a rolling stone
> > ----- Original message -----
> > > Africa FIFA 2010 final.
> > > 
> > > ----- PŮVODNÍ ZPRÁVA -----
> > > Od: an...@ki...
> > > Komu: "pito" <pi...@vo...>
> > > Předmět: Re: [Amforth-devel] Words redefiniton
> > > and references
> > > > Datum: 4.7.2010 - 22:31:45
> > > 
> > > > Sorry for being a bit stupid
> > > > 
> > > > What is being celebrated 11.7 ??????
> > > > 
> > > > Apologies in advance...
> > > > 
> > > > 
> > > > 
> > > > On 04/07/10 14:51, pito wrote:
> > > > > Yes, I've got it Andy, therefore I started this
> > > > > new
> > > > > > > > post to be more precise.
> > > > > > However, I still think it is easy to implement
> > > > > > in
> > > > > > > > > the amforth compiler
> > > > > > itself:
> > > > > 1. check whether the new word is not defined
> > > > > already
> > > > > > > > in wordlist
> > > > > > 2. add a new word which "replaces" the old
> > > > > > one
> > > > > > > > > 3. change references to the new defined word
> > > > > in the
> > > > > > > > all calls in the
> > > > > > all words in wordlist.
> > > > > 
> > > > > It will be a big improvement, Matthias can do
> > > > > that
> > > > > > > > easily, and he will
> > > > > > be definately ready with this nice feature
> > > > > > for the
> > > > > > > > > big celebration on
> > > > > > 11.7. (:-). Pito.
> > > > > 
> > > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > > Od: "Andy Kirby" <an...@ki...>
> > > > > Komu: "Everything around amforth"
> > > > > <amf...@li...>,
> > > > > > > > "pito" <pi...@vo...>
> > > > > Předmět: Re: [Amforth-devel] Words redefiniton
> > > > > > > > and references
> > > > > > Datum: 4.7.2010 - 15:51:07
> > > > > 
> > > > > > I apologise i was'nt very clear the other explanations
> > > > > > > > > > > > have been much better.
> > > > > > 
> > > > > > Compilation uses the newest definition in the
> > > > > > list.
> > > > > > > > > > > > As previously compiled words have the pointers
> > > > > > > > stored
> > > > > > > > > > > > > > at compile time they will always refer
> > > > > > > > to what ever
> > > > > > > > > > > > > > was current in the wordlist at compilation.
> > > > > > > > > > > > > > > > > > > > > > > > > 
> > > > > > Cheers
> > > > > > 
> > > > > > andy kirby
> > > > > > 
> > > > > > -- 
> > > > > > Like a rolling stone
> > > > > > ----- Original message -----
> > > > > > > So from all the previous posts - in order
> > > > > > > to redefine
> > > > > > > > > > > > > > > sinus I have to
> > > > > > > > upload a new word:
> > > > > > > 
> > > > > > > : sinus_redefine
> > > > > > > / which defines a new word "sinus" for future
> > > > > > > compilations
> > > > > > > > > > > > > > > > ..
> > > > > > > / which iteratively looks up wordlist and
> > > > > > > changes
> > > > > > > > > > > > > > > sinus references in
> > > > > > > > the all other words in the system so they
> > > > > > > > all
> > > > > > > > > > > > > > will
> > > > > > > > > > > use the new sinus
> > > > > > > > ...
> > > > > > > ;
> > > > > > > 
> > > > > > > than I will get:
> > > > > > > 
> > > > > > > sinus5 sinus_redefine sinus4 navigate distance
> > > > > > > > > > > > sinus3
> > > > > > > > > > position sinus2
> > > > > > > > speed height sinus1 ....
> > > > > > > 
> > > > > > > where sinus5 will be used by all existing
> > > > > > > words.
> > > > > > > > > > > > > > > (?)
> > > > > > > Pito.
> > > > > > > 
> > > > > > > 
> > > > > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > > > > Od: "pito" <pi...@vo...>
> > > > > > > Komu: amf...@li...
> > > > > > > > > > > > Předmět: Words redefiniton and references
> > > > > > > > > > > > Datum: 4.7.2010 - 14:38:27
> > > > > > > 
> > > > > > > > Hi, as the concept of uploading a new word
> > > > > > > > which
> > > > > > > > > > > > > > > > > > redefines
> > > > > > > > > > the old definitions
> > > > > > > > of the same word and references to it as
> > > > > > > > well
> > > > > > > > > > > > > > is
> > > > > > > > > > > > for
> > > > > > > > > > me important to
> > > > > > > > understand let me start this thread. Imagine
> > > > > > > > my
> > > > > > > > > > > > > > > > > > satellite
> > > > > > > > > > flying - I
> > > > > > > > need to upload a more precise word "sinus"
> > > > > > > > with
> > > > > > > > > > > > > > > > > > a higher
> > > > > > > > > > precision.
> > > > > > > > I do assume that amforth will put the new
> > > > > > > > sinus
> > > > > > > > > > > > > > > > > > as
> > > > > > > > > > the newest word in
> > > > > > > > the list and any word which uses sinus
> > > > > > > > will reference
> > > > > > > > > > > > > > > > > > > > to this new sinus.
> > > > > > > > Let assume following wordlist coming from
> > > > > > > > my onboard
> > > > > > > > > > > > > > > > > > > > guidance computer:
> > > > > > > > > words
> > > > > > > > sinus4 navigate distance sinus3 position
> > > > > > > > sinus2
> > > > > > > > > > > > > > > > > > speed
> > > > > > > > > > height sinus1 ....
> > > > > > > > 
> > > > > > > > The suffix in sinus indicates redefinition
> > > > > > > > index
> > > > > > > > > > > > > > > > > > for
> > > > > > > > > > clarity only so
> > > > > > > > all the sinuses are word "sinus" in the
> > > > > > > > reality.
> > > > > > > > > > > > > > > > > > Sinus4
> > > > > > > > > > is the newest
> > > > > > > > upladed word. The left hand side words
> > > > > > > > are newer.
> > > > > > > > > > > > > > > > > > > > 
> > > > > > > > The navigate word uses the words heigh
> > > > > > > > and position.
> > > > > > > > > > > > > > > > > > > > Which sinus will
> > > > > > > > be used in height and position words?
> > > > > > > > Cheers,
> > > > > > > > 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
> > > > > > > > > > > > > > > > > > > > > 
> > > > > 
> > > > > 
> > > > > 
> > > 
> > > 
> > 
> 
> 

[Amforth-devel] USART.asm driver - U2X and baud error

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

Matthias,
I see in usart.asm driver you are not considering U2X (which may improve
baudrate precision for certain combinations). Also error is set to +/-
1% max. So when compiling one gets "systematic baud errors .." even
when the combination may work properly. It is not so important and probaly
your intention, however I did some experiments with baudrates and Xtals
and I saw that message even I know that a combination is correct. Pito.

[Amforth-devel] Forfiter - max speed bug(?)

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

For those who starts with Forfiter (XP file terminal for forth, supports
.frt upload transfer with 'ok' commit, http://www.forth.cz/download.html)
- the max speed I've achieved is 19k2. With HyperTerminal you may go
much higher (it depends on your interface and Xtal) however HT does
not support 'ok' commit so you can't upload easily. My setup - atmega32,
usb ft232, Xtal=11.0592MHz (any baudrate xtal).

Re: [Amforth-devel] Words redefiniton and references

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

it is a sport not much popular in your country - football..(:-).

----- PŮVODNÍ ZPRÁVA -----
Od: "Andy Kirby" <an...@ki...>
Komu: "pito" <pi...@vo...>, amf...@li...
Předmět: Re: [Amforth-devel] Words redefiniton and references
Datum: 5.7.2010 - 9:52:47

> Is that tenis or darts ??
> 
> I am stereotypicaly not very sporty.... :)
> 
> 
> 
> 
> -- 
> Like a rolling stone
> ----- Original message -----
> > Africa FIFA 2010 final.
> > 
> > ----- PŮVODNÍ ZPRÁVA -----
> > Od: an...@ki...
> > Komu: "pito" <pi...@vo...>
> > Předmět: Re: [Amforth-devel] Words redefiniton
> > and references
> > > Datum: 4.7.2010 - 22:31:45
> > 
> > > Sorry for being a bit stupid
> > > 
> > > What is being celebrated 11.7 ??????
> > > 
> > > Apologies in advance...
> > > 
> > > 
> > > 
> > > On 04/07/10 14:51, pito wrote:
> > > > Yes, I've got it Andy, therefore I started this
> > > > new
> > > > > > > post to be more precise.
> > > > > However, I still think it is easy to implement
> > > > > in
> > > > > > > > the amforth compiler
> > > > > itself:
> > > > 1. check whether the new word is not defined
> > > > already
> > > > > > > in wordlist
> > > > > 2. add a new word which "replaces" the old
> > > > > one
> > > > > > > > 3. change references to the new defined word
> > > > in the
> > > > > > > all calls in the
> > > > > all words in wordlist.
> > > > 
> > > > It will be a big improvement, Matthias can do
> > > > that
> > > > > > > easily, and he will
> > > > > be definately ready with this nice feature
> > > > > for the
> > > > > > > > big celebration on
> > > > > 11.7. (:-). Pito.
> > > > 
> > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > Od: "Andy Kirby" <an...@ki...>
> > > > Komu: "Everything around amforth"
> > > > <amf...@li...>,
> > > > > > > "pito" <pi...@vo...>
> > > > Předmět: Re: [Amforth-devel] Words redefiniton
> > > > > > > and references
> > > > > Datum: 4.7.2010 - 15:51:07
> > > > 
> > > > > I apologise i was'nt very clear the other explanations
> > > > > > > > > > > have been much better.
> > > > > 
> > > > > Compilation uses the newest definition in the
> > > > > list.
> > > > > > > > > > > As previously compiled words have the pointers
> > > > > > > stored
> > > > > > > > > > > > > at compile time they will always refer
> > > > > > > to what ever
> > > > > > > > > > > > > was current in the wordlist at compilation.
> > > > > > > > > > > > > > > > > > > > > > > > 
> > > > > Cheers
> > > > > 
> > > > > andy kirby
> > > > > 
> > > > > -- 
> > > > > Like a rolling stone
> > > > > ----- Original message -----
> > > > > > So from all the previous posts - in order
> > > > > > to redefine
> > > > > > > > > > > > > > sinus I have to
> > > > > > > upload a new word:
> > > > > > 
> > > > > > : sinus_redefine
> > > > > > / which defines a new word "sinus" for future
> > > > > > compilations
> > > > > > > > > > > > > > > ..
> > > > > > / which iteratively looks up wordlist and
> > > > > > changes
> > > > > > > > > > > > > > sinus references in
> > > > > > > the all other words in the system so they
> > > > > > > all
> > > > > > > > > > > > > will
> > > > > > > > > > use the new sinus
> > > > > > > ...
> > > > > > ;
> > > > > > 
> > > > > > than I will get:
> > > > > > 
> > > > > > sinus5 sinus_redefine sinus4 navigate distance
> > > > > > > > > > > sinus3
> > > > > > > > > position sinus2
> > > > > > > speed height sinus1 ....
> > > > > > 
> > > > > > where sinus5 will be used by all existing
> > > > > > words.
> > > > > > > > > > > > > > (?)
> > > > > > Pito.
> > > > > > 
> > > > > > 
> > > > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > > > Od: "pito" <pi...@vo...>
> > > > > > Komu: amf...@li...
> > > > > > > > > > > Předmět: Words redefiniton and references
> > > > > > > > > > > Datum: 4.7.2010 - 14:38:27
> > > > > > 
> > > > > > > Hi, as the concept of uploading a new word
> > > > > > > which
> > > > > > > > > > > > > > > > > redefines
> > > > > > > > > the old definitions
> > > > > > > of the same word and references to it as
> > > > > > > well
> > > > > > > > > > > > > is
> > > > > > > > > > > for
> > > > > > > > > me important to
> > > > > > > understand let me start this thread. Imagine
> > > > > > > my
> > > > > > > > > > > > > > > > > satellite
> > > > > > > > > flying - I
> > > > > > > need to upload a more precise word "sinus"
> > > > > > > with
> > > > > > > > > > > > > > > > > a higher
> > > > > > > > > precision.
> > > > > > > I do assume that amforth will put the new
> > > > > > > sinus
> > > > > > > > > > > > > > > > > as
> > > > > > > > > the newest word in
> > > > > > > the list and any word which uses sinus
> > > > > > > will reference
> > > > > > > > > > > > > > > > > > > to this new sinus.
> > > > > > > Let assume following wordlist coming from
> > > > > > > my onboard
> > > > > > > > > > > > > > > > > > > guidance computer:
> > > > > > > > words
> > > > > > > sinus4 navigate distance sinus3 position
> > > > > > > sinus2
> > > > > > > > > > > > > > > > > speed
> > > > > > > > > height sinus1 ....
> > > > > > > 
> > > > > > > The suffix in sinus indicates redefinition
> > > > > > > index
> > > > > > > > > > > > > > > > > for
> > > > > > > > > clarity only so
> > > > > > > all the sinuses are word "sinus" in the
> > > > > > > reality.
> > > > > > > > > > > > > > > > > Sinus4
> > > > > > > > > is the newest
> > > > > > > upladed word. The left hand side words
> > > > > > > are newer.
> > > > > > > > > > > > > > > > > > > 
> > > > > > > The navigate word uses the words heigh
> > > > > > > and position.
> > > > > > > > > > > > > > > > > > > Which sinus will
> > > > > > > be used in height and position words?
> > > > > > > Cheers,
> > > > > > > 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
> > > > > > > > > > > > > > > > > > > > 
> > > > 
> > > > 
> > > > 
> > 
> > 
> 

Re: [Amforth-devel] Words redefiniton and references

[Andy K. <an...@ki...>]

Is that tenis or darts ??

I am stereotypicaly not very sporty.... :)




-- 
Like a rolling stone
----- Original message -----
> Africa FIFA 2010 final.
> 
> ----- PŮVODNÍ ZPRÁVA -----
> Od: an...@ki...
> Komu: "pito" <pi...@vo...>
> Předmět: Re: [Amforth-devel] Words redefiniton and references
> Datum: 4.7.2010 - 22:31:45
> 
> > Sorry for being a bit stupid
> > 
> > What is being celebrated 11.7 ??????
> > 
> > Apologies in advance...
> > 
> > 
> > 
> > On 04/07/10 14:51, pito wrote:
> > > Yes, I've got it Andy, therefore I started this new
> > > post to be more precise.
> > > > However, I still think it is easy to implement in
> > > the amforth compiler
> > > > itself:
> > > 1. check whether the new word is not defined already
> > > in wordlist
> > > > 2. add a new word which "replaces" the old one
> > > 3. change references to the new defined word in the
> > > all calls in the
> > > > all words in wordlist.
> > > 
> > > It will be a big improvement, Matthias can do that
> > > easily, and he will
> > > > be definately ready with this nice feature for the
> > > big celebration on
> > > > 11.7. (:-). Pito.
> > > 
> > > ----- PŮVODNÍ ZPRÁVA -----
> > > Od: "Andy Kirby" <an...@ki...>
> > > Komu: "Everything around amforth"
> > > <amf...@li...>,
> > > > > > "pito" <pi...@vo...>
> > > Předmět: Re: [Amforth-devel] Words redefiniton
> > > and references
> > > > Datum: 4.7.2010 - 15:51:07
> > > 
> > > > I apologise i was'nt very clear the other explanations
> > > > > > have been much better.
> > > > 
> > > > Compilation uses the newest definition in the list.
> > > > > > As previously compiled words have the pointers stored
> > > > > > at compile time they will always refer to what ever
> > > > > > was current in the wordlist at compilation.
> > > > 
> > > > Cheers
> > > > 
> > > > andy kirby
> > > > 
> > > > -- 
> > > > Like a rolling stone
> > > > ----- Original message -----
> > > > > So from all the previous posts - in order to redefine
> > > > > > > > sinus I have to
> > > > > > upload a new word:
> > > > > 
> > > > > : sinus_redefine
> > > > > / which defines a new word "sinus" for future compilations
> > > > > > > > > ..
> > > > > / which iteratively looks up wordlist and changes
> > > > > > > > sinus references in
> > > > > > the all other words in the system so they all
> > > > > > will
> > > > > > > > > use the new sinus
> > > > > > ...
> > > > > ;
> > > > > 
> > > > > than I will get:
> > > > > 
> > > > > sinus5 sinus_redefine sinus4 navigate distance
> > > > > sinus3
> > > > > > > > position sinus2
> > > > > > speed height sinus1 ....
> > > > > 
> > > > > where sinus5 will be used by all existing words.
> > > > > > > > (?)
> > > > > Pito.
> > > > > 
> > > > > 
> > > > > ----- PŮVODNÍ ZPRÁVA -----
> > > > > Od: "pito" <pi...@vo...>
> > > > > Komu: amf...@li...
> > > > > Předmět: Words redefiniton and references
> > > > > Datum: 4.7.2010 - 14:38:27
> > > > > 
> > > > > > Hi, as the concept of uploading a new word which
> > > > > > > > > > redefines
> > > > > > > > the old definitions
> > > > > > of the same word and references to it as well
> > > > > > is
> > > > > > > > > > for
> > > > > > > > me important to
> > > > > > understand let me start this thread. Imagine my
> > > > > > > > > > satellite
> > > > > > > > flying - I
> > > > > > need to upload a more precise word "sinus" with
> > > > > > > > > > a higher
> > > > > > > > precision.
> > > > > > I do assume that amforth will put the new sinus
> > > > > > > > > > as
> > > > > > > > the newest word in
> > > > > > the list and any word which uses sinus will reference
> > > > > > > > > > > > to this new sinus.
> > > > > > Let assume following wordlist coming from my onboard
> > > > > > > > > > > > guidance computer:
> > > > > > > words
> > > > > > sinus4 navigate distance sinus3 position sinus2
> > > > > > > > > > speed
> > > > > > > > height sinus1 ....
> > > > > > 
> > > > > > The suffix in sinus indicates redefinition index
> > > > > > > > > > for
> > > > > > > > clarity only so
> > > > > > all the sinuses are word "sinus" in the reality.
> > > > > > > > > > Sinus4
> > > > > > > > is the newest
> > > > > > upladed word. The left hand side words are newer.
> > > > > > > > > > > > 
> > > > > > The navigate word uses the words heigh and position.
> > > > > > > > > > > > Which sinus will
> > > > > > be used in height and position words?
> > > > > > Cheers,
> > > > > > 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
> > > > > > > > 
> > > 
> > > 
> > > 
> 
> 

[Amforth-devel] Interrupts handling

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

Hi dear friends,
finally I started to read the docs. The chapter on interrupts is for
me too difficult to understand so my Q:
1. how are actually interrupts handled? I've seen the source of Lubos
Pekny's keyboard driver, but it is too complex to understand the concept
2. I am running the sieve demo and e.g. I'd like to unterrupt simply
the interations by ctrl-C. How shall this be done?
3. Is there an access to ISR? Can I put something in it?
4. How the OS is using interrupts? Any periodic activity (ticks, heartbeat..)
5. How to write a simple interrupt routine? Any simple example? E.g.
from rx?
Thanks a lot, Pito