hallo, ich habe das so geschrieben wie in winavr-c und nehme nicht die vorgegebene von Bascom :

dim Tccr1a_set as byte
dim Tccr1b_set as byte

Reset Tccr1a_set .wgm10 ' werte wie in winavr-c
Set Tccr1a_set .wgm11
Set Tccr1a_set .com1a1
Set Tccr1a_set .com1b1

Tccr1a = Tccr1a Or Tccr1a_set ' dann mit or dem register zugewiesen

hier noch einmal das gleiche :

Reset Tccr1b_set .wgm12
Set Tccr1b_set .wgm13
Set Tccr1b_set .cs10

Tccr1b = Tccr1b Or Tccr1b_set

Icr1h = 0
Icr1l = 210
der motor verhält sich jetzt wie in winavr-c.