Menu
▾
▴
Re: [Amforth-devel] SOLVED: amforth 4.0 for atmega328p (duemilanove) fails to compile new words
|
From: <ken...@al...> - 2010-08-12 23:55:39
|
Thank you. The new fuse values got my BBB (a "freeduino" clone of the arduino duemilanove) working. I will have to go back and see if I still have to use polling input rather than the rx isr. Regards, Ken On Thu, 12 Aug 2010 19:24 +0200, "Erich Waelde" <ew....@na...> wrote: > For the records: > > With help from Matthias it was found that the fuse settings were causing > this. > > Using > > avrdude: reading hfuse memory: 0xd9 > avrdude: reading lfuse memory: 0xff > avrdude: reading efuse memory: 0x05 > > everything works as expected. > Please note that the above settings are different from what is found in > releases/4.0/appl/arduino/readme.txt > > > Cheers, > Erich > > > > ver > amforth 3.8 ATmega328P ok > > words > i@ (i!) 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* + - log > 2 d< d> 0> u> u< true 0 0< > < 0= = <> r@ >r r> rot drop over swap ?dup > dup c@ c! ! @ execute exit -int +int fill show-wordlist order ge > t-order get-current 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 literal int! applturnkey +usart baud tx? tx rx? rx is R > defer Edefer words s" ." .s u. dinvert d- d+ d2* init-user ee>ram ee-user > tib d2/ cmove dnegate dabs d>s j * defer@ defer! icompare find > search-wordlist to value unused noop ver ?stack interpret depth rp0 sp > sp0 cold pause quit place word /string source cscan parse 2swap > >number number char refill accept cskip throw catch handler ' type count spaces space cr icount itype s, digit? ud/mod ud.r ud. . d. .r > d.r sign #> #s # <# hold hld within max min abs mod / negate u/mod */ > /mod */mod turnkey heap edp bl hex decimal bin ['] , compile ( \ a > llot here /key key? key emit? emit pad #tib >in cell+ cells base state > f_cpu ok > > : one 1 ; > ok > > 1 2 3 .s > 0 2217 3 > 1 2219 2 > 2 2221 1 > ok > > one > ok > > .s > 0 2215 1 > 1 2217 3 > 2 2219 2 > 3 2221 1 > ok > > > > On 08/07/2010 08:45 PM, Erich Waelde wrote: > > Hello, > > > > playing with an duemilanove board (atmega328p). > > > > I'm building this from files in amforth/releases/4.0/app/template > > not from the arduino directory. This setup is big enough to just > > work (tested on atmega32). > > > > So with the following changes to template.asm > > diff -wu template.asm ../../amforth/releases/4.0/appl/template/template.asm > > --- template.asm 2010-08-07 20:31:40.000000000 +0200 > > +++ ../../amforth/releases/4.0/appl/template/template.asm 2010-07-02 21:16:39.000000000 +0200 > > @@ -12,19 +12,12 @@ > > ; files include the *def.inc from atmel internally. > > .include "device.asm" > > > > -; fixes for atmega328p > > -.equ TXEN = TXEN0 > > -.equ UCSZ0 = UCSZ00 > > -.equ RXEN = RXEN0 > > -.equ RXCIE = RXCIE0 > > - > > - > > ; amforth needs two essential parameters > > ; cpu clock in hertz, 1MHz is factory default > > -.equ F_CPU = 16000000 > > +.equ F_CPU = 8000000 > > > > ; initial baud rate of terminal > > -.include "drivers/usart_0.asm" > > +.include "drivers/usart.asm" > > .equ BAUD = 9600 > > .equ USART_B_VALUE = (1<<TXEN) | (1<<RXEN) | (1<<RXCIE) > > .equ USART_C_VALUE = (3<<UCSZ0) > > > > > > and > > MCU=atmega328p > > in makefile, I can successfully build an amforth, upload it to the controller, > > and talk to it: > > > > > ok > > > > > ok > > > ver > > amforth 4.0 ATmega328P ok > > > words > > i@ (i!) 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* + - log > > 2 d< d> 0> u> u< true 0 0< > < 0= =<> r@>r r> rot drop over swap ?dup dup c@ c! ! @ execute exit -int +int show-wordlist +usart baud t > > x? tx rx? rx order get-order get-current environment? environment end-code code abort abort" [char] immediate recurse user constant vari > > able [ ] ; :noname : does> create ?do leave +loop loop do again until repeat while begin then else if literal int! applturnkey is Rdefer > > Edefer words s" ." .s u. dinvert d- d+ d2* init-user ee>ram ee-user tib d2/ cmove dnegate dabs d>s j * defer@ defer! icompare find sear > > ch-wordlist to value unused noop ver ?stack interpret depth rp0 sp sp0 cold pause quit place word /string source cscan parse 2swap>numb > > er number char refill accept cskip throw catch handler ' type count spaces space cr icount itype s, digit? ud/mod ud.r ud. . d. .r d.r s > > ign #> #s #<# hold hld within max min abs mod / negate u/mod */ /mod */mod turnkey bl hex decimal bin ['] , compile ( \ allot here edp > > dp /key key? key emit? emit pad #tib>in cell+ cells base state f_cpu ok > > > > > > HOWEVER, after trying to create a new word, it stops working: > > > > > : one 1 ; > > ?? -13 10 > > > 1 .s > > ?? -13 5 > > > .s > > ?? -13 3 > > > .s > > ?? -13 3 > > > 1 > > ok > > > . > > ok > > > depth > > ?? -13 6 > > > > This looks to me like the pointer to the wordlist has gone off into the wild. > > Comparing template.asm to arduino/duemilanove.asm does not show suspicious > > differences (see below). > > > > More ideas? > > Erich > > > > > > diff -wu template.asm ../../amforth/releases/4.0/appl/arduino/duemilanove.asm | less > > --- template.asm 2010-08-07 20:31:40.000000000 +0200 > > +++ ../../amforth/releases/4.0/appl/arduino/duemilanove.asm 2010-07-02 21:16:37.000000000 +0200 > > @@ -1,48 +1,23 @@ > > -; This is a template for an amforth project. > > -; > > -; The order of the entries (esp the include order) must not be > > -; changed since it is very important that the settings are in the > > -; right order > > -; > > -; first is to include the macros from the amforth > > -; directory > > .include "macros.asm" > > - > > -; include the amforth device definition file. These > > -; files include the *def.inc from atmel internally. > > .include "device.asm" > > > > -; fixes for atmega328p > > -.equ TXEN = TXEN0 > > -.equ UCSZ0 = UCSZ00 > > -.equ RXEN = RXEN0 > > -.equ RXCIE = RXCIE0 > > - > > + .equ HLDSIZE = $10 ; 16 bit cellsize with binary representation > > + .equ TIBSIZE = $64 ; 80 characters is one line... > > + .equ APPUSERSIZE = 0 ; size of application user area > > > > -; amforth needs two essential parameters > > -; cpu clock in hertz, 1MHz is factory default > > +; cpu clock in hertz > > .equ F_CPU = 16000000 > > - > > -; initial baud rate of terminal > > +; baud rate of terminal > > .include "drivers/usart_0.asm" > > .equ BAUD = 9600 > > -.equ USART_B_VALUE = (1<<TXEN) | (1<<RXEN) | (1<<RXCIE) > > -.equ USART_C_VALUE = (3<<UCSZ0) > > - > > - > > -.equ HLDSIZE = $10 ; 16 bit cellsize with binary representation > > -.equ TIBSIZE = $64 ; ANS94 needs at least 80 characters per line > > -.equ APPUSERSIZE = 0 ; size of application specific user area in bytes > > - > > -; addresses of various data segments > > -.set here = ramstart ; initial HERE at compile time, grows upward > > -.set rstackstart = RAMEND ; start address of return stack, grows downward > > -.set stackstart = RAMEND - 80 ; start address of data stack, grows downward > > -.equ amforth_interpreter = max_dict_addr ; the same value as NRWW_START_ADDR > > -; change only if you know what to you do > > -.equ NUMWORDLISTS = 8 ; number of word lists in the searh order, at least 8 > > +.equ USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) | (1<<RXCIE0) > > +.equ USART_C_VALUE = (1<<UCSZ01) | ( 1<<UCSZ00) > > > > -.equ want_fun = 0 ; in case of an error out print an additional line with an caret indicating the error position > > +.set here = ramstart ; start address of HERE, grows upward > > +.set rstackstart = RAMEND > > +.set stackstart = RAMEND - 80 > > +.set amforth_interpreter = max_dict_addr > > > > -; include the whole source tree. > > +.set NUMWORDLISTS = 8 > > +.equ want_fun = 0 > > .include "amforth.asm" > > > > ------------------------------------------------------------------------------ > > This SF.net email is sponsored by > > > > Make an app they can't live without > > Enter the BlackBerry Developer Challenge > > http://p.sf.net/sfu/RIM-dev2dev > > _______________________________________________ > > Amforth-devel mailing list > > Amf...@li... > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > ------------------------------------------------------------------------------ > This SF.net email is sponsored by > > Make an app they can't live without > Enter the BlackBerry Developer Challenge > http://p.sf.net/sfu/RIM-dev2dev > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel > |
