amforth-devel — Development discussion and user support

Re: [Amforth] Asm debugging, how?

[Matthias T. <mt...@we...>]

Enoch,

> I passed the avra hurdle using git code with a small device.c patch. Now
> loading the board I see it emitting gibberish ...

Did you check the serial line settings? amforth uses 9600 or 38400 8N1


> Is there a way to debug under Linux?

debugging serial lines? or let amforth run under
debugger control? Both is at least very difficult
to impossible (IMHO). avarice is a command line
tool to connect an JTAG enabled atmega to gdb. Never
used it myself...

Matthias

[Amforth] Asm debugging, how?

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

Hi,

Using Debian I am trying the latest amforth svn code with Olimex AVR-CAN
board which is AT90CAN128 based.

I passed the avra hurdle using git code with a small device.c patch. Now
loading the board I see it emitting gibberish ...

Is there a way to debug under Linux?

Thanks, Enoch.

Re: [Amforth] Amforth-devel Digest, Vol 48, Issue 10

[Paul V. <pav...@gm...>]

Hi,

Just an update on the problem with KEY. Well, it seems there is a bug with
the CoolTerm application I was using. I also have a MAC PowerBook using
this program and it does not work correctly. When I use the terminal
program SCREEN everything works as expected. Sorry for any inconvenience...

Paul

On Fri, Sep 21, 2012 at 9:03 AM, <
amf...@li...> wrote:

> Send Amforth-devel mailing list submissions to
>         amf...@li...
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         https://lists.sourceforge.net/lists/listinfo/amforth-devel
> or, via email, send a message with subject or body 'help' to
>         amf...@li...
>
> You can reach the person managing the list at
>         amf...@li...
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Amforth-devel digest..."
>
>
> Today's Topics:
>
>    1. Re: Future documentation ideas - reference card with index
>       (Matthias Trute)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Thu, 20 Sep 2012 20:16:25 +0200
> From: Matthias Trute <mt...@we...>
> Subject: Re: [Amforth] Future documentation ideas - reference card
>         with index
> To: Everything around amforth <amf...@li...>
> Message-ID: <505...@we...>
> Content-Type: text/plain; charset=ISO-8859-1
>
> Hi,
>
> >
> > And about refcard... As it is made from tex file could it be possible
> > to put index to pdf? all words listed in alphabetical order.
>
> It took some time but I finally managed to producde a PDF with
> an index: http://amforth.sourceforge.net/refcard.pdf
>
> Matthias
>
>
>
> ------------------------------
>
>
> ------------------------------------------------------------------------------
> Got visibility?
> Most devs has no idea what their production app looks like.
> Find out how fast your code is with AppDynamics Lite.
> http://ad.doubleclick.net/clk;262219671;13503038;y?
> http://info.appdynamics.com/FreeJavaPerformanceDownload.html
>
> ------------------------------
>
> _______________________________________________
> Amforth-devel mailing list
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>
>
> End of Amforth-devel Digest, Vol 48, Issue 10
> *********************************************
>

Re: [Amforth] Partdesciption files from AVR Studio 6

[Matthias T. <mt...@we...>]

Hi Enoch,

> Can someone provide a guide how to extract part-description using
> Studio6?

I do it the hard way: analyzing the XML structure and guessing
what it all could mean. Progress is very slow and the XML is a
real pain. The avrdude people have an XSLT but that's not an
alternative (for me at least).

Matthias

[Amforth] Partdesciption files from AVR Studio 6

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

Hi,

Can someone provide a guide how to extract part-description using
Studio6? Studio4's xmlconvert is missing.

Thanks, Enoch.

Re: [Amforth] Amforth-devel Digest, Vol 48, Issue 10

[D N. <dny...@at...>]

It was well worth the time, the new ref card is GREAT! Thanks!

 > It took some time but I finally managed to producde a PDF with
 > an index: http://amforth.sourceforge.net/refcard.pdf
 >
 > Matthias

Re: [Amforth] Future documentation ideas - reference card with index

[Matthias T. <mt...@we...>]

Hi,

