Envio de texto por serial PC_______micro_______lcd

[16f]

hola amigos , en estos momentos programo una display de 7x 64 , con un control de texto serial, uso lenguaje proton, el problema es que cuando envio un texto , me imprime decimales. y no la letra.

 Include "PROTON_20.INC"

TRISB=%00000000
TRISE=0

PORTB = 0
PORTE= 0
All_Digital = True
Dim valor As  Dword
Dim n As Byte
time1 var Byte

valor =0
inicio:                                     
PORTE.1=0
Print At 1,1 ,"            HOLA"
HSerIn 1000, inicio, [valor]
Print At 2,1, Dec, valor

DelayMS 50
GoTo inicio

[16f]

mi protocolo seria  2 66 128 66 85 83 32 50 32 69 74 69 83 3 173   
         texto          suma

ya puedo recuperar los datos como texto, pero envia todos los datos  comienzo y fin y solo requiero el texto

Include "PROTON_20.INC"



All_Digital = True
'Dim valor As  Dword
Dim n As Byte
Dim valor As Byte
time1 var Byte
Dim SerString[20] As Byte ' Create a 10-byte array
TRISE=0
PORTE.1=0
Cls
hhh:
HSerIn [Str SerString] ' Fill the array with received data.
Print Str SerString ' Display the string.
DelayMS 500

GoTo hhh      

[16f]

hola amigos , en estos momentos programo una display de 7x 64 , con un control de texto serial, uso lenguaje proton, el problema es que cuando envio un texto , me imprime decimales. y no la letra.

 Include "PROTON_20.INC"

TRISB=%00000000
TRISE=0

PORTB = 0
PORTE= 0
All_Digital = True
Dim valor As  Dword
Dim n As Byte
time1 var Byte

valor =0
inicio:                                     
PORTE.1=0
Print At 1,1 ,"            HOLA"
HSerIn 1000, inicio, [valor]
Print At 2,1, Dec, valor

DelayMS 50
GoTo inicio

la idea seria  PC---------------------protocolo----------------micro---------------------p antalla

 

el protocolo es -------02------66 (linea)----128 (fijo)" ABCDE1234567"-------03-------SUMA

la idea seria como recuperar el texto o caracteres necesarios.

 

la pantalla es de 7x64 , pero en 2 filas.

 es decir  7x128

saludos