Re: [Amforth-devel] 1284p compilation

[pito <pi...@vo...>]

> 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
> > > > > > > > > 
> > > 
> > 
> > 
> 
>