Also so ganz habe ich dich noch nicht verstanden...
Im Grundbrinzip müsste es so aussehen:
Code:
  $regfile = "m8def.dat" 
  $crystal = 16000000 
  Dim I As byte
  Config Pinb.1 = Output 
  Config Pinb.2 = Output 
  Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 

Do
For I = 0 To 255 step 1
  Compare1a = I 
  Compare1b = I 
Waitms 200
Next I
Loop
In ca 5,1 Sekunden (256/200ms) ist die Schleife einmal durchlaufen.
Das meintest du doch, oder?