Re: [Amforth-devel] 1284p compilation

[<an...@ki...>]

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" <pi...@vo...>
> Komu: pi...@vo..., mt...@we...,
> amf...@li...
> 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" <pi...@vo...>
>> Komu: pi...@vo..., mt...@we...,
>> amf...@li...
>> 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" <pi...@vo...>
>>> Komu: pi...@vo..., mt...@we...,
>>> amf...@li...
>>> 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" <pi...@vo...>
>>>> Komu: mt...@we...,
>>>> amf...@li...
>>>> 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" <mt...@we...>
>>>>> Komu: "Everything around amforth"
>>>>> <amf...@li...>
>>>>> 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
>>>>>> Amf...@li...
>>>>>> 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
>>>>> Amf...@li...
>>>>> 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
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>