;
; **********************************************
; * Infrared controlled switchbox              *
; * for ATtiny13, internal clock 1.2 MHz, V1   *
; * (C)2010 by http://www.avr-asm-tutorial.net *
; **********************************************
;
.NOLIST
.INCLUDE "tn13def.inc" ; Headerdatei fuer ATtiny13 
.LIST
;
; Debug-Einstellungen
;
.equ debug = 0 ; debug an: 1, aus: 0
;
; ============================================
;   H A R D W A R E I N F O R M A T I O N E N 
; ============================================
;
;              ________
;          1 /         |8
;  RESET O--|RES    VCC|--O VCC
;           |    AT    |
;  DR-CS O--|PB3    PB2|--O Relais/SCK
;           |   tiny   |
; DR-SCK O--|PB4    PB1|--O LED/IN/DR-SI/MISO
;           |    13    |
;    GND O--|GND    PB0|--O IR-IN/MOSI
;          4|__________|5
;
; ============================================
;      P O R T S   U N D   P I N S 
; ============================================
;
.equ pbRelO = PORTB2 ; Relais output pin
.equ pbLedO = PORTB1 ; LED output port
.equ pbLedD = DDB1  ; LED output direction port
.equ pbCsO  = PORTB3 ; DR-CS digital resistor CS
.equ pbSckO = PORTB4 ; DR-SCK digital resistor SCK
.equ pbSiO  = PORTB1 ; DR-SI digital resistor SI
.equ pbIrIn = PINB0  ; Infrarot-Eingang
;
; ================================================
;        P R O G R A M M A B L A U F
; ================================================
;
; Timer0 arbeitet mit Teiler durch 64 (18.750 Hz)
;   Alle 13,653 ms tritt ein Ueberlauf auf und
;   - beendet evtl. laufende IR-Signalanalyse
;   - erhoeht Timeout-Zaehler, wenn Relais aktiv ist
;
;
; ================================================
; K O N S T A N T E N   Z U M  E I N S T E L L E N
; ================================================
;
; (keine)
;
; =======================================================
;  F E S T E + A B G E L E I T E T E  K O N S T A N T E N 
; =======================================================
;
.equ clock = 1200000 ; Prozessortakt
;
; ============================================
;   R E G I S T E R D E F I N I T I O N E N
; ============================================
;
; R0 frei fuer LPM
; Frei: R1..R10
.def rPot = R11 ; Status digitales Potentiometer
.def rPotV = R12 ; Potentiometerwert
.def rTO1 = R13 ; Time-Out-Zaehler, Byte 1
.def rTO2 = R14 ; Time-Out-Zaehler, Byte 2
.def rSreg = R15 ; Register fuer SREG
.def rmp = R16 ; Vielzweckregister
.def rimp = R17 ; Vielzweckregister Interrupts
.def rFlg = R18 ; Flaggenregister
	.equ bIrAktiv = 0 ; IR-Analyse gestartet
	.equ bIrAdrOk = 1 ; IR-Adresse erkannt
	.equ bIrCmdOk = 2 ; Command erkannt
	.equ bIrBreak = 3 ; Abbruch wegen Fehler
.def rTO3 = R19 ; Time-Out-Zaehler, Byte 3
.def rTc = R20 ; Timer-Stand
.def rIrC = R21 ; Register fuer den IR-Cmd-Code
.def rIrCL = R22 ; Register fuer den letzten IR-Cmd-Code
; frei: R22..R29
; verwendet: Z fuer LPM
;
; ============================================
;       S R A M   D E F I N I T I O N E N
; ============================================
;
;
; ==============================================
;   R E S E T   U N D   I N T   V E K T O R E N
; ==============================================
;
.CSEG
.ORG $0000
	rjmp Main ; Reset-Vektor
	reti ; Int0 Vektor
	rjmp PcInt ; PcInt0 Vektor
	rjmp Tc0Int ; Tc0Ovf-Int Vektor
	reti ; EERDY-Int Vektor
	reti ; AnaComp-Int Vektor
	reti ; TC0COMPA-Int Vektor
	reti ; TC0COMPB-Int Vektor
	reti ; WDT-Int Vektor
	reti ; ADC-Int Vektor
