Looking for Basic Pic-to-Pic Serial Example

[mackrackit]

Send code:

BUT1 VAR PORTB.1    'vars for switches
BUT2 VAR PORTB.2
BUT3 VAR PORTB.3
BUT4 VAR PORTB.4
LOOP:
IF BUT1 = 1 THEN SEROUT PORTA.0,T2400,[9,1]  'sends 9 and 1 if but1 is high
IF BUT1 = 2 THEN SEROUT PORTA.0,T2400,[9,2]
IF BUT1 = 3 THEN SEROUT PORTA.0,T2400,[9,3]
IF BUT1 = 4 THEN SEROUT PORTA.0,T2400,[9,4]
GOTO LOOP

receive code:

NET VAR BYTE        'holding var   
LOOP:
SERIN PORTB.5,T2400,[9],NET 
IF NET = 1 THEN HIGH PORTA.4  'waits for "9" and writes the next value to vaR net
IF NET = 2 THEN HIGH PORTA.5
IF NET = 3 THEN HIGH PORTA.6
IF NET = 4 THEN HIGH PORTA.7
GOTO LOOP

Change PORTs and BAUD as needed.