.nolist                     ;List der Include-Datei unterdrücken
.include "m8515def.inc"     ;vereinbarte Namen verwenden (lt. Datasheet)
.list                       ;Programm listen
.listmac                    ;Makros listen
.equ clock = 8000000        ;Taktfrequenz 8Mhz




.equ pwu = 100              ;PWM-Zählumfang (sollte 100 sein wegen %)
.equ timerwert = -100       ;Timer-Startwert (Reload)-100
.equ step=1                 ;Schrittweite für Änderung pro Tastendruck
.equ lep=portb              ;Port für LEDs
.equ tap=pinD               ;Tastenport
    .equ dimplus   = 5          ;Taste Dimmen plus  
    .equ dimminus  = 4          ;Taste Dimmen minus
    .equ chanplus  = 1          ;Taste Kanal hoch
    .equ chanminus = 0          ;Taste Kanal runter
.equ dimtast=(1<<dimplus)|(1<<dimminus)

.equ alltast=255
.equ twz0=250               ;Startwert Tastendruckdauer
.equ twz1=30                ;Wiederholwert für Tasten


;Array mit 8 Sollwerten in SRAM, 
.dseg                   ;SRAM-Variablen

SollWerte: .byte 8
kanal:       .byte1       ;8kanäle





.def tsw = r8               ;Timer-Startwert
.def sregtemp = r9          ;Sicherheitskopie SREG

.def tz0 = r11              ;Tasten-Prellzähler Bit0
.def tz1 = r12              ;Tasten-Prellzähler Bit1
.def tas = r13              ;Tastenstatus (gültig)
.def null = r14             ;immer 0 


.def temp = r16             ;temporär (exklusiv in der ISR)
.def tfl = r17              ;Flags für Tasten, die gedrückt wurden
.def twz=r18                ;Tasten-Wiederholzähler





.def pwz = r22              ;PWM-Zähler
.def flags = r23            ;Steuerflags
    
	
.def wl=r24                 ;Working L
.def wh=r25                 ;Working H


.cseg

 .org 0              ;Reset- und Interrupt-Vektoren AT-Mega 8515
 rjmp RESET         ;Reset Handler
 rjmp nix;EXT_INT0      ;IRQ0 Handler
 rjmp nix;EXT_INT1      ;IRQ1 Handler
 rjmp nix;TIM1_CAPT     ;Timer1 Capture Handler
 rjmp nix;TIM1_COMPA    ;Timer1 Compare A Handler
 rjmp nix;TIM1_COMPB    ;Timer1 Compare B Handler
 rjmp nix;TIM1_OVF      ;Timer1 Overflow Handler
 rjmp TIM0_OVF      ;Timer0 Overflow Handler
 rjmp nix;SPI_STC       ;SPI Transfer Complete Handler
 rjmp nix;USART_RXC     ;USART RX Complete Handler
 rjmp nix;USART_UDRE    ;UDR0 Empty Handler
 rjmp nix;USART_TXC     ;USART TX Complete Handler
 rjmp nix;ANA_COMP      ;Analog Comparator Handler
 rjmp nix;EXT_INT2      ;IRQ2 Handler
 rjmp nix;TIM0_COMP     ;Timer0 Compare Handler
 rjmp nix;EE_RDY        ;EEPROM Ready Handler
 rjmp nix;SPM_RDY       ;Store Program memory Ready Handler
nix:                    ;unbenutzte Interrupts
 rjmp nix
 reti                   ;zurück...



.

;----------------------------------------------------------------------------

reset:
;Stackpointer initialisieren:
 ldi wl,low(ramend)         
 out SPL,wl
 ldi wl,high(ramend)
 out SPH,wl
;PWM-Ausgänge (LEDs) initialisieren:
 ldi wl, 0xff               ;Port für LEDs (PWM-Ausgänge)
 out lep-1,wl               ;= Ausgang (DDRx=PORTx-1)
;Tasten-Eingänge initialisieren:
 ldi wl, alltast            ;pull-ups für Tasten 
 out tap+2,wl               ;einschalten (PORTx=PINx+2)
;Die Initialisierung der LCD-Ports erfolgt in der LCD-Include-Datei!!!



 



 clr null                   ;immer 0 
 clr tz0                    ;Definierte Startbedingung 
 clr tz1                    ;für Tastenentprellung
 clr tas
 clr tfl
 clr twz




;Initialisierung Timer0
 ldi wl,1 ;1                   ;Vorteiler 1:1
 out tccr0,wl               ;für Timer0
 ldi wl,1<<toie0            ;Überlauf-Interrupt
 out timsk,wl               ;für Timer0 freigeben
 ldi wl,timerwert+12        ;Timer-Startwert, korregiert mit Int-Aufruf12
 mov tsw,wl                 ;definieren
 out tcnt0,tsw              ;und ausgeben
 sei                        ;Interrupts global freigeben




mainloop:               ;Hauptschleife, Endlosschleife



 

 rcall tasten               ;eventuelle Tastendrücke abarbeiten



 rjmp mainloop              ;fertig, Endlosschleife...

tasten:                    ;UP, fragt entprellte Tasten ab
 ldi zl,low(kanal)
 ldi zh,high(kanal)
;zuerst die Kanaltasten:
 sbrc tfl,chanplus         ;Kanal-Plus-Taste betätigt? - nein...
 inc zl                    ;erhöhen
 sbrc tfl,chanminus        ;Kanal-Minus-Taste betätigt? - nein...
 dec zl                    ;erhöhen
 cpi wh,7                  ;Überlauf?


;Kopie des PWM-Wertes des aktuellen Kanals nach WL holen 
 clr zh                     ;Pointer auf Sollwert des aktuellen
 ST z,wl                    ;Kanals (Kanal als Index auf Array)
 




