SALUDOS
aqui te dejo el codigo y el circuito como mi proteus no tiene para simular el 16f88 te lo puse en el f84 tu lugo haces la simulacion en el f88
define osc 4
DEFINE LCD_DREG PORTB ' Setea el port de datos LCD
DEFINE LCD_DBIT 0 ' Setea el bit de comienzo de datos (0 o 4) si el bus es de 4-bit
DEFINE LCD_RSREG PORTB ' Setea el port LCD Register Select
DEFINE LCD_RSBIT 4 ' Setea el bit LCD Register Select
DEFINE LCD_EREG PORTB ' Setea el port LCD Enable
DEFINE LCD_EBIT 5 ' Setea el bit LCD Enable
DEFINE LCD_BITS 4 ' Setea el tamaño del bus LCD (4 o 8 bits)
DEFINE LCD_LINES 2 ' Setea el numero de lineas en el LCD
contar var WORD
RPM var WORD
TRISB = %00000000
TRISA = %00010000
PORTA=0
PORTB=0
pause 500
lcdout $FE,1
lcdout $FE,2
lcdout " HOLA ALEX "
pause 1000
lcdout $FE,1
lcdout $FE,2
lcdout " RPM CORSA "
loop: COUNT PORTA.4,500 ,contar
CONTAR = CONTAR * 2
RPM = CONTAR * 1
lcdout $FE,$C0
lcdout #RPM, " RPM "
goto loop
END