mmh ja... ok Pin zum auslesen Port zum setzen. Soweit so gut aber es klappt nicht

Egal welchen Wert ich PortA (PortA ist doch für die Eingangsports, oder?) geben, am Board liegen immer 5V
Habe es auch mit DDRA = 0 versucht und die Werte habe ich auch schon in Binär (&B00000000) eingegeben. Hier mal mein Program:

Code:
'###################################################
'Testprogramm 6
'für
'RoboterNetz Standard-Roboter Board RBNFRA 1.1
'
'Aufgabe:
'Testet Eingangsport indem Wert über RS232
'übermittelt wird (9600 Baud einstellen)
'
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de
'###################################################


$regfile = "m32def.dat"

Const Writeeingabeport_adr = &H7E                           'I2C Adr PCF 2
Const Readeingabeport_adr = &H7F                            'I2C Adr PCF 2

Dim I2cdaten As Byte                                        'Datenbyte aus PCF8574


Dim I As Byte

$baud = 9600
$crystal = 8000000                                          'Quarzfrequenz
Config Scl = Portc.0                                        'Ports fuer IIC-Bus
Config Sda = Portc.1

Set Porta = 0


Portd.6 = 0                                                 'Schrittmotoren erst mal ausschalten
I2cinit

I = 0
I2cdaten = 1
Do
   I2cstart
   I2cwbyte Readeingabeport_adr                             'Lesebefehl an PCF schicken
   I2crbyte I2cdaten , Nack                                 'Datenbyte von PCF lesen
   I2cstop
   Waitms 50
   Print I ; " Eingangsport Wert" ; I2cdaten
   Print I ; " Pin1 " ; Pina.0
   Print I ; " Pin2 " ; Pina.1
   Print I ; " Pin3 " ; Pina.2
   Print I ; " Pin4 " ; Pina.3
   Incr I
Loop




End
Aber das kann doch nciht so schwer sein... Irgenwie muss ich da nen dicken Denkfehler haben.