Ich hab's, es liegt wirklich am CS Signal.
Wenn ich den Portexpander per sep. CS Leitung vor und nach aktivieres funktioniert es. Bascom erzeugt ja logischerweise zwischen den Befehlen einen neuen CS.
Ein ein Codeausschnitt:
Code:
Portb.0 = 0
Waitms 100
Portb.0 = 1
A(1) = &B01000000 'Beide Ports auf Eingang
A(2) = $00
A(3) = $ff
A(4) = $ff
Cs = 0 'ChipSelect auf low
Spiout A(1) , 4
Cs = 1
A(1) = &B01000000 'PullUp aktiviert
A(2) = $0c
A(3) = $ff
A(4) = $ff
Cs = 0
Spiout A(1) , 4
Cs = 1
Test:
A(1) = &B01000001 'Ausgang PORTA/B lesen
A(2) = $12
Cs = 0
Spiout A(1) , 2
Spiin A(1) , 2
Cs = 1
Porta = A(1)
Portd = A(2)
Goto Test
Ich gehe mal eben Lambada tanzen.
Gruß,
Stephan
Lesezeichen