Re: [Amforth-devel] Marker etc.

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

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