Write and Read from eeprom

[savnik]

I have the below code (one part of code).
My problem is when turn off the power and after turn on again , don't save the value P in the eeprom always.Why;
I use 16f88

    P VAR WORD	          'value of the divider
    FLAG VAR BYTE


    READ 3,FLAG
    IF FLAG = 55 THEN
    READ 1,P.BYTE0        ' Divider
    READ 2,P.BYTE1
    ELSE
	P= 256	        	  ' value of the divider	
    ENDIF
    
..
..
..
..
..    
    
'************************** CHOICE OF THE DIVIDER ***********************

PREDIV:

	LCDOUT $FE,1,"*    DIVIDER   *"
	LCDOUT $FE,$C0,"     P = ",#P
	
LOOP:	
    BUTTON PLUS,0,10,5,B1,1,PICK	    ' Goes to PICK if press the button
	BUTTON BMENU,0,255,0,B4,1,MEN	
	PAUSE 100
	GOTO LOOP
	
PICK:	
    IND = IND + 1
	IF IND< 9 THEN CHOIX
	IND= 0
	GOTO CHOIX
	
CHOIX:	
    LOOKUP2 IND,[1,10,16,32,40,64,80,128,256],P

	WRITE 3 , 55
	WRITE 1 , P.BYTE0      	            ' SAVE The VALUE OF P
	WRITE 2 , P.BYTE1
    PAUSE 100
	
	GOTO MAIN

[Ioannis]

Yassou Niko!

If the power is taken before the Write commands, then it is possible to loose the values. When do you power off the device?

Ioannis

[savnik]

Yassou Niko!

If the power is taken before the Write commands, then it is possible to loose the values. When do you power off the device?

Ioannis

Geiasou Giannh (ta agglika mou einai xalia)
I turn off the power after enough (>30 sec) time when change the value

[Ioannis]

Time is not the most critical point. If the program never makes it to the Write commands, then it sure will never store the values to EEPROM.

Ioannis

[mackrackit]

I had a similar problem and fixed it by using two variables. Do not know why this worked, but I have used this routine for some time now.

cnt var byte      
Pb1	var word  
Pset    var word 
READ 0,Pset.BYTE0
READ 1,Pset.BYTE1
Pb1 = Pset

C_P:
		for cnt = 1 to 1  
		Pb1=Pb1+1
		WRITE 0,Pb1.BYTE0
		WRITE 1,Pb1.BYTE1
		READ 0,Pset.BYTE0
		READ 1,Pset.BYTE1
		pause 100
		next
RETURN

Maybe all you need is the count routine to ensure that the data is being written?

[savnik]

I have 4 routines to write and read

[savnik]

Need to add the : Include "Modedefs.Bas" ;