.nolist
.include "8515def.inc"
.list

.def temp = r16

.CSEG
.ORG 0x00
	rjmp init


init:
	ldi temp, HIGH(RAMEND)
	out SPH, temp
	ldi temp, LOW(RAMEND)
	out SPL, temp

	ldi temp, 0xFF
	out DDRB, temp
	clr temp
	out PORTB, temp

	; Set baud rate
	ldi temp, 0x17
	STS UBRR, temp
	
	sbi USR,TXEN                 ;TX aktivieren

	ldi r17, 0x00

start:

	ldi temp, 'T'
	rcall senduart
	ldi temp, 'e'
	rcall senduart
	ldi temp, 's'
	rcall senduart
	ldi temp, 't'
	rcall senduart
	
	inc r17
	brcs start1

	rjmp start

start1:
	in r18, PINB
	com r18
	out PORTB, r18
	ret


senduart:
        sbis USR,UDRE                   ; Warten bis UDR für das nächste                                         ; Byte bereit ist
        rjmp senduart
        out UDR, temp
        ret                               ; zurück zum Hauptprogramm