CON

        _clkmode        = xtal1 + pll16x
        _xinfreq        = 5_000_000


OBJ
        kb      : "keyboard"


PUB start | i

  'start the keyboard
  kb.start(26, 27)

  'enable LEDs
    dira[23] := 1
    dira[22] := 1

  'echo keystrokes in hex
  repeat
    kb.getkey
    outa[22] := 1
    outa[23] := 1
    waitcnt(clkfreq/16 + cnt)
    outa[22] := 0
    outa[23] := 0