i old post sad
"You should use control address $A0 for write and $A1 for read (for lower), while (for upper) $A8 for write and $A9 for read"
If i use $A0 for write and $A1 work block 1 - 0 to $FFFF
If i use $A8 for write and $A9 not work block 2
need A2 pin tied high?
Code:
INCLUDE "modedefs.bas"
Include "AllDigital.pbp"
'-------------------------------------------------------------------------------
#CONFIG
__CONFIG _CONFIG1, _FOSC_INTOSC & _IESO_OFF & _WDTE_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_ON
__CONFIG _CONFIG2, _PLLEN_OFF
#ENDCONFIG
'-------------------------------------------------------------------------------
@ errorlevel -202
@ errorlevel -306
'-------------------------------------------------------------------------------
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
'-------------------------------------------------------------------------------
I2C_Clock var PORTA.0
I2C_Data var PORTC.1
'-------------------------------------------------------------------------------
B0 var byte
B1 var byte
B2 var byte
I var word
Letra var byte
'---[ Boot ]--------------------------------------------------------------------
Boot:
DEFINE OSC 16
OSCCON = %01111000
' x------- SPLLEN: don't care when _PLLEN_OFF in config fuse
' -1111--- Internal clock = 16MHz
' -----x-- Unimplemented
' ------00 System Clock Source = Determined by Config Word
'-------------------------------------------------------------------------------
PORTA = 0
PORTC = 0
LATA = 0
LATC = 0
TRISA = %00000110
TRISC = %00100001
PAUSE 100
hSerout [13, "START", 13]
PAUSE 10
'-------------------------------------------------------------------------------
Main:
Letra = 0
For i = 0 To 15
Letra = 65 + I
I2CWRITE I2C_Data, I2C_Clock, $A8, I, [Letra]
PAUSE 5
hSerout [Letra]
Next i
Teste:
hSerout [13, "----------", 13]
For i = 0 To 15
I2Cread I2C_Data, I2C_Clock, $A9, I, [Letra]
pause 5
hSerout [Letra]
Next i
hSerout [13]
'Goto Teste
END
'-------------------------------------------------------------------------------
Bookmarks