Help SERIN2/SEROUT2

[Clayt_d]

Another thing to look at:

If what I read in the language guide is correct, then your IF..THEN statements are actually branching to a non-existent program label called gosub:

Is it possible to compile that without raising an error?

You may have to remove the GOSUBs and the ENDIFs from this bit of code (better make a copy of it lol):

if cmd = "0" Then
GOSUB bad
endif

if cmd = "1" Then
GOSUB dosleep
endif

if cmd = "2" Then
GOSUB doend
endif

if cmd = "3" Then
GOSUB getname
endif

if cmd = "4" Then
GOSUB dispname
endif

Assuming that the manual is correct, I can see why your blocks of IF..ENDIF are not working (not legal), but I am surprised if the compiler isn't catching that!
Is it possible that your PIC is resetting when it encounters the first illegal IF..THEN construct? It would explain everything..

[Archangel]

Hi Mike,
I think you should use the USART and setup a hardware buffer to capture the data choices as I do not believe the code you have will be in the appropriate state when your user is ready to answer the questions, check out Mr. E's keypad routines and the serial backpack code Darrel helped me with. good stuff there. also your main loop simply ends without a directive to goto main so it runs into the subroutines without meeting the criteria your IF THEN loops are asking for. You state hit CR to start the program. The program will simply start and run as is, perhaps a loop to test for a CR is in order so program will not execute beyond the instruction to hit CR until it actually sees a CR.
something like:

row var byte
location var byte
value var byte
start:             SERIN 1,N2400,ROW,LOCATION,VALUE 
                     IF value = CR then
                      goto main
                       else
                       goto start

Darn I'm getting rusty at this as I have been working instead of coding . . .