Dann scheint es an meiner Hardware zu liegen.

Kannst du bitte mal den folgenden Code versuchen zu starten. Es sollte eigentlich nur ein blinkender Cursor zu sehen sein. Bei mir hat das mit einem sehr verzerrten Bild auch geklappt. (halbe Display an, ein Cursor in der Mitte blinkt)


Code:
$regfile = "m168def.dat"
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600
$hwstack = 64
$framesize = 32
$swstack = 32

Config Pind.3 = Output
Lcd_rw Alias Portd.3
Lcd_rw = 0

Config Pinc.3 = Output                                      'LCD Hintergrundbelechtung
Lcdpower Alias Portc.3
Lcdpower = 0

Config Pinc.2 = Output
Lcd_rs Alias Portc.2
Lcd_rs = 0

Config Pinb.3 = Output
Lcd_en Alias Portb.3
Lcd_en = 0

Config Pind.6 = Output
Lcd_db7 Alias Portd.6
Lcd_db7 = 0
Config Pind.7 = Output
Lcd_db6 Alias Portd.7
Lcd_db6 = 0
Config Pinb.0 = Output
Lcd_db5 Alias Portb.0
Lcd_db5 = 0
Config Pinb.5 = Output
Lcd_db4 Alias Portb.5
Lcd_db4 = 0

Do
   Waitms 100
   'paket 1
   Lcd_db5 = 1
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10

   'paket 2
   Lcd_db5 = 1
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10

   'paket 3
   Lcd_db5 = 1
   Lcd_db7 = 1
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10

   'paket 4
   Lcd_db5 = 0
   Lcd_db7 = 0
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10

   'paket 5
   Lcd_db5 = 1
   Lcd_db6 = 1
   Lcd_db7 = 1
   Lcd_db4 = 1
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10
   Lcd_en = 1
   Waitms 10
   Lcd_en = 0
   Waitms 10

   Wait 10
   Toggle Lcdpower
   Print "Test ..."

Loop