.include "m8def.inc"                     ; ATmega8L

.equ XTAL = 8000000                      ; 8MHz (Quarz)!!!!
 
.def Timer1 = r16
.def Timer2 = r17
.def Timer3 = r18
.def Timer4 = r19
.def Timer5 = r20

.def temp1  = r21


;  PB0                  --> normale LED (L-Aktiv)
;  PB1 (OC1A)           --> IR-LED      (H-Aktiv)
;  PB6 (XTAL1/TOSC1)    --> Quarz + 15nF -> Masse
;  PB7 (XTAL2/TOSC2)    --> Quarz + 15nF -> Masse
;  PC6 (RESET)          --> Taster nach Masse

.org 0x0000
Reset:
        ldi    temp1, LOW(RAMEND)        ; LOW-Byte der obersten RAM-Adresse
        out    SPL, temp1
        ldi    temp1, HIGH(RAMEND)       ; HIGH-Byte der obersten RAM-Adresse
        out    SPH, temp1
           
	    ldi    temp1,  (1<<SE) | (1<<SM1); Sleep Mode initialisieren
        out    MCUCR, temp1              ; Power-Down       
	    
		ldi    temp1, 0b00000001         ; PB0 = H , PB1 = L
		out    PORTB, temp1
		ldi    temp1, 0b00000011         ; PB0 und PB1 auf Ausgang
        out    DDRB, temp1 
        
	    rcall  Flash_IR_Code
		
		ldi    temp1, 0                  ; Port B auf Eingang
        out    DDRB, temp1

		sleep
	    rjmp   Reset


; ************ Soft Timer ******************************************
Wait_10_Mikosekunden:                    ; 4  Takte Aufruf 
;       80 Zyklen = 10µs bei 8Mz:
        ldi    Timer1, 25                ; 1  Takt Zeit laden
Wait_10_Mikosekunden_loop:  
        dec    Timer1                    ; 1  Takt
		brne   Wait_10_Mikosekunden_loop ; 2  Takte (1 Takt)
                                         ; -------- 
										 ; 72 Takte

		ret                              ; 4  Takte Rücksprung
                                         ; --------
										 ; 80 Takte 

Wait_10us_Timer2_Timer3:   ; Timer2 = LSB , Timer3 = MSB
        rcall   Wait_10_Mikosekunden
        dec     Timer2
        brne    Wait_10us_Timer2_Timer3
        dec     Timer3
        cpi     Timer3, 0xFF
		brne    Wait_10us_Timer2_Timer3 
        ret

; ************ Flash visible Led **********************************
Flash_visible_Led:
        ; Led an
        cbi    PORTB, 0
		; warte 30 ms
		ldi    Timer2, LOW(3000)
		ldi    Timer3, HIGH(3000)
		rcall  Wait_10us_Timer2_Timer3
        ; Led aus
		sbi    PORTB, 0
		ret
		
Flash_visible_Led_4x:
        rcall  Flash_visible_Led
		; warte 50 ms
		ldi    Timer2, LOW (5000)
		ldi    Timer3, HIGH(5000)
		rcall  Wait_10us_Timer2_Timer3
		rcall  Flash_visible_Led
		; warte 50 ms
		ldi    Timer2, LOW (5000)
		ldi    Timer3, HIGH(5000)
		rcall  Wait_10us_Timer2_Timer3
		rcall Flash_visible_Led
		; warte 50 ms
		ldi    Timer2, LOW (5000)
		ldi    Timer3, HIGH(5000)
		rcall  Wait_10us_Timer2_Timer3
		rcall  Flash_visible_Led
		ret 

; ************ Flash IR Code **************************************
Flash_IR_Code:
        ; Schleife über die gesammte Liste bis On Time = 0
		ldi    ZL, LOW (IR_CODE*2)
		ldi    ZH, HIGH(IR_CODE*2)

Flash_IR_Code_loop:
        ; hohle die Trägerfreqenz
        lpm    Timer2, Z+
		lpm    Timer3, Z+
		; hohle ein Dummy
        lpm    Timer4, Z+
		lpm    Timer5, Z+
        
		; Tabellenende erreicht (Trägerfreqenz MSB und LSB = 0)?
		clr    temp1		
		or     temp1, Timer2
		or     temp1, Timer3
		breq   Flash_IR_Code_exit       ; Ja, dann Ende

        ; Led 1 x blinken
        rcall  Flash_visible_Led

        ; in Timer3:Timer2 steht jetzt die Trägerfrequenz
        out    OCR1AL, Timer2
		out    OCR1AH, Timer3

	    ; sende den Power Code für dieses Gerät	
		rcall  Flash_IR_Code_Segment
        
		; 250 ms warte, damit der IR-Empfänger resettet
		ldi    Timer2, LOW(25000)
		ldi    Timer3, HIGH(25000)
        rcall  Wait_10us_Timer2_Timer3

        ; wiederhohle bis Tabellenende (für alle Geräte)
		rjmp   Flash_IR_Code_loop

Flash_IR_Code_exit:		
		; Fertig anzeigen 4 x Led
		rcall  Flash_visible_Led_4x
        ret

