;INCLUDE FILE FOR ATMEGA16
.include "m16def.inc"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.def	temp	=r16	;temp
.equ	CLOCK	=4000000
.equ	BAUD	=9600
.equ	UBRRVAL	=CLOCK/(BAUD*16)-1

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


;set baud rate
ldi	temp,LOW(UBRRVAL)
out	UBRRL,temp
ldi	temp,HIGH(UBRRVAL)
out	UBRRH,temp

;frame format: 8 bit
ldi temp, (1<<URSEL)|(3<<UCSZ0)
out UCSRC,temp

;activate TX mode
sbi	UCSRB,TXEN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

loop:
ldi		temp, 'T'
rcall	serout
ldi		temp, 'e'
rcall	serout
ldi		temp, 's'
rcall	serout
ldi		temp, 't'
rcall	serout
ldi		temp, '!'
rcall	serout
ldi		temp, 10
rcall	serout
ldi		temp, 13
rcall	serout
rjmp loop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

serout:
sbis	UCSRA,UDRE	;warten, bis UDR bereit
rjmp	serout		;Schleife, wenn nicht bereit
out	UDR,temp	;Ausgabe, wenn bereit
ret			;Rücksprung

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;