;jetzt die Dimmtasten prüfen:
 andi tfl,dimtast           ;alle Tasten außer den Dimmtasten rücksetzen
 brne dimm                  ;war eine Dimmtaste betätigt? - ja...
tasten_e:                   ;Ende des UP
 st z,wl                    ;Sollwert ins Array zurückschreiben
 ret                        ;nein, zurück...

dimm:                       ;ändert Sollwert des aktiven Kanals
 ldi zl,low(Sollwerte)
 ldi zh,high(Sollwerte)
 sbrs tfl,dimplus           ;Taste Dimm+? - ja...
 rjmp dimm1                 ;nein, weiter...

;Dimplus-Taste wurde betätigt
 subi wl,-step              ;ja, Sollwert vergrößern
 cpi wl,pwu                 ;PWM-Zählumfang überschritten?
 brcs dimm1                 ;nein...
 ldi wl,pwu                 ;ja, auf PWM-Zählumfang begrenzen
 sts Sollwerte,zh           ;erstmal zurück ins SRAM

dimm1:
 ldi zl,low(Sollwerte)
 ldi zh,high(Sollwerte)
 sbrs tfl,dimminus           ;Taste Dimm-? - ja...
 rjmp dimm2                  ;nein, weiter...
;Dimminus-Taste wurde betätigt
 subi WL,step                ;ja, Sollwert vermindern
 brcc dimm2                  ;Unterlauf? nein...
 clr wl                      ;ja, auf 0 setzen
 sts Sollwerte,zh            ;erstmal zurück ins SRAM


dimm2:
 cbr tfl,dimtast            ;Dimmtasten zurücksetzen (Job ist ja  erledigt)
 rjmp tasten_e              ;fertig...

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












Tim0_OVF:                   ;ISR Timer0-Überlauf
 in sregtemp, sreg          ;Sreg sichern
 out tcnt0,tsw              ;Timer auf Startwert setzen
 inc pwz                    ;PWM-Treppenzähler erhöhen
 cpi pwz, pwu               ;PWM-Zählumfang erreicht?
 brne Time0_a               ;nein... (die 3 Punkte bedeuten bei mir Sprung)
;hier landet das Programm nur bei jeder hundertsten Runde
 clr pwz                    ;ja, von vorn zählen und Tasten abfragen
Tastenabfrage:  ;Entprellroutine (Algorithmus geklaut bei Peter Dannegger...)
 in temp,tap    ;Tastenport einlesen (gedrückt=L)
 com temp       ;invertieren (gedrückt=H)
 eor temp,tas   ;nur Änderungen werden H
 and tz0,temp   ;Prellzähler unveränderter Tasten löschen (Bit0)
 and tz1,temp   ;Prellzähler unveränderter Tasten löschen (Bit1)
 com tz0        ;L-Bit zählen 0,2,->1, 1,3,->0
 eor tz1,tz0    ;H-Bit zählen 0,2,->tz1 toggeln
 and temp,tz0   ;Änderungen nur dann erhalten, wenn im Prellzähler
 and temp,tz1   ;beide Bits gesetzt sind (Zählerstand 3)
 eor tas,temp   ;erhaltene Änderungen toggeln alten (gültigen) Tastenstatus
 and temp,tas   ;nur (neu) gedrückte Tastenbits bleiben erhalten
 or tfl,temp    ;und zugehörige Bits setzen (gelöscht wird nach Abarbeitung)
;tmp ist wieder frei, tas enthält den entprellten Tastenstatus,
;tfl die neu gerückten Tasten
Tastendauer:
 mov temp,tas       ;Tastenzustand kopieren
 andi temp,dimtast  ;nur Dimm-Tasten mit Wiederholfunktion stehen lassen
 tst temp           ;ist eine Taste betätigt?
 breq Tastendauer0  ;nein, Dauer auf Startwert...
 dec twz            ;ja, Zähler runter
 brne Tastenabfrage_e   ;Dauer abgelaufen? - nein...
 or tfl,temp        ;ja, noch aktive Tasten übernehmen
 ldi twz,twz1       ;und Zähler auf Wiederholwert setzen
Tastenabfrage_e:
 ;in "tfl" stehen jetzt wieder die Flags der länger betätigten Tasten
 ;sie werden nach Abarbeitung gelöscht





Time0_a:        ;Vergleich der einzelnen PWM-Werte mit dem PWM-Treppenzähler
                
 push yl         ;Register sichern
 push yh         ;Register sichern


ldi yl,low(Sollwerte)
 ldi yh,high(Sollwerte)
 ld r20,y+;Soll0
 cp pwz,r20            ;Sollwert0 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll1
 cp pwz,r20            ;Sollwert1 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll2
 cp pwz,r20            ;Sollwert2 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll3
 cp pwz,r20            ;Sollwert3 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll4
 cp pwz,r20            ;Sollwert4 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll5
 cp pwz,r20            ;Sollwert5 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll6
 cp pwz,r20            ;Sollwert6 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ld r20,y+;Soll7
 cp pwz,r20            ;Sollwert7 erreicht?
 ror wl                ;Ergebnis (Carry) sichern
 ;com wl                ;invertieren wegen L-aktiven Ausgängen
  out lep, wl              ;Ausgabe
  pop yh               ;Register wiederherstellen
  pop yl                ;Register wiederherstellen
 
 out sreg, sregtemp         ;Sreg wiederherstellen
 reti                       ;ISR fertig...

Tastendauer0:       ;Reset Dauerzähler
 ldi twz,twz0           ;Tastendauerzähler auf Startwert
 rjmp Tastenabfrage_e   ;fertig...