also mit dem code kann mans denke ich warum?

Code:
$regfile = "m16def.dat"                                      'ATmega16-Deklarationen 
$crystal = 16000000                                         'Verwendeter Quarz: 16 MHz 
$baud = 9600                                                '9600 Baud 

Dim A As Byte 
Dim B As Byte 
' 
Ddrd = &B00110000 
' 
Tccr1a = &B10000001 
Tccr1b = &B10000001 
'---------------------------------------------------------- 
Do                                                          'Hauptschleife 
  If Ucsra.rxc = 1 Then                                     'Falls ein Byte im UART-Puffer... 
    A = Udr 
    Pwm1a = A                                              'Neuen Helligkeitswert setzen 
    B = 254 - A 
    Pwm1b = B 
   End If 
Loop