;
; ==========================================
;    I N T E R R U P T   S E R V I C E
; ==========================================
;
; Pin Change interrupt am IR-Eingang
;   liest Timer-Stand ein, setzt Timer auf Null, setzt T-Flagge
PcInt:
	sbic PINB,pbIrIn ; Eingang = 0?
	reti ; Eingang =1, ignoriere Flanke
	in rTc,TCNT0 ; lese timer
	ldi rimp,1<<PSR10 ; loesche Timer Prescaler
	out GTCCR,rimp
	ldi rimp,0 ; loesche Timer
	out TCNT0,rimp
	set ; setze Flagge
	reti
; TC0 overflow interrupt
Tc0Int:
	in rSreg,SREG ; rette SREG
	ldi rFlg,0 ; loesche IR-Erkennungsflaggen
	dec rTO1 ; Timeout-Zaehler 3,5 Sekunden
	brne Tc0IntRet
	dec rTO2 ; Timeout-Zaehler 14,9 Minuten
	brne Tc0IntRet
	inc rTO3 ; Timeout-Zaehler Viertelstunden
	cpi rTO3,20 ; 5 Stunden vorbei?
	brcs Tc0IntRet ; nein, noch nicht
	cbi PORTB,pbRelO ; Relais aus
	cbi DDRB,pbLedD ; LED aus
	sbi PORTB,pbLedO ; Pull-Up an
Tc0IntRet:
	out SREG,rSreg ; stelle SREG wieder her
	reti
;
; ============================================
;    H A U P T P R O G R A M M    I N I T
; ============================================
;
Main:
	; Stapel initiieren
	ldi rmp,LOW(RAMEND) ; setze Stapelzeiger
	out SPL,rmp
	; Flaggen alle auf Null
	clr rFlg
	; Digitalpotentiometer Takteingang
	sbi PORTB,pbCsO ; CS high
	sbi DDRB,pbCsO ; CS Output
	cbi PORTB,pbSckO ; SCK Output low
	sbi DDRB,pbSckO ; SCK Output
	cbi PORTB,pbSiO ; SI Output low
	sbi DDRB,pbSiO ; SI Output
	; LED-Ausgang Aus
	sbi PORTB,pbLedO ; LED-Port auf High, Pull-Up an
	cbi DDRB,pbLedD ; LED-Ausgang inaktiv
	; Relais-Ausgang an
	cbi PORTB,pbRelO ; Relais aus
	sbi DDRB,pbRelO ; Relaisausgang aktiv
	; Start blinken
	ldi rmp,3 ; LED drei mal blinken
	rcall LedN
	; Startwert Potentiometer setzen
	rcall ReadPot ; Potentiometerstand aus EEPROM holen
	rcall PotTab ; linear in exponentiell wandeln 
	rcall SendPot ; an Poti senden
	; Timer 0 starten
	clr rmp ; Mode 0 einstellen
	out TCCR0A,rmp
	ldi rmp,(1<<CS01)|(1<<CS00) ; Teiler durch 64
	out TCCR0B,rmp
	ldi rmp,1<<TOIE0 ; Interrupts ermoeglichen
	out TIMSK0,rmp
	; IR-Eingang Interrupts ermoeglichen
	ldi rmp,1<<pbIrIn ; Maske fuer PCINT
	out PCMSK,rmp
	ldi rmp,1<<PCIE ; Enable IR-Input int
	out GIMSK,rmp
	; SLEEP enable
	ldi rmp,1<<SE ; Enable sleep
	out MCUCR,rmp
	sei
;
; ============================================
;     P R O G R A M M - S C H L E I F E
; ============================================
;
Loop:
	sleep ; Schlafen legen
	nop ; Dummy fuer Aufwecken
	brts FSet ; Flagge gesetzt
	sbis PORTB,pbLedO ; Ausgang aktiv?
	rjmp Loop ; Ausgang aktiv
	sbic PINB,pbLedO ; Taste gedrueckt?
	rjmp Loop ; Taste nicht gedrueckt
OutAn:
	sbi PORTB,pbRelO ; Relais an
	cbi PORTB,pbLedO ; LED an
	sbi DDRB,pbLedD ; LED-Ausgang aktiv
	clr rTO1 ; clear TimeOut-Zaehler
	clr rTO2
	clr rTO3
	rjmp Loop ; fertig
