hmmm ... nen langsameren Quarz nehmen am Einfachsten denk ich

oder in etwa so:
Code:
$regfile = "m16def.dat"
$crystal = 16000000
$framesize = 32
$swstack = 32
$hwstack = 32


Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64

Baud 9600

Config Int0 = Falling

Config Timer0 = Timer , Prescale = 1024

dim Tmess1 As String * 10
dim timerwert as word at &hb0
dim ueberlauf as byte at &hb1
dm lowbyte as byte at &Hb0

Zaehlerirq0 = 0


On Timer0 Timerirq
enable timer0

On Int0 Irq0
Enable Int0

Enable Interrupts

Do
Tmess1 = Str(timerwert)
Locate 1 , 1
Lcd Tmess1
Waitms 500
Loop


Irq0:
lowbyte=timer0
timerwert=0
timer0=0
Return 
end

timerirq:
incr ueberlauf
return
end