Ultraschall-Interface will nicht...!

[BASTIUniversal]

Hallo!
Das mit dem Piepsen konnte ich mir auch nicht erklären...!
Hier ein paar Ausschnitte aus meinem Programm (Bascom):
Timer Konfiguration:

Config Timer0 = Timer , Prescale = 1
Timer0 = 210

Bei Timer0 Interrupt:

Ontimer0: 'Bei Timer0-Overflow PinB.1 toggeln (Start In). Bei 3,68MHz ca. 40,1kHz

Toggle Portb.0
Incr B

Return

Hauptroutine

Do

If B = 16 Then                                              'Nach 16 Impulsen Timer0 stoppen
   Stop Timer0
   B = 0
End If

Loop

Im Anhang ist das Komplette Programm. Der Mega läuft auf 3,6864MHz (Fusebit C: 1 BODLEVEL 2,7V; B: BODEN disabled; KL: 6CK, 64mS delay; A987: external XTAL).
Wenn der Timer auf den Wert 210 geladen wird und ohne Teiler läuft müssten ja 3686400Hz/(256-210)=80139Hz herauskommen. Bei Toggle PortB müssten dann ungefähr 40070Hz rauskommen, oder hab ich mich irgendwie vertan (wär mir am liebsten )?

MfG