; Autor: Frank Simon
; Datum: 11.6.2005
; Aufgabe:  Spannung (0-5V) an PC0 (Pin 23) anlegen. Das Programm wartet auf
;			ein bliebiges Byte am UART, startet die AD-Wandlung und sendet
;			das Wandlungsergebnis über den UART zurück.

.include "m8def.inc"                    

.def temp = R16
.equ CLOCK = 8000000
.equ BAUD = 9600
.equ UBRRVAL = CLOCK/(BAUD*16)-1

.org 0x00
		rjmp reset

.org URXCaddr					;Interruptvektor für UART-Empfang
		rjmp int_RXD

reset:	ldi temp, LOW(RAMEND)	;Stackpointer initialisieren
        out SPL, temp
        ldi temp, HIGH(RAMEND)
        out SPH, temp
        ldi temp, LOW(UBRRVAL)	;Baudrate einstellen
        out UBRRL, temp
        ldi temp, HIGH(UBRRVAL)
        out UBRRH, temp
        ldi temp, (1<<URSEL)|(3<<UCSZ0)	;Frame-Format: 8 Bit
        out UCSRC, temp
        sbi UCSRB, RXCIE        ;Interrupt bei Empfang
		sbi UCSRB, RXEN         ;Empfang aktivieren
		sbi UCSRB,TXEN          ;Senden aktivieren  
		ldi temp, 0b01000000	;Messbereich 0-5V, Kanal 0
		out ADMUX, temp
		ldi temp, 0b10000111	;ADC an, CLK=8MHz/128
		out ADCSRA, temp
        sei						;Interrupts global aktivieren                               

;############################################################################

; Hauptprogrammschleife:
loop: 	sbi	ADCSR,ADSC			;Wandlung starten
warte1:	sbis ADCSR,ADIF			;Warten bis Wandlung beendet ist
		rjmp warte1
		in r17, ADCL			;Die unteren 8 Bit in r17 merken
		in r18, ADCH			;Die oberen 2 Bit in r18 merken
		rjmp loop

;############################################################################
; Interruptroutine wird ausgeführt wenn ein Byte über UART empfangen wurde
int_RXD:in temp, UDR			;Daten einlesen, ignorieren
warte2:	sbis UCSRA,UDRE     	;Warten bis Senderegister frei ist
		rjmp warte2
		out UDR, r18			;dann die oberen 2 Bit senden
warte3:	sbis UCSRA,UDRE     	;Warten bis Senderegister frei ist
		rjmp warte3
		out UDR, r17			;dann die unteren 8 Bit senden
		reti					;Rücksprung vom Interrupt