Re: [Amforth-devel] Marker etc.

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

Thanks Klaus,

The marker.asm did NOT work on 4.1. I made the 3 changes plus I had to chnage 
EE_SYS0 to 2 (juding from the Forth code and noting a compile error or 
EE_SYS0). 

It did strike me as odd though that there were not 4 places to change.  But I 
didn't get thought theh code enought to tell. 

I will look at the savesystem code. What would be ideal would be to configure a 
pin to boot into "restore mode" -- for example, since I am hooked up to USB 
for power, it could be configured to be the Rx line. Then a jumper could bring 
it low on boot (it would normally be high connected to the serial port) and 
trigger a restore. I'll try that soon.

Thanks again for your help.


On Wednesday, September 15, 2010 18:51:35 pm Kalus Michael wrote:
> Hi Al.
> 
> Seems the list does not take any attachments.
> Try these links:
> http://dl.dropbox.com/u/1170761/marker.asm
> http://dl.dropbox.com/u/1170761/savesystem.asm
> 
> > I presume this is broken because of the changes to here and dp
> > recently.
> 
> This is the old version I have on amforth3.6, may be its still good
> 
> with 3.8 :
>    : pushee ( -- )
> 
>      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
>      pushee create r> , r> ,
>      does> >r r@ i@ r> 1+ i@ popee ;
> 
> Michael
> 
> Am 16.09.2010 um 00:49 schrieb Al Williams:
> > 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
> > 
> > ----------------------------------------------------------------------
> > --------
> > Start uncovering the many advantages of virtual appliances
> > and start using them to simplify application deployment and
> > accelerate your shift to cloud computing.
> > http://p.sf.net/sfu/novell-sfdev2dev
> > _______________________________________________
> > Amforth-devel mailing list
> > Amf...@li...
> > https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 
> ---------------------------------------------------------------------------
> --- Start uncovering the many advantages of virtual appliances
> and start using them to simplify application deployment and
> accelerate your shift to cloud computing.
> http://p.sf.net/sfu/novell-sfdev2dev
> _______________________________________________
> Amforth-devel mailing list
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel