Re: [Amforth] MARKER

[Enoch <ix...@ho...>]

"Michael Kalus" <mi-...@t-...>
writes:

> Hi Enoch.
>
> Here it is. I have no idea if it works with current amforth.
> Some hints which amforth words have changed in versions >3.6 are  
> given in the srouce, there may be more since.
>
> I factored ,EE to copy eeprom to flash and POPEE to out it back to  
> eeprom - not that elegant notation.
>
> ; : ,ee ( -- )
> ;   here , heap , 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 here >r
> ;   ,ee create r> , r> ,
> ;   does> >r r@ i@ r> 1+ i@ popee ;
>
>
> Regards, Michael
>

Thanks Michael,

I'll be visting MARKER pretty soon. A reliable one is an absolute
necessity for field code replacement.

Regards, Enoch.