define osc 4
flag_pulsador var bit
valor var byte
valor = 0 'se mostrara en el puerto B
flag_pulsador = 0 'valga la rebusnancia es un flag
trisa = 255 'puerto A como entradas
trisb = 0 ' puerto B como salidas
portb = valor 'carga del puerto b con valor
inicio: 'etiqueta para bucle infinito
if(porta.0 = 0) then 'si se presiona el pulsador
if(flag_pulsador = 0) then 'si la tecla ha sido soltada con anterioridad
flag_pulsador = 1 'con el flag indicamos que la tecla ya ha sido presionada
valor = valor + 1 'sumamos 1
portb = valor 'mostramos la acumulacion
endif
else
flag_pulsador = 0 'indica que el pulsador ha sido soltado
endif
goto inicio 'bucle infinito