> 
> And about refcard... As it is made from tex file could it be possible
> to put index to pdf? all words listed in alphabetical order.

It took some time but I finally managed to producde a PDF with
an index: http://amforth.sourceforge.net/refcard.pdf

Matthias

Re: [Amforth] Amforth-devel Digest, Vol 48, Issue 8

[Paul V. <pav...@gm...>]

Hi Matthias,

Yes for sure I will try 4.8. I have two Arduinos I have been using for this
and they both do it. I suppose I could try another.

Thanks,

Paul

On Mon, Sep 17, 2012 at 9:02 AM, <
amf...@li...> wrote:

> Send Amforth-devel mailing list submissions to
>         amf...@li...
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         https://lists.sourceforge.net/lists/listinfo/amforth-devel
> or, via email, send a message with subject or body 'help' to
>         amf...@li...
>
> You can reach the person managing the list at
>         amf...@li...
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Amforth-devel digest..."
>
>
> Today's Topics:
>
>    1. KEY word (Paul Verbeke)
>    2. Re: KEY word (Matthias Trute)
>    3. Re: Different memories and arrays (Hannu Vuolasaho)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Sun, 16 Sep 2012 09:27:15 -0300
> From: Paul Verbeke <pav...@gm...>
> Subject: [Amforth] KEY word
> To: amf...@li...
> Message-ID:
>         <
> CAO...@ma...>
> Content-Type: text/plain; charset=ISO-8859-1
>
> Hi All,
>
> Thanks for the replies to my questions. I tried the hex files that Erich
> sent me and KEY still does not work as expected... I do have the capability
> to rebuild the hex files and could possibly fix the problem if I knew where
> to look. I noticed that there is a address for key in the user area could
> this have something to do with it? I am using version 4.9 which I
> downloaded from the website and built using the template file for the
> Deumilanove 328p.
>
> Thanks in advance for any advice.
>
> Paul
>
>
> ------------------------------
>
> Message: 2
> Date: Sun, 16 Sep 2012 16:30:35 +0200
> From: Matthias Trute <mt...@we...>
> Subject: Re: [Amforth] KEY word
> To: Everything around amforth <amf...@li...>
> Message-ID: <505...@we...>
> Content-Type: text/plain; charset=ISO-8859-1
>
> Hi Paul,
>
> > Hi All,
> >
> > Thanks for the replies to my questions. I tried the hex files that Erich
> > sent me and KEY still does not work as expected...
>
> Strange. Sounds more like a hardware problem.
>
> > I do have the capability
> > to rebuild the hex files and could possibly fix the problem if I knew
> where
> > to look. I noticed that there is a address for key in the user area could
> > this have something to do with it? I am using version 4.9 which I
> > downloaded from the website and built using the template file for the
> > Deumilanove 328p.
>
> Can you please try version 4.8? In 4.9 all device dependend
> files are re-generated using the new AVR Studio 6 XML files,
> maybe that particular device has some errors. Unfortunatly I
> cannot test it currently myself.
>
> Matthias
>
>
>
>
> ------------------------------
>
> Message: 3
> Date: Sun, 16 Sep 2012 17:39:53 +0300
> From: Hannu Vuolasaho <vu...@ms...>
> Subject: Re: [Amforth] Different memories and arrays
> To: "amf...@li..."
>         <amf...@li...>
> Message-ID: <COL...@ph...l>
> Content-Type: text/plain; charset="iso-8859-1"
>
>
>
>
> ----------------------------------------
> > Date: Sun, 16 Sep 2012 13:51:50 +0200
> > From: mt...@we...
> > To: amf...@li...
> > Subject: Re: [Amforth] Different memories and arrays
> >
> > Hi Hannu
> >
> > > To memory it could be done with variable or buffer:
> > >
> > > To use eeprom, I would have to use value.
> >
> > Does http://amforth.sourceforge.net/recipes/eeprom.html answer
> > (some) of your questions? At least Ebuffer: is worth
> > thinking about, /Yes that recipe is brand new)
> >
> Thanks Mathias!
>
> Quite good recipe. Maybe should end up in lib/ too in next release. I
> believe I'm not only one who want to do this.
>
> >
> > You may want to look into the file lib/sinus.frt. There you find
> > an flash based table to interpolate the sinus function.
>
> D'Oh! That's easy. I should had read the definition of CREATE better.
>
> I think grad should be degree in sinus.frt. I first thought gradians but
> after reading wikipedia I realised that this was just a normal German
> conspiracy just like ABS and double clutch system acronyms in cars.
>
> best regards,
> hannu Vuolasaho
>
>
>
> ------------------------------
>
>
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and
> threat landscape has changed and how IT managers can respond. Discussions
> will include endpoint security, mobile security and the latest in malware
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
>
> ------------------------------
>
> _______________________________________________
> Amforth-devel mailing list
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>
>
> End of Amforth-devel Digest, Vol 48, Issue 8
> ********************************************
>

