$regfile = "m8def.dat"
$crystal = 1000000

Dim T_aktuell As Word
Dim T1 As Word
Dim T2 As Word
Dim T3 As Word
Dim Heizleistung As Byte
Dim Learn_flag As Bit
Dim Learn_1 As Bit
Dim Learn_2 As Bit
Dim Learn_3 As Bit
Dim Ein As Bit

On Timer0 Pwm
Config Timer0 = Timer , Prescale = 256
Enable Timer0
Enable Interrupts

Config Debounce = 1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Ausgang Alias Portd.5
Config Ausgang = Output

Led_rot Alias Portb.2
Config Led_rot = Output

Led_gruen Alias Portb.5
Config Led_gruen = Output

Led_gelb Alias Portb.3
Config Led_gelb = Output

Piezo Alias Portc.1
Config Piezo = Output

Taster_links Alias Pinc.4
Config Portc.4 = Input
Portc.4 = 1

Taster_mitte Alias Pinc.2
Config Portc.2 = Input
Portc.2 = 1

Taster_rechts Alias Pinc.3
Config Portc.3 = Input
Portc.3 = 1

Readeeprom T1 , 1010
Readeeprom T2 , 1020
Readeeprom T3 , 1030

Do

   Debounce Taster_links , 0 , Links_isr , Sub
   Debounce Taster_mitte , 0 , Mitte_isr , Sub
   Debounce Taster_rechts , 0 , Rechts_isr , Sub
   T_aktuell = Getadc(5)
   If Ein = 1 Then
    Select Case T_aktuell
      Case 0 To T1:
         Heizleistung = 255
         Toggle Led_rot
         Led_gruen = 0
         Led_gelb = 0
      Case T1 To T2:
         Led_rot = 1
         Led_gruen = 0
         Led_gelb = 0
         Heizleistung = 90
      Case T2 To T3:
         Led_rot = 0
         Led_gruen = 0
         Led_gelb = 1
         Heizleistung = 255
      Case T3 To 1024
         Heizleistung = 50
         Led_rot = 0
         Led_gruen = 1
         Led_gelb = 0
         Waitms 10000
         Sound Piezo , 288 , 65
         Sound Piezo , 288 , 65
         Sound Piezo , 288 , 65
         Heizleistung = 0
         Ein = 0
         Led_rot = 0
         Led_gelb = 0
         Led_gruen = 0
         Sound Piezo , 288 , 65
         Sound Piezo , 288 , 65
         Sound Piezo , 288 , 65
      Case Else
         Led_rot = 0
         Led_gelb = 0
         Led_gruen = 0
    End Select
   End If
   If Learn_1 = 1 And Learn_2 = 1 And Learn_3 = 1 Then
      Learn_flag = 0
      Ein = 0
         Led_rot = 0
         Led_gelb = 0
         Led_gruen = 0
   End If
   If Learn_flag = 1 Then
      If Learn_1 = 0 Then Led_rot = 1 Else Led_rot = 0
      If Learn_2 = 0 Then Led_gelb = 1 Else Led_gelb = 0
      If Learn_3 = 0 Then Led_gruen = 1 Else Led_gruen = 0
   End If
   Waitms 1
Loop

Pwm:
   If Heizleistung = 0 Then
      Ausgang = 0
   Else
      Toggle Ausgang
   End If
   If Ausgang = 1 Then
      Timer0 = 256 - Heizleistung
   Else
      Timer0 = Heizleistung
   End If
Return

Links_isr:
   If Learn_flag = 1 And Learn_1 = 0 Then
      T1 = T_aktuell
      Sound Piezo , 288 , 65
      Writeeeprom T1 , 1010
      Learn_1 = 1
   End If
   If Taster_rechts = 0 Then
      Sound Piezo , 288 , 65
      Learn_flag = 1
      Learn_1 = 0
      Learn_2 = 0
      Learn_3 = 0
      Ein = 0
      T1 = 200
      T2 = 300
      T3 = 500
      Heizleistung = 255
   End If
Return

Mitte_isr:
   If Learn_flag = 1 And Learn_2 = 0 Then
      T2 = T_aktuell
      Sound Piezo , 288 , 65
      Writeeeprom T2 , 1020
      Learn_2 = 1
   End If
   If Learn_flag = 0 Then
   If Ein = 1 Then
         Ein = 0
         Heizleistung = 0
         Led_rot = 0
         Led_gelb = 0
         Led_gruen = 0
   Else
         Ein = 1
   End If
   End If
Return

Rechts_isr:
   If Learn_flag = 1 And Learn_3 = 0 Then
      T3 = T_aktuell
      Sound Piezo , 288 , 65
      Writeeeprom T3 , 1030
      Learn_3 = 1
   End If
   If Taster_links = 0 Then
      Sound Piezo , 288 , 65
      Learn_flag = 1
      Ein = 0
      Learn_1 = 0
      Learn_2 = 0
      Learn_3 = 0
      T1 = 200
      T2 = 300
      T3 = 500
      Heizleistung = 255
   End If
Return