Rotary en Proton IDE

DEVICE 16F628A                
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL    = TRUE
PORTB_PULLUPS  = TRUE
LCD_DTPIN      = PORTa.0      ;LCD data aan a0 tm a3
LCD_RSpin      = PORTa.6      ;RS = pin 4 LCD
lcd_enpin      = PORTa.7      ;EN = pin 6 LCD
;        76543210           
PORTA = %00000000             ;1 = 5V    0 = 0V
PORTB = %00000000             ;1 = 5V    0 = 0V
TRISA = %00110000             ;1 = input 0 = output
TRISB = %11111111             ;1 = input 0 = output
INTCON= %10001000
symbol ENC_A      = portb.0
symbol ENC_B      = portb.1
symbol GIE        = INTCON.7
DIM    TEMP       as byte
;================================================================
clear
DELAYMS 500 
cls                   
print "       Rotary"        
;================================================================
on interrupt goto Interr 

Interr:
if enc_a = 1 then
  if enc_b = 1 then
    temp = temp + 1
  else 
    temp = temp - 1
  endif
else
  if enc_b = 1 then
    temp = temp - 1
  else
    temp = temp + 1
  endif
  delayms 5
  gie = 0
endif

INTCON= %10001000

while 1 = 1
  delayms 100    
  PRINT AT 2, 1, temp
wend
end