Re: [Amforth] Different memories and arrays

[Hannu V. <vu...@ms...>]

----------------------------------------
> Date: Sun, 16 Sep 2012 13:51:50 +0200
> From: mt...@we...
> To: amf...@li...
> Subject: Re: [Amforth] Different memories and arrays
>
> Hi Hannu
>
> > To memory it could be done with variable or buffer:
> >
> > To use eeprom, I would have to use value.
>
> Does http://amforth.sourceforge.net/recipes/eeprom.html answer
> (some) of your questions? At least Ebuffer: is worth
> thinking about, /Yes that recipe is brand new)
>
Thanks Mathias!

Quite good recipe. Maybe should end up in lib/ too in next release. I believe I'm not only one who want to do this.

>
> You may want to look into the file lib/sinus.frt. There you find
> an flash based table to interpolate the sinus function.

D'Oh! That's easy. I should had read the definition of CREATE better.

I think grad should be degree in sinus.frt. I first thought gradians but after reading wikipedia I realised that this was just a normal German conspiracy just like ABS and double clutch system acronyms in cars.

best regards,
hannu Vuolasaho
 		 	   		  

Re: [Amforth] KEY word

[Matthias T. <mt...@we...>]

Hi Paul,

> Hi All,
> 
> Thanks for the replies to my questions. I tried the hex files that Erich
> sent me and KEY still does not work as expected...

Strange. Sounds more like a hardware problem.

> I do have the capability
> to rebuild the hex files and could possibly fix the problem if I knew where
> to look. I noticed that there is a address for key in the user area could
> this have something to do with it? I am using version 4.9 which I
> downloaded from the website and built using the template file for the
> Deumilanove 328p.

Can you please try version 4.8? In 4.9 all device dependend
files are re-generated using the new AVR Studio 6 XML files,
maybe that particular device has some errors. Unfortunatly I
cannot test it currently myself.

Matthias

[Amforth] KEY word

[Paul V. <pav...@gm...>]

Hi All,

Thanks for the replies to my questions. I tried the hex files that Erich
sent me and KEY still does not work as expected... I do have the capability
to rebuild the hex files and could possibly fix the problem if I knew where
to look. I noticed that there is a address for key in the user area could
this have something to do with it? I am using version 4.9 which I
downloaded from the website and built using the template file for the
Deumilanove 328p.

Thanks in advance for any advice.

Paul

Re: [Amforth] Different memories and arrays

[Matthias T. <mt...@we...>]

Hi Hannu

> To memory it could be done with variable or buffer: 
> 
> To use eeprom, I would have to use value.

Does http://amforth.sourceforge.net/recipes/eeprom.html answer
(some) of your questions? At least Ebuffer: is worth
thinking about, /Yes that recipe is brand new)

> : neededtrick jump forward in definition ;
> 
> : my_data@ ( index -- data )
> neededtrick 
> \ Or something like cells latest + 2 0 do dup @ swap loop exit
> $1234
> $5678
> exit
> $9012
> $3456
> exit
> ...
> ;
> 
> Does anyone has any good ideas about this or good warnings?

You may want to look into the file lib/sinus.frt. There you find
an flash based table to interpolate the sinus function.

Matthias

[Amforth] Different memories and arrays

[Hannu V. <vu...@ms...>]

Hi!

