16F690 read/write

[louislouis]

Hello,
I need a little help with read and write to internal EEPROM in PIC16F690.

I try to write to adress 10, value 1

like:

led1 var portc.4
buton1 var porta.4
led1flag var bit

init:
low led1
let led1flag = 0

zac:
read 10, led1flag
if buton1 = 0 and led1flag = 0 then goto onled
if buton1 = 0 and led1flag = 1 then goto offled
goto zac

onled:
high led1
let led1flag = 1
write 10, led1flag
debounce:
if buton1 = 0 then 
pause 10
goto debounce
endif
goto zac

offled:
low led1
let led1flag = 0
write 10, led1flag
debb:
if buton1 = 0 then 
pause 10
goto debb
endif
goto zac

But the program stuck on read and the write instruction.
On 16F628 I use these commands and it works, on 16F690 I am doing something wrong. Please can someone to explain how use READ and WRITE instruction on this chip. Thanks.

[richard]

your pgm is an incomplete undebugable snippet , start here
http://www.picbasic.co.uk/forum/showthread.php?t=561

[louislouis]

Hello Richard,

here is a complete code with config:

'*  Notes   : PIC16F690                                         *
'*          :                                                   *
'****************************************************************
 _INTRC_OSC_NOCLKOUT ; Using Internal Oscillator
 _WDT_OFF; Edisable Watch Dog Timer
_MCLRE_OFF; disable MCLR
 _CP_OFF ;Disable Code Protection
 _CPD_OFF ; Disable Data Code Protection
 _FCMEN_OFF ; Disable Fail Safe Clock Monitor
 _IESO_OFF ; Disable Internal/External switchover
 _BOR_ON ;Enable Brown out detect
 _PWRTE_ON ; Enable Power up Timer
 
@MyConfig = _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON  
@MyConfig = _MCLRE_OFF & _BOR_OFF 

DEFINE OSC 8 ; tells PBP we use a 8 MHZ clock 
OSCCON = %01110000 

ANSEL = 0  ;set all digital
TRISA = %110100    ; Set RA5,RA4 and RA2 input, rest output
TRISB = %0000     ; PORT B all output
TRISC = %00000000  ; PORT C all output
CM1CON0 = 0 ' Disable comparator 1
CM2CON0 = 0 ' Disable comparator 2

led1 var portc.4
buton1 var porta.4
led1flag var bit

low led1
let led1flag = 0

init:
read 10,led1flag
pause 2
           
main:
if led1flag = 1 then
high led1
else 
low led1
endif
if buton1 = 0 then  
let led1flag = 1
goto writetoeeprom
endif
goto main

writetoeeprom:
write 10, led1flag
pause 2
debounce:
if buton1 = 0 then goto debounce
goto init
end

The WRITE and READ instructions works on 16F628, 16F688 as is in the code, but on 16F690 still not.
I think on 16F690 must to be defined something to proper work with internal eeprom, but I don't know what.

If I try simple:

led var bit
let led = 1

write 10, led 

main:
read 10, led
SEROUT porta.2,T9600,[led]
end

Nothing writen in to the eeprom.

[richard]

main:
read 10, led
SEROUT porta.2,T9600,[led]
end

you realise the chr's 0,1,255 {all the likely eprom values you expect} are unprintable , there is nothing special or different about 16f690 eprom

SEROUT porta.2,T9600,[#led] or
SEROUT porta.2,T9600,[dec led]
is whats required

[richard]

and I doubt your config setting is correct

it could go like this , but why would you

@MyConfig = _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON
@MyConfig = MyConfig & _MCLRE_OFF & _BOR_OFF & _FCMEN_OFF & _IESO_OFF
@ __config MyConfig

this is the prescribed way

#CONFIG
cfg = _INTRC_OSC_NOCLKOUT
cfg&= _WDT_ON
cfg&= _PWRTE_OFF
cfg&= _MCLRE_ON
cfg&= _CP_OFF
cfg&= _CPD_OFF
cfg&= _BOD_ON
cfg&= _IESO_ON
cfg&= _FCMEN_ON
__CONFIG cfg

#ENDCONFIG

or this

#CONFIG
__config _INTRC_OSC_NOCLKOUT & _WDT_ON & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOD_ON & _IESO_ON & _FCMEN_ON
#ENDCONFIG

[louislouis]

and I doubt your config setting is correct

it could go like this , but why would you


this is the prescribed way



or this

Sorry, that is my copy paste error.

[aerostar]

You code for sending the value out is sending unprintable characters to whatever is receiving the serial.

if your bit is a 0 then that is a null character, if it is a 1 then it is a SOH see here

http://www.asciitable.com/

If you want to see the character as a printable digit then add 48 to it
SEROUT porta.2,T9600,[led+48]

You could also run your simple program then put the pic back in the programmer, read and view the eeprom data.

[louislouis]

Yes this is true, my serout command is not correct, but if I try simple write in to the eeprom the program stuck and not run next.

Like:

led var bit
let led = 1
led var portc.4

write 10, led 

main:
high led
pause 500
low led
pause 500
goto main
end

[richard]

led var bit
let led = 1
led var portc.4

write 10, led

main:
high led
pause 500
low led
pause 500
goto main
end

once again an uncompilable piece of code,there is nothing special or different about 16f690 eprom . snippets are pointless
try and post a complete and correct pgm that demonstrates the issue

[Bums12]

I can not delete my message.