'**** Deklarationen ************************************************************
$regfile = "at26def.dat"                                    'Chipdefinition
$crystal = 8000000                                          'Int. Osc. Speed 1Mhz

'**** Portinitialisierung ******************************************************
Porta = &H00                                                'ports hochohmig schalten
Portb = &H00

Config Pinb.1 = Output

'Set $29.1
'Waitms 120
'Set $29.2                                                   '-> PLL 64MHz ; reset for synchronous clock

Ocr1a = 10
Ocr1c = 255

Set Tccr1a.com1a0                                           'OC1A auf compare match reset stellen (modus)
Set Tccr1a.pwm1a                                            'PWM1A enable / PWM einschalten

Set Tccr1b.ctc1                                             'clear timer on compare match with OCR1C (periodendauer)
Set Tccr1b.cs10                                             'Prescaler =1

'nach diesen Zeilen steht in TCCR1A &H42 und in TCCR1B &H81 : die PWM funktioniert perfekt

'Config Timer1 = Pwm , Compare A = Toggle , Prescale = 1 , Clear Timer = 1

'mit der obigen BASCOM zeile ist das richtige setzen der TCCR1A und B nicht möglich !

End