Ihr das Code gerüst, ab jetzt darfst du mal ein bissele Wurschteln ( schwäb. )
Code:
$regfile = "2313def.dat"
$crystal = 10000000
Dim Zeit As Word , Varausmain As Word

Config Portb = Output
Config Timer1 = Timer , Prescale = 1
Enable Interrupts
On Timer1 Icnr
Enable Timer1
Timer1 = 64536                                              ' timervorgabe zum erzeugen von einer Pause mit 100µS

Do
' MAIN
Varausmain = 10
loop


Icnr:

Incr Zeit

If Zeit = Varausmain Then                                   ' wenn die Pause von 100µS x mal abgelaufen ist dann

 Toggle Portb.5                                             ' toggle portb.5
                                            ' setze auf ursprung zurück
 Zeit = 0

End If
Timer1 = 64536

Return
mach mal ne Simulation ( aber vorsicht, die läuft extrem langsam, nicht das du denkst die Frequenz ist zu langsam ( hat bei meiner Var eine Frequenz von 500 Hz )