i use TXC1 and RXD1 RF transmitter and reciever from keymark company and i connect the data pin to PORTB.7 of micro directly.
and my program:
For transmitter:
define OSC 4
include"modedefs.bas"
x var byte
y var byte
i var byte
x=25
y=4
pause 2000
for i=1 to 5
serout PORTB.7,N1200,[y]
serout PORTB.7,N1200,[x]
next i
end
for reciever:
define OSC 4
include"modedefs.bas"
' Set LCD Data port
DEFINE LCD_DREG PORTC
' Set starting Data bit (0 or 4) if 4-bit bus
DEFINE LCD_DBIT 4
' Set LCD Register Select port
DEFINE LCD_RSREG PORTC
' Set LCD Register Select bit
DEFINE LCD_RSBIT 1
' Set LCD Enable port
DEFINE LCD_EREG PORTC
' Set LCD Enable bit
DEFINE LCD_EBIT 0
' Set LCD bus size (4 or 8 bits)
DEFINE LCD_BITS 4
' Set number of lines on LCD
DEFINE LCD_LINES 2
pause 100
lcdout $fe,1
x var byte
y var byte
z var byte
w var byte
serin PORTB.7,N1200,x
serin PORTB.7,N1200,[4],w
serin PORTB.7,N1200,[4],y
serin PORTB.7,N1200,[4],z
if w=z then
lcdout $fe,1,"y=",#w
goto finish
endif
if w=y then
lcdout $fe,1,"y=",#y
goto finish
endif
if y=z then
lcdout $fe,1,"y=",#y
goto finish
endif
lcdout $fe,1,#x
finish:
end
this is the simplest form of program because i should send 8 bytes by haming code.