'RGB_Fader
'Pwm1a = Rot
'Pwm1b = Gruen
'Ocr2 = Blau

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer2 = Pwm , Prescale = 1 , Compare Pwm = Clear Up , Pwm = On

Dim Blau As Word
Dim Gruen As Word
Dim Rot As Word
Blau = 254
Gruen = 0
Rot = 0

Enable Timer1
Enable Timer2

Start Timer1
Start Timer2

   Do
      Do
         Blau = Blau - 2
         Gruen = Gruen + 2
         Pwm1a = Blau
         Pwm1b = Gruen
         Ocr2 = Rot
         Waitms 20
         If Blau = 2 Then
            Exit Do
         End If
      Loop
      Do
         Gruen = Gruen - 2
         Rot = Rot + 2
         Pwm1a = Blau
         Pwm1b = Gruen
         Ocr2 = Rot
         Waitms 20
         If Gruen = 2 Then
            Exit Do
         End If
      Loop
      Do
         Rot = Rot - 2
         Blau = Blau + 2
         Pwm1a = Blau
         Pwm1b = Gruen
         Ocr2 = Rot
         Waitms 20
         If Rot = 2 Then
            Exit Do
         End If
      Loop
   Loop
End