(***************************************************************************
  :Program.       MidiL.def
  :Author.        Jürgen Zimmermann
  :Address.       Ringstraße 6, W-6719 Altleiningen, Germany
  :Phone.         06356/1456
  :ShortCut.      [JnZ]
  :Support.       -
  :Version.       1.03
  :Date.          30. Oct 1991
  :Copyright.     PD
  :Language.      MODULA-II
  :Translator.    M2Amiga 4.0d
  :Contents.      Modula-2-interface-module for Bill Barton's
  :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 MidiL{"midi.library",7};

(*  Definitions pertaining to MIDI are derived from MIDI 1.0 Detailed
    Specification v4.0 (published by the Internation MIDI Association)
    and is current as of June, 1988.

    v2.0 - 23-Oct-88 *)

FROM SYSTEM     IMPORT ADDRESS;
FROM IntuitionD IMPORT ImagePtr;
IMPORT m:MidiD;


VAR midiVersion: INTEGER;
    midiBase   : m.MidiBasePtr;


CONST midiName       = "midi.library";
      midiMinVersion = 7;


(* midi.library routine declarations *)
(*
		 FUNCDEF LockMidiBase		-30
		 FUNCDEF UnlockMidiBase		-36
		 FUNCDEF CreateMSource 		-42
		 FUNCDEF DeleteMSource 		-48
		 FUNCDEF FindMSource 		-54
		 FUNCDEF CreateMDest 		-60
		 FUNCDEF DeleteMDest 		-66
		 FUNCDEF FindMDest 		-72
		 FUNCDEF CreateMRoute 		-78
		 FUNCDEF ModifyMRout 		-84
		 FUNCDEF DeleteMRoute 		-90
		 FUNCDEF MRouteSource 		-96
		 FUNCDEF MRouteDest 		-102
		 FUNCDEF MRoutePublic 		-108
		 FUNCDEF GetMidiMsg 		-114
		 FUNCDEF PutMidiMsg 		-120
		 FUNCDEF FreeMidiMsg 		-126
		 FUNCDEF MidiMsgType 		-132
		 FUNCDEF MidiMsgLength 		-138
		 FUNCDEF PutMidiStream 		-144
		 ab V2.0:
		 FUNCDEF LockMRoutes 		-150
		 FUNCDEF UnlockMRoutes 		-156
		 FUNCDEF FlushMDest 		-162
		 FUNCDEF GetMidiPacket 		-168
		 FUNCDEF FreeMidiPacket 	-174
		 FUNCDEF SetDefaultMRouteInfo 	-180
		 FUNCDEF CreateMListSignal 	-186
		 FUNCDEF DeleteMListSignal 	-192
*)

PROCEDURE CreateMDest(name{8} : ADDRESS;
                      image{9}: ImagePtr): m.MDestPtr;
   CODE -60;


PROCEDURE CreateMListSignal(flags{0}: LONGCARD): m.MListSignalPtr;
   CODE -186;


PROCEDURE CreateMRoute(source{8}    : m.MSourcePtr;
                       dest{9}      : m.MDestPtr;
                       routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
   CODE -78;


PROCEDURE CreateMSource(name{8} : ADDRESS;
                        image{9}: ImagePtr): m.MSourcePtr;
   CODE -42;


PROCEDURE DeleteMDest(dest{8}: m.MDestPtr);
   CODE -66;


PROCEDURE DeleteMListSignal(signal{8}: m.MListSignalPtr);
   CODE -192;


PROCEDURE DeleteMRoute(route{8}: m.MRoutePtr);
   CODE -90;


PROCEDURE DeleteMSource(source{8}: m.MSourcePtr);
   CODE -48;


PROCEDURE FindMDest(name{8}: ADDRESS): m.MDestPtr;
   CODE -72;


PROCEDURE FindMSource(name{8}: ADDRESS): m.MSourcePtr;
   CODE -54;


PROCEDURE FlushMDest(dest{8}: m.MDestPtr);
   CODE -162;


PROCEDURE FreeMidiMsg(msg{8}: ADDRESS);
   CODE -126;


PROCEDURE FreeMidiPacket(packet{8}: m.MidiPacketPtr);
   CODE -174;


PROCEDURE GetMidiMsg(dest{8}: m.MDestPtr): ADDRESS;
   CODE -114;


PROCEDURE GetMidiPacket(dest{8}: m.MDestPtr): m.MidiPacketPtr;
   CODE -168;


PROCEDURE LockMidiBase;
   CODE -30;


PROCEDURE LockMRoutes;
   CODE -150;


PROCEDURE MidiMsgLength(msg{8}: ADDRESS): LONGCARD;
   CODE -138;


PROCEDURE MidiMsgType(msg{8}: ADDRESS): LONGCARD;
   CODE -132;


PROCEDURE ModifyMRoute(route{8}       : m.MRoutePtr;
                       newrouteinfo{9}: m.MRouteInfoPtr);
   CODE -84;


PROCEDURE MRouteDest(sourcename{8}: ADDRESS;
                     dest{9}      : m.MDestPtr;
                     routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
   CODE -102;


PROCEDURE MRoutePublic(sourcename{8}: ADDRESS;
                       destname{9}  : ADDRESS;
                       routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
   CODE -108;


PROCEDURE MRouteSource(source{8}    : m.MSourcePtr;
                       destname{9}  : ADDRESS;
                       routeinfo{10}: m.MRouteInfoPtr): m.MRoutePtr;
   CODE -96;


PROCEDURE PutMidiMsg(source{8}: m.MSourcePtr;
                     msg   {9}: ADDRESS): BOOLEAN;
   CODE -120;


PROCEDURE PutMidiStream(source{8}    : m.MSourcePtr;
                        fillbuffer{9}: ADDRESS;
                        buf{10}      : ADDRESS;
                        bufsize{0}   : LONGCARD;
                        cursize{1}   : LONGCARD);
   CODE -144;


PROCEDURE SetDefaultMRouteInfo(dest     {8}: m.MDestPtr;
                               routeinfo{9}: m.MRouteInfoPtr);
   CODE -180;


PROCEDURE UnlockMidiBase;
   CODE -36;


PROCEDURE UnlockMRoutes;
   CODE -156;

END MidiL.