Hi Leute,

hab heute mal die Soft TWI mit Bascom aus Wiki getestet.
Großes Lob an die Macher! Läuft super!

Jedoch stelle ich mir die Frage wie ich es lösen kann den
Kompass CMPS03 mit einzubinden.
Leider funktioniert die Bascom I2C ansteuerung dann ja nicht mehr.

Code:
' TWI-slave test
' zum simulieren eines PCF8574

$regfile = "m32def.dat"                                     ' the used chip
$crystal = 16000000                                         ' frequency used
$baud = 9600                                                ' keine baud rate angeben !


'LCD-Display Config
'==================
Config Lcdpin = Pin , Rs = Portc.3 , E = Portc.2 , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 4
Initlcd
Cursor Off
Cls

Dim Twi_control As Byte                                     ' Controlregister lokale kopie
Dim Twi_status As Byte
Dim Twi_data As Byte

Dim Neuesbyte As Byte                                       ' Bytemerker

Dim Byte_counter As Byte
Dim Test As Byte


Declare Sub Twi_init_slave

Twi_data = 0

Call Twi_init_slave                                         ' TWI aktivieren

' Hauptschleife
Do
    ' hier könnte ihr Code stehen
    Locate 1 , 1
    Lcd "TWI-SLAVE-RX"
    '---------------------------------



    '---------------------------------
    'Merker zurücksetzen
    Neuesbyte = 0
    'schauen ob TWINT gesetzt ist
    Twi_control = Twcr And &H80                             ' Bit7 von Controlregister
    If Twi_control = &H80 Then
        Twi_status = Twsr And &HF8                          ' Status
        'wurde ein Byte geschickt
        If Twi_status = &H80 Or Twi_status = &H88 Then
            Twi_data = Twdr                                 ' neue Daten merken
            Neuesbyte = 1                                   ' merken das ein neues Byte da ist
        End If
        'TWINT muss immer gelöscht werden, damit es auf dem Bus weiter geht
        Twcr = &B11000100                                   ' TWINT löschen, erzeugt ACK
    End If
    'wenn ein neues Byte gekommen ist, dieses an PortD ausgeben
    If Neuesbyte <> 0 Then
        Locate 2 , 1                                        ' Daten auf LCD ausgeben
        Lcd "Data: " ;Twi_data ; "   "
    End If
Loop
End


'===============================================================================
' Unterprogramme
' TWI als slave aktivieren
Sub Twi_init_slave

    Twsr = 0                                                ' status und Prescaler auf 0
    Twdr = &HFF                                             ' default
    Twar = &H22                                             ' Slaveadresse setzen
    Twcr = &B01000100                                       ' TWI aktivieren, ACK einschalten

End Sub
Der obige Code stellt den Slave-Read dar...

Wie kann ich nun noch den Kompass auslesen ?

Bye Ulli