Anfänger fehler wait problem

Hi

ich habe gerade angefangen mich ein wenig mit Bascom zu beschäftigen.

dazu wollt ich einfach einen Zähler hochzählen lassen und über "print" über den Com Port auf dem Rechner anzeigen lassen. Ich hatte mir das jetzt so gedacht.

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Dim I As Long

I = 0

Do

Wait 5

I = I + 1

Print I

Loop

das klappt auch soweit nur zählt der Avr viel zu schnell. Der wartet halt die 5 sec nicht. Kann mir mal jemand sagen woran das liegt?

In den Fusebits den Quarz auf 8Mhz gestellt?

Es liegt bestimmt an der taktung, wenn du $crystal auf 8000000 definierst und er aber bei den fusebits auf 1000000 geschrieben ist läuft das ganze 8mal schneller.