FSet: ; Flagge gesetzt
	clt ; Flagge loeschen
	sbrc rFlg,bIrBreak ; Break-Flagge gesetzt?
	rjmp Loop ; ja, ignoriere Rest
	mov rmp,rTc ; Timerstand kopieren
	sbrc rFlg,bIrAktiv ; IR-Analyse starten?
	rjmp IrAktiv
	; IR-Analye nicht aktiv, warte auf erstes langes Signal
	cpi rmp,230
	brcs Loop ; Signal zu kurz
	; IR-Analyse ist nicht aktiv, Erkennung starten
	ldi ZH,HIGH(2*IrAdrTab) ; Zeiger auf IR-Tabelle
	ldi ZL,LOW(2*IrAdrTab)
	sbr rFlg,1<<bIrAktiv ; Flagge auf aktiv setzen
IrAktiv: ; IR-Analyse ist aktiv
	sbrc rFlg,bIrAdrOk ; Adresse schon ok?
	rjmp IrAdrOk ; ja
	lpm R0,Z+ ; lese Tabellenwert niedrig
	tst R0 ; Tabellenwert = 0?
	breq IrAktivAdrOk ; Adresse korrekt
	cp rmp,R0 ; ist Wert >= kleiner Wert
	brcs IrAktivBreak1 ; nein, Break setzen
	lpm R0,Z+ ; groesseren Wert lesen
	cp rmp,R0 ; vergleichen
	brcs Loop ; Wert ist ok
IrAktivBreak2: ; zu lang
.if debug == 1
	subi ZL,Low(2*IrAdrTab)
	lsr ZL
	mov rmp,ZL
	rcall LedN
	ldi rmp,4 ; vier Mal blinken
	rjmp IrAktivBreakN
	.endif
IrAktivBreak1:
.if debug == 1
	push rmp
	subi ZL,Low(2*IrAdrTab)
	lsr ZL
	mov rmp,ZL
	rcall LedN
	mov rmp,R0
	rcall LedHex
	pop rmp
	rcall LedHex
	ldi rmp,3 ; drei Mal blinken
	rjmp IrAktivBreakN
	.endif
IrAktivBreak3:
	ldi rmp,3
IrAktivBreakN:
	sbr rFlg,1<<bIrBreak ; Break-Flagge setzen
.if debug == 1
	rcall LedN
	.endif
	rjmp Loop
IrAktivAdrOk:
	sbr rFlg,1<<bIrAdrOk ; setze Adresse ok
	ldi rIrC, 0x01 ; Starte mit einer Eins
IrAdrOk:
	cpi rmp,17 ; kleiner als Low-High-Grenze
	brcs IrAktivBreak1
	cpi rmp,45 ; laenger als High-Grenze
	brcc IrAktivBreak2
	cpi rmp,30 ; 0 oder 1?
	brcc IrAdrOk1 ; schiebe 1 rein
	clc ; schiebe 0 rein
	rjmp IrCmdShift
IrAdrOk1:
	sec
IrCmdShift:
	rol rIrC ; schiebe Carry in Code-Byte
	brcc Loop ; noch nicht fertig
	sbr rFlg,1<<bIrBreak ; setze Erkennung inaktiv
	cp rIrC,rIrCL ; letzter Command gleich
	breq IrCmdEqu
	mov rIrCL,rIrC
	rjmp Loop
IrCmdEqu:
	cpi rIrC,cOn ; ON-Command?
	brne IrCmdOff
	sbi PORTB,pbRelO ; Relais an
	cbi PORTB,pbLedO ; LED an
	sbi DDRB,pbLedD ; Porttreiber an
	clr rTO1 ; clear TimeOut-Zaehler
	clr rTO2
	clr rTO3
	rjmp IrCmdOk
IrCmdOff:
	cpi rIrC,cOff ; Off-Command?
	brne IrCmdVolUp ; Nein
	cbi PORTB,pbRelO ; Relais aus
	sbi PORTB,pbLedO ; LED aus
	cbi DDRB,pbLedD ; Porttreiber aus
	rjmp IrCmdOk
IrCmdVolUp:
	cpi rIrC,cVol_up ; Volume-Up?
	brne IrCmdVolDwn ; nein
	; Volume Up
	inc rPot
	mov rmp,rPot
	cpi rmp,cMaxPot ; Wert zu gross?
	brcs IrCmdVolUpOk
	dec rPot ; Wert wieder erniedrigen
	rjmp Loop ; ohne Bestaetigung raus
IrCmdVolUpOk:
	rcall PotTab ; linear in exponentiell wandeln
	rcall SendPot ; rPotV an Potentiometer senden
	rcall WritePot ; rPot in EEPROM schreiben
	rjmp IrCmdOk
