Nobody/Anonymous - 2010-08-17

my xmit is this:
#chip 12F683, 8 'mhz
#config INTRC_OSC_NOCLKOUT, MCLRE=off, WDT=off
Ser_Init

dir gpio.0 out

main:
do
Xmit_Print ("1234")
wait 25 ms
loop
goto main

Sub Ser_Init
;slight adjustment was required for 1200bps delay value
#define baud 832 ;expressed as frequency in us
#define halfbaud 416 ;place Read of SerRx in middle of bit
#define SerTxHigh Set GPIO.0 On
#define SerTxLow Set GPIO.0 Off
SerTxHigh ;Initial RS232 idle state
end sub

Sub RCV_RS232
RxWait:
IF SerRx On Then goto RCV_RS232 ;wait for start bit
wait halfbaud us ;do half bit time delay
If SerRx On Then goto RxWait
RxByte = 0
For RxBit = 1 to 8 ;set up to read 8 bits
wait baud us
Rotate RxByte Right
If SerRx On then Set RxByte.7 1
If SerRx Off Then Set RxByte.7 0
Next
wait baud us
End sub

sub XMIT_PRINT (PrintData$)
PrintLen = PrintData(0)
if PrintLen = 0 then exit sub
'Write Data
for SysPrintTemp = 1 to PrintLen
XMIT_RS232(PrintData(SysPrintTemp))
next
end sub

Sub XMIT_RS232(Xmit_Byte)#NR
SerTxLow
wait baud us
For cntr = 1 to 8
Rotate Xmit_Byte Right
If Status.C ON Then SerTxHigh
If Status.C Off Then SerTxLow
wait baud us
Next
SerTxHigh
wait baud us
end sub

my receiver:
#chip 12F683, 8 'mhz
#config INTRC_OSC_NOCLKOUT, MCLRE=off, WDT=off, bod=0ff

dir GPIO.1 out ;open
dir gpio.0 in ;rx

#define RecAHigh GPIO.0 off
#define RecALow GPIO.0 on
InitSer 1,r1200,1,8,1,none,invert
'dim temp as string

main:
SerReceive 1, Temp
if temp = "1234" then opendoor

goto main

sub opendoor
set gpio.1 on
wait 2 s
set gpio.1 off
wait 10 s
end sub

but there is something not working, what? it does not activate the output on the receive end, and I know it is receiving it fine