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 > > Amforth-devel@lists.sourceforge.net > > 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 > Amforth-devel@lists.sourceforge.net > 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 Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
