RC5 mit BASCOM was ist da los??

Nabend
Ich habe folgenden Code mit Bascom aber irgendwie funzt dat nich. Kennt 
sich da jemand aus???
Meine Idee: Tccr1 wird auf Fast PWM eingestellt. ICR bildet mit dem Wert 
444 Takte bei 16Mhz 36khz mit OCR 111 Takte 25% Duty Cycle. Nur tut sich 
da nichts. Habe ich da bei den Timer werten etwas falsch??



$regfile = "m8515.dat"
$crystal = 16000000


'AN:
'Tccr1a = &B10000011
'Tccr1b = &B00011001

'aus:
'Tccr1a = &B00000000
'Tccr1b = &B00000001

Declare Sub Logic1
Declare Sub Logic0

Dim Togglebit As Bit
Togglebit = 0

Capture1 = 444


Ocr1ah = 0
Ocr1al = 111


Ddrd.5 = 1



Do

Logic1
Logic1


Toggle Togglebit
If Togglebit = 0 Then Logic0 Else Logic1

'system bits
Logic0
Logic0
Logic0
Logic0
Logic0

'commando bits

Logic0
Logic1
Logic0
Logic0
Logic0
Logic0

Waitms 500

Loop



Sub Logic0

Tccr1a = &B10000011
Tccr1b = &B00011001

Waitus 883

Tccr1a = &B00000000
Tccr1b = &B00000001

Waitus 884
End Sub



Sub Logic1

Tccr1a = &B00000000
Tccr1b = &B00000001

Waitus 883

Tccr1a = &B10000011
Tccr1b = &B00011001

Waitus 884
End Sub