I have 360 cell problem. Or actually it's only 225 if I remove common part of the data.

I'd like to put them to eeprom but how it is done?

To memory it could be done with variable or buffer: 

To use eeprom, I would have to use value.

I haven't tested this but something like

: eearray ( n "<spaces>name" -- )
   value cells edp + to edp 
;
would make array I believe.

Then I believe it is possible to somehow to use !e[] to write it there. or plain !e

However I'm using ATMega128 which has 128kB flash, 4k EEPROM and 4k RAM this kind of constant data should be put to flash. Now I'm wondering how I do that.

(ATmega128)> hex dp .
16B6  ok
If I'm correct I have plenty of room before 0xf000 where NRWW -flash starts.

I would propably need something like case, which would be way too heavy,

: neededtrick jump forward in definition ;

: my_data@ ( index -- data )
neededtrick 
\ Or something like cells latest + 2 0 do dup @ swap loop exit
$1234
$5678
exit
$9012
$3456
exit
...
;

Does anyone has any good ideas about this or good warnings?

Best regards,
Hannu Vuolasaho
 		 	   		  

Re: [Amforth] unspecified base in device/X/X.frt files

[Matthias T. <mt...@we...>]

Hi,

> So, should there be a "decimal", or should there be prefixes?
> And shouldn't these addresses be in hex notation anyway?
> 
> I vote for hex notation with prefixes.

A prefix is obviously a good thing (tm), the actual number
base itself turns into something less important then.

You force me to re-think my own scripts ;)

Matthias

Re: [Amforth] AMFORTH

[Matthias T. <mt...@we...>]

Hi Paul,

Erich already did most of the work.


> 3. Is there a list of the .set want ... options that can be used?

Not really a list but a hint: You can look for lines like
".set WANT_... " in the core/ directory. One file is "macros.asm"
which defines some generic settings. The other source for WANT
options is the devices/<controller>/device.asm file. Here you
find much more options depending on the controllertype: SPI,
USART(s), TWI, various TIMERs etc.

I'll add some more comments to the application template file
ASAP.

The WANT options are handled via conditional assembly. Just look
for lines like ".if WANT...=" in the (again) core directory. The
options are not exposed to the forth level however (one may
think of environment queries, but thats left as a task for
someone else, if really needed).

> And, BTW great job on AMFORTH. It is great to have a FORTH that fits into
> such a small micro.

Thank you

Matthias

Re: [Amforth] AMFORTH

[Erich W. <ew....@na...>]

Hi Paul,

welcome to the list!

On 09/14/2012 09:31 PM, Paul Verbeke wrote:
> Hi,
>
> 1. I have an ATMEGA 328P Arduino board. I have loaded the prebuilt hex file
> and everything seems ok. However the key word does not seem to work as
> expected. If I type KEY and return it does nothing but it echos the
> characters back that are being typed. I was expecting AMFORTH to return
> after I hit a key and it would be TOS. If I type WARM and do the same thing
> it always returns 10 in TOS even if I type nothing. KEY? always returns a
> value regardless. Is there something else I need to do or set for this to
> work?

Let's see:
 > ver
amforth 4.9 ATmega328P ok
 > key<return><Z>
  ok
 > decimal .
90  ok

so this works for me as you expected it to work.

>
> 2. Also, the MARKER file in the library does not seem to work either.
>
I'm using this all the time and it does work:
 > words
test msg endmorse morse morseemit ...
 > marker --blubb--
  ok
 > : msg ." howdy, mate!" cr ;
  ok
 > msg
howdy, mate!
  ok
 > words
msg --blubb-- test msg endmorse morse morseemit ...
 > --blubb--
  ok
 > msg
ab ab ab ok
 > words
test msg endmorse morse morseemit ...
 >
so calling the marker does remove the last definition of " msg " 
from the wordlist and brings the older one back.

So I suspekt, your prebuild .hex files are maybe not up to 
snuff?? Where did you get them?

> 3. Is there a list of the .set want ... options that can be used?
>
Well, there are these in ./appl/template/template.asm
grep WANT_ ../amforth/trunk/appl/template/template.asm
.set WANT_IGNORECASE = 1
.set WANT_ISR_RX = 1 ; interrupt driven receive
.set WANT_ISR_TX = 0 ; send slowly but with less code space

