Schreibsendezeig:	.byte 2	; Schreib   Sendezeiger
Lesensendezeig:		.byte 2	; Lesen     Sendezeiger
.org 	0x200	
Sendepuff:		.byte 128; RS232 Sendepuffer
Sendepuffend:


;    UART Initialisierung
	ldi 	temp, LOW (UBRRVAL)		;Baudrate einstellen
	out 	UBRRL, temp
    	ldi 	temp, HIGH(UBRRVAL)
   	out	UBRRH, temp                     ; auf 9600 Baud
 	ldi	temp,	 (1<<URSEL)| (1<<UMSEL)|(0<<UPM0) | (0<<USBS) | (3<<UCSZ0)	
  	out	ucsrc,temp    	   ;  asynchron,kein Parity,1 Stoppbit,  8 Datenbits
	ldi	temp,	(1<<RXCIE) | (1<<TXCIE)| (1<<UDRIE)| (1<<RXEN)| (1<<TXEN)
	out	UCSRB,temp ;Empfang komplett, Senden komplett, Senden leer, Empfang, Senden aktivieren
;           Pufferzeiger initialisieren
	ldi	xl,low(sendepuff)
	ldi	xh,high(sendepuff)
	sts	low  (schreibsendezeig),xl	
	sts	high(schreibsendezeig),xh
	sts	low  (lesensendezeig),xl	
	sts	high(lesensendezeig),xh
	ldi	xl,low(empfpuff)
	ldi	xh,high(empfpuff)
	sts	low  (schreibempfzeig),xl	
	sts	high(schreibempfzeig),xh
	sts	low  (lesenempfzeig),xl	
	sts	high(lesenempfzeig),xh
	sei
	rjmp	main

main:

	ldi	temp,'U'
	rcall 	RSsend		; Test 
......

UART_Empty:		;UDRE USART Data Register Empty Interrupt
		push  	temp
		in	TEMP,SREG		; Einlesen des SREG 
		push	TEMP			; Schreiben von  SREG  im Stack (KOPIE)
		push	xl
		push	xh
;Sendepuffer leer?
		lds	xl,low (lesensendezeig)
		lds	xh,high(lesensendezeig)
		lds	temp,low(schreibsendezeig)
		cp	xl,temp
		breq	irq_sperren		; ja - Sendenende
;nein, Byte aus Sendepuffer in UART, Zeiger erhöhen
		ld	temp,x+
		out	UDR,temp
;-Zeiger am Ende? nein-ret, ja Zeiger auf Anfang setzen
		cpi	xl,low(Sendepuffend)
		brne	Sendeende
		ldi	xl,low(Sendepuff)
		ldi	xh,high(Sendepuff)
		sts	low (lesensendezeig),xl	
		sts	high(lesensendezeig),xh
Sendeende:
		pop 	xh
		pop 	xl
		pop	TEMP			; LESEN von SREG vom STACK (KOPIE)
		out	SREG,TEMP		; Wiederherstellen von SREG
		pop  	temp			; R16 (temp) zurück laden	
		reti				; zurück
irq_sperren:	
;		ldi	temp ,(0<<UDRIE)	; UDRE Interrupt aus
;		out	UCSRB ,temp		; UDRE Interrupt aus
		cbi	UCSRB,UDRIE		; UDRE Interrupt aus
		rjmp	sendeende
-----------------------
UART_Tx_C:		;TXC USART, Tx Complete
		reti

---------------------------
RSSEND:			;Zeichen in Temp in UART Sendepuffer speichern
;Puffer voll?
		lds	xl,low (schreibsendezeig)
		lds	xh,high(schreibsendezeig)
		dec	xl
Sendewarten:	lds	temp,low(lesensendezeig)
		cp	xl,temp
		breq	Sendewarten		; ja - warten
		inc	xl
		st	x+,temp			; nein, Zeichen abspeichern, Zeiger erhöhen
;		ldi	temp ,(1<<UDRIE)	; UDRE Interrupt ein
;		out	UCSRB ,temp		; UDRE Interrupt ein
		sbi	UCSRB,UDRIE		; UDRE Interrupt ein
;-Zeiger am Ende? nein-ret, ja Zeiger auf Anfang setzen
		cpi	xl,low(Sendepuffend)
		brne	RSSendende
		ldi	xl,low (Sendepuff)
		ldi	xh,high(Sendepuff)
		sts	low (schreibsendezeig),xl	
		sts	high(schreibsendezeig),xh
RSSendende:	ret