im using 2 pic 18f452. and one pic is the transmiter shown below i dont have all the program out yet but im trying to send a decimal value through the pic using the serout command hard wired to the other pic to see if im getting the data that i intially set.

transmiter pic:
include "modedefs.bas"
'
'---- Defining Oscillator ----
'
define OSC 4 ; Using 4MHz Oscillator
'
'---- Defineing Ports ----
'
TRISA = %00001100 ; PortA.0 is 4 IRed and Red
'
TRISD = %00000000 ; PortD.0 is RX

'--------------------
define ADC_BITS 8 ; A/D number of bits
define ADC_CLOCK 3 ; Use A/D internal RC clock
define ADC_SAMPLEUS 50 ; Set sampling time in us

'---ADCON Registers-----'
adcon0 = %00001101
adcon1 = %11000000

'----Defining Variables----'
DataOut var Byte ; A/D SpO2 Perentage


Start:
Dataout = 5
loop:

Serout PORTD.0,N1200, [#dataout]
goto loop

end

and here is the reciever side with the lcd

@CONFIG_LVP_OFF


Include "bs2defs.bas"


'''''Definition'''''
define LCD_DREG PORTB ' set LCD Data port
'
define LCD_DBIT 4 ' set starting data bit
'
define LCD_RSREG PORTB ' set LCD registers
'
define LCD_RSBIT 0 ' set LCD register select bit
'
define LCD_EREG PORTB ' set LCD enable port
'
define LCD_EBIT 1 ' set LCD enable bit
'
DEFINE LCD_BITS 4 ' set LCD bus size
'
define LCD_LINES 4 ' set number of lines on LCD
'
define LCD_COMMANDUS 2000 ' set command delay time in us
'
define LCD_DATAUS 50 ' set data delay time in us
ADCON1 = %00000110


' This 'INCLUDE' routine is use to read a matrix keypad.
' Allow to use various keypad format
' Allow to place the keypad ROW and COL on different PORT.
' The routine set TRIS register for you

'
' Specific DEFINE
' ===============
' The defaults setings are
' 1. Keypad ROW are connected to PORTB<3:0>
' 2. Keypad COL are connected to PORTB<7:4>
' 3. Debounce delay = 200 mSec
' 4. No auto-repeat
' 5. Keypad type 4X4
'
' If you decide to change default settings, here's the DEFINEs list
' DEFINE KEYPAD_ROW 4 ' 4 ROW keypad
' DEFINE KEYPAD_ROW_PORT PORTB ' ROW port = PORTB
' DEFINE KEYPAD_ROW_BIT 4 ' ROW0 = PORTB.4
' DEFINE KEYPAD_COL 4 ' 4 COL keypad
' DEFINE KEYPAD_COL_PORT PORTB ' COL port = PORTB
' DEFINE KEYPAD_COL_BIT 0 ' COL0 = PORTB.0
' DEFINE KEYPAD_DEBOUNCEMS 200 ' debounce delay = 200 mSec
' DEFINE KEYPAD_AUTOREPEAT 1 ' use auto-repeat feature
'
' When using the auto-repeat feature, the delay is the debounce delay (DEBOUNCEMS)

' Hardware Connection
' ===================
' 1. Column bits must have Pull-up resistor attach to VCC
' 2. ROW bits must be connected in serie with resistor.

' Results
' =======
' Results are always set the same way, even with different keypad type
'
' 3X4
' ---
' Col0 Col1 Col2 Col3
' ---- ---- ---- ----
' 1 2 3 4 Row0
' 5 6 7 8 Row1
' 9 10 11 12 Row2
'
' 6X5
' ---
' Col0 Col1 Col2 Col3 Col4
' ---- ---- ---- ---- ----
' 1 2 3 4 5 Row0
' 6 7 8 9 10 Row1
' 11 12 13 14 15 Row2
' 16 17 18 19 20 Row3
' 21 22 23 24 25 Row4
' 26 27 28 29 30 Row5
'

asm


errorlevel 0,-207 ; Disable 'found opcode after...' warning

;
; Macro Definition
; ================
READKEYPAD macro KeyVar
L?CALL _KeypadScan
MOVE?BB _Key,KeyVar
endm

;
; Default settings
; ================
KB_ROW = 4 ; 4 ROW keypad
KB_ROW_PORT = PORTC ; Keypad ROW on PORTC
KB_ROW_BIT = 0 ; ROW0 = PORTB.0
KB_COL = 4 ; 4 COL keypad
KB_COL_PORT = PORTC ; Keypad Col on PORTC
KB_COL_BIT = 4 ; COL0 = PORTB.4
DebounceDelay = d'200' ; debounce delay 200mSec
CONFIG4L =0x81

;
; Software Definition
; ===================
;
; Keypad type definition
; ----------------------
ifdef KEYPAD_ROW
KB_ROW = KEYPAD_ROW ; Assign amount of ROW
endif

ifdef KEYPAD_COL
KB_COL = KEYPAD_COL ; Assign amount of COL
endif

;
; ROW pins assignement
; --------------------
ifdef KEYPAD_ROW_PORT
KB_ROW_PORT = KEYPAD_ROW_PORT ; Assign ROW to user selected PORT
endif

ifdef KEYPAD_ROW_BIT
KB_ROW_BIT = KEYPAD_ROW_BIT ; Assign ROW0 to user selected BIT
endif

;
; COLUMN pins assignement
; -----------------------
ifdef KEYPAD_COL_PORT
KB_COL_PORT = KEYPAD_COL_PORT ; Assign COL to user selected PORT
endif

ifdef KEYPAD_COL_BIT
KB_COL_BIT = KEYPAD_COL_BIT ; Assign COL0 to user selected BIT
endif

;
; Keypad debounce delay
; ---------------------
ifdef KEYPAD_DEBOUNCEMS
DebounceDelay=KEYPAD_DEBOUNCEMS
endif



endasm

'
' Variable definition
' ===================
KB_ROW_PORT VAR BYTE EXT ' ROW port
KB_COL_PORT VAR BYTE EXT ' COL port
Col var byte '
Row var byte '
RowBit var byte '
Key var byte ' result of scanned key
KeyTemp var byte '

'
' Constant definition
' ===================
KeyMask con EXT ' Key mask when reading PORT
InitialState con EXT ' initial ROW PORT value
KB_ROW CON EXT ' # row
KB_COL CON EXT ' # column
KB_ROW_BIT CON EXT ' ROW0 bit
KB_COL_BIT CON EXT ' COL0 bit
DebounceDelay CON EXT ' Debounce delay, also Auto-Repeat delay if defined
asm
KeyMask = b'11111111' >> (8-KB_COL) ; use to keep only COL bits
InitialState=b'00001111' << KB_ROW_BIT ; Initial state of ROW column bits

endasm

DataOut var Byte


start:
Pause 1500
lcdout $fe, 1 ' clear display
lcdout $fe, $80 ' move cursor to begining of line
lcdout "Welcome to JDA Tech "
lcdout $fe, $C0
Lcdout "Wireless Sleep" ' output the following
lcdout $fe, $94
LCDout "Apnea Monitor"
pause 2000
'
Main: ' Operations todo
'
Lcdout $fe, 1
lcdout $fe, $80
lcdout "Choose an Option "
pause 3000
lcdout $fe,1
'
lcdout $fe, $80
lcdout "1:Start to Record"
lcdout $fe, $C0
lcdout "2:Stop " ' display on LCD
lcdout $fe, $94
lcdout "3:SendData toRS-232"
lcdout $fe, $D4
Lcdout "4:Last Reading %"
gosub Keypadscan

If (key = 1) then
pause 100
lcdout $fe, $D4, #key
Goto Record
endif

IF (key = 2) then
Pause 100
lcdout $fe, $D4, #key
stop
Endif

IF ( key = 3 ) Then
Pause 100
lcdout $fe, $D4, #key
GOTO Send
endif

If ( key = 5 ) then
Pause 100
lcdout $fe, $D4, #key
pause 1500
goto Percentage
endif

IF ( key > 5 ) then
pause 100
lcdout $fe, $D4, #Key
goto Warning
ENDIF


Serin PORTD.0,N1200,[#
Dataout]

Record:
GOTO Main

Send:
GOTO Main

Percentage:
Lcdout $fe, 1
lcdout $fe, $80
lcdout "SpO2 is:"
Lcdout $fe, $94,#dataout
Pause 1500
goto Main
Warning:
pause 2500
Lcdout $fe, 1
lcdout $fe, $80
lcdout " Invalid command"
Goto Main
goto JumpOverKeyScan
KeypadScan:
'