Re: [Amforth] amForth 4.7 atmega328p (uno) hangs while entering simple colon or constant definitions

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

On 02/29/2012 08:36 PM, Charles Summers wrote:
> Hi Matthias,
> Thanks for the quick reply. Actually each definition was on one line.
> (Maybe my email munged things, I'm not sure). Here's a snippet that may
> show it better: I got an ok after I entered the first line, but never got
> anything after entering the  second line "$24 constant DDRB"
> Let me know what I can do to help with the diagnosis.
> thanks much,
> -chuck
>>
>
>   ok
>
>> $25 constant PORTB
>
>   ok
>
>> $24 constant DDRB
>
>
> (This is where it hangs)
>

Hm. Tested on arduino uno (atmega328p), files from
amforth/releases/4.7/appl/arduino.
It's actually the duemilanove.asm file without modifications.

minicom:
Welcome to minicom 2.6.1

OPTIONS: I18n
Compiled on Feb 11 2012, 18:12:55.
Port /dev/ttyACM0

Press CTRL-A Z for help on special keys

aamforth 4.7 ATmega328P Forthduino
 >
  ok
 > words
words show-wordlist ms 1ms applturnkey is Rdefer
Edefer s" ." .s u. dinvert d- d+ d2* fill c!@spi
sleep wdr -wdt wordlist forth definitions previous
also forth-wordlist only set-order set-current
get-order get-current !e[] @e[] environment?
environment end-code code abort abort" [char]
immediate recurse user constant variable [ ] ;
:noname : does> create ?do leave +loop loop do
again until repeat while begin then else if
sliteral literal @i (!i-nrww) !i @e !e not s>d up!
up@ >< cmove> unloop i sp! sp@ rp! rp@ +! rshift
lshift 1- 1+ xor or and 2* 2/ invert um* um/mod m*
+ - log2 d< d> 0> u> u< true 0 0< > < 0= = <> r@ >r
r> rot drop over swap ?dup dup c@ c! ! @ execute
exit init-user ee>ram ee-user source-tib refill-tib
tib 2swap d2/ cmove dnegate dabs d>s j * icompare
search-wordlist defer@ defer! to value unused noop
ver ?stack rec-notfound rec-find rec-intnum interpret
depth rp0 sp sp0 warm cold pause quit find-name parse-name
/string source cscan parse >number number char refill
accept cskip throw catch handler ' type spaces space
cr icount itype s, u>= u<= digit? ud/mod ud.r ud.
. d. .r d.r sign #> #s # <# hold hld tolower toupper
within max min abs mod / negate u/mod */ /mod */mod
turnkey bl hex decimal bin ['] , compile ( \ header
allot here edp dp key? key emit? emit pad #tib >in
cell+ cells base state f_cpu +usart baud tx?-poll
tx-poll rx?-isr rx-isr int-trap int@ int! -int +int  ok
 > $aa constant bla1
  ok
 > $bb constant bla2
  ok
 > $cc constant bla3
  ok
 >

Works for me.

Erich