Zitat Zitat von Maxigraf
Ok, und wie funzt das jetz? ^^
Also das ist des Rätsels Lösung:
Code:
FOR lp = 0 TO 3 ' 4 Byte lesen
      LOOKUP lp,[$DE,$AD,$CA,$FE],TempB
             FOR BitLoop = 7 to 0 step -1
                      PORTB.5 = TempB.0[BitLoop]
                      PAUSE 500
             NEXT BitLoop
NEXT lp
END
Denke daß einige was damit anfangen können.

Gruß RobberSoft