.nolist
.include "tn13adef.inc" ; Define device ATtiny13A
.list
.def sreg_bak = R15 
.def rmp = R16
.def zero = R17
.def eepromadresse = R18
.def eeprominhalt = R19
.def rmp2 = R20
.def counterlow = R24
.def counterhigh = R25
.def sollwertlow = R26
.def sollwerthigh = R27

.equ maximalwert = 1000 ; 10800 = acht sekunden mal 10.800 => 24h
.equ LED = 4 ;PORTB1
.equ WERTE = 12 ; Anzahl der .db-Werte

.eseg
.org 0
.db LOW(100), HIGH(100)    ; an
.db LOW(120), HIGH(120)    ; aus
.db LOW(300), HIGH(300)    ; an
.db LOW(350), HIGH(350)    ; aus
.db LOW(400), HIGH(400)
.db LOW(405), HIGH(405)

.dseg
.org SRAM_START
.cseg
.org 0x0000
rjmp Main ; Reset vector
reti ; INT0
reti ; PCI0
reti ; rjmp isr_timer_overflow ; OVF0
reti ; ERDY
reti ; ACI
reti ;rjmp isr_oc0a ; isr_oc0a; OC0A
reti ;rjmp isr_oc0b ; OCR0B
rjmp isr_watchdog ; WDT
reti ; ADCC


init_watchdog:
 cli
 wdr
 in rmp, MCUSR
 andi rmp, (0xff - (1<<WDRF))
 out MCUSR, rmp
 in rmp, WDTCR
 ori rmp, (1<<WDCE)
 out WDTCR, rmp
 ldi rmp, (1<<WDTIE)|(1<<WDP0)
 out WDTCR, rmp
 sei
 ret

Main:
 ldi rmp,Low(RAMEND)
 out SPL,rmp 
 rcall powersave
 rcall init_watchdog
 clr zero
 sbi DDRB, LED
 rcall eeprom_read
 mov sollwertlow, eeprominhalt
 inc eepromadresse
 rcall eeprom_read
 mov sollwerthigh, eeprominhalt
 inc eepromadresse
 ldi rmp, 1

Loop:
 rcall check_maximum
 add counterlow, rmp
 adc counterhigh, zero
 cp counterlow, sollwertlow
 cpc counterhigh, sollwerthigh
 breq istgleichsoll
 rcall enable_sleep
 rjmp Loop

 istgleichsoll:
 sbi PINB,LED  ; toggle
 cpi eepromadresse, WERTE
 brlo readnext
 ldi eepromadresse, 0 ; starte wieder bei 0
 readnext:
 rcall eeprom_read
 mov sollwertlow, eeprominhalt
 inc eepromadresse
 rcall eeprom_read
 mov sollwerthigh, eeprominhalt
 inc eepromadresse
 rcall enable_sleep
 rjmp Loop

check_maximum:
 push rmp
 push sollwertlow
 push sollwerthigh
 ldi sollwertlow, LOW(maximalwert)
 ldi sollwerthigh, HIGH(maximalwert)
 cp counterlow, sollwertlow
 cpc counterhigh, sollwerthigh
 breq resetmaximum
 pop sollwerthigh
 pop sollwertlow
 pop rmp
 ret

 resetmaximum:
 clr counterlow
 clr counterhigh
 pop sollwerthigh
 pop sollwertlow
 pop rmp
 ret

eeprom_read:
 sbic EECR, EEPE ; warten bis bereit
 rjmp eeprom_read
 out EEARL, eepromadresse ; gehe zu eeprom-Adresse
 sbi EECR, EERE ; start eeprom read
 in eeprominhalt, EEDR   ; Ergebnis nach eeprominhalt kopieren
 ret

isr_watchdog:
 in sreg_bak, SREG
 rcall disable_sleep
 push rmp
 ldi rmp, 1
 add counterlow, rmp
 adc counterhigh, zero
 out SREG, sreg_bak
 pop rmp
 reti

powersave:
 push rmp
 ldi rmp, (0<<ADEN)
 out ADCSRA, rmp
 ldi rmp, 1
 out PRR, rmp
 pop rmp
 ret

enable_sleep:
 push rmp2
 in rmp2, MCUCR
 ori rmp2,(1<<SE)|(1<<SM1)
 out MCUCR, rmp2
 sleep
 pop rmp2
 ret

disable_sleep:
 in rmp, MCUCR
 andi rmp, (0<<SE)
 out MCUCR, rmp
 ret

warten:
 push rmp
 push rmp2
 ldi rmp2, 255
 aussen:
 ldi rmp, 255
  innen:
  dec rmp
  brne innen
 dec rmp2
 brne aussen
 pop rmp2
 pop rmp
 ret