IrCmdVolDwn:
	cpi rIrC,cVol_dwn ; Volume down?
	brne IrCmdUnkn ; nein
	; Volume down
	tst rPot
	breq IrCmdVolDwn1
	dec rPot ; Lautstaerke niedriger
	rcall PotTab ; linear in exponentiell wandeln
	rcall SendPot ; rPotV an Potentiometer senden
	rcall WritePot ; rPot in EEPROM schreiben
	rjmp IrCmdOk
IrCmdVolDwn1:
	rjmp Loop
IrCmdUnkn:
.if debug == 1
	ldi rmp,2
	rcall LedN
	mov rmp,rIrc
	rcall LedHex
	.endif
	rjmp Loop
IrCmdOk:
	ldi rmp,1 ; ein Mal blinken
	rcall LedN
	rjmp Loop
;
; Tabelle fuer IR-Adresserkennung
;   erstes Byte: Signaldauer muss groesser/gleich sein
;   zweites Byte: Signaldauer muss kleiner sein
;   Ende der Tabelle (positive Erkennung): 0
IrAdrTab:
.db 230,245,17,30,17,30,17,30,17,30,31,45,31,45,31,45,31,45,80,95,0,0
; Beamer codes, H+L	
.equ cVol_dwn = 0b00100001	
.equ cOn = 0b10000010	
.equ cOff = 0b01000010	
.equ cVol_up = 0b10100001
; Neue Messung der Keycodes
; key codes binary
.equ key_on =  0b10000010
.equ key_off =  0b10100001
.equ key_vol_up =  0b11010000
.equ key_vol_dwn =  0b10010000
.equ key_keystone_volume =  0b11100001
.equ key_autoposition =  0b10100010
.equ key_menu =  0b10110000
.equ key_up =  0b10100000
.equ key_dwn =  0b11100000
.equ key_left =  0b10000000
.equ key_enter =  0b11110000
.equ key_aspect =  0b10100011
.equ key_avmute =  0b10110010
.equ key_freeze =  0b10010010
.equ key_computer =  0b11001010
.equ key_videpo =  0b11000011
;
; Lesen Potentiometerstand aus EEPROM
;
ReadPot:
	sbic EECR,EEPE ; warte auf EEPROM fertig
	rjmp ReadPot
	ldi rmp,63 ; Addresse EEPROM
	out EEARL,rmp
	sbi EECR,EERE ; setze Lesebit
	in rPot,EEDR ; lese byte
	ldi rmp,0 ; setze Adresse auf Null
	out EEARL,rmp
	rcall PotTab ; wandle in Exponentialwert um
	rcall WritePot ; schreibe Byte in Poti
	ret
;
; Potentiometerstand in EEPROM schreiben
;
WritePot:
	sbic EECR,EEPE ; warte auf EEPROM fertig
	rjmp WritePot
	ldi rmp, (0<<EEPM1)|(0<<EEPM0) ; Schreibmode
	out EECR,rmp
	ldi rmp,63 ; Addresse EEPROM
	out EEARL,rmp
	out EEDR,rPot
	cli ; stop interrupts
	sbi EECR,EEMPE ; schreibe
	sbi EECR,EEPE
	sei ; Ints wieder zulassen
WritePot1:
	sbic EECR,EEPE ; warte bis fertig
	rjmp WritePot1
	ldi rmp,0x00 ; schreibe Adresse 0
	out EEARL,rmp
	ret
;
; Potentiometer Einstellroutine
;
SendPot:
	ldi ZH,0x13 ; command byte for pot
	mov ZL,rPotV ; data byte for pot
	cbi PORTB,pbSiO ; clear SI
	cbi PORTB,pbSckO ; clear SCK
	cbi PORTB,pbCsO ; activate CS
	sec
sendpotbit:
	rol ZL ; one bit left
	rol ZH
	brcs sendpotone
	cbi PORTB,pbSiO ; clear SI
	rjmp sendpotshift
sendpotone:
	sbi PORTB,pbSiO ; set SI
sendpotshift:
	sbi PORTB,pbSckO ; set SCK
	cbi PORTB,pbSckO ; clear SCK
	cpi ZL,0 ; end of transfer?
	clc ; set next bit shifted in
	brne sendpotbit
	cpi ZH,0x80 ; last bit?
	clc ; set next bit shifted in
	brne sendpotbit
	sbi PORTB,pbCsO ; end, clear CS
	sbi PORTB,pbLedO ; LED-Ausgang inaktiv
	cbi DDRB,pbLedD ;  Porttreiber aus
	sbis PORTB,pbRelO ; Relais an?
	ret ; nein
	cbi PORTB,pbLedO ; LED-Ausgang an
	sbi DDRB,pbLedD ; Porttreiber an
	ret
