MIDI (Musical Instrument Digital Interface) |
'{ $STAMP BS2 } baudmode CON 60 '60 for BS2sx, 12 for BS2 midinoteon CON 144 'MIDI note on status byte (for channel = 0) midinoteoff CON 128 midichannel CON 0 SEROUT 15, baudmode, 0, [midinoteon+midichannel, 60, 64] 'output on pin 15 PAUSE 500 'pause for 500 milliseconds SEROUT 15, baudmode, 0, [midinoteoff+midichannel, 60, 64] END |