hi I can not get this code to work on a 16f877a, it sends the text to the pc fine but will not recieve anything from the pc!?

so i tried it on a 16f628 and it worked fine! with everything the same?


ADCON1 = 7 ' PORTA and E digital


Include "modedefs.bas" ' Include serial modes

B0 var byte
symbol led = portb.2

high led
pause 500
low led
pause 500
serout porta.1,396,["READY......"]

loop: Serin porta.0,396,B0 ' B0 = input character
If (B0 < "a") or (B0 > "z") Then print ' If lower case, convert to upper
B0 = B0 - $20
print: Serout porta.1,396,[B0] ' Send character
Goto loop ' Forever