this
produces as expected thisCode:'* 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
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