'PWM für Attiny13 $regfile = "at13def.dat" $tiny $noramclear $crystal = 1000000 $noinit Dim A As Byte Tccr0a = &B10100011 'Timer als PWM Tccr0b = &B00000011 'Prescaler auf 64 Do For A = 0 To 255 Ocr0a = A 'PWM Pin b.0 Ocr0b = A 'PWM Pin b.1 Waitms 15 Next Loop End