BASCOM - ATMega128 TWSR auswerten (I2C)

[Ninnik (Gast)]

Hallo ich habe ein Problem mit meinem ATMega 128.
Ich arbeite mit BASCOM und über eine I2C Kommunikation.

Eigentlich will ich eine ganz simple Sache realisieren.
Master sendet, slave empfängt.
Ich möchte das Statusregister (TWSR) des Masters abfragen, ob sich nach 
dem schicken der Adresse ein Slave gemeldet hat. Wenn ja sollte laut 
Datenblatt im TWSR der Wert hex18 stehen. Sollte kein Slave ein ACK 
zurück gesendet haben, müsste der Wert hex20 darin stehen.
Nun ist die Frage, wie ich am Master das TWSR nach jedem Vorgang 
überprüfen kann.

I2Cstart
                                 'TWSR überprüfen
I2Cwbyte Slave_Adresse
                                 'TWSR überprüfen
I2Cwbyte Daten
                                 'TWSR überprüfen
I2Cstop

Beim Slave überprüfe ich das TWSR, in dem ich in einer Interrupt Service 
Routine den Wert prüfe. Nach jedem Schritt bekommt der Slave ja diesen 
Interrupt. (Interner TWI Interrupt)

On Twi Slave_ISR
Enable TWI
Enable Interrupts

Nur beim Master scheint kein Interrupt zu kommen. Dort habe ich

On Twi Master_ISR
Enable TWI
Enable Interrupts

geschrieben und in Master_ISR: frage ich das TWSR ab. Darauf reagiert er
aber gar nicht.

Kann mir da jemand erklären, wie ich im Master ans TWSR komme und auf 
den Inhalt reagieren kann?
MfG Ninnik

[Gerhard (Gast)]

Schade, nach 10 Jahren noch keine Erkenntnisse.
Dabei hätte mich die Lösung dieser Frage auch brennend interessiert.

[Ben (Gast)]

Gerhard schrieb:
> Lösung dieser Frage auch brennend interessiert.

M. Alberts anschreiben. Oder im Basisforum schreiben. Oder ein paar 
Zeilen Assemblercode einbetten.

[nuJa (Gast)]

Das Problem ist der Slave. Ich habe dafür keinen Bedarf, habe aber aus 
aktuellen Gründen tiefer in I2C mit Bascom geschaut.
I2C-Slave mit Bascom 
https://avrhelp.mcselec.com/index.html?i2ctwislave.htm
Dafür gibt es zwei Libs: i2cslave.lib und i2cslave.lbx.
Die muss man, wenn man es haben will, bei Mark käuflich erwerben. ;-)

cu

[nuJa (Gast)]

Sehe gerade, es dreht sich um den Master.

'*****************************************************************************
Sub I2c_scan
   Local Slaveadresse As Byte
   Print "Start I2C Slaves suchen..."
  'Wait 1
   For Slaveadresse = 0 To 254 Step 2   ' f³r alle geraden Adressen
      I2cstart                          ' Startbedingung senden
      I2cwbyte Slaveadresse             ' Addresse senden
      If Err = 0 Then
         Print "Slave dec: " ; Slaveadresse ; "  h" ; Hex(slaveadresse) ; "  b" ; Bin(slaveadresse)
   'Wait 1
      End If
      I2cstop                           'Bus freigeben
   Next
   Print "Ende Scan"
'Wait 1
End Sub

"If Err = 0 Then" das ist entscheidend. Muss aber direkt nach dem 
schreiben abgefragt und ausgewertet werden ( Systemvariable!)

cu