There are lots more in the inner workings of the Atmel 
AvrAssembler2. I'm not sure, how much these are of use for 
hacking amforth.

Cheers,
Erich

[Amforth] unspecified base in device/X/X.frt files

[Erich W. <ew....@na...>]

Hi,

to maybe save others some time debugging ...

I do upload the file amforth/releases/4.x/$device/$device.frt
onto the controller. Moving a working program from amforth
4.6 to amforth 4.9 revealed, that there is a change in these
files.

4.6:
hex
...
2B constant PORTD

4.9
...
43 constant PORTD

The address of PORTD is still $2b, just written in decimal,
however, there is no "decimal" at the beginning of the file,
nor a &-prefix, both of which would not have caused me any
grief. Adding "decimal" at the beginning of this file made
my program work again.

So, should there be a "decimal", or should there be prefixes?
And shouldn't these addresses be in hex notation anyway?

I vote for hex notation with prefixes.

Cheers,
Erich

[Amforth] AMFORTH

[Paul V. <pav...@gm...>]

Hi,

1. I have an ATMEGA 328P Arduino board. I have loaded the prebuilt hex file
and everything seems ok. However the key word does not seem to work as
expected. If I type KEY and return it does nothing but it echos the
characters back that are being typed. I was expecting AMFORTH to return
after I hit a key and it would be TOS. If I type WARM and do the same thing
it always returns 10 in TOS even if I type nothing. KEY? always returns a
value regardless. Is there something else I need to do or set for this to
work?

2. Also, the MARKER file in the library does not seem to work either.

3. Is there a list of the .set want ... options that can be used?

I just joined the list hope these questions have not been asked.

And, BTW great job on AMFORTH. It is great to have a FORTH that fits into
such a small micro.

Thanks,

Paul Verbeke

Re: [Amforth] Bug

[Arthur I. <ai...@la...>]

To Erich Waelde.

I wrote :
> I think I see a bug in your AmForth v4.9.

You wrote :
>  > ver
> amforth 4.6 ATmega328P ok
>  > 9 0 10 within .
> -1  ok
>  > 10 0 10 within .
> -1  ok

But 4.9 is not 4.6.
And 4.6 is not 4.9.

I do not have AmForth v4.6, but sure that WITHIN word was changed
during transition 4.6 -> 4.9.

Look.
At 4.9 in file ..\core\words\within.asm we now see

; : within >r over > swap r> > or 0= ;
; alternativly
; : within over - >r - r> u< ;

But this are TWO NOT EQUIVALENT definitions of WITHIN !!!

If think in 4.6 it was
: within >r over > swap r> > or 0= ;
and it is NOT according to ANSI standart.

At 4.9 we have
: within over - >r - r> u< ;
and this is ACCORDING to ANSI standart.

What is the difference ?
Look at this :

: WITHIN >R OVER > SWAP R> > OR 0= ;
WITHIN redefined
  Ok
9 0 10 WITHIN .
-1  Ok
10 0 10 WITHIN .
-1  Ok                           <- WRONG !!!
: WITHIN OVER - >R - R> U< ;
WITHIN redefined
  Ok
9 0 10 WITHIN .
-1  Ok
10 0 10 WITHIN .
0  Ok                            <- RIGHT !!!

I think the definition of WITHIN was changed on transition from
4.6 to 4.9, but the definition of TOLOWER was not changed accordingly.

And this is the source of both : a bug and an our misunderstanding.

                              Arthur Ivanov

Re: [Amforth] Bug

[Matthias T. <mt...@we...>]

Hi Arthur,

> I think I see a bug in your AmForth v4.9.
> In file ..\core\words\to-lower.asm I see

....

> This will not convert Z chat to lower case.
> To fix you have to replace the string
>      .dw 'Z'
> by the string
>      .dw 'Z'+1

Yes indeed. Thank you. Fix applied.

