...und es geht doch:

Code:
$regfile = "m8def.dat"
$crystal = 4000000

DDRB.1 = 1

TCCR1A = &B10000000
TCCR1B = &B00010001

ICR1L = &B11111111
ICR1H = &B11111111


Dim Phase As Word

Do

For Phase = 2000 To 4000
Waitms 2
OCR1AH = High(phase)
OCR1AL = Low(phase)
Next Phase

Loop
Dieser kleine Code erzeugt ein PWM-Signal mit ca. 30Hz, wobei die High-Zeit in 2000 (!) Stufen zwischen 1 und 2 ms variiert wird (pro Durchlauf etwa 4 Sekunden). Also echtes 16bit-PWM...