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 ------------------------------------------------------------------------------ Virtualization & Cloud Management Using Capacity Planning Cloud computing makes use of virtualization - but cloud computing also focuses on allowing computing to be delivered as a service. http://www.accelacomm.com/jaw/sfnl/114/51521223/ _______________________________________________ Amforth-devel mailing list for http://amforth.sf.net/ Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
