this
Code:
'* pic16f1825 : eprom addr =$a0
#CONFIG
__config _CONFIG1, _FOSC_INTOSC & _CP_OFF & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _CLKOUTEN_OFF
__config _CONFIG2, _PLLEN_ON & _LVP_OFF
#ENDCONFIG
DEFINE OSC 32
OSCCON=$70
ANSELA=0
ANSELC=0
trisa.0=0
DEFINE I2C_SLOW 1
ANSELA = 0
B0 Var word
X var byte
SCL var Porta.2
SDA var Porta.1
lata.0=1
DEFINE DEBUG_REG PORTA
DEFINE DEBUG_BIT 0 ; if not used for pwr
DEFINE DEBUG_BAUD 9600
DEFINE DEBUG_MODE 0
pause 2000
Debug 13,10,"Start",13 ,10
clear
For B0 = 0 To 15
I2CWRITE sda,scl,$A0,B0,[99]
Pause 10 '
Next B0
pause 100
mainloop:
For B0 = 0 To 15
I2CREAD sda,scl,$A0,B0,[X]
debug 13,10, dec b0, " ", dec X
Next B0
pause 1000
Goto mainloop
end
produces as expected this
Code:
Start
0 99
1 99
2 99
3 99
4 99
5 99
6 99
7 99
8 99
9 99
10 99
11 99
12 99
13 99
14 99
15 99
Bookmarks