Master to slave 16F767

[mackrackit]

Here is an idea.

In this block:

loop:
RSIn Wait("SLAVE"), value
If value = 0 Then
GoTo loop
Else
GoSub charin ' Get a character from serial input, if any
EndIf

Turn the hardware PWM off. Turn it on after the correct serial command is received.
Or make all of the LED pins LOW in the above.

[mister_e]

There's a potential stack overflow here

loop:
RSIn Wait("SLAVE"), value
If value = 0 Then
GoTo loop
Else
GoSub charin ' Get a character from serial input, if any
EndIf

charin:

There's no return in your code to handle it, the only one you have do the PWM, so if the value <>0, yes it will perform the Charin procedure... but you never POP the stack, after 2-3 time, yes indeed, your program may behave in a weird way. Try this...

loop:
RSIn Wait("SLAVE"), value
If value = 0 Then GoTo loop

charin:

Also, you want to make sure that your Serial dataline is noise free and idle at the right level if both device are disconnected.

[sachymo]

Thanks for the tips, I originally had similar code under the routine "loop" which also failed to work, but I'll try again and let you know.

Cheers

[skimask]

Thanks for the tips, I originally had similar code under the routine "loop" which also failed to work, but I'll try again and let you know.
Cheers

http://www.picbasic.org/forum

Good luck getting any of the follow lines/commands to compile under PBP...

Device 16F767
Dim whatever As something
Declare anything_at_all
RSIn Wait("For it to compile in PBP"), value
X = 'until you get to the right forum'
DelayMS X