PWM mit 861 und Bascom

[Holger B. (holgerbri)]

Hi,

für die x61 Reihe funzt ja nicht die normale Vorgehensweise bei Bascom. 
Insofern habe ich die entsprechenden Register laut Datenblatt selber 
gesetzt. Leider ohne Erfolg. Mein Testprogramm sieht wie folgt aus:

$regfile = "ATtiny861.dat"
$crystal = 8000000

Ddra = &B0000_1111                                 'Ports für 
BCD-Ausgabe
Porta = &B0000_1111

Config Pinb.3 = Output

Tccr1a = &B0010_0001                               ' Fast - PWM-Ausgabe 
auf OC1B

Ocr1c = 255                                        ' Maxwert des PWM
Ocr1b = 0                                          ' Ausgabewert

Dim I As Byte
Dim Wert As Byte

Do
  For I = 0 To 5
    Wert = 50 * I
    Ocr1b = Wert                                            ' PWM setzen
    Porta = I                                               ' BCD 
Ausgabe
    Wait 2
  Next I
Loop

End                                                         'end program


habe ich da einen Denkfehler gemacht?

Viele Grüße
  Holger