btw: the toupper word does respect the limits
of WITHIN correctly. And yes: the amforth
WITHIN does work as specified in the standards.
Whoever may be guilty of its strangeness ;)

Matthias

Re: [Amforth] Bug

[Michael K. <mi-...@t-...>]

Hi.

gforth:
0 0 10 within . -1  ok
-1 0 10 within . 0  ok
9 0 10 within . -1  ok
10 0 10 within . 0  ok

Michael

Am 12.09.2012 um 14:43 schrieb Hannu Vuolasaho:

>
> Hello!
>
> I had standard :
> Secretariat
>
> Computer and Business Equipment Manufacturers Association
> Approved:  March 24, 1994
> American National Standards Institute, Inc.
>
> open in my browser and it says:
>
> 6.2.2440 WITHIN
> CORE EXT
> ( n1|u1 n2|u2 n3|u3 -- flag )
>
> Perform a comparison of a test value n1|u1 with a lower limit n2|u2  
> and
> an upper limit n3|u3, returning true if either (n2|u2 < n3|u3 and
> (n2|u2 <= n1|u1 and n1|u1 < n3|u3)) or (n2|u2 > n3|u3 and
> (n2|u2 <= n1|u1 or n1|u1 < n3|u3)) is true, returning false
> otherwise. An ambiguous condition exists if n1|u1, n2|u2, and n3|u3  
> are
> not all the same type.
>
> See:
> A.6.2.2440 WITHIN
>
>
> Just for the record.
>
> Best regards,
> Hannu Vuolasaho
>
>> Date: Wed, 12 Sep 2012 08:08:01 +0200
>> From: ew....@na...
>> To: amf...@li...
>> Subject: Re: [Amforth] Bug
>>
>> Hello Artur,
>>
>> I think you are pointing to "within" not working as you expect.
>>
>>> ver
>> amforth 4.6 ATmega328P ok
>>> 0 0 10 within .
>> -1  ok
>>> -1 0 10 within .
>> 0  ok
>>> 9 0 10 within .
>> -1  ok
>>> 10 0 10 within .
>> -1  ok
>>
>> Looking into Conklin, Rather -- Forth Programmer's Handbook
>> (3rd. Edition) p.59:
>>
>> WITHIN ( x1 x2 x3 -- flag )
>> return true if x1 is greater than or equal to x2 AND less than
>> x3. ...
>>
>> So x3 is excluded in the "true" case. As you can see above,
>> "within" in amforth includes x3. Now, someone needs to check
>> "The Standard". :-)
>>
>> Thanks for pointing this out.
>>
>> Cheers,
>> Erich
>>
>> On 09/10/2012 04:31 PM, Arthur Ivanov wrote:
>>> Hi !
>>>
>>> I think I see a bug in your AmForth v4.9.
>>> In file ..\core\words\to-lower.asm I see
>>>
>>> ; ( C --  c) ; String
>>> ; if C is an uppercase letter convert it to lowercase
>>> VE_TOLOWER:
>>>       .dw $ff07
>>>       .db "tolower",0
>>>       .dw VE_HEAD
>>>       .set VE_HEAD = VE_TOLOWER
>>> XT_TOLOWER:
>>>       .dw DO_COLON
>>> PFA_TOLOWER:
>>>       .dw XT_DUP
>>>       .dw XT_DOLITERAL
>>>       .dw 'A'
>>>       .dw XT_DOLITERAL
>>>       .dw 'Z'
>>>       .dw XT_WITHIN
>>>       .dw XT_DOCONDBRANCH
>>>       .dw PFA_TOLOWER0
>>>       .dw XT_DOLITERAL
>>>       .dw $20
>>>       .dw XT_OR PFA_TOLOWER0:
>>>       .dw XT_EXIT
>>>
>>> This will not convert Z chat to lower case.
>>> To fix you have to replace the string
>>>       .dw 'Z'
>>> by the string
>>>       .dw 'Z'+1
>>>
>>>                             Ethereal
>>>
>>> -------------------------------------------------------------------- 
>>> ----------
>>> Live Security Virtual Conference
>>> Exclusive live event will cover all the ways today's security and
>>> threat landscape has changed and how IT managers can respond.  
>>> Discussions
>>> will include endpoint security, mobile security and the latest in  
>>> malware
>>> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
>>> _______________________________________________
>>> Amforth-devel mailing list for http://amforth.sf.net/
>>> Amf...@li...
>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>>
>>
>> --------------------------------------------------------------------- 
>> ---------
>> Live Security Virtual Conference
>> Exclusive live event will cover all the ways today's security and
>> threat landscape has changed and how IT managers can respond.  
>> Discussions
>> will include endpoint security, mobile security and the latest in  
>> malware
>> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
>> _______________________________________________
>> Amforth-devel mailing list for http://amforth.sf.net/
>> Amf...@li...
>> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>  		 	   		
> ---------------------------------------------------------------------- 
> --------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and
> threat landscape has changed and how IT managers can respond.  
> Discussions
> will include endpoint security, mobile security and the latest in  
> malware
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] Bug

