Ich habs Porbirt so gut wie möglich zu machen aber ich kann keine gewer geben

Code:
$regfile = "m8def.dat"                                      'ATmega8-Deklarationen
$crystal = 3686400                                          'Verwendeter Quarz: 3,6864 MHz

Ddrb.1 = 1                                                  'Pin PB1/OC1A ist Ausgang

Ddrd.0 = 0                                                  'Port D1 ist Eingang


Tccr1a = &B10000001                                         'Pin OC1A nicht invertiert, 8-Bit-
Tccr1b = &B00000010                                         'PWM phasenkorrekt, Timer1 1/8

Ocr1al = 127                                                'PWM = ca.50%

Dim Temp As Byte                                            'temp Register

Temp = Ocr1al                                               'kopire timer in temp

Do                                                          'Hauptschleife
                                                            'ist pin D1 = 1 dann
If Pind.1 = 1 Then                                          'temp + 2
   Temp = Temp + 2                                          'warten wegen prellen (taster
Waitms 20
End If

Ocr1al = Temp                                               'kopire trmp in timer

loop
ich hoffe das man das erkenen kann!!!
(auch die kometare)

MFG
Das Novj

@ robocat mir wär asm auch lieber