oh man...
aber mit dem Code hier
Code:
$regfile = "m32def.dat"
$crystal = 1000000

Dim Pac As Byte


Do
Pac = PinB
Pac = Gray2bin(pac)

Porta = Pac

Wait 1
Loop
End
lege ich 5V an PB0. Alle anderen Eingänge sind auf LOW-PEGEL.
Am PORTA gibt er mir aber sowas raus. Pa0 bis Pa7 : 01010101
warum denn sowas? es sollen doch 10000000 sein.