hallo hübi,

versuch mal folgenden code:

Code:
$regfile = "attiny2313.dat"
$crystal = 8000000


Dim Zaehlwert As Word
Dim Zaehlwert_old As Word
Zaehlwert_old = 65000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.2
Initlcd
Cursor Off Noblink

Cls

Config Int0 = Falling
Enable Int0
On Int0 Isr_von_int0

Config Pind.2 = Input
Portd.2 = 1

Enable Interrupts

Locate 1 , 1
Lcd "Zaehlwert = "

Do

If Zaehlwert_old <> Zaehlwert Then
Locate 1 , 13
Lcd Zaehlwert
Zaehlwert_old = Zaehlwert
End If

Loop

End

Isr_von_int0:
Incr Zaehlwert
Return
wenn du fragen dazu hast, dann frag einfach

gruß
chris