Hello, one more experiment: works on trunk. See below:
On 04/23/2014 03:33 PM, Erich Waelde wrote: > > On 04/22/2014 09:27 PM, Erich Waelde wrote: >> Hello, >> >> it may well be me being stupid... >> >> building clean amforth-5.2 from releases/5.2/appl/template >> add "words/1ms.asm" to dict_appl.inc >> fix template.asm for atmega32.asm >> loading lib/bitnames.frt and core/devices/atmega32/atmega32.frt >> >> The following code produces a reset at calling " key? ". >> >> PORTB 0 portpin: led0 >> : init led0 pin_output led0 high ; >> : ms 0 ?do 1ms loop ; >> : once led0 low &200 ms led0 high &800 ms ; >> : run init begin once key? until ; >> >> >> >>> ver >> amforth 5.2 ATmega32 ok >>> PORTB 0 portpin: led0 >> ok >>> : init led0 pin_output led0 high ; >> ok >>> decimal >> ok >>> : ms 0 ?do 1ms loop ; >> ok >>> : once led0 low &200 ms led0 high &800 ms ; >> ok >>> : run init begin once key? until ; >> ok >>> run >> amforth 5.2 ATmega32 > > I did some more experiments, since this code used to work. > It works in amforth 4.9, 5.0 > It fails in amforth 5.1. 5.2 > so some change broke it, it seems to me. > "does it work on trunk?" ew@metis:~/Forth/amforth 5 > svn info ... URL: svn://svn.code.sf.net/p/amforth/code Revision: 1564 Last Changed Rev: 1564 > ver amforth 5.3 ATmega32 ok > : ms 0 ?do 1ms loop ; ok > 500 ms ok > : once [char] . emit &1000 ms ; ok > once . ok > : run begin once key? until ; ok > run .... ok > yes, that works. Can get back to the prompt by pressing Return (didn't have an any-key :-) > And no, I don't use amforth-shell.py. I use > minicom -wo -b 115200 -D /dev/ttyUSB0 > or similar. Cheers, Erich ------------------------------------------------------------------------------ Start Your Social Network Today - Download eXo Platform Build your Enterprise Intranet with eXo Platform Software Java Based Open Source Intranet - Social, Extensible, Cloud Ready Get Started Now And Turn Your Intranet Into A Collaboration Platform http://p.sf.net/sfu/ExoPlatform _______________________________________________ Amforth-devel mailing list for http://amforth.sf.net/ Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
