Hi!

Da das mit dem Schreiben so gut klappt, habe ich das gleich mal auch mit dem Lesen versucht.

Folgender Code...:
Code:
Function Readbus()                                          'Den Wert vom Bus lesen
   Dim Value As Byte

   Ddrb = &B00000000                                        'Alles Eingänge
   Ddrc = &B11111100                                        'Umschaltung, dass es keine Crashes gibt.

   $asm

     in R17, pinc


     CBR R16, 0b00000001
     SBRC R17, 1
     SBR R16, 0b00000001

     CBR R16, 0b00000010
     SBRC R17,0
     SBR R16, 0b00000010

     in R17, pinb


     CBR R16, 0b00000100
     SBRC R17, 5
     SBR R16, 0b00000100

     CBR R16, 0b00001000
     SBRC R17, 4
     SBR R16, 0b00001000

     CBR R16, 0b00010000
     SBRC R17, 3
     SBR R16, 0b00010000

     CBR R16, 0b00100000
     SBRC R17, 2
     SBR R16, 0b00100000

     CBR R16, 0b01000000
     SBRC R17, 1
     SBR R16, 0b01000000

     CBR R16, 0b10000000
     SBRC R17, 0
     SBR R16, 0b10000000

     Loadadr Value , X
     st X, r16

   $end Asm

   Readbus = Value

End Function
Compiler schluckt's, liefert aber nur Datenmüll.

Ich habe ja den verdacht, dass ich vlaue diesmal mit einer lds(nur andersherum) ähnlcihen funktion laden muss, oder?

Nochmal Danke!

VLG Tobi