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:
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
Have much fun!
Grüße Wolfgang
Lesezeichen