Super danke Jetzt gehts mit diesem Code

Code:
$regfile = "m8def.dat"
$crystal = 4000000

Config Portb = Output
Config Portd = Input
Dim I As Integer
Enable Interrupts

Portd = 0


Do

   I = Pind.7
   If I = 1 Then
     Portb.1 = 0
     Else
      Portb.1 = 1
   End If

Loop
Leider dauert es jetzt bestimmt 1-3 sekunden wenn ich den port nicht mehr auf Vcc ziehe bis Portb.1 wieder auf 1 gesetzt wird gibt es da nen trick damit das schneller geht ??

Aber schon mal vielen danke für eure Hilfe

mfg Maik[/code]