Write and read to memory of PIC18F14k50

[picmilan]

Hello all,

I am trying to write and read from memory of PIC18F14k50.I have following code to write to memory location $500:

DEFINE OSC 24
 
X var byte
Y var word
Value var byte



mainloop:    
Pause 4000      
Y = $500 
Value=2
                                                       
erasecode Y                                   
for X = 1 to 16                                 
writecode Y, Value                         
Y = Y + 1                                       
next X
   
   Goto mainloop

I am trying to read from same location and turn LED on if 2 is stored at address $500.

DEFINE OSC 24 

TRISC.4 = 0
LED VAR PORTC.4 
X var byte
Y var word
Value var byte

mainloop:

readcode $500, Value 
   If Value = 2 Then 
      HIGH LED   
      goto  ledout
      Pause 50
   Else
      LOW LED    
      Pause 50
   Endif
   Goto mainloop

However It doesn't turn on the LED.Any thoughts?

Thanks

[pedja089]

You delete content of entire FLASH memory when you erase FLASH before programming PIC.
Try this:

DEFINE OSC 24
 
X var byte
Y var word
Value var byte

Pause 4000      
Y = $500 
Value=2
                                                       
erasecode Y                                   
for X = 1 to 16                                 
writecode Y, Value                         
Y = Y + 1                                       
next X

Blink:
   readcode $500, Value
   If Value = 2 Then 
      Toggle LED    
      Pause 500
   Else
      LOW LED    
   Endif
   GOTO Blink