;***************************************************************************
; geschrieben fuer atmega8 mit 4mhz (1 clock = 250ns)
; portB bit0 = ir-eingang (siehe: portB bit7)
; portB bit1 = "avr ok" + "ir received" anzeige (0=led aus)
; portB bit2 = eingang schaltspannung SAT
; portB bit3 = ausgang zum pc einschalten ("pc+go")
; portB bit4 = ir-ausgang zur geräte-steuerung
; portB bit5 = eingang schaltspannung satreceiver
; portB bit6 = eingang schaltspannung dvd-player
; portB bit7 = abfrage: b&o empfänger =0, tsop7000 =1
; portD bit0 = rs232
; portD bit1 = rs232
; später:
; portD bit2 = reserve, event. audioumschalter 0=tv/sat   1=computer

;***************************************************************************

.include "C:\Programme\Atmel\AVR Tools\AvrAssembler\Appnotes\m8def.inc"

;variablen definieren
.equ rc5satdevice=10
.equ serial_start=18
.equ serial_high=0
.equ serial_low=0

.equ rFlg=0 	; Flaggenregister zur Kommunikation

;register definieren

.def bitcount=r14			;hilfsregister für ir-byte
.def lastbit=r15			;hilfsregister für ir-byte
.def timercount=r16			;timer schleifenzähler
.def format=r17				;1. ir-byte
.def to=r18				;2. ir-byte
.def command=r19			;3. ir-byte
.def temp=r20				;allgemein
.def temp1=r21				;allgemein
.def temp2=r22 				;allgemein	
.def merker=r23				;merker für sendebefehle
.def togglebit=r24			;diverse togglebits
							

.cseg
.org $0000
    rjmp RESET         ; Interruptvektoren überspringen und zum Hauptprogramm
.org INT0addr
    rjmp INT0_addr
.org INT1addr
    rjmp INT1_addr
.org ICP1addr
    rjmp ICP1_addr	; Timer1 Capture Handler
.org OVF1addr
    rjmp OVF1_addr  	; Timer1 Overflow Handler
.org OVF0addr
     rjmp OVF0_addr     ; Timer0 Overflow Handler
.org URXCaddr
    rjmp URXC_addr     	; USART RX Complete Handler
.org UDREaddr
    rjmp UDRE_addr     	; UDR Empty Handler
.org UTXCaddr
    rjmp UTXC_addr     	; USART TX Complete Handler
.org ACIaddr
    rjmp ACI_addr      	; Analog Comparator Handler

.DSEG                       ; das Folgende kommt ins SRAM
 
timerstatus: .BYTE   1 



;*********** main **********************************************************

main:   

;Ein- und Ausgänge konfigurieren & Startblinken der LED

####### unwichtiges entfernt/gekürzt ##########



	clr temp
	sts timerstatus, temp		;timerstatus löschen

	clr timercount
		

;Timer vorbereiten:
	ldi     temp, (1<<CS02) | (1<<CS00)   ; Teiler 1024 einstellen
        out     TCCR0, temp
 
	ldi     temp, (0<<TOIE0)     	; TOIE0: Interrupt bei Timer Overflow
        out     TIMSK, temp				; noch ausgeschalten lassen!

	sei		


;********** hauptprogramm **************************************************


detect_start:
	 	cbi PORTB,1				;portB bit1 löschen (ir-bestätigungsled aus)
		
	
;timer0ueberlauf Abfrage

	lds     temp,timerstatus
	cpi     temp,0	              ; Werte gleich?
        breq	merker_abfrage		  ; ja: springe zu ...
	rjmp	timer0ueberlauf       ; nein: springe zu ...
        

merker_abfrage:

####### unwichtiges entfernt/gekürzt ##########



;**********  ir-befehle auswerten *****************************************


;läuft timer?  in Sonderfällen stoppen >>>>> funktioniert
	
	rcall timer0stoppen		;timer für Farbe läuft noch, Farbtaste abbrechen und neue auswerten

        
; hier mit gelber Taste wird der Timer gestartet >>>> funktioniert

satgelb:
		ldi temp,0xD4
        	cpse command,temp    		;überspringe, "command" gleich "D4" ist
		rjmp satgelblang   
	
####### unwichtiges entfernt/gekürzt ##########

		clr command
		rjmp timer0starten

satgelblang:						;beo4 "gelblang"

####### unwichtiges entfernt/gekürzt ##########

	rjmp detect_start


;TIMER0

timer0starten:
	sbi PORTB,1	  		;portB bit1 setzen (1: led an 5v ist an)
	rcall pause700us
	cbi PORTB,1

	clr timercount
		
	ldi     temp1, (1<<TOIE0)  	; TOIE0: Interrupt bei Timer Overflow
        out     TIMSK, temp1		; Timer0 jetzt einschalten!

	rjmp detect_start


timer0stoppen:
	ldi     temp1, (0<<TOIE0)     	; TOIE0: Interrupt bei Timer Overflow
        out     TIMSK, temp1		; Timer0 wieder ausschalten!

	clr     temp                 
        sts     timerstatus, temp	;timerstatus löschen

	ret

timer0ueberlauf:

	clr     temp                 
        sts     timerstatus, temp		;timerstatus löschen
		
	sbi PORTB,1				;port B,1 setzen (1: led an 5v ist an)
        rcall pause500ms

        cbi PORTB,1				;port B,1 löschen (0: led an 5v ist aus)
	rcall pause500ms
		
	rjmp timer0ueberlauf ;detect_start	;normal zu detect_start
						;Schleife nur zum Test, um die Funktion zu testen!!


;******** notwendige avr-routinen ***********************************************

RESET:                      		   ;stackpointer setup
         ldi temp, LOW(RAMEND)             ; LOW-Byte der obersten RAM-Adresse
         out SPL, temp
         ldi temp, HIGH(RAMEND)            ; HIGH-Byte der obersten RAM-Adresse
         out SPH, temp

         rjmp main
         
; INTERUPTS:

INT0_addr:
    	reti

INT1_addr:
    	reti

ICP1_addr:				; Timer1 Capture Handler
    	reti
		    
OC1_addr:				; Timer1 Compare Handler
	reti

OVF1_addr:				; Timer1 Overflow Handler
	reti


OVF0_addr:			    ; Timer0 Overflow Handler


        push    temp1               ; temp 1 sichern
        in      temp1,sreg          ; SREG sichern
        push    temp1
 
        inc     timercount          ; Wenn dies nicht der 28. Interrupt (~ 2 Sekunden)

	ldi 	temp1,28			; 30=2sek 160ms;30=1sek 800ms;1=72ms
        cpse 	timercount,temp1    ; überspringe, "timercount" gleich "28" ist
	rjmp 	end_OVF0 

; Überlauf
		
	ldi     temp1, (0<<TOIE0)   ; TOIE0: Interrupt bei Timer Overflow
        out     TIMSK, temp1		; Timer0 wieder ausschalten

	sbi PORTB,1	  		;portB bit1 setzen (1: led an 5v ist an)
	rcall pause500ms
	cbi PORTB,1

	ldi     temp1,1                 
        sts     timerstatus, temp1 	;timerstatus auf 1 setzen
		
		    
end_OVF0:
 
        pop     temp1
        out     sreg,temp1          ; sreg wieder herstellen
        pop     temp1

        reti                        ; das wars. Interrupt ist fertig


URXC_addr:				; USART RX Complete Handler
	reti

UDRE_addr:				; UDR Empty Handler
	reti

UTXC_addr:			   	; USART TX Complete Handler
	reti

ACI_addr:					; Analog Comparator Handler
	reti