source: buchla-68k/ram/setv2gi.c@ 6262b5c

Last change on this file since 6262b5c was 6262b5c, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added include files for global functions and variables.
  • Property mode set to 100644
File size: 1.1 KB
Line 
1/*
2 =============================================================================
3 setv2gi.c -- MIDAS-VII -- set the voices to the instrument for a group
4 Version 2 -- 1988-07-11 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "all.h"
9
10extern void execins(int16_t vce, int16_t ins, int16_t tag);
11
12extern int16_t curinst;
13extern int16_t curvce;
14
15extern int16_t ins2grp[];
16extern int16_t s_inst[];
17extern int16_t vce2grp[];
18
19extern struct instdef vbufs[];
20
21/*
22
23*/
24
25/*
26 =============================================================================
27 setv2gi() -- set voices to the instrument for a group
28 =============================================================================
29*/
30
31void setv2gi(int16_t group)
32{
33 register int16_t grp, vce, ins;
34 register struct instdef *ip;
35 register struct idfnhdr *fp;
36
37 ins = ins2grp[group] & 0x00FF;
38 grp = group + 1;
39
40 for (vce = 0; vce < 12; vce++) {
41
42 if (vce2grp[vce] EQ grp) { /* for each voice in the group */
43
44 if (curvce EQ vce) {
45
46 curinst = ins;
47 s_inst[curvce] = ins;
48 }
49
50 execins(vce, ins, 1);
51 }
52 }
53}
54
55
Note: See TracBrowser for help on using the repository browser.