[Hannu V. <vu...@ms...>]

Hello!

I had standard :
Secretariat

Computer and Business Equipment Manufacturers Association
Approved:  March 24, 1994
American National Standards Institute, Inc.

open in my browser and it says:

6.2.2440 WITHIN
CORE EXT
( n1|u1 n2|u2 n3|u3 -- flag )

Perform a comparison of a test value n1|u1 with a lower limit n2|u2 and
an upper limit n3|u3, returning true if either (n2|u2 < n3|u3 and
(n2|u2 <= n1|u1 and n1|u1 < n3|u3)) or (n2|u2 > n3|u3 and
(n2|u2 <= n1|u1 or n1|u1 < n3|u3)) is true, returning false
otherwise. An ambiguous condition exists if n1|u1, n2|u2, and n3|u3 are
not all the same type.

See:
A.6.2.2440 WITHIN


Just for the record.

Best regards,
Hannu Vuolasaho

> Date: Wed, 12 Sep 2012 08:08:01 +0200
> From: ew....@na...
> To: amf...@li...
> Subject: Re: [Amforth] Bug
> 
> Hello Artur,
> 
> I think you are pointing to "within" not working as you expect.
> 
>  > ver
> amforth 4.6 ATmega328P ok
>  > 0 0 10 within .
> -1  ok
>  > -1 0 10 within .
> 0  ok
>  > 9 0 10 within .
> -1  ok
>  > 10 0 10 within .
> -1  ok
> 
> Looking into Conklin, Rather -- Forth Programmer's Handbook 
> (3rd. Edition) p.59:
> 
> WITHIN ( x1 x2 x3 -- flag )
> return true if x1 is greater than or equal to x2 AND less than 
> x3. ...
> 
> So x3 is excluded in the "true" case. As you can see above,
> "within" in amforth includes x3. Now, someone needs to check
> "The Standard". :-)
> 
> Thanks for pointing this out.
> 
> Cheers,
> Erich
> 
> On 09/10/2012 04:31 PM, Arthur Ivanov wrote:
> > Hi !
> >
> > I think I see a bug in your AmForth v4.9.
> > In file ..\core\words\to-lower.asm I see
> >
> > ; ( C --  c) ; String
> > ; if C is an uppercase letter convert it to lowercase
> > VE_TOLOWER:
> >       .dw $ff07
> >       .db "tolower",0
> >       .dw VE_HEAD
> >       .set VE_HEAD = VE_TOLOWER
> > XT_TOLOWER:
> >       .dw DO_COLON
> > PFA_TOLOWER:
> >       .dw XT_DUP
> >       .dw XT_DOLITERAL
> >       .dw 'A'
> >       .dw XT_DOLITERAL
> >       .dw 'Z'
> >       .dw XT_WITHIN
> >       .dw XT_DOCONDBRANCH
> >       .dw PFA_TOLOWER0
> >       .dw XT_DOLITERAL
> >       .dw $20
> >       .dw XT_OR PFA_TOLOWER0:
> >       .dw XT_EXIT
> >
> > This will not convert Z chat to lower case.
> > To fix you have to replace the string
> >       .dw 'Z'
> > by the string
> >       .dw 'Z'+1
> >
> >                             Ethereal
> >
> > ------------------------------------------------------------------------------
> > Live Security Virtual Conference
> > Exclusive live event will cover all the ways today's security and
> > threat landscape has changed and how IT managers can respond. Discussions
> > will include endpoint security, mobile security and the latest in malware
> > threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> > _______________________________________________
> > Amforth-devel mailing list for http://amforth.sf.net/
> > Amf...@li...
> > https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 
> 
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and 
> threat landscape has changed and how IT managers can respond. Discussions 
> will include endpoint security, mobile security and the latest in malware 
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
 		 	   		  

