; 2010-12-30  main.asm  EW
;
; this file is derived from
; amforth/releases/4.2/appl/template/template.asm
;
; 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
;
; note: .set is like a variable, .equ is like a constant
;
; first is to include the macros from the amforth directory
.include "macros.asm"

; config settings
.set WANT_ISR_RX = 1 ; interrupt driven receive
.set WANT_ISR_TX = 1 ; interrupt driven send
.set WANT_RS485  = 1 ; rs485 half duplex connection
.set WANT_MPC    = 1 ; multi-processor-communication mode (7N2, 8N1 modes)

; include the amforth device definition file. These
; files include the *def.inc from atmel internally.
.include "device.asm"

; amforth needs two essential parameters
; cpu clock in hertz, 1MHz is factory default
.equ F_CPU = 11059200
	
; initial baud rate of terminal
.equ BAUD = 115200
; additional .equs for "old fashioned" mcu with usart, not usart0
.equ TXEN0  = TXEN
.equ RXEN0  = RXEN
.equ RXCIE0 = RXCIE
.equ UCSZ00 = UCSZ0
.equ TXCIE0 = TXCIE

.set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0)

.if WANT_ISR_RX == 1
  .if WANT_RS485 == 1
    .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0)| (1<<RXCIE0) | (1<<TXCIE0)
  .else
    .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0)| (1<<RXCIE0)
  .endif
.else
  .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0)
.endif
; 8N1 is commonly used
.equ USART_C_VALUE = (1<<URSEL) | (3<<UCSZ00)

; .include "drivers/usart_0.asm"
.include "drivers/usart.asm"

; rs485 transceiver on tx, rx, D.7==w/r, low==read
.if  WANT_RS485 == 1
  .set RS485_RW_PORT = PORTD	; io location, not mem mapped
  .set RS485_RW_PIN  = 7
.endif

.equ TIBSIZE  = $64    ; ANS94 needs at least 80 characters per line
.equ APPUSERSIZE = 10  ; 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 want_fun = 0 ; in case of an error out print an additional line with
		  ; a caret indicating the error position 

; include the whole source tree.
.include "amforth.asm"

; fin