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
RevLine 
[f40a309]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
[6262b5c]8#include "all.h"
[f40a309]9
[e225e77]10extern void execins(int16_t vce, int16_t ins, int16_t tag);
11
[7258c6a]12extern int16_t curinst;
13extern int16_t curvce;
[f40a309]14
[7258c6a]15extern int16_t ins2grp[];
16extern int16_t s_inst[];
17extern int16_t vce2grp[];
[f40a309]18
19extern struct instdef vbufs[];
20
21/*
22
23*/
24
25/*
26 =============================================================================
27 setv2gi() -- set voices to the instrument for a group
28 =============================================================================
29*/
[7258c6a]30
[f40a309]31void setv2gi(int16_t group)
[7258c6a]32{
[f40a309]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}
[6262b5c]54
55
Note: See TracBrowser for help on using the repository browser.