also mein Code sieht jetzt so aus:

Code:
$regfile = "m8def.dat"
$crystal = 3686400
Dim Zaehlerstand As Byte
Dim A As Integer
Dim Drehzahl As Integer                                   
Const Timervorgabe = 61936
Config Timer1 = Timer , Prescale = 1024
Enable Interrupts
Config Int0 = Falling
Enable Int0
On Int0 Zaehlen
On Timer1 Mytimer
Timer1 = Timervorgabe
Enable Timer1
Start Timer1


Do
Config Lcd = 16 * 2
Cls
Lcd Drehzahl
Waitms 100
Loop

Zaehlen:
Zaehlerstand = Zaehlerstand + 1
Return

Mytimer:
A = Zaehlerstand
Drehzahl = A * 60
Print Drehzahl
Timer1 = Timervorgabe
Zaehlerstand = 0
Return

End
Aber funktionieren tut das ganze noch nicht.

Hat noch jemand eine Idee?