Help with serin, serout, Manchester encoding

[oneohthree]

I am trying to transmit 4 bits from a TLP-315 transmitter to a RLP-315 receiver for a project. At the receiver, I am taking the four bits and performing some comparisons on it and getting an output. I am using two PIC16F88 microcontrollers. I was wondering whether I coded the Manchester coding and used the serin, serout correct. Also, since I am using Manchester coding, do I have to send a preamble? I have attached my code below.

'Transmit
Include "Modedefs.bas"
v var word 'v is a byte to be encoded
counter var byte 'counter is a byte
encoded var word 'encoded is a word sized variable that holds the encoded byte v
'Code to be transmitted
v = 1010
'Manchester Encoding
For counter = 0 to 3 'number of bits to be encoded (4 bits)
If v.0[counter]=0 Then
encoded.0[counter*2]=0
encoded.0[counter*2+1]=1
Else
encoded.0[counter*2]=1
encoded.0[counter*2+1]=0
EndIf
Next counter
'Serial Out
serout PORTB.0, n2400, [encoded]


'Receive

'Include "Modedefs.bas"
s var word 's is a byte to be encoded
B0 var byte 'B0 is a byte
B1 var byte 'B1 is a byte
'counter var byte
encoded1 var word 'encoded1 word sized variable that holds the encoded byte v
action var byte 'action variable
alert var byte 'alert variable
B0=0 'hardwired address
B1=1 'hardwired address

'Decoding
loop:
serin PORTB.0, n2400, [encoded1]
For counter = 0 to 3
s.0[counter]=encoded1.0[counter*2]
Next counter
goto loop
End

'Tracking code
If (s.2==0) & (s.3==0) Then 'If the code matches 00 then it is in the tracking mode

If (s.0==B0) & (s.1==B1) Then 'If the address matches then
s.2=1 'Change the third bit to 1
action = s.2
alert = 0
serout PORTB.1, n2400, [s] 'Send the changed word back
Else
s.2=0 'Since the addresses does not match do not change anything
action = s.2
alert = 0
serout PORTB.1, n2400, [s] 'Send the changed word back
Endif
Endif

'Tracking and Finding code
If (s.2==0) & (s.3==1) Then 'If the code matches 01 then it is in the tracking and finding mode

If (s.0==B0) & (s.1==B1) Then 'If the address matches then
s.2=1 'Change the third bit to 1
action=s.2
alert=1
serout PORTB.1, n2400, [s] 'Send the changed word back
High 2
Else
s.2=0 'Since the address does not match do not change anything
action=s.2
alert=0
serout PORTB.1, n2400, [s] 'Send te changed word back
Endif
Endif

[skimask]

v = 1010

For one thing, sending 1010 isn't going to work. 1010 is one thousand and ten, not 10 or $A). You probably want v = %1010.

[oneohthree]

Also, I tested my transmitter and receiver with the microcontrollers. I was able to transmit the 1101 sequence from the transmitter to the receiver. I got the encoded version of the 1101 sequence. But, the microcontroller on the receiver end the serin command does not work for the microcontroller. When I look at the pins where I have serout on I don't see any signal. Did I do something incorrect?

[skimask]

But, the microcontroller on the receiver end the serin command does not work for the microcontroller.

What? Doesn't make any sense...

[oneohthree]

I don't know what is wrong either. Somehow the serin command isnt taking the data that I send in from the receiver. I check the output at pin 1 and pin 3 using a logic analyzer and I get nothing. Is there something wrong with my receiver code. Also, should I send data in inverted (n2400) or non-inverted (t2400)?

[skimask]

I don't know what is wrong either. Somehow the serin command isnt taking the data that I send in from the receiver. I check the output at pin 1 and pin 3 using a logic analyzer and I get nothing. Is there something wrong with my receiver code. Also, should I send data in inverted (n2400) or non-inverted (t2400)?

No, I meant your sentence didn't make any sense...