Und gleich nochmal ne Version!
Code:
                                         'Encoder test
'--------------------------------------------------------------
$regfile = "attiny2313.dat"                                 'ATTINY 2313
$crystal = 8000000                                          'TACKT 8Mhz


'******** Deklarationen ********


Dim Zaehlwert As Integer
Dim Zaehlwert_alt As Integer

'******** Initialisierung ********            '

Ddrd = &B11100000
Portd = &B00000000

Zaehlwert = 1

'******** Hauptprogramm ********

Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.2       'LCD configurieren (datenleitung)

Config Int0 = Falling                                       'INT0 = wenn taster gedrückt wurde
Enable Int0                                                 ' erlaube INT0
Enable Interrupts                                           ' erlaube Interrupts
On Int0 Unterprogramm                                       ' gehe zu Unterprogramm

Dim A As Byte
Config Lcd = 16 * 2                                         ' 16*2 Zeilen

Cls                                                         'display löschen
Cursor Off

Do


   If Zaehlwert > Zaehlwert_alt Then                        'wenn sich zählwert ändert
      Zaehlwert_alt = Zaehlwert
      Locate 1 , 1                                          'cursor in Zeile 1, Reihe 1
      Lcd Zaehlwert                                         'schreibe "Zählwert"
   End If                                                   'end if


Loop




 '---------------------------------------------------------------------------------





Unterprogramm:                                              'Unterprogramm
   Zaehlwert = Zaehlwert + 1                                'addiere 1 zu Zähltwert
Return                                                      'zurück zu Main