probier das mal aus:

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 19200

Declare Function Ultrasonic_re() As Integer
Declare Sub Initialize_ultrasonic_re


Dim Ultra_daten_re As Integer
Enable Interrupts

Call Initialize_ultrasonic_re

Do

Ultra_daten_re = Ultrasonic_re()

Print Ultra_daten_re

Waitms 255

Loop

Sub Initialize_ultrasonic_re
Config Pind.6 = Output
Config Pind.7 = Input
End Sub

Function Ultrasonic_re() As Integer
Portd.6 = 0
Pulseout Portd , 6 , 10
Pulsein Ultrasonic_re , Pind , 7 , 1
End Function

ps: mit der 10 hinter pulseout spiel mal ein bisschen nach oben oder unten.
Castle