So
Habs selbst hinbekommen.
Für alle die Probleme damit haben setz ich mein Beispielcode für eine LED rein:

Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600

Dim Led(1) As Byte
Dim Pwmwert As Byte

Config Portb.0 = Output
Config Portb.2 = Output
Config Portb.4 = Output

Const On = 1
Const Off = 0

Config Timer0 = Timer , Prescale = 1

Start Timer0

On Timer0 Pwmroutine
Enable Timer0
Enable Interrupts

Led1 Alias Portb.0

Led(1) = 0
Do
Led(1) = Led(1) + 1
Waitms 6
Loop

Pwmroutine:
  If Led(1) > Pwmwert Then
    Led1 = 1
  Else
    Led1 = 0
  End If
  Incr Pwmwert
  If Pwmwert > 255 Then Pwmwert = 0
Return

end