(***************************************************************************
  :Program.       MidiSupport.def
  :Author.        Jürgen Zimmermann
  :Address.       Ringstraße 6, W-6719 Altleiningen, Germany
  :Phone.         06356/1456
  :ShortCut.      [JnZ]
  :Support.       -
  :Version.       1.1
  :Date.          8. May 1991
  :Copyright.     PD
  :Language.      MODULA-2
  :Translator.    M2Amiga 4.0d
  :Contents.      Modula-2-implementation of the original "C-Midi-Macros"
  :Contents.      "midi.library" of Fish 227, c-functions in "MidiSupport"!
  :Imports.       "midi.library" V2.0 in the LIBS:-directory
  :Remark.        I want to get into contact with other users of the
  :Remark.        "midi.library" or MIDI-programmers.
  :Remark.        (If you have a new version of the library, please send
  :Remark.        it to me!)
  :Usage.         described in the documents of "midi.library"
****************************************************************************)

DEFINITION MODULE MidiSupport;


PROCEDURE MidiHiByte(data: CARDINAL): SHORTCARD;

PROCEDURE MidiLoByte(data: CARDINAL): SHORTCARD;

PROCEDURE MidiWord(hi,lo: SHORTCARD): CARDINAL;

PROCEDURE SplitMidiID(    id         : LONGCARD;
                      VAR id0,id1,id2: SHORTCARD);

PROCEDURE MakeMidiID(id0,id1,id2: SHORTCARD): LONGCARD;

END MidiSupport.