ATTiny45 Led-Wechsellicht-Problem

[Andreas F. (mad_devil)]

Hallo Forum!

Ih bin schon lange stiller Mitleser und versuche mich jetzt erstmals 
selbst an einigen Programmierungen.

Ich versiche mit 2 SMD LEDs eine Wechsellichtschaltung für einen 
Modellkrankenwagen zu erstellen.
Vieleicht hat das der Eine oder Andere schonmal in echt gesehen.
Es soll das normale Abblendlicht AN (ca 50% Helligkeit) simuliert werden 
welches dann zur "Lichthupe" verstärkt wird und dies auf und abdimment 
immer rechter / linker Scheinwerfer.

Also etwa so:

Linker / Rechter Scheinwerfer AN (50% LED Helligkeit)
Linker Scheinwerfer fadet (langsam) auf 100% / rechter noch auf 50%
Links 100% erreicht kurz halten dann / rechter fadet hoch auf 100%
links fadet herunter auf 50% / rechts erreicht 100%
und so weiterso dass immer ein gegenteiliger lauf des Lichts entsteht.

Ich habe das versucht auf einem ATTiny45 zu bewerkstelligen leider fadet 
die LED an PortB.0 langsam von 50% auf 100% und springt dann wieder 
zurück auf 50% anstatt runter zu faden.
Die LED an PortB.1 Beginnt mit 100% fadet dann auf 50% runter und 
springt dann aber wieder hoch anstatt hoch zu faden.

Ich steh irgendwie auf dem Schlauch. Vieleicht kann mir jemand den 
Fehler aufzeigen. Hier mal mein Code:

'=====================================================================
'Abblendfernlicht für Krankenwagen etc.
'Wenn "Clear Down" LED an Pin 5/6 (PB0/1) über Vorwiderstand an GND
'Wenn "Clear Up"  LED an Pin 5/6 (PB0/1) über Vorwiderstand an VCC
'=====================================================================

$regfile = "attiny45.dat"
$crystal = 1200000
Dim I As Byte
Dim D As Integer
Dim E As Integer

Config Portb.0 = Output
Config Portb.1 = Output


Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down

'Pwm0a = 40                                                'Startwert auf 40
'Pwm0b = 40


Do

  For I = 40 To 120                                         'Hochfaden Der Led ...
      D = I                                                 'bis der Wert 225 (120*120/64) erreicht ist
      D = D * D
      D = D / 64
      E = 160 - I
      Pwm0a = D
      Pwm0b = E
   Waitms 17                                                'Zeiteinstellung pro Durchlauf für das Hochfaden
  Next I

  Pwm0a = 225
  Pwm0b = 25
  Waitms 1000                                               'Dauer Fernlicht


  For I = 120 To 40 Step -1                                 'Runterfaden der LED ...
     D = I
     D = D * D
    D = D / 64
    E = 160 - I
   Pwm0a = D
   Pwm0b = E
   Waitms 17
  Next I


  Waitms 100                                                'Pause nach dem Runterfaden
Loop

End                                                         'end program

Vielen Dank im Voraus