workbench/libs/camd/midimsglen.c

   1 /*
   2     Copyright © 2001-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     NAME */
  14
  15         AROS_LH1(WORD, MidiMsgLen,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(ULONG, msg, D0),
  19
  20 /*  LOCATION */
  21         struct CamdBase *, CamdBase, 32, Camd)
  22
  23 /*  FUNCTION
  24                 Returns the length of a midimessage. sysex message leads to a
  25                 length of zero.
  26
  27     INPUTS
  28                 msg - Message.
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42     HISTORY
  43
  44         2001-01-12 ksvalast first created
  45         2005-05-21 Lyle Hazelwood : Add support for "To Host" bank change 0xF5
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51         msg=0xff & msg>>24;
  52
  53         if(msg<0x80 || msg>0xff) return 0;
  54
  55         if(msg&0x80 && msg&0x40){
  56                 if(!(msg&0x20)){
  57                         return 2;                               //0xc0 or 0xb0
  58                 }else{
  59                         if(msg&0x10){   //0xfx
  60                                 switch(msg){
  61                                         case 0xf0:
  62                                                 return 0;
  63                                         case 0xf1:
  64                                                 return 2;
  65                                         case 0xf2:
  66                                                 return 3;
  67                                         case 0xf3:
  68                                                 return 2;
  69                                         case 0xf4:
  70                                                 return 0;
  71                                         case 0xf5:
  72                                                 return 2;   /* "To Host" bank change command */
  73                                         case 0xf6:
  74                                                 return 1;
  75                                         case 0xf7:
  76                                                 return 0;
  77                                         default:
  78                                                 return 1;               //Realtime message
  79                                                 break;
  80                                 }
  81                         }
  82                 }
  83         }
  84         return 3;
  85
  86    AROS_LIBFUNC_EXIT
  87 }
  88