hello all, I have problems with this code, do not know why it does not work,


compiles fine without errors. I appreciate any help,


this is the code:


'P16f88_Tx


INCLUDE "modedefs.bas"
DEFINE OSC 4
ansel =% 00000000
Led var PORTB.4
Var BotonA PORTB.1


led high
pause 500
led low


transmit:
if botona = 0 then Send 1
led low
goto transmit




Send 1:
led high
serout PORTB.0, T1200, ["A"]
goto transmit
End




'P16f88_Rx


INCLUDE "modedefs.bas"
DEFINE OSC 4
ansel =% 00000000
VAR leda PORTB.1
var data byte


high leda
pause 250
leda low




receive:
PORTB.0 serin, T1200, [data]
pause 500
if data = "A" then one
leda low
goto receive


one:
high leda
goto receive
end


regards!