;Für das EmpfängerIC von Infracar-Steuerung
;Empfangen von Daten von IR-Empfänger IC und 
;schalten der entsprechenden Ausgänge, PWM und Adressenvergleich

.include "m8535def.inc"


.def temp = r16			;Tempregister 1
.def temp2 = r17		;Tempregister 2
.def blinkreg = r18		;Register für Blinken
.def datreg = r19		;Register für eingelesene Daten
.def anzbytreg = r20	;Register für Anzahl der eingelesenen Datenbytes
.def const = r21		;Register für Anzahl der Schiebevorgänge


.org 0x000
         rjmp Init       ; Reset Handler
.org $00b
         rjmp RX_Interr  ; IRQ für RX-Empfang


Init:                    

    ldi temp, LOW(RAMEND)
    out SPL, temp
    ldi temp, HIGH(RAMEND)
    out SPH, temp

	clr r29			
	ldi r28,$60		;Y-Register mit $0060 für internal SRAM laden
	
		
	SEI				;Interrupt-Flag setzen in SREG
	
	rcall USART_Init	; USART initialisieren
	rcall Port_Init		; Ports initialisieren
	

Main:

anfang:

rjmp anfang


USART_Init:			;USART initialisieren

	ldi temp,$19	;baud rate 2400
	ldi temp2,$00

;Set baud rate
	out UBRRH, temp2
	out UBRRL, temp
;enable TX
	ldi temp,(1<<RXCIE)|(1<<RXEN)	;Interrupt RX and RX aktiv
	out UCSRB,temp
;Set frame format: 8data, 2stopbit
	ldi temp,(1<<URSEL)|(0<<USBS)|(3<<UCSZ0)
	out UCSRC,temp
ret

Port_Init:			;Ports initialisieren

 	ldi temp,$C0		;PortA0-A5 input für Adressen
	out DDRA,temp
	ldi temp,(1<<PB3)	;Pin PB3 output PWM OC0
	out DDRB,temp
	ldi temp, $FF		;PortC output für Schaltfunktionen
	out DDRC,temp
ret


		

RX_Interr:			;Interrupt für USART-Empfang RX

	clr r29			
	ldi r28,$60		;Y-Register mit $0060 für internal SRAM laden
	
Einlesen:
	in datreg,UDR
	st Y+,datreg	;Abspeichern im internal SRAM
	sbic UCSRA,RXC
	rjmp Einlesen

	rcall Datendecode

	reti