Re: [Amforth-devel] Marker etc.

[Kalus M. <mic...@on...>]

Hi.


Am 15.09.2010 um 21:24 schrieb Al Williams:
..
> Any ideas on getting marker to work?

maybe this version works. It copies the _entire_ system vector to  
flash, and pops it back when executing the marker word.

: pushee ( -- )   dp , here , edp ,  edp 8 do i e@ ,  2 +loop ;
: popee ( adr n -- ) 0 do dup i + i@  i 2* 2 + e! loop drop ;
: marker ( -- )
     edp >r dp >r
     pushee create r> , r> ,
     does> >r r@ i@ r> 1+ i@ popee ;

I append marker.asm, include it in your application words if you like.
BUT since it was written for amforth-3.6 on atmega168 you have to do  
the changes mentioned in the file. (pushee has been called ,ee there.)

Michael