SMS_senden:
ldi		zH,High(SMS1<<1)	;Z-Pointer auf Textanfang im Flash setzen
ldi		zL,Low(SMS1<<1)
rcall 	SMS_Transmit		;Ausgabe zum Handy


;=======================================================
;SMS Sendebefehl über UART senden

SMS_Transmit:			;Textausgabe zum Handy
lpm		t0,z+			;ASCII-Zeichen in t0 laden
cpi		t0,0			;Textende?
breq	OT2				;springe wenn fertig
OT1:
sbis UCSRA, UDRE		;Skip, wenn Transmit-Buffer frei
rjmp	OT1				;Warte, bis Transmit-Buffer frei
out		UDR,t0			;ASCII-Zeichen senden
rjmp	SMS_Transmit	;nächstes Zeichen
OT2:
ret

;=======================================================
;ENDE
;=======================================================
SMS1:
.db 27,"Test der RS232-Schnittstelle",13,0,0