;
; LED-Signale ausgeben
;
.if debug == 1
	.equ tlow = 300 ; Dauer LED aus in ms
	.equ tHigh = 300 ; Dauer LED an in ms
	.equ tPause = 500 ; Dauer Pause am Ende, max. 500
	.else
	.equ tlow = 160
	.equ tHigh = 80
	.equ tPause = 80
	.endif
.equ nTakt = clock/1000/10 ; Takte pro ms
.equ nLow = tLow*nTakt
.equ nHigh = tHigh*nTakt
.equ nPause = tPause*nTakt
LedN: ; gib N Blinksignale aus, N steht in rmp
	tst rmp ; rmp = 0?
	brne LedNGo ; nein
	ldi rmp,10 ; ersetze 0 durch 10
LedNGo:
	ldi ZH,HIGH(nLow) ; Aus-Zeit
	ldi ZL,LOW(nLow)
	sbi DDRB,pbLedD ; Porttreiber an
	sbi PORTB,pbLedO ; LED-Ausgang high
LedNLow:
	rcall LedNWait ; warte 10*Z Takte
	cbi PORTB,pbLedO ; Led an
	ldi ZH,HIGH(nHigh) ; An-Zeit
	ldi ZL,LOW(nHigh)
LedNHigh:
	rcall LedNWait ; warte 10*Z Takte
	sbi PORTB,pbLedO ; Led aus
	dec rmp
	brne LedNGo
	ldi ZH,HIGH(nPause)
	ldi ZL,LOW(nPause)
	rcall LedNWait
	sbi PORTB,pbLedO ; Pullup an
	cbi DDRB,pbLedD ; Porttreiber aus
	sbis PORTB,pbRelO ; Relais an?
	ret
	cbi PORTB,pbLedO ; LED-Port an
	sbi DDRB,pbLedD ; Porttreiber an
	ret
; Warten
LedNWait: ; warte 10*Z Takte
	nop
	nop
	nop
	nop
	nop
	nop
	sbiw ZL,1
	brne LedNWait
	ret
;
; Gibt rmp in hex aus
;
LedHex:
	push rmp ; rette original
	swap rmp ; oberes zu unteres nibble
	rcall LedHexN
	pop rmp ; stelle Originalwert wieder her
LedHexN:
	andi rmp,0x0F ; nur unteres Nibble
	cpi rmp,0x00 ; 0 = 16
	brne LedHexNO
	ldi rmp,0x10
LedHexNO:
	rjmp LedN ; gib Nibble in hex auf LED aus
;
; Potentiometerwert aus Tabelle ermitteln
;   Tabelle fuer exponentielle Potentiometercharakteristik
;   ueberprueft Tabellenwert in rPot und korrigiert diesen
;   uebersetzt 0..52 in rPot in Potentiometerwert in rPotV
;
PotTab:
	mov rmp,rPot ; kopiere Potentiometerstand
	cpi rmp,0xFF ; Unterlauf nach Verringern?
	brne PotTab1
	inc rPot ; Unterlauf auf Null stellen
	rjmp PotTab2
PotTab1:
	cpi rmp,cMaxPot ; Ueberlauf nach Erhoehen?
	brcs PotTab2
	ldi rmp,cMaxPot-1 ; lade hoechsten Wert
	mov rPot,rmp
PotTab2:
	ldi ZH,HIGH(2*TabPot) ; Zeiger auf Tabelle
	ldi ZL,LOW(2*TabPot)
	add ZL,rPot ; addiere Tabellenwert
	ldi rmp,0 ; MSB-Ueberlauf behandeln
	adc ZH,rmp
	lpm rPotV,Z
	ret
TabPot:
.db 0,1,2,3,4,5,6,7,8,9
.db 10,12,14,16,18,20,22,24,26,29
.db 32,35,38,41,44,47,51,55,59,63
.db 67,71,76,81,86,91,96,102,108,114
.db 121,128,135,143,151,160,169,179,189,200
.db 212,225,239,255,255,255
TabPotEnd:
.equ cMaxPot = TabPotEnd-TabPot ; Anzahl Werte in Tabelle
;
; Ende Quellcode
; Copyright
.db "(C)2010 by Gerhard Schmidt  " ; menschenlesbar
.db "C(2)10 0yb eGhrra dcSmhdi t " ; wortgerecht
;