.include "8515def.inc" 
 

.equ CLOCK=4000000
.equ BAUD=9600
.equ UBRRVAL=CLOCK/(BAUD*16)-1

rjmp Init	

Init:                
		; **** Stack Pointer Setup Code   ****
		ldi r16,$02		; Stack Pointer Setup 
		out SPH,r16		; Stack Pointer High Byte 
		ldi r16,$5F		; Stack Pointer Setup 
		out SPL,r16		; Stack Pointer Low Byte 
							             
		; **** Comparator Setup Code ****  
		ldi r16,$80		; 
		out ACSR,r16	; Comparator Disabled to save power 
                       
		; **** Port B Setup Code ****  
		ldi r16,$FF		; I/O Direction Values 
		out DDRB,r16	; Port B Direction Register
		ldi r16,$FF		; Init value 
		out PORTB,r16	; Port B value
                       
		; **** Port D Setup Code ****  
		ldi r16,$00		; I/O Direction Values 
		out DDRD,r16	; Port D Direction Register
		ldi r16,$00		; Init value 
		out PORTD,r16	; Port D value
		
		; **** USART Setup Code ****
		ldi r16,HIGH(UBRRVAL)
		out UBRRH,r16			; Baudrate einstellen
		ldi r16,LOW(UBRRVAL)
		out UBRRL,r16

		ldi r16,(1<<URSEL)|(3<<UCSZ0)
		out UCSRC,r16			; Frame-Format:8bit

		ldi r16,(1<<RXEN)|(1<<TXEN)		
		out UCSRB,r16			; TX und RX aktivieren

main:
		rjmp main