Re: [Amforth] Bug

[Erich W. <ew....@na...>]

Hello Artur,

I think you are pointing to "within" not working as you expect.

 > ver
amforth 4.6 ATmega328P ok
 > 0 0 10 within .
-1  ok
 > -1 0 10 within .
0  ok
 > 9 0 10 within .
-1  ok
 > 10 0 10 within .
-1  ok

Looking into Conklin, Rather -- Forth Programmer's Handbook 
(3rd. Edition) p.59:

WITHIN ( x1 x2 x3 -- flag )
return true if x1 is greater than or equal to x2 AND less than 
x3. ...

So x3 is excluded in the "true" case. As you can see above,
"within" in amforth includes x3. Now, someone needs to check
"The Standard". :-)

Thanks for pointing this out.

Cheers,
Erich

On 09/10/2012 04:31 PM, Arthur Ivanov wrote:
> Hi !
>
> I think I see a bug in your AmForth v4.9.
> In file ..\core\words\to-lower.asm I see
>
> ; ( C --  c) ; String
> ; if C is an uppercase letter convert it to lowercase
> VE_TOLOWER:
>       .dw $ff07
>       .db "tolower",0
>       .dw VE_HEAD
>       .set VE_HEAD = VE_TOLOWER
> XT_TOLOWER:
>       .dw DO_COLON
> PFA_TOLOWER:
>       .dw XT_DUP
>       .dw XT_DOLITERAL
>       .dw 'A'
>       .dw XT_DOLITERAL
>       .dw 'Z'
>       .dw XT_WITHIN
>       .dw XT_DOCONDBRANCH
>       .dw PFA_TOLOWER0
>       .dw XT_DOLITERAL
>       .dw $20
>       .dw XT_OR PFA_TOLOWER0:
>       .dw XT_EXIT
>
> This will not convert Z chat to lower case.
> To fix you have to replace the string
>       .dw 'Z'
> by the string
>       .dw 'Z'+1
>
>                             Ethereal
>
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and
> threat landscape has changed and how IT managers can respond. Discussions
> will include endpoint security, mobile security and the latest in malware
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] Bug

[Arthur I. <ai...@la...>]

Hi !

I think I see a bug in your AmForth v4.9.
In file ..\core\words\to-lower.asm I see

; ( C --  c) ; String
; if C is an uppercase letter convert it to lowercase
VE_TOLOWER:
     .dw $ff07
     .db "tolower",0
     .dw VE_HEAD
     .set VE_HEAD = VE_TOLOWER
XT_TOLOWER:
     .dw DO_COLON
PFA_TOLOWER:
     .dw XT_DUP
     .dw XT_DOLITERAL
     .dw 'A'
     .dw XT_DOLITERAL
     .dw 'Z'
     .dw XT_WITHIN
     .dw XT_DOCONDBRANCH
     .dw PFA_TOLOWER0
     .dw XT_DOLITERAL
     .dw $20
     .dw XT_OR PFA_TOLOWER0:
     .dw XT_EXIT

This will not convert Z chat to lower case.
To fix you have to replace the string
     .dw 'Z'
by the string
     .dw 'Z'+1

                           Ethereal

[Amforth] New Recipes on the Homepage

[Matthias T. <mt...@we...>]

Folks,

The collection of recipes on the amforth homepage got a
few more ones: a debugger shell (well sort of) and a
simple string recipe that demonstrates basic string
operations: input, output and number conversion.

Have a look at http://amforth.sourceforge.net/recipes/index.html

Matthias