Interrupt beim I2C Slave

[guenter1604]

Hallo Forum,

ein ATMega8 soll 2 Gearsensoren abfragen. Dazu wird beim Detektieren eines Zahnradzahns ein Interrupt ausgelöst und die Zeit zum nächsten Zahn gestoppt.
Die Werte sollen von einem anderen ATMega abgeholt werden.

Jetzt zum Problem:

In der Bascom-Doku zum Config I2C-Slave steht, daß ein Interrupt benötigt wird. Isch haabe aber keine Interrupt mehr frei !?
Geht das nicht mit dem extra für I2C vorgesehenem Interrupt TWI ??
Kann mir jemand weiterhelfen?

Günter

[mat-sche]

Hi Günter,

schau mal hier: http://www.mikrocontroller.net/articles/AVR_TWI

Das TWI hat einen eigenen Interrupt TWINT (TWI Interrupt Flag) , der ausgelöst wird, wenn eine Anfrage mit der richtigen Adresse kommt.

=> guter Beitrag

Gruß MAT

[guenter1604]

Soooo,

jetzt habe ich mich mal ins Datenblatt des ATMega8 eingegraben, aber noch nicht schlauer:

Ich will 4 Bytes übertragen, wo muß ich die 4-fach Schleife einbauen und welche Statuscodes sind abzufragen (1Byte = A8 2. und 3. B8 letztes C8 ??)

$regfile = "m8def.dat"                                      ' the used chip
$crystal = 16000000                                         ' frequency used

Dim Left_array(2) As Byte
Dim Speed_left As Word At Left_array Overlay
Dim Right_array(2) As Byte
Dim Speed_right As Word At Right_array Overlay

Dim Cnt As Byte
Dim Twi_control As Byte
Dim Twi_status As Byte

Declare Sub Twi_init

Enable Interrupts
Call Twi_init

Do
   Speed_left = 12345
   Speed_right = 54321
    ' schauen ob TWINT gesetzt ist
    Twi_control = Twcr And &H80                             ' Bit7 von Controlregister
    If Twi_control = &H80 Then
        Twi_status = Twsr And &HF8                          ' Status anfordern
        ' will der Master ein Byte haben
        If Twi_status = &HA8 Or Twi_status = &HB8 Then
            Twdr = Left_array(1)                            ' neue Daten ausgeben
        End If
        ' TWINT muss immer gelöscht werden, damit es auf dem Bus weiter geht
        Twcr = &B11000100                                   ' TWINT löschen, mit ACK
    End If


Loop


Sub Twi_init

    Twar = &H70
    Twcr = &B01000100
    Twsr = 0
    Twdr = &HFF
End Sub

[StevieL]

Hallo Günter,

das ist ungetestet, sollte aber so funktionieren:

$regfile = "m8def.dat"                                      ' the used chip
$crystal = 16000000                                         ' frequency used

Dim Data_array(4) As Byte
Dim Speed_left As Word At Data_array Overlay
Dim Speed_right As Word At Data_array + 2 Overlay

Dim Cnt As Byte
Dim Twi_control As Byte
Dim Twi_status As Byte
Dim I As Byte

Declare Sub Twi_init

Enable Interrupts
Call Twi_init

Speed_left = 12345
Speed_right = 54321

Do
    Twi_control = Twcr And &H80                             ' Bit7 von Controlregister auslesen

    If Twi_control = &H80 Then
        Twi_status = Twsr And &HF8                          ' Status ->Bit3 bis Bit7

        Select Case Twi_status

        Case &H60 :                                         'Wir sind gemeint
                Twcr = &B11000100                           ' TWINT löschen, erzeugt ACK

        Case &HA8:                                          'Master will Byte haben
                 I = 1
                 Twdr = Data_array(i)
                 Twcr = &B11000100

        Case &HB8:                                          'Master Will Weiteres Byte Haben
                 Incr I
                 Twdr = Data_array(i)
                 Twcr = &B11000100
        End Select
    End If

Loop


Sub Twi_init

    Twar = &H70
    Twcr = &B01000100
    Twsr = 0
    Twdr = &HFF
End Sub

Edit: jetzt mal den Master 4 Bytes abholen lassen...