ich habe jetzt mal mein glück versucht...
code master:
Code:
$regfile = "M8def.dat" ' the chip we use
$crystal = 8000000
Config Sda = Portc.4
Config Scl = Portc.5
i2cinit
Dim X As Byte
X = 59
Do
I2csend 10 , X , 1
Waitms 100
Loop
code slave:
Code:
$regfile = "ATtiny2313.DAT"
$crystal = 8000000
$baud = 9600
$framesize = 128
$swstack = 128
$hwstack = 128
Usicr = &B11111000
'Config Portb.5 = Input
'Config Portb.7 = Input
Dim X As Byte
On Uci_start Usis
On Uci_ovflw Usio
Enable Interrupts
Config Portd.6 = Output
Print "test"
Print Usidr
Do
Waitms 100
Print X
Loop
Usis:
'Usidr = 0
Usisr.0 = 0
Usisr.1 = 0
Usisr.2 = 0
Usisr.3 = 0
Usisr.7 = 1
Return
Usio:
X = Usidr
Usisr.6 = 1
Usisr.0 = 0
Usisr.1 = 0
Usisr.2 = 0
Usisr.3 = 0
Return
aber ich erhalte bei der ausgabe von x immer nur 59... eigentlich sollte ja zuerst die adresse mit read/write kommen..... kann mir da jemand helfen???
Lesezeichen