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

/*
   =============================================================================
        setv2gi.c -- MIDAS-VII -- set the voices to the instrument for a group
        Version 2 -- 1988-07-11 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "ram.h"

/*
   =============================================================================
        setv2gi() -- set voices to the instrument for a group
   =============================================================================
*/

void setv2gi(int16_t group)
{
        register int16_t grp, vce, ins;
        register struct instdef *ip;
        register struct idfnhdr *fp;

        ins = ins2grp[group] & 0x00FF;
        grp = group + 1;

        for (vce = 0; vce < 12; vce++) {

                if (vce2grp[vce] EQ grp) {      /* for each voice in the group */

                        if (curvce EQ vce) {

                                curinst = ins;
                                s_inst[curvce] = ins;
                        }

                        execins(vce, ins, 1);
                }
        }
}