da hast du wohl recht ...

aber ich hab das problem jetzt einkreisen können es liegt wohl an dem update das ich gemacht hab
habs alte orginal (xx.12) aufm laptop mal installiert da hab ich die fehler nicht

und beim neuen (xx.18.2) hab ich wenn ich nen den code fürn mega 16 compile keinen fehler
aber wenn ich den fürn tiny26 compile kommt immer die meldung
"baudrate not possible"

was soll das ich hab gar nix mit baudrate eingestellt
hier mein geänderter code mit crystal und def
wenn ich $baud verwende krieg ich gleich noch ne fehlermeldung

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


Dim Zahler As Byte
Dim Richtung As Bit
Richtung = 1
Dim Zeichen As Byte
Declare Sub Zumdisplay(byval Zeichen As Byte)               'funktion zum senden an das display


Db4dis Alias Porta.4
Db5dis Alias Porta.5
Db6dis Alias Porta.6
Db7dis Alias Porta.7
Rsdis Alias Porta.0
Enabledis Alias Porta.2

Config Lcdpin = Pin , Db4 = Db4dis , Db5 = Db5dis , Db6 = Db6dis , Db7 = Db7dis , E = Enabledis , Rs = Rsdis

Initlcd
   Call Zumdisplay(&B00101100)                              'aufruf zum initialisieren
   Waitms 5                                                 'des display controllers
   Call Zumdisplay(&B00001001)
   Waitms 5
   Call Zumdisplay(&B00101000)
   Waitms 5
   Call Zumdisplay(&B00000110)
   Waitms 5
   Call Zumdisplay(&B00001100)
   Waitms 5
Config Lcd = 20 * 4a                                        'display als 20 zeichen mal 4 zeilen

Do
  If Richtung = 1 Then Incr Zahler Else Decr Zahler
  If Zahler = 255 Then Richtung = 0
  If Zahler = 0 Then Richtung = 1
  Waitms 500

  Cls
  Upperline
  Lcd Zahler
Loop

End


Sub Zumdisplay(byval Zeichen As Byte)

     ' Höherwertiges Nibble setzen
     If Zeichen.4 = 1 Then Set Db4dis Else Reset Db4dis
     If Zeichen.5 = 1 Then Set Db5dis Else Reset Db5dis
     If Zeichen.6 = 1 Then Set Db6dis Else Reset Db6dis
     If Zeichen.7 = 1 Then Set Db7dis Else Reset Db7dis

     ' höherwertiges nibble übertragen
     Set Enabledis
     Waitms 5
     Reset Enabledis
     Waitms 5

     ' Niederwertiges Nibble setzen
     If Zeichen.0 = 1 Then Set Db4dis Else Reset Db4dis
     If Zeichen.1 = 1 Then Set Db5dis Else Reset Db5dis
     If Zeichen.2 = 1 Then Set Db6dis Else Reset Db6dis
     If Zeichen.3 = 1 Then Set Db7dis Else Reset Db7dis

     ' Niederwertiges Nibble übertragen
     Set Enabledis
     Waitms 5
     Reset Enabledis
     Waitms 5

End Sub