RC5 mit BASCOM was ist da los??

[Gtui (Gast)]

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

[Sortierwut (Gast)]

abgesehen davon, daß es in Bascom einen Befehl "sendrc5" gibt.. Einige 
Tips: guck Dir auf dem Oszi an, was 'rauskommt. Wenn Du keinen hast, 
mach das ganze 1000x langsamer und guck einer LED beim Blinken zu. Ich 
würde den PWM mit den 36kHz permanent laufen lassen und mit einem 
normalen, 2. Ausgangsport und einem Transistor dieses Signal an- und 
ausschalten. Bau Dir einen Empfänger mit einem TSOP-?? und guck was da 
'rauskommt.. etc. Viel Glück!