sorry für mein letzten post ))))

also es funktioniert
Danke
PortA ist fertig.
wollte jetzt selbstständig weiter machen mit portD.
es gibt aber ein problem.

so sieht mein Quellcome aus:

$regfile = "m16def.dat"
$crystal = 8000000

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

Initlcd

Dim Zahl As Byte
Dim Zahl1 As Byte

Cls
Cursor Off
Do
Cls

Zahl = Pina
Zahl = Zahl And &B00001111
Zahl1 = Pind
Zahl1 = Zahl1 And &B00001111

Locate 1 , 1
Lcd Zahl
Locate 1 , 2
Lcd Zahl1

Waitms 50
Loop
End

was habe ich nun falsch gemacht?