OH something I forgot to ask. What crystal frequency are you running it at ??
Cheers Andy Kirby On 27/08/10 20:38, pito wrote: >> words > TIMER3_OVFAddr TIMER3_COMPBAddr TIMER3_COMPAAddr TIMER3_CAPTAddr > USART1_TXAddr USART1_UDREAddr USART1_RXAddr SPM_READYAddr TWIAddr > EE_READYAddr ADCAddr ANALOG_COMPAddr USART0_TXAddr USART0_UDREAddr > USART0_RXAddr SPI_STCAddr TIMER0_OVFAddr TIMER0_COMPBAddr > TIMER0_COMPAAddr TIMER1_OVFAddr TIMER1_COMPBAddr TIMER1_COMPAAddr > TIMER1_CAPTAddr TIMER2_OVFAddr TIMER2_COMPBAddr TIMER2_COMPAAddr > WDTAddr PCINT3Addr PCINT2Addr PCINT1Addr PCINT0Addr INT2Addr > INT1Addr INT0Addr WDTCSR UDR1 UCSR1C UCSR1B UCSR1A UBRR1L UBRR1H > UDR0 UCSR0C UCSR0B UCSR0A UBRR0L UBRR0H TWSR TWDR TWCR TWBR TWAR > TWAMR TIMSK3 TIFR3 TCNT3L TCNT3H TCCR3C TCCR3B TCCR3A OCR3BL OCR3BH > OCR3AL OCR3AH ICR3L ICR3H TIMSK2 TIFR2 TCNT2 TCCR2B TCCR2A OCR2B > OCR2A ASSR TIMSK1 TIFR1 TCNT1L TCNT1H TCCR1C TCCR1B TCCR1A OCR1BL > OCR1BH OCR1AL OCR1AH ICR1L ICR1H TIMSK0 TIFR0 TCNT0 TCCR0B TCCR0A > OCR0B OCR0A GTCCR SPSR SPDR SPCR PORTD PIND DDRD PORTC PINC DDRC > PORTB PINB DDRB PORTA PINA DDRA OCDR PCMSK3 PCMSK2 PCMSK1 PCMSK0 > PCIFR PCICR EIMSK EIFR EICRA EEDR EECR EEARL EEARH SREG SPL SPH SMCR > RAMPZ PRR1 PRR0 OSCCAL MCUSR MCUCR GPIOR2 GPIOR1 GPIOR0 CLKPR SPMCSR > DIDR1 ACSR DIDR0 ADMUX ADCSRB ADCSRA ADCL ADCH primes DO-PRIME 2drop > bit-reset bit? bit-addr flags size #times _sieve_ move blank nip > tuck ? xt>nfa >body chars char+ c, aligned align restore-input > save-input source-id marker postpone m+ 2variable 2constant 2! 2@ > 2tuck 2nip 2rot 2swap 2over 2dup 2drop 2r> 2>r .base calc-baudrate > .res .( erase 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* + - log2 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 tx? tx rx? rx order get-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 is Rdefer Edefer words s" ." .s u. dinvert > d- d+ d2* 1ms fill set-order set-current 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 bl hex decimal bin ['] , compile ( \ allot > here edp dp /key key? key emit? emit pad #tib >in cell+ cells base > state f_cpu ok >> .res > free FLASH cells 56498 > free RAM cells 12078 > used EEPROM cells 62 > used data stack cells 0 > used return stack 10 > free return stack 70 > ok >> Pito > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "pito" <p...@volna.cz> > Komu: p...@volna.cz, mtr...@web.de, > amforth-devel@lists.sourceforge.net > Předmět: Re: [Amforth-devel] 1284p compilation > Datum: 27.8.2010 - 21:33:15 > >> size 16384, ~5sek @11.059MHz >>> primes >> >> 1 iterations. >> 3511 primes found, ok >>> >> >> size 32000, ~11sek @11.059MHz >>> primes >> >> 1 iterations. >> 6412 primes found, ok >>> >> >> ----- PŮVODNÍ ZPRÁVA ----- >> Od: "pito" <p...@volna.cz> >> Komu: p...@volna.cz, mtr...@web.de, >> amforth-devel@lists.sourceforge.net >> Předmět: Re: [Amforth-devel] 1284p compilation >> Datum: 27.8.2010 - 21:13:46 >> >>>> .res >>> free FLASH cells 58231 >>> free RAM cells 16080 >>> used EEPROM cells 62 >>> used data stack cells 0 >>> used return stack 10 >>> free return stack 70 >>> ok >>>> Cool >>> >>> PS: shall be "free RAM bytes" >>> >>> Pito. >>> >>> ----- PŮVODNÍ ZPRÁVA ----- >>> Od: "pito" <p...@volna.cz> >>> Komu: p...@volna.cz, mtr...@web.de, >>> amforth-devel@lists.sourceforge.net >>> Předmět: Re: [Amforth-devel] 1284p compilation >>> Datum: 27.8.2010 - 21:07:20 >>> >>>> RESULT: >>>> Fuses: l=FF h=D9 e=FF >>>> source burned with pony-stk200 via lpt1 and >>>> sinaprog (avrdude gui): >>>>> >>>> ok >>>>> ver >>>> amforth 4.0 ATmega1284P 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* + - >>>> log2 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 tx? tx rx? rx order get-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 is Rdefer Edefer words s" ." .s u. >>>> dinvert d- d+ d2* 1ms >>>> fill set-order set-current 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 >>>> bl hex decimal bin ['] , compile ( \ allot >>>> here >>>>>> edp dp /key key? key >>>> emit? emit pad #tib >in cell+ cells base state >>>> f_cpu ok >>>>> Pito >>>> >>>> >>>> >>>> ----- PŮVODNÍ ZPRÁVA ----- >>>> Od: "pito" <p...@volna.cz> >>>> Komu: mtr...@web.de, >>>> amforth-devel@lists.sourceforge.net >>>> Předmět: Re: [Amforth-devel] 1284p compilation >>>> Datum: 27.8.2010 - 20:12:48 >>>> >>>>> With (template.asm based on Matthias): >>>>> >>>>> ; initial baud rate of terminal >>>>> .equ BAUD = 115200 >>>>> .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) >>>>> .equ WANT_ISR_RX = 1; >>>>> .if WANT_ISR_RX == 1 >>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>> (1<<RXEN0)| >>>>>>>> (1<<RXCIE0) >>>>> .else >>>>> .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) >>>>> .endif >>>>> ; 8N1 is commonly used >>>>> .equ USART_C_VALUE = (3<<UCSZ00) >>>>> .include "drivers/usart_0.asm" >>>>> >>>>> the result of compilation is: >>>>> >>>>> ATmega1284P memory use summary [bytes]: >>>>> Segment Begin End Code Data >>>>> Used >>>>>>>> >>>>>>> >>>>>> Size Use% >>>>> --------------------------------------------------------------- >>>>>>>>>>>>>>>>>> [.cseg] 0x000000 0x01e7e2 1882 >>>>>>>>>>> 6134 >>>>>>>>>>>>>>> 8016 >>>>>>>> 131072 6.1% >>>>> [.dseg] 0x000100 0x000100 0 0 >>>>> 0 >>>>>>>> >>>>>>> 16384 0.0% >>>>> [.eseg] 0x000000 0x00003e 0 62 >>>>> 62 >>>>>>>> >>>>>>> >>>>>> 4096 1.5% >>>>> >>>>> Assembly complete, 0 errors. 0 warnings >>>>> >>>>> I hope WANT_ISR_RX = 1 is what I want.. >>>>> Pito >>>>> >>>>> ----- PŮVODNÍ ZPRÁVA ----- >>>>> Od: "Matthias Trute" <mtr...@web.de> >>>>> Komu: "Everything around amforth" >>>>> <amforth-devel@lists.sourceforge.net> >>>>> Předmět: Re: [Amforth-devel] 1284p >>>>> compilation >>>>>>>> Datum: 27.8.2010 - 19:43:36 >>>>> >>>>>> Am Freitag, den 27.08.2010, 17:24 +0200 >>>>>> schrieb >>>>>>>> pito: >>>>>>> FYI - result of the compilation for >>>>>>> 1284p >>>>>>>>>>>> (avr >>>>>>>>>> studio 4.18), device >>>>>>>> from trunk: >>>>>>> >>>>>>> AVRASM: AVR macro assembler 2.1.42 >>>>>>> (build >>>>>>>>>>>> 1796 >>>>>>>>>> Sep 15 2009 10:48:36) >>>>>>>> Copyright (C) 1995-2009 ATMEL >>>>>>>> Corporation >>>>>>>>>>> >>>>>> Thats the version I use too. so far ok >>>>>> >>>>>>> >>>>>>> ... >>>>>>> C:\MyCode\AVR\WINAVR\projects\AMFORTH\core\drivers/usart.asm(2): >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Here lies probably the root cause: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> try> > > > > including >>>>>>>> the usart_0.asm >>>>>> file instead. >>>>>> >>>>>> The following template.asm snippet did >>>>>> work >>>>>>>>>> out >>>>>>>> of >>>>>>> the (trunk-) box >>>>>> (note the additional 0 digits almost >>>>>> everywhere) >>>>>>>> ----------- >>>>>> ... >>>>>> ; initial baud rate of terminal >>>>>> .equ BAUD = 9600 >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0) >>>>>>>>>> >>>>>> .if WANT_ISR_RX == 1 >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0)| >>>>>>>>> (1<<RXCIE0) >>>>>> .else >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0) >>>>>>>>>> .endif >>>>>> ; 8N1 is commonly used >>>>>> .equ USART_C_VALUE = (3<<UCSZ00) >>>>>> .include "drivers/usart_0.asm" >>>>>> .......... >>>>>> ----------------- >>>>>> >>>>>> template.hex: >>>>>> [echo] Producing Hexfiles for atmega1284p >>>>>> >>>>>> BUILD SUCCESSFUL >>>>>> Total time: 4 seconds >>>>>> >>>>>> ------------- >>>>>> >>>>>> Without that _0 the wrong usart drivers >>>>>> gets >>>>>>>>>> included (dont blame >>>>>> me for that). >>>>>> >>>>>> HTH >>>>>> >>>>>> Matthias >>>>>> >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Sell apps >>>>>>>>>>>>>>>>>>>>>> to >>>>>>>>>>>>>>>>>>>>>> millions >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> through the> > > > > > > > > > > > > > > > >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > > > > Intel(R) >>>>>>>>>>>> Atom(Tm) Developer Program >>>>>> Be part of this innovative community and >>>>>> reach >>>>>>>>> millions of netbook users >>>>>> worldwide. Take advantage of special >>>>>> opportunities >>>>>>> to increase revenue and >>>>>> speed time-to-market. Join now, and >>>>>> jumpstart >>>>>>>>> your >>>>>>> future. >>>>>> http://p.sf.net/sfu/intel-atom-d2d >>>>>> _______________________________________________ >>>>>>>>>>>>>>> Amforth-devel mailing list >>>>>> Amforth-devel@lists.sourceforge.net >>>>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel >>>>>>>>>>>>>>> >>>>> >>>>> >>>>> ------------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>> Sell apps to millions >>>>>>>>>>>>>> through the >>>>>>>>>>>>>>>>>>>>> Intel(R) >>>>>>>>>>> Atom(Tm) Developer Program >>>>> Be part of this innovative community and >>>>> reach >>>>>>>> millions of netbook users >>>>> worldwide. Take advantage of special >>>>> opportunities >>>>>> to increase revenue and >>>>> speed time-to-market. Join now, and >>>>> jumpstart >>>>>>>> your >>>>>> future. >>>>> http://p.sf.net/sfu/intel-atom-d2d >>>>> _______________________________________________ >>>>>>>>>> Amforth-devel mailing list >>>>> Amforth-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel >>>>>>>>>> >>>> >>> >>> >> >> > > > > ------------------------------------------------------------------------------ > Sell apps to millions through the Intel(R) Atom(Tm) Developer Program > Be part of this innovative community and reach millions of netbook users > worldwide. Take advantage of special opportunities to increase revenue and > speed time-to-market. Join now, and jumpstart your future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amforth-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/amforth-devel > ------------------------------------------------------------------------------ Sell apps to millions through the Intel(R) Atom(Tm) Developer Program Be part of this innovative community and reach millions of netbook users worldwide. Take advantage of special opportunities to increase revenue and speed time-to-market. Join now, and jumpstart your future. http://p.sf.net/sfu/intel-atom-d2d _______________________________________________ Amforth-devel mailing list Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
