...

;****************************************************************************************************************
.equ		baudrate				= 9600						;gewünschte baudrate
.equ		baudkonstante = (XTAL / (16 * baudrate) )-1			;23

;****************************************************************************************************************
;* subroutine init_serielle_schnittstelle																		*
;****************************************************************************************************************
init_serielle_schnittstelle:

		; einstellung der baudrate
		ldi temp, baudkonstante
		out UBRR1L, temp

		; einstellung des control- und statusregisters
		ldi temp, (0<<RXCIE1)|(0<<TXCIE1)|(0<<UDRIE1)|(1<<RXEN1)|(1<<TXEN1)|(0<<UCSZ12)|(0<<RXB81)|(0<<TXB81)
		out UCSR1B, temp

		; einstellung des datenformates
		ldi temp, (0<<UMSEL1)|(0<<UPM11)|(0<<UPM10)|(0<<USBS1)|(1<<UCSZ11)|(1<<UCSZ10)|(0<<UCPOL1)
		out UCSR1C, temp

		ret

;****************************************************************************************************************
;* subroutine seriell_senden																					*
;****************************************************************************************************************
seriell_senden:

		sbis UCSR1A,UDRE1
		rjmp seriell_senden

		out UDR1, temp

		ret


...