I2C bus for 24LC16 For Basic PRO Compiler

Include "modedefs.bas" 
@ Device PIC16F877,XT_OSC,WDT_off,PWRT_off,PROTECT_off ,BOD_Off
define  adc_bits 10
define  osc 4
DEFINE  LCD_DREG PORTD
DEFINE  LCD_DBIT 4
DEFINE  LCD_RSREG PORTD
DEFINE  LCD_RSBIT 1
DEFINE  LCD_EREG PORTD
DEFINE  LCD_EBIT 0
low     portD.2 

S1   	var	    PORTA.0 
sda     var     portc.4 
scl     var     portc.3  
addr    var 	byte 
cont    con 	%10100000
dat     con 	45
b0      var 	byte
        TRISA   = %111111
        adcon1  = 7
        addr    = 2
'----------------  main program -----------------
lcdout $fe,1,"EEPROM 24LC16B"
PAUSE 2000
start:    
         if S1= 1  then   
             pause 100
             lcdout $fe,1,"WRITE DATA =45"
             i2cwrite sda,scl,cont,addr,[dat]
             pause 1000
         ENDIF    

          if (s1 = 0) then  
             pause 100
             i2cread sda,scl,cont,addr,[b0]
             pause 1000
             lcdout $fe,1,"READ DATA= ",$fe,$8B,dec b0
             ENDIF
           goto stART
    END

Related projects

Ibrar Ayyub

I am an experienced technical writer holding a Master's degree in computer science from BZU Multan, Pakistan University. With a background spanning various industries, particularly in home automation and engineering, I have honed my skills in crafting clear and concise content. Proficient in leveraging infographics and diagrams, I strive to simplify complex concepts for readers. My strength lies in thorough...