{{ master002.spin }}  

CON
  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

OBJ
  midiIn : "MidiIn03"

PUB start | i, j, p[20]
  midiIn.start(27)
  dira[0..23]~~
  dira[26]~~
  outa[0..11]~
  outa[12..23]~~
  outa[26]~
  repeat
    i := midiIn.event
    if i <> -1
      if (i & $FFFF00) == $B00000
        outa[5..0] := i & $00003F
      elseif (i & $FFFF00) == $B00100
        outa[11..6] := i & $00003F
      elseif (i & $FFFF00) == $B00200
        outa[17..12] := i & $00003F
      elseif (i & $FFFF00) == $B00300
        outa[23..18] := i & $00003F
      elseif (i & $FFFF00) == $B00400
        outa[26] := i & $000001