Ich versuche auch gerade ein LCD anzusteuern, aber es will einfach nichts anzeigen ausser 2 Schwarzen Balken (Ist ein 20x4)

Ist am meinem Code irgentwas falsch?



Code:
$regfile = M8def.dat
$crystal = 3686400

Ddrc = &B11111111

Config Lcd = 20 * 4                                         ' größe des LCDs
Config Lcdpin = Pin , E = Portb.5 , Rs = Portb.0 , Db7 = Portb.1 , Db6 = Portb.2 , Db5 = Portb.3 , Db4 = Portb.4       'pinbelegung

Initlcd                                 'initialisiert das LCD

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

Do                                      'Begin Hauptschleife
Cls
Upperline                               'setzt Cursor in die obere Zeile
Lcd "Erster Test"
Lowerline
Lcd "Hallo Welt!!!"

Wait 1                                  'wartet 1 sekunde
Cls                                     'löscht LCD
Wait 1                                  'wartet 1s und schreibt erneut

Loop                                    'erneut aufrufen
End