; Receive Demo
; Target MCU: m128 CRUMB
; Target PCB: Selfmade FBR
; Port E PE1 (TXD0), PE0 (RXD0)
;

; \author AVR_Touturial_umgeschrieben auf m128
; Datum: 2006_10_11
; Version:1.0
; \todo Integration of LCD interface
; \test ToDo


.include "m128def.inc"

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

        ; Stackpointer initialisieren
        ldi temp, LOW(RAMEND)
        out SPL, temp
        ldi temp, HIGH(RAMEND)
        out SPH, temp

;_______________________________        
; Testroutine -->Board über JTAG ansprechbar <--
;		ldi temp	, 0xff
;		out	DDRB	,temp
;		ldi temp,0
;		out PortB,	temp
;_______________________________		
		
		
		; Baudrate einstellen
        ldi temp, LOW(UBRRVAL)
        out UBRR0L, temp
        ldi  temp, HIGH(UBRRVAL)
        sts UBRR0H, temp

        ; Frame-Format: 8 Bit
        ldi temp, (1<<UMSEL0)|(3<<UCSZ00)
       	sts UCSR0C, temp

        sbi UCSR0B,TXEN0                   ; TX aktivieren

loop:   ldi temp, 'T'
        rcall serout                      ; Unterprogramm aufrufen
        ldi temp, 'e'
        rcall serout                      ; Unterprogramm aufrufen
        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 UCSR0A,UDRE0                   ; Warten bis UDR für das nächste
                                          ; Byte bereit ist
        rjmp serout
        out UDR0, temp
        ret                               ; zurück zum Hauptprogramm