Please I need help with eeprom

[ideasman]

guys can someone help converting this pic code to dspic or create some code for a dynamic read and write via uart.
cheers IDEASMAN


sub procedure eprom_write(dim adr,dat as byte)
EEADR=adr
EEDATA=dat
EECON1.WREN=1
INTCON.GIE=0
EECON2=$55
EECON2=$AA
EECON1.WR=1
EECON1.WREN=0
INTCON.GIE=1
end sub

sub function eprom_read(dim adr as byte) as byte
EEADR=adr
EECON1.RD=1
result=EEDATA
end sub
I am willing to buy a case of beer via paypal for the effort.
code is in attachment

[rmteo]

There are built-in libaries to read and write EEPROM. See the manual and/or HELP file. To write to EEPROM:

Code: Select all

dim wrAddr as longint
    eeData as word
  ...
  eeData = 0xAAAA
  wrAddr = 0x7FFC30
  Eeprom_Write(wrAddr, eeData)

To read from EEPROM:

Code: Select all

dim eeAddr as longint
      temp as word
...
eeAddr = 0x7FFC20
temp = Eeprom_Read(eeAddr)

[ideasman]

I do know that that code exists but using it in a dynamic matter has proven not to work I was given some code above as a sub procedure and I would like to carry it out that way. so I can enter any data I wish into the eeprom

Thanks rmteo for your reply

ideasman