workbench/libs/camd/midimsgtype.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include "camd_intern.h"
  10
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15
  16         AROS_LH1(WORD, MidiMsgType,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(MidiMsg *, msg, A0),
  20
  21 /*  LOCATION */
  22         struct CamdBase *, CamdBase, 31, Camd)
  23
  24 /*  FUNCTION
  25                 Return the type of a message (see <midi/camd.h>). sysex messages
  26                 returns -1.
  27
  28     INPUTS
  29                 msg - midimessage.
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45         2001-01-12 ksvalast first created
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51         if(msg->mm_Status==0xf0 || msg->mm_Status==0xf7) return -1;
  52
  53         return MidiMsgType_status_data1(msg->mm_Status,msg->mm_Data1);
  54
  55    AROS_LIBFUNC_EXIT
  56 }
  57