
[01;34mpackage[m [01;34mbody[m Gmface[31m.[mGm_MIDI[31m.[mMessages [01;34mis[m
   
      [01;34muse[m Interfaces[31m.[mC[31m;[m
   
   [01;34mfunction[m [01;30mTo_Long[m[31m([mMessage [31m:[m [01;34min[m Message_Type[31m)[m [01;34mreturn[m C[31m.[mLong [01;34mis[m
      The_long[31m:[m Unsigned_32 [31m:=[m [35m0[m[31m;[m
      Low     [31m:[m [01;34mconstant[m Unsigned_32 [31m:=[m [01;30mUnsigned_32[m[31m([mMessage[31m.[mData2[31m);[m
      Middle  [31m:[m [01;34mconstant[m Unsigned_32 [31m:=[m [01;30mUnsigned_32[m[31m([mMessage[31m.[mData1[31m);[m
      High    [31m:[m [01;34mconstant[m Unsigned_32 [31m:=[m [01;30mUnsigned_32[m[31m([mMessage[31m.[mStatus[31m);[m                       
   [01;34mbegin[m      
      The_Long [31m:=[m [31m(([m[01;30mShift_Left[m[31m([mLow[31m,[m [35m16[m[31m)[m [01;34mand[m [35m16[m#FF0000#[31m)[m [01;34mor[m
		     [31m([m[01;30mShift_Left[m[31m([mmiddle[31m,[m [35m8[m[31m)[m [01;34mand[m [35m16[m#FF00#[31m)[m [01;34mor[m
		     [31m([mhigh [01;34mand[m [35m16[m#FF#[31m));[m
		    
      [01;34mreturn[m Interfaces[31m.[mC[31m.[m[01;30mLong[m[31m([mThe_Long[31m);[m	 
   [01;34mend[m[31m;[m
   
   [01;34mfunction[m [01;30mMessage[m[31m([mStatus[31m,[m Data1[31m,[m data2 [31m:[m [01;34min[m C[31m.[mLong[31m)[m [01;34mreturn[m Message_Type [01;34mis[m
      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([mStatus[31m,[m Data1[31m,[m Data2[31m);[m
   [01;34mbegin[m
      [01;34mreturn[m Message[31m;[m
   [01;34mend[m Message[31m;[m
   
   [01;34mfunction[m [01;30mNote_On[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                    Note [31m:[m [01;34min[m Value_Type[31m;[m
                    Sens [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#[35m90[m# [31m+[m Channel[31m,[m Note[31m,[m Sens[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m [01;30mNote_Off[m [31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                     Note [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m
      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#[35m80[m# [31m+[m Channel[31m,[m Note[31m,[m [35m0[m[31m);[m
   [01;34mbegin[m
      
      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m

   [01;34mfunction[m [01;30mAll_Note_Off[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m
      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m Channel[31m,[m [35m16[m#7B#[31m,[m [35m0[m[31m);[m
   [01;34mbegin[m
      [01;34mreturn[m Message[31m;[m
   [01;34mend[m All_Note_Off[31m;[m

   [01;34mfunction[m [01;30mBank_Select_MSB[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                            Bank [31m:[m [01;34min[m Bank_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m channel[31m,[m  [35m0[m[31m,[m Bank[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m

   [01;34mfunction[m [01;30mBank_Select_LSB[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                            Bank [31m:[m [01;34min[m Bank_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m channel[31m,[m [35m32[m [31m,[m Bank[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m

   [01;34mfunction[m [01;30mProgram_Change[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                           Program [31m:[m [01;34min[m Program_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#C0# [31m+[m channel[31m,[m program[31m,[m [35m0[m[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m         
   
   
   [01;34mfunction[m [01;30mNRPM_MSB[m [31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                      Value [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m Channel[31m,[m [35m99[m[31m,[m Value[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m

   [01;34mfunction[m [01;30mNRPM_LSB[m [31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                      Value [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m Channel[31m,[m [35m98[m[31m,[m Value[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m [01;30mData_Entry_MSB[m [31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                            Value [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m Channel[31m,[m [35m6[m[31m,[m Value[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m


   [01;34mfunction[m [01;30mAftertouch[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                       Value [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m
      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#D0# [31m+[m Channel[31m,[m Value[31m,[m [35m0[m[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m


   [01;34mfunction[m [01;30mPitchBend[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                      Data1 [31m:[m [01;34min[m Value_Type[31m;[m
                      Data2 [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m
      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#E0# [31m+[m Channel[31m,[m data1[31m,[m data2[31m);[m
   [01;34mbegin[m

      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m

   [01;34mfunction[m [01;30mControlCommand[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                           Data1 [31m:[m [01;34min[m Value_Type[31m;[m
                           Data2 [31m:[m [01;34min[m Value_Type[31m)[m [01;34mreturn[m Message_Type [01;34mis[m
      Message [31m:[m [01;34mconstant[m Message_Type [31m:=[m [31m([m[35m16[m#B0# [31m+[m Channel[31m,[m Data1[31m,[m data2[31m);[m
   [01;34mbegin[m
      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m


   [01;34mfunction[m [01;30mArp_Type_Switch[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                            Switch [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m [01;30mArp_Gate[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                     Gate [31m:[m [01;34min[m T_Arp_Gate[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m [01;30mArp_Select[m[31m([mChannel [31m:[m [01;34min[m Channel_Type[31m;[m
                       Switch [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m Step_Seq_1_Latch_Off [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m Step_Seq_1_Latch_On [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m [01;30mStep_Seq_1_Gate[m[31m([mGate [31m:[m [01;34min[m T_Step_Seq_1_Gate[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   [01;34mfunction[m [01;30mStep_Seq_2_Gate[m[31m([mGate [31m:[m [01;34min[m T_Step_Seq_2_Gate[31m)[m [01;34mreturn[m Message_Type [01;34mis[m

      Message [31m:[m Message_Type[31m;[m
   [01;34mbegin[m


      [01;34mreturn[m Message[31m;[m
   [01;34mend[m[31m;[m
   
[01;34mend[m Gmface[31m.[mGm_MIDI[31m.[mMessages[31m;[m