Flash_IR_Code_Segment:
        ; ** hohle beide Zeiten (An.- und Auszeit)
		; hohle  Anzeit
        lpm    Timer2, Z+
		lpm    Timer3, Z+
		; hohle Auszeit
        lpm    Timer4, Z+
		lpm    Timer5, Z+
        ; ** Segmentende erreicht (Auszeit beide Werte = 0)?
		clr    temp1		
		or     temp1, Timer4
		or     temp1, Timer5
		breq   Flash_IR_Code_Segment_exit ; Ja, dann Ende für das Gerät     

		; ** Trägerfrequenz an
        ; start Timer1 outputting the carrier frequency to IR emitter on OC1A (PB1, pin 15)
        ldi    temp1, 0b01000000 ; COM0A1:0=01 to toggle OC1A on Compare Match
                                 ; COM0B1:0=00 to disconnect OC1B from PB1 (pin 15)
                                 ; WGM 11:10=00 for CTC Mode (WGM13:12=01 in TCCR0B)
        out    TCCR1A, temp1 
 
        ldi    temp1, 0b00001001 ; WGM 13:12=01 for CTC Mode (WGM01:00=00 in TCCR0A)
                                 ; CS02:00=100 for divide by 1 prescaler
        out    TCCR1B, temp1 

		; ** Anzeit abwarten
		rcall  Wait_10us_Timer2_Timer3 

        ; ** Trägerfrequenz aus
        ldi    temp1, 0
		out    TCCR1A, temp1 
		out    TCCR1B, temp1     ; Timer1 Stop 

 		; ** Auszeit abwarten
		mov    Timer2, Timer4
		mov    Timer3, Timer5
		rcall  Wait_10us_Timer2_Timer3
        ; ** weiter für das Gerät
        rjmp   Flash_IR_Code_Segment 

Flash_IR_Code_Segment_exit:       
		ret

; ************ Code Tabellen **************************************
IR_CODE:

; Code 100 -- Philips
.dw  XTAL / 34760 / 2 - 1, 0  
.dw   273,    92
.dw    46,    92
.dw    46,    46
.dw    46,    46 
.dw   138,   135
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46
.dw    46,    46 
.dw    46,    46
.dw    92,    46
.dw    46,    92
.dw    46,    46 
.dw    46,  8547
.dw   273,    92
.dw    46,    92 
.dw    46,    46 
.dw    46,    46 
.dw   138,   135 
.dw    46,    46 
.dw    46,    46 
.dw    45,    46 
.dw    46,    46 
.dw    46,    46 
.dw    46,    46 
.dw    46,    46 
.dw    46,    46 
.dw    46,    46 
.dw    46,    46 
.dw    46,    46 
.dw    92,    46 
.dw    46,    92 
.dw    46,    46 
.dw    46,     0 

; Code 101 -- Grundig, Toshiba
.dw  XTAL / 29510 / 2 - 1, 0   
.dw    54,   270 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,  2107 
.dw    54,   268 
.dw    54,   109 
.dw   105,   109 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54, 11969 
.dw    54,   268 
.dw    54,   109 
.dw   105,   109 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,    53 
.dw    54,     0 

; Code 102 -- Brandt, Ferguson, Thomson 
.dw  XTAL / 32450 / 2 - 1, 0   
.dw    49,   209
.dw    49,   208
.dw    49,   466
.dw    49,   466
.dw    49,   208
.dw    49,   208
.dw    49,   208
.dw    49,   466
.dw    49,   466
.dw    49,   466
.dw    49,   208
.dw    49,   466
.dw    49,  3581
.dw    49,   208
.dw    49,   208
.dw    49,   466
.dw    49,   466
.dw    49,   208
.dw    49,   208
.dw    49,   208
.dw    49,   466
.dw    49,   466
.dw    49,   466
.dw    49,   208
.dw    49,   466
.dw    49,     0

; Code 103 -- Sony, Philips
.dw  XTAL / 37470 / 2 - 1, 0    
.dw   245,    60 
.dw   123,    60 
.dw    61,    60 
.dw   123,    60 
.dw    61,    60 
.dw   123,    60 
.dw    61,    60 
.dw    61,    60 
.dw   123,    60 
.dw    61,    60 
.dw    61,    60 
.dw    61,    60 
.dw    61,  2759 
.dw   245,    60 
.dw   123,    60 
.dw    61,    60 
.dw   123,    60 
.dw    61,    60 
.dw   123,    60 
.dw    61,    60 
.dw    61,    60 
.dw   123,    60 
.dw    61,    60 
.dw    61,    60 
.dw    61,    60 
.dw    61,     0 

; Code 104 -- Panasonic
.dw  XTAL / 36090 / 2 - 1, 0    
.dw   358,   179 
.dw    47,    44 
.dw    47,   133 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,   133 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44 
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,    44
.dw    47,   133
.dw    47,  7661
.dw   358,   180
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,    44
.dw    47,    44
.dw    47,   133
.dw    47,    44
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,   133
.dw    47,    44
.dw    47,   133
.dw    47,     0

; End of Table
.dw    0,     0