device 16F877              
XTAL 4
Dim X As Byte
declare keypad_port portb  
dim tecla as byte          
Declare LCD_INTERFACE 4
Declare LCD_RSPIN PORTD.3
Declare LCD_ENPIN PORTD.2
Declare LCD_DTPIN PORTD.4
declare LCD_RWPIN PORTD.5
Declare LCD_LINES 2
trisd=$00                  

inicio:
tecla= inkey  
Print At 1,1, "INTRODUZCA TECLA:"
Print At 2,1, "EL NUMERO ES: ",dec TECLA            
delayms 50
portd=tecla
print @tecla 
DelayMS 2000
goto inicio                
end

cuando lo pruebo en el pic simulator ide solo la pantalla lcd me muestra los mensajes, pero cuando presiono una tecla no lo muesra siempre esta en cero. Yo se que para mucho de ustedes es facil de verdad estoy empezando a trabajar con el pic... gracias espero q alguien me responda pronto

Es una consulta demasiado específica; deberás ir a un foro especializado. Fijate si este foro de Miarroba te ayuda (creo que ya no se actualiza, pero quizás consigas orientación): http://todopic.mforos.com/