Servus Basti!
Versuchs doch einfach anders zu lösen. Ich würde den Int0 beibehalten wenn du den so willst und das Ganze einfach als Pattern machen ohne Compare. So in etwa:
Have much fun!Code:$Regfile = "m8def.dat" $Crystal = 3686400 Dim AnzBursts As Byte PinB.1 = 1 ' Burst-Ausgang DdrD.2 = 0 ' Start-Taste mit internem Pull-Up PortD.2 = 1 ' INT0 DdrB.0 = 0 ' Echo-Eingang mit internem Pull-Up PortB.1 = 1 Config Int0 = Low Level On Int0 Int_StartTaste Enable Interrupts Do ' Dein Programm oder sonst noch was.... If PinB.1 = 0 Then ' Das was bei Echo passieren soll... End If Loop End ' Interrupt-Laufzeit ca. 400µs (1 Burst) Int_StartTaste: For AnzBursts = 1 To 32 ' 16xHigh + 16xLow Toggle PortB.1 WaitUs 12 Next AnzBursts Return
Grüße Wolfgang







Zitieren

Lesezeichen