$regfile = "2313def.dat"
$crystal = 4000000

Config Pind.6 = Output

Config Int0 = Falling
Config Int1 = Falling

Dim Wtime As Byte
Dim Encounter As Integer

Const Debouncetime = 5

On Int0 Encodera
On Int1 Encoderb

Cls

Wtime = 100
Encounter = 0

Enable Interrupts
Enable Int0
Enable Int1

Do
  Set Portd.6
  Waitms Wtime
  Upperline
  Lcd "encounter: " ; Encounter ; "     "
  Reset Portd.6
  Waitms Wtime
Loop

Encodera:
  Waitms Debouncetime
  Incr Encounter
  Gifr = 64
Return

Encoderb:
  Waitms Debouncetime
  Decr Encounter
  Gifr = 128
Return
End