Nimm mal den hier:

Code:
$regfile = "8535def.dat"
$crystal = 1000000

Config Portb = Output

Portb = 0

Do
   Portb = &B11111111
   Wait 1
   Portb = &B00000000
Loop

End
Und vielleicht auch mal nen externen Quarz ran...

Martin