.include "4433def.inc"
.def temp = r16

.org 0x000
        rjmp RESET
        reti
        reti
        reti
        reti
        reti
        reti
        reti
        reti
        reti
	reti

RESET:
ldi r16, RAMEND
out SPL, r16

sbi UCSRB,TXEN                 ;TX aktivieren
ldi temp,4000000/(19200*16)-1 ;Baudrate einstellen
out UBRR,temp

start:
ldi temp, 'A'
rcall serout
ldi temp, 'T'
rcall serout
ldi temp, 'D'
rcall serout
ldi temp, '1'
rcall serout
ldi temp, '2'
rcall serout
ldi temp, '3'
rcall serout
ldi temp, '4'
rcall serout
ldi temp, '5'
rcall serout
ldi temp, '6'
rcall serout
ldi temp, 0x3B
rcall serout
ldi temp, 0x0A
rcall serout
ldi temp, 0x0D
rcall serout

ende:
nop
rjmp ende


serout:
  sbis UCSRA,UDRE
  rjmp serout
  out UDR, temp
  rcall pause
ret

pause:
  ; warte 41940 Zyklen:
          ldi  R20, $3C
	  WGLOOP0:  ldi  R21, $E8
	  WGLOOP1:  dec  R21
          brne WGLOOP1
          dec  R20
          brne WGLOOP0
          ldi  R20, $01
	  WGLOOP2:  dec  R20
          brne WGLOOP2
ret