Re: [Amforth-devel] Marker etc.

[Al W. <al....@aw...>]

I tried entering this as Forth code and got the same result. Not sure what 
changes you mean (since you define pushee and popee). Also, I don't think the 
list took your attachment.

I presume this is broken because of the changes to here and dp recently. 
Anyway, for now I'm sticking with a hybrid 3.8 -- I did take some of the 
device and driver stuff out of 4.1 and got it working with 3.8.


On Wednesday, September 15, 2010 16:59:25 pm Kalus Michael wrote:
> 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