Encoder con pic 18f4550

'* Name : Encoder con 18f4550 y visualizacion en Lcd con interface de 4 bits *
'* Author : [Pedro Perez] *'* Date : 18/09/10 *
'* Version : 1.0 *'* Notes : *
'* : *'*************************************************************************************************
;conexionado del LCD interface 4 bits
;
;D4 = PortD.0 (programable mediante LCD_DTPin)
;D5= PORTD.1 (programable mediante LCD_DTPin)
;D6 = PORTD.2 (programable mediante LCD_DTPin)
;D7 = PORTD.3 (programable mediante LCD_DTPin)
;EN = PORTD.4 (programable medianteLCD_ENPin)
;RS = PORTD.5 (programable mediante LCD_RSPin)
;R/W = masa
;Nota con esta conexion nos queda libre RB6 y RB7 para la progamacion en circuito

;conexionado del encoder
;
;Ua1 =PortB.0 (entrada con interrupcion habilitada)
;Ua2 = PortB.1 (entrada con interrupcion deshabilitada)

Bootloader = OFF ;Desactivamos el bootloader
Device = 18F4550 'Usamos el PIC 18F4550, pero puedes declarar cualquiera de los 18Fxx5x.
Reminders = 1 ' Comunicar todos los avisos de compilación.
Xtal = 20 '

Symbol INT0IF =INTCON.1 ' RB0 External Interrupt Flag
Symbol INT0IE = INTCON.4 ' RB0 External Interrupt Enable
Symbol GIE = INTCON.7 ' Global Interrupt Enable

SymbolINTEDG0 = INTCON2.6 ' Flag = 0 int. por flanco bajada. Flag = 1 int. por flanco subida.
Dim contaje As Dword ' Variable contaje ---> contador de posición actual con resolución...