Admin: 1 revision

2013-02-15T19:05:44Z

1 revision

Admin: Created page with "= Action
= Instruct the compiler to use parts of the extended i2c library
2013-02-05T18:14:56Z

Created page with "= Action = Instruct the compiler to use parts of the extended i2c library </span..."

New page
== (COPIED FROM ENGLISH PAGE) === Action =

Instruct the compiler to use parts of the extended i2c library

 

 

= Syntax =

$LIB = "i2c_extended.lib"

 

 

= Remarks =

The I2C library was written when the AVR architecture did not have extended registers. The designers of the AVR chips did not preserve enough space for registers. So when they made bigger chips with more ports they ran out of registers.

They solved it to use space from the RAM memory and move the RAM memory from &H60 to &H100.

In the free space from &60 to &H100 the new extended register were located.

 

While this is a practical solution, some ASM instructions could not be used anymore. This made it a problem to use the I2C statements on PORTF and PORTG of the Mega128.

The extended i2c library is intended to use I2C on portF and portG on the M64 and M128.

It uses a bit more space then the normal I2C lib.

 

Best would be that you use the TWI interface and the i2c_twi library as this uses less code. The disadvantage is that you need fixed pins as TWI used a fix pin for SCL and SDA.

 

 

= See also =

[http://avrhelp.mcselec.com/i2start_i2cstopi2crbytei2cwbyte.htm I2C]

 

 

= ASM =

NONE

 

 

= Example =

<source lang="bascomavr">
'-------------------------------------------------------------------------------
' (c) 2005 MCS Electronics
' This demo shows an example of I2C on the M128 portF
' PORTF is an extened port and requires a special I2C driver
'-------------------------------------------------------------------------------

$regfile = "m128def.dat" ' the used chip
$crystal = 8000000
$baud = 19200 ' baud rate

$lib "i2c_extended.lib"

Config Scl = Portf.0 ' we need to provide the SCL pin name
Config Sda = Portf.1 ' we need to provide the SDA pin name

Dim B1 As Byte , B2 As Byte
Dim W As Word At B1 Overlay

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

Dim B As Byte , X As Byte
Print "Mega128 master demo"

Print "Scan start"
For B = 1 To 254 Step 2
I2cstart
I2cwbyte B
If Err = 0 Then
Print "Slave at : " ; B
End If
I2cstop
Next
Print "End Scan"

Do
I2cstart
I2cwbyte &H70 ' slave address write
I2cwbyte &B10101010 ' write command
I2cwbyte 2
I2cstop
Print Err

I2cstart
I2cwbyte &H71
I2crbyte B1 , Ack
I2crbyte B2 , Nack
I2cstop
Print "Error : " ; Err ' show error
Waitms 500 'wait a bit
Loop
End
</source>{{Languages}}

[[Category:ASM_Libraries_and_Add-Ons/de]]