Sorry Guys to bring this nokia 6210 thing up again i know you have all tried to give all the advise that you can, but i am a bit lost here.
I am trying to communicate with a Nokia 6210 with my pic using( Melabs LAB-X1 Experimenter/Lab Board) but i dont get any response from the phone .
i am using the Original Nokia DLR-3 Data Cable that i ordered from Nokia.
the phone works ok when i use the cable with Hypertheminal and i know my Hardware is ok because i can communicate with my pc with my project board
so where do you think the problem lies.

Regards
Isaac

i am trying to run the following program


Define LOADER_USED 1
Include "Modedefs.Bas"
DEFINE OSC 20

DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
' Define LCD connections
Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1


' Define program variables
col var byte ' Keypad column
row var byte ' Keypad row
key var byte ' Key value


OPTION_REG.7 = 0 ' Enable PORTB pullups

ADCON1 = 7 ' Make PORTA and PORTE digital
Low PORTE.2 ' LCD R/W low (write)

Pause 100 ' Wait for LCD to start

Lcdout $fe, 1, "Press any key" ' Display sign on message

loop: Gosub getkey ' Get a key from the keypad
Lcdout $fe, 1, #key ' Display ASCII key number
if (key =5) then
gosub sms
endif
Goto loop ' Do it forever


' Subroutine to get a key from keypad
getkey:
Pause 50 ' Debounce

getkeyu:
' Wait for all keys up
PORTB = 0 ' All output pins low
TRISB = $f0 ' Bottom 4 pins out, top 4 pins in
If ((PORTB >> 4) != $f) Then getkeyu ' If any keys down, loop

Pause 50 ' Debounce

getkeyp:
' Wait for keypress
For col = 0 to 3 ' 4 columns in keypad
PORTB = 0 ' All output pins low
TRISB = (dcd col) ^ $ff ' Set one column pin to output
row = PORTB >> 4 ' Read row
If row != $f Then gotkey ' If any keydown, exit
Next col

Goto getkeyp ' No keys down, go look again

gotkey: ' Change row and column to key number 1 - 16
key = (col * 4) + (ncd (row ^ $f))
Return ' Subroutine over

'Send SMS Test-Message
sms:

HSerout ["ATZ",13,10]
Pause 1000

HSerout ["AT+CMGF=1",13,10] 'Set Text Mode
Pause 500

HSerout ["AT+CMGS=",34,"+447895711481",34,",129",13,10]
Pause 500

HSerout ["Test-Message",10,13]
HSerout [26]
Pause 500

RETURN ' return from subroutine