Hallo,
Ich versuche gerade aus den zwei Bsp Programmen im Wiki und den AVR Dokus ein m16 Slave zu programmieren.
Mein Master ist ein RN2560 Modul Slave wie erwähnt ein Mega16
Mein Master funktioniert einwandfrei. Ich habe aus dem Wiki die 2 Beispiele Transmitter und Reciever kombiniert- Dann habe ich die einzelnen bsps für den Slave hergenommen (einmal Recieve, einmal Transmit) - funktioniert.
Wenn ich aber die 2 Beispiele für den Slave kombinieren, funktioniert das Auslesen der Bytes nicht.
Hier mein Slave Code:
Code:
'Microcontroller
'================
$regfile = "m16def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
Config I2cdelay = 10
Dim Twi_control As Byte ' Controlregister lokale kopie
Dim Twi_status As Byte
Dim Twi_data As Byte
Dim Neuesbyte As Byte ' Bytemerker
Declare Sub Twi_init_slave
Twi_data = 0
Call Twi_init_slave ' TWI aktivieren
' alle LEDs ein
Portb = 0
' Hauptschleife
Do
' hier könnte ihr Code stehen
Portb = 0
' 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
' will der Master ein Byte haben
If Twi_status = &HA8 Or Twi_status = &HB8 Then
Twdr = 245 ' neue Daten ausgeben
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
Portb = 1
Wait 1 ' Daten auf PortD ausgeben
End If
Loop
End
' Unterprogramme
' TWI als slave aktivieren
Sub Twi_init_slave
Twsr = 0 ' status und Prescaler auf 0
Twdr = &HFF ' default
Twar = &H20 ' Slaveadresse setzen
Twcr = &B01000100 ' TWI aktivieren, ACK einschalten
End Sub
Master:
Code:
'===============================================================================
'=========================Beginn der Initialisierung============================
'===============================================================================
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
'============================== Deklaration ====================================
'$sim
$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat" 'Definitionsfile für M2560 Prozessor
$hwstack = 82 '80 Hardwarestack
$framesize = 68 '64 Framesize
$swstack = 68 '44 Softwarestack
$baud = 19200 'Baudrate für UART
$crystal = 16000000 'Quarzfrequenz
'================================ Port Konfiguration ===========================
Config Pind.5 = Output
Config Portc = Output
Config Scl = Portd.0 'Ports fuer IIC-Bus
Config Sda = Portd.1
Config I2cdelay = 10
Config Com3 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin3 = Buffered , Size = 100
Config Serialout3 = Buffered , Size = 1
Led_go Alias Portd.5 'Status LED am Controller
Led_stat Alias Portb.0
Const Mars_firmware = "0.0.1"
Const Mars_filename = "Master_trancieve.bas"
Const Mars_filedate = "21.02.2010"
Declare Sub Twi_send_byte(byval Slave As Byte , Zeichen As Byte)
Declare Function Twi_read_byte(byval Slave As Byte) As Byte
Dim Twi_control As Byte ' Controlregister lokale kopie
Dim Twi_status As Byte
Dim Twi_data As Byte
Dim B As Byte ' Zeichen von UART
Dim X As Byte ' Zeichen von TWI
Dim Error As Byte ' Fehlermerker
' TWI Init
Twcr = &B00000100 ' erstmal nur TWI aktivieren
Twsr = 0 ' Status und Prescaler Register
Twbr = 72
'======================INIT===============================
'======================INIT===============================
Init:
Led_go = 0
Led_stat = 1
'Open UART
Open "COM3:" For Binary As #3
Print #3 , "============="
Print #3 , Mars_firmware
Print #3 , Mars_filename
Print #3 , Mars_filedate
Print #3 , "============="
'========================================================
'=====================MAIN LOOP=========================
Main:
Wait 1
B = 2
X = Twi_read_byte(&H20)
If X = 245 Then Toggle Led_go
Call Twi_send_byte(&H20 , B)
Print #3 , X
Goto Main
' Unterprogramme
Sub Twi_send_byte(byval Slave As Byte , Zeichen As Byte)
Error = 0 ' Fehler zurücksetzen
' Startbedingung
Twcr = &B10100100 ' TWINT
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' wenn Zugriff auf den Bus erlaubt, Slaveadresse ausgeben
If Twi_status = &H08 Or Twi_status = &H10 Then
Twdr = Slave And &HFE ' slave adresse + Write
Twcr = &B10000100 ' TWINT löschen, Byte senden
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' Slave hat sich gemeldet
If Twi_status = &H18 Or Twi_status = &H20 Then
Twdr = Zeichen ' Daten
Twcr = &B10000100 ' TWINT löschen, Byte senden
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' Zeichen wurden gesendet
If Twi_status = &H28 Or Twi_status = &H30 Then
Error = 0 ' kein Fehler
Else
Error = Twi_status ' Fehler
End If
Else
' kein slave
Error = Twi_status ' Fehler
End If
' STOPbedingung kommt hier immer im Ablauf, egal welcher Status
Twcr = &B10010100 ' TWINT löschen, STOP senden
' nach einem STOP wird TWINT nicht mehr gesetzt,
' man darf/kann also nicht darauf warten !
Else
' Bus belegt, wird er wieder freigegeben
Twcr = &B10000100 ' TWINT löschen, Bus freigeben
Error = Twi_status ' Fehler
End If
End Sub
' TWI read_byte
' holt ein Byte und schliesst die Übertragung ab
Function Twi_read_byte(slave As Byte) As Byte
Error = 0 ' Fehler zurücksetzen
Twi_read_byte = 0 ' Wert vorbelegen
' Startbedingung
Twcr = &B10100100 ' TWINT
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' wenn Zugriff auf den Bus erlaubt, Slaveadresse ausgeben
If Twi_status = &H08 Or Twi_status = &H10 Then
Twdr = Slave Or &H01 ' slave adresse + Read
Twcr = &B10000100 ' TWINT löschen, Byte senden
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' Slave hat sich gemeldet
If Twi_status = &H40 Then
Twcr = &B10000100 ' TWINT löschen, Byte senden
' kein ACK (TWEA = 0) senden, weil wir nur ein Byte lesen wollen
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' ein Byte wurde empfangen
If Twi_status = &H58 Or Twi_status = &H50 Then
Twi_read_byte = Twdr ' Daten lesen
Error = 0 ' kein Fehler
Else
Error = Twi_status ' Fehler
End If
Else
' kein slave
Error = Twi_status ' Fehler
End If
' STOPbedingung kommt hier immer im Ablauf, egal welcher Status
Twcr = &B10010100 ' TWINT löschen, STOP senden
' nach einem STOP wird TWINT nicht mehr gesetzt,
' man darf/kann also nicht darauf warten !
Else
' Bus belegt, wird er wieder freigegeben
Twcr = &B10000100 ' TWINT löschen, Bus freigeben
Error = Twi_status ' Fehler
End If
End Function
' warten bis TWINT gesetzt ist, status auslesen
Twi_wait_int:
Do
Twi_control = Twcr And &H80
Loop Until Twi_control = &H80
Twi_status = Twsr And &HF8 ' status
' status nur zu Debugzwecken ausgeben, weil Bus sehr langsam wird !
' Print "Err " ; Hex(twi_status)
Return
Slave hat die Adresse &H20
Und jetzt eine generelle Frage:
was ist der Unterschied zwischen TWI und I2C?
Wenn im Slave das Programm aus dem Wiki für "auf Abruf Senden " läuft dann kann ich per TWI im Master das Byte auslesen, benutze ich jedoch die standart I2C Befehle:
I2Cstart
I2Cwbyte &H20
I2Crbyte X
I2Cstop
funktioniert es nicht, wieso?
Berechtigungen
Zitieren
Lesezeichen