发现一个BASCOM实现TWI从机的范例跟大家一起分享

zhanying · 发表于 2006-8-19 19:57:27

' TWI-slave test
' zum simulieren eines PCF8574
$regfile = "m16def.dat" ' the used chip
$crystal = 8000000 ' frequency used
Config Portd = Output ' kopletter PortD als Ausgang
Dim Twi_status As Byte
Dim Twi_data As Byte
Declare Sub Twi_init_slave
Declare Function Twi_wait() As Byte
Twi_data = 0
Call Twi_init_slave ' TWI aktivieren
' Hauptschleife
Do
Twi_status = Twi_wait()
If Twi_status = &H80 Then
Portd = Twi_data ' 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
Twcr = &B00000100 ' erstmal nur TWI aktivieren
Twar = &B01000000 ' Slaveadresse setzen
Twcr = &B01000100 ' dann ACK einschalten
End Sub
' schauen ob was gekommen ist, Status zur¨¹ckgeben, Daten in globale variable
Function Twi_wait() As Byte
Local Twcr_local As Byte
Twi_wait = &HF8
' warten bis TWINT gesetzt ist
Twcr_local = Twcr And &H80
If Twcr_local = &H80 Then
Twi_data = Twdr ' Daten sichern
Twi_wait = Twsr And &HF8 ' status zur¨¹ckgeben
Twcr = Twcr Or &B10000000 ' TWINT l?schen, erzeugt ACK
End If
End Function

复制代码

zhanying · 发表于 2006-8-19 19:59:27

主机程序

                     ' TWI Testprogramm aus der Hilfe (abgespeckt)

' mit PCF8574

'The chip will work in TWI/I2C master mode

'Connected is a PCF8574 8-bits port extender

$regfile = "M8def.dat"                                     ' the used chip

$crystal = 8000000                                        ' frequency used

$baud = 9600                                              ' baud rate

$lib "i2c_twi.lbx"                                        ' we do not use software emulated I2C but the TWI

Config Scl = Portc.5                                     ' we need to provide the SCL pin name

Config Sda = Portc.4                                     ' we need to provide the SDA pin name

Print " "

Waitms 100

Print " "

Waitms 100

Print " "

Waitms 100

Print " "

Waitms 100

I2cinit                                                    ' we need to set the pins in the proper state

Config Twi = 400000                                        ' wanted clock frequency

Dim B As Byte

Print "TWI master"

Do

  'Input B

  Incr B

  I2csend &B01000000 , B                                  ' send the value

  Print B ;

  Print " Error : " ;

  Print Err                                              ' show error status

Loop

End

JAMESKING · 发表于 2006-8-19 22:42:43

加条裤子，以免裸奔。。。

zhanying · 发表于 2006-8-20 07:33:42

功能完全相同，不过是中断方式工作的

$regfile = "M16def.dat"                                  ' the chip we use

$crystal = 8000000                                        ' crystal oscillator value

$baud = 9600                                              ' baud rate

Print "MCS Electronics M8 TWI-slave demo"

Print "Use with M8-TWI master demo"

Twar = &B01000000

Twcr = &B01000101

Twbr = 32

Twsr = 0

On Twi Abc

Config Porta = Output

Dim A As Byte

Enable Twi

Enable Interrupts

Do

NOP

Porta = A

Waitms 100

Print "A:" ; A

Loop

Abc:

'Print "TWI INT: " ; Hex(twsr) ; Spc(3) ; Bin(twsr)

Select Case Twsr

   Case &H60 :

   Case &H80

      A = Twdr

   Case &HA0

   Case 0

      Twcr.twsto = 1

   Case &HA8

End Select

Twcr.twint = 1

Twcr.twea = 1

Return

wychappy2008 · 发表于 2006-11-7 20:10:49

兄弟有没有用IAR写的啊 ATMEga16做从机的？

enci · 发表于 2008-5-30 18:14:18

mark，今天顶了好多老帖子

发现一个BASCOM实现TWI从机的范例跟大家一起分享

阿莫论坛20周年了！感谢大家的支持与爱护！！