home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / MIDI_PAT / KARDP16.ZIP / KARAFM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-23  |  6.0 KB  |  289 lines
  1. /*
  2.      KARAOKE
  3.  
  4.      Copyright (c) 1993 94 JP COCATRIX . All rights reserved.
  5. */
  6. /*  This is the interface module used in karados
  7.         given as an explaination of how the resident code like Ultramid
  8.         is used.
  9.         These primitives are called only if the output mode is s (-po=s)
  10.         I Hope it is self documented.
  11.         If loading a patches is no meaning for you, just ignore in the TSR
  12.         The APP_START and APP_END is only a protection for multiple users
  13.         to avoid the remove of the TSR if a program is still using it.
  14.         The key for detection for an other TSR than ULTRAMID
  15.         is "KARADOS".
  16. */
  17. #include <stdio.h>
  18. #include <string.h>
  19. #include <dos.h>
  20. #include "ultramid.h"
  21.  
  22. #define MK_LONG   (long)((void _seg *)(_DX) + (void near *)(_AX))
  23.  
  24. #define control_change              0xB0
  25. #define after_touch                                0xD0
  26.  
  27. #define TRUE    1            /* Define some handy constants    */
  28. #define FALSE    0            /* Define some handy constants    */
  29.  
  30. extern enum HARD {RIEN,SB,GUS,MPU401,COM1,COM2,COM3,COM4} hardware;
  31. extern void SaySo(char *texte,int multiple);
  32. extern short inrange(unsigned char,unsigned char min,unsigned char max);
  33. extern const char *getInstrument(unsigned char);
  34. extern void info_system(char *txt,short x);
  35. extern volatile    unsigned int tempo;
  36. extern void check_buffers(void);
  37. void    sbFmSound3(int,int,int );
  38. //*******************************************************************
  39. //                 code Synth. output
  40. //*******************************************************************
  41.  
  42. int (far *um_hook)(void) = 0L;
  43.  
  44.  
  45. void    um_parameter( int channel, int control, int value )
  46. {
  47.     sbFmSound3( (control_change+channel),control,value );
  48. }
  49.  
  50. int    loadpatch( int patch )
  51. {
  52.     char strg[80];
  53.   unsigned i;
  54.     if (um_hook)
  55.     {
  56.     check_buffers(); // for wave see karawav
  57.         if (patch <128)
  58.         sprintf(strg,"Loading %s",getInstrument(patch));
  59.         else
  60.         {
  61.             if (!inrange(patch,128+27,128+87)) return (TRUE);
  62.             sprintf(strg,"Loading drum %d",patch-128);
  63.         }
  64.         SaySo(strg,6);
  65.     i=0;
  66.     if (um_hook)
  67.     do
  68.     {
  69.           _AX = TSR_LOAD_PATCH;
  70.           _CX = patch;
  71.       i++;
  72.         }while (((*um_hook)()!=0)&&(i<2));
  73.  
  74.     if (i==2)
  75.     {
  76.       SaySo("TSR Loading Error",7);
  77.       return (FALSE);
  78.     }
  79.     return (TRUE);
  80.     } return (FALSE);
  81. }
  82.  
  83.  
  84. int    reset_um( )
  85. {
  86.     int i;
  87.  
  88.     _AX = TSR_UNLOAD_ALL_PATCHES;
  89.     if (um_hook)(*um_hook)();
  90.     _AX = TSR_ALL_NOTES_OFF;
  91.     if (um_hook) (*um_hook)();
  92.     for (i=0; i < 16; i++) {
  93.         um_parameter(i, 0x78, 0); /* all sounds off */
  94.         um_parameter(i, 0x79, 0); /* reset all controllers */
  95.         um_parameter(i, 100, 0); /* RPN MSB 0 */
  96.         um_parameter(i, 101, 0); /* RPN LSB 0 */
  97.         um_parameter(i, 6, 2); /* Pitch Bend Sensitivity MSB */
  98.         um_parameter(i, 38, 0); /* Pitch Bend Sensitivity LSB */
  99.     }
  100.     return(1);
  101. }
  102.  
  103. void    um_cleanup( void )
  104. {
  105.     if (um_hook)
  106.     {
  107.         SaySo("Unload Patches",6);
  108.         _AX = TSR_UNLOAD_ALL_PATCHES;
  109.         if (um_hook)(*um_hook)();
  110.         reset_um();
  111.         _AX = TSR_APP_END;
  112.         if (um_hook)(*um_hook)();
  113.     }
  114. }
  115.  
  116.  
  117. //***********************************************************************
  118. //                code commun   common code
  119. //***********************************************************************
  120. // name with FM are for historical reasons !!
  121. #pragma warn -par
  122. int    initfm()
  123. {
  124.     int vector, i;
  125.     char far *stamp;
  126.     switch (hardware)
  127.     {
  128.     case GUS:
  129.     case SB:
  130.   case MPU401:
  131.   case COM1:
  132.   case COM2:
  133.   case COM3:
  134.   case COM4:
  135.         for (vector=0x78; vector <= 0x7f; vector++)
  136.         {
  137.             um_hook = (int (far *)())getvect(vector);
  138.             stamp = (char far *)MK_FP( FP_SEG(um_hook), 0x103 );
  139.             if ((strncmp(stamp, "ULTRAMID", 8) == 0)||(strncmp(stamp, "KARADOS", 7) == 0))
  140.                  break;
  141.             stamp = (char far *)MK_FP( FP_SEG(um_hook), FP_OFF(um_hook)+0x04 );
  142.             if ((strncmp(stamp, "ULTRAMID", 8) == 0)||(strncmp(stamp, "KARADOS", 7) == 0))
  143.                  break;
  144.         }
  145.         if (vector <= 0x7f) {
  146.             if (um_hook)
  147.             {
  148.                 _AX = TSR_APP_START;
  149.                 (*um_hook)();
  150.                 reset_um();
  151.             }
  152.         } else
  153.         {
  154.             um_hook = 0L;
  155.       tempo =0x3F;
  156.       info_system(" No synth found.",20);
  157.             return(1);
  158.         }
  159.         return(0);
  160.     case RIEN :
  161.     default:
  162.       tempo =0x3F;
  163.       info_system(" No hard. Sorry.",20);
  164.         return (1);
  165.     }
  166. }
  167. #pragma warn .par
  168.  
  169.  
  170. void    sbFmSound2(int car1, int car2)
  171. {
  172.     if (um_hook)
  173.     {
  174.             _AX = TSR_MIDI_OUT;
  175.             _CX = car1;
  176.             (*um_hook)();
  177.             _AX = TSR_MIDI_OUT;
  178.             _CX = car2;
  179.             (*um_hook)();
  180.   }
  181. }
  182.  
  183. void    sbFmSound3(int car1, int car2, int car3)
  184. {
  185.     if (um_hook)
  186.     {
  187.             _AX = TSR_MIDI_OUT;
  188.             _CX = car1;
  189.             (*um_hook)();
  190.             _AX = TSR_MIDI_OUT;
  191.             _CX = car2;
  192.             (*um_hook)();
  193.             _AX = TSR_MIDI_OUT;
  194.             _CX = car3;
  195.             (*um_hook)();
  196.   }
  197. }
  198.  
  199. int um_start_digital(struct um_sound_struct *umss)
  200. {
  201.     if (um_hook)
  202.     {
  203.         _ES = FP_SEG(umss);
  204.         _DI = FP_OFF(umss);
  205.         _AX = TSR_START_DIGITAL;
  206.         (*um_hook)();
  207.         return(_AX);
  208.   }
  209.   return 0;
  210. }
  211.  
  212. void um_stop_digital(int voice)
  213. {
  214.     if (um_hook)
  215.     {
  216.         _CX = voice;
  217.         _AX = TSR_STOP_DIGITAL;
  218.         (*um_hook)();
  219.   }
  220. }
  221.  
  222. void um_restart_digital(int voice)
  223. {
  224.     if (um_hook)
  225.     {
  226.         _CX = voice;
  227.         _AX = TSR_RESTART_DIGITAL;
  228.         (*um_hook)();
  229.   }
  230. }
  231.  
  232. void um_pause_digital(int voice)
  233. {
  234.     if (um_hook)
  235.     {
  236.         _CX = voice;
  237.         _AX = TSR_PAUSE_DIGITAL;
  238.         (*um_hook)();
  239.   }
  240. }
  241.  
  242. void um_set_pan(int voice, int pan)
  243. {
  244.     if (um_hook)
  245.     {
  246.         _CX = voice;
  247.         _BX = pan;
  248.         _AX = TSR_SET_PAN;
  249.         (*um_hook)();
  250.   }
  251. }
  252.  
  253. void um_set_volume(int voice, int volume)
  254. {
  255.     if (um_hook)
  256.     {
  257.         _CX = voice;
  258.         _BX = volume;
  259.         _AX = TSR_SET_VOLUME;
  260.         (*um_hook)();
  261.   }
  262. }
  263.  
  264. long um_allocate_memory(long mem)
  265. {
  266.     if (um_hook)
  267.     {
  268.         asm mov dx, word ptr mem;
  269.         asm mov bx, word ptr mem+2;
  270.         _AX = TSR_ALLOCATE_MEMORY;
  271.         (*um_hook)();
  272.         mem = MK_LONG;
  273.         return(mem);
  274.   }
  275.   return (0);
  276. }
  277.  
  278. void um_free_memory(long mem)
  279. {
  280.     if (um_hook)
  281.     {
  282.         asm mov bx, word ptr mem+2;
  283.         asm mov dx, word ptr mem;
  284.         _AX = TSR_FREE_MEMORY;
  285.         (*um_hook)();
  286.   }
  287. }
  288.  
  289.