hola:
bueno amigo lordlafebre te cuento que tambien de esta manera ya havia resolvido el porb.
aki dejo el codigo que hice...
DEFINE LCD_DREG PORTC
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 4
DEFINE LCD_LINES 4
define OSC 4
PORTB = %01111111
TRISC.6=0
p var byte
cont var byte
inicio:
Lcdout $fe, 1, " INICIO "
'-----------------------------------------------
for p=0 to 4
PORTC.6=1: pause 250: PORTC.6=0: pause 250
next p: high PORTC.6
'------------------------------------------------
Mensaje:
Lcdout $fe, 1, " LISTO "
'----------------------------------------------
pull_up:
OPTION_REG.7 = 0
TRISB = %01111111 'Activo Pull-up y revisas si es (*)
if portb=$7e then goto clave
GoTo pull_up
end
clave:
lcdout $FE,1, " FIN "
gosub pull_up
te cuento que respecto a las 3 lineas que puse primero el me funciono de maravilla
despues le hice algunos cambios y me quedo de esta manera..
y poniendo OPTION_REG.7=0 no solo con esto se soluciona el problema tenia que al principio especifical las entranas y salidas de port-b por eso puse TRISB=%011111111 y PORTB=%01111111... con esto si me funciono...
bye...