.INCLUDE "m88padef.inc"        ;AVR-Definitionsdatei einbinden
;
;Die Arbeitsregister umbenennen bzw. sinnvollere Namen vergeben
;
.DEF a		= r16		;Allgemeines Arbeitsregister
.DEF led        = r18		;LED schalten


.DEF wh         = r25		;Als Doppelregister...
.DEF wl         = r24		;... W verwenden
.DEF sh         = r29		;Als Doppelregister...
.DEF sl         = r28		;..Y verwenden
;
;
;
.EQU XTAL	= 160000000	;Quarzfrequenz in Hertz -> 1Takt = 62,5ns

.EQU LED_PIN	= PIND		;Eingangspin-Zustand
.EQU LED_DDR    = DDRD          ;Datenrichtungsregister der LED vorgeben
.EQU LED_PORT   = PORTD         ;Ausgabeport der LED bestimmen
.EQU led_6      = 6		;LED bestimmen

.EQU IN_PIN	= PINC		;Eingangspin-Zustand
.EQU IN_DDR     = DDRC          ;Datenrichtungsregister 
.EQU IN_PORT    = PORTC         ;Ausgabeport
.EQU in.s0      = PC0		;Schalter S0 bestimmen
.EQU in.s1      = PC1		;Schalter S1 bestimmen
;
;Die LED soll bei 16MHz mit 
;
.EQU Gt         = 3200 / 4 -1   ;Grundzeit = 0,2ms
.EQU G2_1       = 2500          ;Faktor = 0,2ms * 2500 = 500ms
.EQU G2_10	=  250		;Faktor = 0,2ms *  250 =  50ms
.EQU G2_100     =   25          ;Faktor = 0,2ms *   25 =   5ms
.EQU G2_500	=    5		;Faktor = 0,2ms *    5 =   1ms
.EQU sek	= 5000		;Faktor = 0,2ms * 5000 = 1 Sekunde

.EQU s_msk	= 0b00000011	;Schaltermaske 
;
;PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
;P  Programmbereich 
;PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
;
.CSEG
.org $0000              ;Programmstartadresse(Anfang d. Interrupt-Vektortabelle)
 rjmp _start
.ORG  INT_VECTORS_SIZE	;Restliche Interrupt-Vektortabelle ueberspringen

_start:
 ser  led			;Erstmal von Hochohmig..
 out  LED_PORT,led		;..auf Pullup umschalten
 ldi  led,1<<led_6		;LED auswaehlen
 out  LED_DDR,led		;Gewaehlte LED als Ausgang und gleichzeitig High-Pegel

 sbi  IN_PORT,in.s0		;Pullup f. Schalter S0
 sbi  IN_PORT,in.s1		;Pullup f. Schalter S1
_taster:
 in   a,IN_PIN			;Pinzustand einlesen..
 andi a,s_msk			;..und Schalter selektieren
 
 ldi  sl, LOW(sek)		;Y-Doppelregister mit dem Faktor..
 ldi  sh,HIGH(sek)		;..fuer eine Sekunde laden
 ldi  zh,HIGH(Gt)		;Z-Doppelregister mit der...
 ldi  zl, LOW(Gt)		;...Grundzeit fuer eine Sekunde laden
_repeat:
 sbiw zh:zl,1			;Grundzeitzaehler fuer eine Sekunde um eins verringern
 brne _cpi			;Springen solange die Grundzeit nicht Null
 sbiw sh:sl,1			;Faktor der Grundzeit f. eine Sekunde um eins verringern
 breq _taster			;Springen wenn der Faktor Null ist
 ldi  zh,HIGH(Gt)		;Z-Doppelregister mit der..
 ldi  zl, LOW(Gt)		;..Grundzeit fuer eine Sekunde laden
_cpi: 
 cpi  a,0
 breq _1Hz
 cpi  a,1
 breq _10Hz
 cpi  a,2
 breq _100Hz
 cpi  a,3
 breq _500Hz
 rjmp _repeat
_1Hz:
 ldi  wl, LOW(G2_1)   ;W-Doppelregister mit dem Faktor der..
 ldi  wh,HIGH(G2_1)   ;..1.Grundzeit laden
_g2_1:
 ldi  xh,HIGH(Gt)     ;X-Doppelregister mit der...
 ldi  xl, LOW(Gt)     ;...Grundzeit laden
_g1s_1:
 sbiw xh:xl,1         ;Grundzeitzaehler um eins verringern
 brne _g1s_1          ;Springen solange die Grundzeit nicht Null
 
 sbiw wh:wl,1         ;Faktor der Grundzeit um eins verringern
 brne _g2_1           ;Springen solange der Faktor nicht Null
   
 sbi  LED_PIN,led_6   ;LED toggeln
 rjmp _repeat
_10Hz:
 ldi  wl, LOW(G2_10)  ;W-Doppelregister mit dem Faktor der...
 ldi  wh,HIGH(G2_10)  ;..2.Grundzeit laden
_g2_10:
 ldi  xh,HIGH(Gt)     ;X-Doppelregister mit der...
 ldi  xl, LOW(Gt)     ;...Grundzeit laden
_g1s_10:
 sbiw xh:xl,1         ;Grundzeitzaehler um eins verringern
 brne _g1s_10         ;Springen solange die Grundzeit nicht Null
 
 sbiw wh:wl,1         ;Faktor der Grundzeit um eins verringern
 brne _g2_10          ;Springen solange der Faktor nicht Null
   
 sbi  LED_PIN,led_6   ;LED toggeln
 rjmp _repeat
_100Hz:
 ldi  wl, LOW(G2_100) ;W-Doppelregister mit dem Faktor der...
 ldi  wh,HIGH(G2_100) ;..3.Grundzeit laden
_g2_100:
 ldi  xh,HIGH(Gt)     ;X-Doppelregister mit der...
 ldi  xl, LOW(Gt)     ;...Grundzeit laden
_g1s_100:
 sbiw xh:xl,1         ;Grundzeitzaehler um eins verringern
 brne _g1s_100        ;Springen solange die Grundzeit nicht Null
 
 sbiw wh:wl,1         ;Faktor der Grundzeit um eins verringern
 brne _g2_100         ;Springen solange der Faktor nicht Null
   
 sbi  LED_PIN,led_6   ;LED toggeln
 rjmp _repeat
_500Hz:
 ldi  wl, LOW(G2_500) ;W-Doppelregister mit dem Faktor der...
 ldi  wh,HIGH(G2_500) ;..4.Grundzeit laden
_g2_500:
 ldi  xh,HIGH(Gt)     ;X-Doppelregister mit der...
 ldi  xl, LOW(Gt)     ;...Grundzeit laden
_g1s_500:
 sbiw xh:xl,1         ;Grundzeitzaehler um eins verringern
 brne _g1s_500        ;Springen solange die Grundzeit nicht Null
 
 sbiw wh:wl,1         ;Faktor der Grundzeit um eins verringern
 brne _g2_500         ;Springen solange der Faktor nicht Null
   
 sbi  LED_PIN,led_6   ;LED toggeln
 rjmp _repeat
 
.EXIT       ;Assemblieren des Files beenden