Serin EEPROM Programmer

[dirtbiker5627]

I have spent two days trying to figure this out. I have a feeling it has to do with the SERIN command. Please help.
------------------------------------------------------------------------
define OSC 4
Define CHAR_PACING 500

CMCON0 = 7
ANSEL = %00000000

cont con %10100000
scl var GPIO.5
sda var GPIO.4
sout var GPIO.2
sein var GPIO.1
addr var byte
wr var byte
val var byte

Main:

serout sout, 6, ["To write to EEPROM press w", 13, "To read EEPROM press r", 13]
serin sein, 6, wr
if (wr = "w") then goto ewrite
if (wr = "r") then goto eread
goto main

ewrite:

serout sout, 6, ["Write", 13]
serout sout, 6, ["Enter address 0 - 15", 13]
serin sein, 6, addr
serout sout, 6, ["Enter value 0 - 255", 13]
serin sein, 6, val

i2cwrite sda, scl, cont, addr, [val]
pause 10

serout sout, 6, ["Write complete", 13]
goto main

eread:

serout sout, 6, ["Read", 13]
serout sout, 6, ["Enter address 0 - 15", 13]
serin sein, 6, addr

i2cread sda, scl, cont, addr, val
pause 10

serout sout, 6, [#val, 13]
serout sout, 6, ["Read complete", 13]
goto main
------------------------------------------------------------------------

[Archangel]

Hello dirtbiker. . .
Welcome to the forum.
Please Give us a hint, which PIC are you using?
Just right off the top of my bald head . . .
TRISIO=%00000010

[dirtbiker5627]

I am using the pic12f683

[aratti]

i2cread sda, scl, cont, addr, val

i2cread sda, scl, cont, addr,[val]

Additionally variable addr must be a word not a byte!

Al.

[dirtbiker5627]

I changed TRISIO, put brackets around the [val] variable and changed addr to a word sized variable .When I start up the microcontroller it sends the first serial out command to the computer but when I send a serial command to the microcontroller from the pc the microcontroller goes into a loop and repeats the first serial command non stop until I disconnect the power.

define OSC 4
Define CHAR_PACING 1000

CMCON0 = 7
ANSEL  = %00000000
TRISIO = %00000010

cont  con %10100000
scl   var GPIO.5
sda   var GPIO.4
sout  var GPIO.2
sein  var GPIO.1
addr  var word
wr    var byte
val   var byte

Main:

serout sout, 6, ["To write to EEPROM press w", 13, "To read EEPROM press r", 13]
    serin sein, 6, wr
    if (wr = "w") then goto ewrite 
    if (wr = "r") then goto eread
    goto main 
               
ewrite:

serout sout, 6, ["Write", 13]
serout sout, 6, ["Enter address 0 - 15", 13]
serin sein, 6, addr
serout sout, 6, ["Enter value 0 - 255", 13] 
serin sein, 6, val

i2cwrite sda, scl, cont, addr, [val]
pause 10

serout sout, 6, ["Write complete", 13]
goto main

eread:

serout sout, 6, ["Read", 13]
serout sout, 6, ["Enter address 0 - 15", 13]
serin sein, 6, addr

i2cread sda, scl, cont, addr, [val]
pause 10

serout sout, 6, [#val, 13]
serout sout, 6, ["Read complete", 13]
goto main

[Archangel]

I changed TRISIO, put brackets around the [val] variable and changed addr to a word sized variable .When I start up the microcontroller it sends the first serial out command to the computer but when I send a serial command to the microcontroller from the pc the microcontroller goes into a loop and repeats the first serial command non stop until I disconnect the power.

define OSC 4
Define CHAR_PACING 1000

CMCON0 = 7
ANSEL  = %00000000
TRISIO = %00000010

cont  con %10100000
scl   var GPIO.5
sda   var GPIO.4
sout  var GPIO.2
sein  var GPIO.1
addr  var word
wr    var byte
val   var byte

Main:

serout sout, 6, ["To write to EEPROM press w", 13, "To read EEPROM press r", 13]
    serin sein, 6, wr
    if (wr = "w") then goto ewrite 
    if (wr = "r") then goto eread
    goto main 
               
ewrite:

serout sout, 6, ["Write", 13]
serout sout, 6, ["Enter address 0 - 15", 13]
serin sein, 6, addr
serout sout, 6, ["Enter value 0 - 255", 13] 
serin sein, 6, val

i2cwrite sda, scl, cont, addr, [val]
pause 10

serout sout, 6, ["Write complete", 13]
goto main

eread:

serout sout, 6, ["Read", 13]
serout sout, 6, ["Enter address 0 - 15", 13]
serin sein, 6, addr

i2cread sda, scl, cont, addr, [val]
pause 10

serout sout, 6, [#val, 13]
serout sout, 6, ["Read complete", 13]
goto main

Where does it go if wr<>r and <> w?
Main
Give yourself a third option to gather serial data, if wr has z in it and never receives the r or w or receives R or W
it will loop in main forever. You could serout sout,6,[" I received ",#wr] so you know what it got . . .