tq for the idea....i would like to ask any of you to check my code...it seems like noting wrong but when the m=1 suppose that there is something display...but notting happens accept for OK that been send by XBEE....
Code:
@ DEVICE HS_OSC
define OSC 20
DEFINE HSER_BAUD 9600
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 129
ANSEL = 0          'All Digital, konfigurasi ini utk jadikan semua port
ANSELH = 0          'digital utk high, low, serin/out, if.
'DEFINE OSC 8
'OSCCON = %01110001
dta1 var word
LED var PORTb.0
m var PORTb.1
bilangan var byte

main1:low LED  
if m = 1 then main
serout2 portb.2, 16468,["SELAMAT DATANG KE CEDEC...:",34,13,26]
pause 200
goto main1

main: high LED : pause 300
hserout ["+++"]
'hserout ["+"] Pause 50:hserout ["+"]Pause 50:hserout ["+"]
hserin 2000,main1,[dta1(0),dta1(1)]

'For bilangan = 0 to 2
    'HSerIn 2000,main1,[dta1(bilangan)]
'Next bilangan
'hserin 3000, main1,[wait("OK"),dta1]
serout2 portb.2, 16468,[dta1(0), dta1(1)]
pause 2000
in : if m = 1 then main1
hserout ["ATID 100"]: pause 50:hserout [26]
'hserout ["ATID",26] : pause 200: hserout [26,13] ause 500
'For bilangan = 0 to 2
hserin 2000, in,[dta1(0),dta1(1),dta1(2)]:pause 200
serout2 portb.2, 16468,[dec dta1(0),dec dta1(1),dec dta1(2)]
low LED : Pause 200
goto main1
thanks