So der code
Code:
$regfile = "2313def.dat"
$crystal = 10000000
Dim Zeit As Byte , Hi As Byte , Lo As Byte

Config Portb = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts

On Timer1 Icnr

Enable Timer1

Timer1 = 65535
                                            ' timervorgabe zum erzeugen von einer Pause mit 100µS

Hi = 1
Lo = 1

Do
Loop


Icnr:
Incr Zeit

If Zeit = Hi And Portb.5 = 0 Then
   Portb.5 = 1
   Zeit = 0
   End If

If Zeit = Lo And Portb.5 = 1 Then
   Portb.5 = 0
   Zeit = 0
   End If

Timer1 = 65535

Return
komm mit dem beiu Hi = 1, lo = 1 auf 25 khz?????, very strange!!!!
Die ifs schlucken mächtig clocks