' =========================================================================
'
'   File....... MIDI_Finder.BSX
'   Purpose....
'   Author..... Jon Williams -- Parallax, Inc.
'   E-mail..... jwilliams@parallax.com
'   Started....
'   Updated.... 07 APR 2005
'
'   {$STAMP BS2sx}
'   {$PBASIC 2.5}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------
'
' MIDI Connections:
'
'                      2
'                   5  o  4
' Stamp ---[220]----o  |  o----[220]--- +5v
'                      |
'                      |
'                     Vss


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

Sout            PIN     8


' -----[ Constants ]-------------------------------------------------------

#SELECT $STAMP
  #CASE BS2, BS2E, BS2PE
    T1200       CON     813
    T2400       CON     396
    T4800       CON     188
    T9600       CON     84
    T19K2       CON     32
    TMidi       CON     12
    T38K4       CON     6
  #CASE BS2SX, BS2P
    T1200       CON     2063
    T2400       CON     1021
    T4800       CON     500
    T9600       CON     240
    T19K2       CON     110
    TMidi       CON     60
    T38K4       CON     45
#ENDSELECT

SevenBit        CON     $2000
Inverted        CON     $4000
Open            CON     $8000

Baud            CON     TMidi + Open


NoteOn          CON     $90


' -----[ Variables ]-------------------------------------------------------

chan            VAR     Nib


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:
  DEBUG CLS,
        "MIDI Finder", CR, CR


' -----[ Program Code ]----------------------------------------------------

Main:
  FOR chan = 0 TO 15
    DEBUG "Channel ", DEC chan, CR
    SEROUT Sout, Baud, [(NoteOn + chan), 60, 127]
    PAUSE 500
    SEROUT Sout, Baud, [60, 0]                  ' off with running status
    PAUSE 1000
  NEXT

  END


' -----[ Subroutines ]----------------------------------------------------- 