diff playercode/mplayer.c @ 12:437e8455d862

General tidy up.. Rename makefile.gcc to Makefile
author darius
date Thu, 23 Apr 1998 07:20:13 +0000
parents de95ce2eacfd
children 80fa6dd10e14
line wrap: on
line diff
--- a/playercode/mplayer.c	Fri Jan 23 16:05:11 1998 +0000
+++ b/playercode/mplayer.c	Thu Apr 23 07:20:13 1998 +0000
@@ -1,2759 +1,3047 @@
-/*
-  --> The Protracker Player Driver
-   -> Part of the SPLAYER pack for MikMod 3.0
-
-  The protracker driver supports all base Protracker 3.x commands and fea-
-  tures.
-*/
-
-#include <string.h>
-#include <stdarg.h>
-#include "mikmod.h"
-
-
-static void DoNNAEffects(UBYTE dat);
-
-//  Set forbid to 1 when you want to modify any of the pf->sngpos, pf->patpos etc.
-//  variables and clear it when you're done. This prevents getting strange
-//  results due to intermediate interrupts.
-
-static UNIMOD     *pf;           // <- this modfile is being played
-static SWORD      mp_channel;    // channel it's working on
-static MP_CONTROL *a;            // current AUDTMP it's working on
-static int        isfirst;
-
-static MP_VOICE aout_dummy;
-
-static UWORD mytab[12] =
-{   1712*16, 1616*16, 1524*16, 1440*16, 1356*16, 1280*16,
-    1208*16, 1140*16, 1076*16, 1016*16, 960*16, 907*16
-};
-
-
-static UBYTE VibratoTable[32] =
-{   0,24,49,74,97,120,141,161,
-    180,197,212,224,235,244,250,253,
-    255,253,250,244,235,224,212,197,
-    180,161,141,120,97,74,49,24
-};
-
-
-static UBYTE avibtab[128] =
-{   0,1,3,4,6,7,9,10,12,14,15,17,18,20,21,23,
-    24,25,27,28,30,31,32,34,35,36,38,39,40,41,42,44,
-    45,46,47,48,49,50,51,52,53,54,54,55,56,57,57,58,
-    59,59,60,60,61,61,62,62,62,63,63,63,63,63,63,63,
-    64,63,63,63,63,63,63,63,62,62,62,61,61,60,60,59,
-    59,58,57,57,56,55,54,54,53,52,51,50,49,48,47,46,
-    45,44,42,41,40,39,38,36,35,34,32,31,30,28,27,25,
-    24,23,21,20,18,17,15,14,12,10,9,7,6,4,3,1
-};
-
-
-// ** Triton's linear periods to frequency translation table (for
-// ** Fast Tracker 2 [XM] modules):
-
-static ULONG lintab[768] =
-{   535232,534749,534266,533784,533303,532822,532341,531861,
-    531381,530902,530423,529944,529466,528988,528511,528034,
-    527558,527082,526607,526131,525657,525183,524709,524236,
-    523763,523290,522818,522346,521875,521404,520934,520464,
-    519994,519525,519057,518588,518121,517653,517186,516720,
-    516253,515788,515322,514858,514393,513929,513465,513002,
-    512539,512077,511615,511154,510692,510232,509771,509312,
-    508852,508393,507934,507476,507018,506561,506104,505647,
-    505191,504735,504280,503825,503371,502917,502463,502010,
-    501557,501104,500652,500201,499749,499298,498848,498398,
-    497948,497499,497050,496602,496154,495706,495259,494812,
-    494366,493920,493474,493029,492585,492140,491696,491253,
-    490809,490367,489924,489482,489041,488600,488159,487718,
-    487278,486839,486400,485961,485522,485084,484647,484210,
-    483773,483336,482900,482465,482029,481595,481160,480726,
-    480292,479859,479426,478994,478562,478130,477699,477268,
-    476837,476407,475977,475548,475119,474690,474262,473834,
-    473407,472979,472553,472126,471701,471275,470850,470425,
-    470001,469577,469153,468730,468307,467884,467462,467041,
-    466619,466198,465778,465358,464938,464518,464099,463681,
-    463262,462844,462427,462010,461593,461177,460760,460345,
-    459930,459515,459100,458686,458272,457859,457446,457033,
-    456621,456209,455797,455386,454975,454565,454155,453745,
-    453336,452927,452518,452110,451702,451294,450887,450481,
-    450074,449668,449262,448857,448452,448048,447644,447240,
-    446836,446433,446030,445628,445226,444824,444423,444022,
-    443622,443221,442821,442422,442023,441624,441226,440828,
-    440430,440033,439636,439239,438843,438447,438051,437656,
-    437261,436867,436473,436079,435686,435293,434900,434508,
-    434116,433724,433333,432942,432551,432161,431771,431382,
-    430992,430604,430215,429827,429439,429052,428665,428278,
-    427892,427506,427120,426735,426350,425965,425581,425197,
-    424813,424430,424047,423665,423283,422901,422519,422138,
-    421757,421377,420997,420617,420237,419858,419479,419101,
-    418723,418345,417968,417591,417214,416838,416462,416086,
-    415711,415336,414961,414586,414212,413839,413465,413092,
-    412720,412347,411975,411604,411232,410862,410491,410121,
-    409751,409381,409012,408643,408274,407906,407538,407170,
-    406803,406436,406069,405703,405337,404971,404606,404241,
-    403876,403512,403148,402784,402421,402058,401695,401333,
-    400970,400609,400247,399886,399525,399165,398805,398445,
-    398086,397727,397368,397009,396651,396293,395936,395579,
-    395222,394865,394509,394153,393798,393442,393087,392733,
-    392378,392024,391671,391317,390964,390612,390259,389907,
-    389556,389204,388853,388502,388152,387802,387452,387102,
-    386753,386404,386056,385707,385359,385012,384664,384317,
-    383971,383624,383278,382932,382587,382242,381897,381552,
-    381208,380864,380521,380177,379834,379492,379149,378807,
-
-    378466,378124,377783,377442,377102,376762,376422,376082,
-    375743,375404,375065,374727,374389,374051,373714,373377,
-    373040,372703,372367,372031,371695,371360,371025,370690,
-    370356,370022,369688,369355,369021,368688,368356,368023,
-    367691,367360,367028,366697,366366,366036,365706,365376,
-    365046,364717,364388,364059,363731,363403,363075,362747,
-    362420,362093,361766,361440,361114,360788,360463,360137,
-    359813,359488,359164,358840,358516,358193,357869,357547,
-    357224,356902,356580,356258,355937,355616,355295,354974,
-    354654,354334,354014,353695,353376,353057,352739,352420,
-    352103,351785,351468,351150,350834,350517,350201,349885,
-    349569,349254,348939,348624,348310,347995,347682,347368,
-    347055,346741,346429,346116,345804,345492,345180,344869,
-    344558,344247,343936,343626,343316,343006,342697,342388,
-    342079,341770,341462,341154,340846,340539,340231,339924,
-    339618,339311,339005,338700,338394,338089,337784,337479,
-    337175,336870,336566,336263,335959,335656,335354,335051,
-    334749,334447,334145,333844,333542,333242,332941,332641,
-    332341,332041,331741,331442,331143,330844,330546,330247,
-    329950,329652,329355,329057,328761,328464,328168,327872,
-    327576,327280,326985,326690,326395,326101,325807,325513,
-    325219,324926,324633,324340,324047,323755,323463,323171,
-    322879,322588,322297,322006,321716,321426,321136,320846,
-    320557,320267,319978,319690,319401,319113,318825,318538,
-    318250,317963,317676,317390,317103,316817,316532,316246,
-    315961,315676,315391,315106,314822,314538,314254,313971,
-    313688,313405,313122,312839,312557,312275,311994,311712,
-    311431,311150,310869,310589,310309,310029,309749,309470,
-    309190,308911,308633,308354,308076,307798,307521,307243,
-    306966,306689,306412,306136,305860,305584,305308,305033,
-    304758,304483,304208,303934,303659,303385,303112,302838,
-    302565,302292,302019,301747,301475,301203,300931,300660,
-    300388,300117,299847,299576,299306,299036,298766,298497,
-    298227,297958,297689,297421,297153,296884,296617,296349,
-    296082,295815,295548,295281,295015,294749,294483,294217,
-    293952,293686,293421,293157,292892,292628,292364,292100,
-    291837,291574,291311,291048,290785,290523,290261,289999,
-    289737,289476,289215,288954,288693,288433,288173,287913,
-    287653,287393,287134,286875,286616,286358,286099,285841,
-    285583,285326,285068,284811,284554,284298,284041,283785,
-    283529,283273,283017,282762,282507,282252,281998,281743,
-    281489,281235,280981,280728,280475,280222,279969,279716,
-    279464,279212,278960,278708,278457,278206,277955,277704,
-    277453,277203,276953,276703,276453,276204,275955,275706,
-    275457,275209,274960,274712,274465,274217,273970,273722,
-    273476,273229,272982,272736,272490,272244,271999,271753,
-    271508,271263,271018,270774,270530,270286,270042,269798,
-    269555,269312,269069,268826,268583,268341,268099,267857
-};
-
-
-#define LOGFAC 2*16
-
-static UWORD logtab[104] =
-{   LOGFAC*907,LOGFAC*900,LOGFAC*894,LOGFAC*887,LOGFAC*881,LOGFAC*875,LOGFAC*868,LOGFAC*862,
-    LOGFAC*856,LOGFAC*850,LOGFAC*844,LOGFAC*838,LOGFAC*832,LOGFAC*826,LOGFAC*820,LOGFAC*814,
-    LOGFAC*808,LOGFAC*802,LOGFAC*796,LOGFAC*791,LOGFAC*785,LOGFAC*779,LOGFAC*774,LOGFAC*768,
-    LOGFAC*762,LOGFAC*757,LOGFAC*752,LOGFAC*746,LOGFAC*741,LOGFAC*736,LOGFAC*730,LOGFAC*725,
-    LOGFAC*720,LOGFAC*715,LOGFAC*709,LOGFAC*704,LOGFAC*699,LOGFAC*694,LOGFAC*689,LOGFAC*684,
-    LOGFAC*678,LOGFAC*675,LOGFAC*670,LOGFAC*665,LOGFAC*660,LOGFAC*655,LOGFAC*651,LOGFAC*646,
-    LOGFAC*640,LOGFAC*636,LOGFAC*632,LOGFAC*628,LOGFAC*623,LOGFAC*619,LOGFAC*614,LOGFAC*610,
-    LOGFAC*604,LOGFAC*601,LOGFAC*597,LOGFAC*592,LOGFAC*588,LOGFAC*584,LOGFAC*580,LOGFAC*575,
-    LOGFAC*570,LOGFAC*567,LOGFAC*563,LOGFAC*559,LOGFAC*555,LOGFAC*551,LOGFAC*547,LOGFAC*543,
-    LOGFAC*538,LOGFAC*535,LOGFAC*532,LOGFAC*528,LOGFAC*524,LOGFAC*520,LOGFAC*516,LOGFAC*513,
-    LOGFAC*508,LOGFAC*505,LOGFAC*502,LOGFAC*498,LOGFAC*494,LOGFAC*491,LOGFAC*487,LOGFAC*484,
-    LOGFAC*480,LOGFAC*477,LOGFAC*474,LOGFAC*470,LOGFAC*467,LOGFAC*463,LOGFAC*460,LOGFAC*457,
-    LOGFAC*453,LOGFAC*450,LOGFAC*447,LOGFAC*443,LOGFAC*440,LOGFAC*437,LOGFAC*434,LOGFAC*431
-};
-
-static SBYTE PanbrelloTable[256] =
-{  0,2,3,5,6,8,9,11,12,14,16,17,19,20,22,23,
-   24,26,27,29,30,32,33,34,36,37,38,39,41,42,43,44,
-   45,46,47,48,49,50,51,52,53,54,55,56,56,57,58,59,
-   59,60,60,61,61,62,62,62,63,63,63,64,64,64,64,64,
-   64,64,64,64,64,64,63,63,63,62,62,62,61,61,60,60,
-   59,59,58,57,56,56,55,54,53,52,51,50,49,48,47,46,
-   45,44,43,42,41,39,38,37,36,34,33,32,30,29,27,26,
-   24,23,22,20,19,17,16,14,12,11,9,8,6,5,3,2,
-   0,-2,-3,-5,-6,-8,-9,-11,-12,-14,-16,-17,-19,-20,-22,-23,
-   -24,-26,-27,-29,-30,-32,-33,-34,-36,-37,-38,-39,-41,-42,-43,-44,
-   -45,-46,-47,-48,-49,-50,-51,-52,-53,-54,-55,-56,-56,-57,-58,-59,
-   -59,-60,-60,-61,-61,-62,-62,-62,-63,-63,-63,-64,-64,-64,-64,-64,
-   -64,-64,-64,-64,-64,-64,-63,-63,-63,-62,-62,-62,-61,-61,-60,-60,
-   -59,-59,-58,-57,-56,-56,-55,-54,-53,-52,-51,-50,-49,-48,-47,-46,
-   -45,-44,-43,-42,-41,-39,-38,-37,-36,-34,-33,-32,-30,-29,-27,-26,
-   -24,-23,-22,-20,-19,-17,-16,-14,-12,-11,-9,-8,-6,-5,-3,-2
-};
-
-
-/* New Note Action Scoring System:
-  ---------------------------------
-   1) total-volume (fadevol, chanvol, volume) is the main scorer.
-   2) a looping sample is a bonus x2
-   3) a forground channel is a bonus x4
-   4) an active envelope with keyoff is a handicap -x2
-*/
-static int MP_FindEmptyChannel(int curchan)  // returns mp_control index of free channel
-{
-   MP_VOICE *a;
-   ULONG t,k,tvol,p,pp;
-
-   /*for(t=md_sngchn; t; t--, audpool++)
-   {   if(audpool == md_sngchn) audpool = 0;
-       if(!(pf->voice[audpool].kick) && Voice_Stopped(audpool))
-       {   audpool++;
-           return audpool-1;
-       }
-   }*/
-
-   for(t=0; t<md_sngchn; t++)
-   {   if(!(pf->voice[t].kick) && Voice_Stopped(t))
-       {   return t;
-       }
-   }
-
-   tvol = 0xffffffUL;  t = 0;  p = 0;  a = pf->voice;
-   for(k=0; k<md_sngchn; k++, a++)
-   {   if(!a->kick)
-       {   pp = a->totalvol << ((a->s->flags & SF_LOOP) ? 1 : 0);
-           if((a->master!=NULL) && (a==a->master->slave))
-              pp <<= 2;
-
-           /*if(a->volflg & EF_ON)
-           {   if(a->volflg & (EF_SUSTAIN | EF_LOOP))
-               {   if(a->keyoff & KEY_OFF)
-                   {   pp >>= 1;
-                       if(a->venv.env[a->venv.end].val < 32) pp>>=1;
-                   } else
-                       pp <<= 1;
-               } else pp <<= 1;
-           }*/
-
-           if(pp < tvol)
-           {  tvol = pp;
-              t    = k;
-           }
-       }
-   }
-
-   if(tvol>8000*7) return -1; //mp_channel;
-
-   return t;
-}
-
-
-static SWORD Interpolate(SWORD p, SWORD p1, SWORD p2, SWORD v1, SWORD v2)
-{
-    SWORD dp,dv,di;
-
-    if(p1==p2) return v1;
-
-    dv = v2-v1;
-    dp = p2-p1;
-    di = p-p1;
-
-    return v1 + ((SLONG)(di*dv) / dp);
-}
-
-
-UWORD getlinearperiod(UBYTE note, ULONG fine)
-{
-    return((10L*12*16*4)-((ULONG)note*16*4)-(fine/2)+64);
-}
-
-
-static UWORD getlogperiod(UBYTE note,ULONG fine)
-{
-    UBYTE n,o;
-    UWORD p1,p2;
-    ULONG i;
-
-    n = note%12;
-    o = note/12;
-    i = (n<<3) + (fine>>4);           // n*8 + fine/16
-
-    p1 = logtab[i];
-    p2 = logtab[i+1];
-
-    return(Interpolate(fine/16,0,15,p1,p2)>>o);
-}
-
-
-static UWORD getoldperiod(UBYTE note, ULONG speed)
-{
-    UBYTE n, o;
-    ULONG period;
-
-    if(!speed) return 4242;         // <- prevent divide overflow.. (42 eheh)
-
-    n = note % 12;
-    o = note / 12;
-    period = ((8363l*(ULONG)mytab[n]) >> o ) / speed;
-    return period;
-}
-
-
-static UWORD GetPeriod(UBYTE note, ULONG speed)
-{
-    if(pf->flags & UF_XMPERIODS)
-       return (pf->flags & UF_LINEAR) ? getlinearperiod(note,speed) : getlogperiod(note,speed);
-
-    return getoldperiod(note,speed);
-}
-
-
-static SWORD InterpolateEnv(SWORD p, ENVPT *a, ENVPT *b)
-{
-    return(Interpolate(p,a->pos,b->pos,a->val,b->val));
-}
-
-
-static SWORD DoPan(SWORD envpan, SWORD pan)
-{
-    return(pan + (((envpan-128)*(128-abs(pan-128)))/128));
-}
-
-
-static void StartEnvelope(ENVPR *t, UBYTE flg, UBYTE pts, UBYTE susbeg, UBYTE susend, UBYTE beg, UBYTE end, ENVPT *p, UBYTE keyoff)
-{
-    t->flg = flg;
-    t->pts = pts;
-    t->susbeg = susbeg;
-    t->susend = susend;
-    t->beg = beg;
-    t->end = end;
-    t->env = p;
-    t->p = 0;
-    t->a = 0;
-    t->b = ((t->flg & EF_SUSTAIN) && !(keyoff & KEY_OFF)) ? 0 : 1;
-}
-
-
-static SWORD ProcessEnvelope(ENVPR *t, SWORD v, UBYTE keyoff)
-
-// This procedure processes all envelope types, include volume, pitch, and
-// panning.  Envelopes are defined by a set of points, each with a magnitude
-// [relating either to volume, panniong position, or pitch modifier] and a
-// tick position.
-//
-//  Envelopes work in the following manner:
-//
-// (a) Each tick the envelope is moved a point further in its progression.
-//   1. For an accurate progression, magnitudes between two envelope points
-//      are interpolated.
-//
-// (b) When progression reaches a defined point on the envelope, values
-//     are shifted to interpolate between this point and the next,
-//     and checks for loops or envelope end are done.
-//
-// Misc:
-//   Sustain loops are loops that are only active as long as the keyoff
-//   flag is clear.  When a volume envelope terminates, so does the current
-//   fadeout.
-
-{
-    if(t->flg & EF_ON)
-    {   UBYTE  a, b;        // actual points in the envelope
-        UWORD  p;           // the 'tick counter' - real point being played
-
-        a = t->a;
-        b = t->b;
-        p = t->p;
-
-        // compute the current envelope value between points a and b
-
-        if(a == b)
-            v = t->env[a].val;
-        else
-            v = InterpolateEnv(p, &t->env[a], &t->env[b]);
-
-        p++;
-
-        // pointer reached point b?
-
-        if(p >= t->env[b].pos)
-        {   a = b++;            // shift points a and b
-
-            // Check for loops, sustain loops, or end of envelope.
-            
-            if((t->flg & EF_SUSTAIN) && !(keyoff & KEY_OFF) && (b > t->susend))
-            {   a = t->susbeg;
-                if(t->susbeg == t->susend) b = a; else b = a + 1;
-                p = t->env[a].pos;
-            } else if((t->flg & EF_LOOP) && (b > t->end))
-            {   a = t->beg;
-                if(t->beg == t->end) b = a; else b = a + 1;
-                p = t->env[a].pos;
-            } else
-            {   if(b >= t->pts)
-                {   if((t->flg & EF_VOLENV) && (mp_channel != -1))
-                    {   pf->voice[mp_channel].keyoff |= KEY_FADE;
-                        if(v==0)
-                            pf->voice[mp_channel].fadevol = 0;
-                    }
-                    b--;  p--;
-                }
-            }
-        }
-        t->a = a;
-        t->b = b;
-        t->p = p;
-    }
-    return v;
-}
-
-
-ULONG getfrequency(UBYTE flags, ULONG period)
-
-// XM linear period to frequency conversion
-
-{
-   ULONG result;
-
-   if(flags & UF_LINEAR)
-      result = lintab[period % 768] >> (period / 768);
-   else
-      result = (8363L*1712L) / period;
-
-   return result;
-}
-
-
-static void DoEEffects(UBYTE dat)
-{
-    UBYTE nib;
-
-    nib = dat & 0xf;
-
-    switch(dat>>4)
-    {   case 0x0:       // filter toggle, not supported
-        break;
-
-        case 0x1:       // fineslide up
-           if(!pf->vbtick) a->tmpperiod-=(nib<<2);
-        break;
-
-        case 0x2:       // fineslide dn
-           if(!pf->vbtick) a->tmpperiod+=(nib<<2);
-        break;
-
-        case 0x3:       // glissando ctrl
-           a->glissando = nib;
-        break;
-
-        case 0x4:       // set vibrato waveform
-           a->wavecontrol &= 0xf0;
-           a->wavecontrol |= nib;
-        break;
-
-        case 0x5:       // set finetune
-//            a->speed=finetune[nib];
-//            a->tmpperiod=GetPeriod(a->note,pf->samples[a->sample].transpose,a->speed);
-        break;
-
-        case 0x6:       // set patternloop
-           if(pf->vbtick) break;
-           // hmm.. this one is a real kludge. But now it
-           // works
-           if(nib)                // set reppos or repcnt ?
-           {   // set repcnt, so check if repcnt already is set,
-               // which means we are already looping
-
-               if(pf->pat_repcnt > 0)
-                   pf->pat_repcnt--;            // already looping, decrease counter
-               else
-                   pf->pat_repcnt = nib;          // not yet looping, so set repcnt
-
-               if(pf->pat_repcnt)              // jump to reppos if repcnt>0
-                   pf->patpos = pf->pat_reppos;
-           } else
-           {   pf->pat_reppos = pf->patpos-1;     // set reppos
-           }
-        break;
-
-
-        case 0x7:       // set tremolo waveform
-           a->wavecontrol &= 0x0f;
-           a->wavecontrol |= nib << 4;
-        break;
-
-        case 0x8:       // set panning
-           if(pf->panflag)
-           {   if(nib<=8) nib*=16; else nib*=17;
-               a->panning = nib;
-               pf->panning[mp_channel] = nib;
-           }
-           break;
-
-        case 0x9:       // retrig note
-           // only retrigger if
-           // data nibble > 0 
-
-           if(nib > 0)
-           {  if(a->retrig==0)
-              {  // when retrig counter reaches 0,
-                 // reset counter and restart the sample
-                 a->kick   = 1;
-                 a->retrig = nib;
-              }
-              a->retrig--; // countdown 
-           }
-        break;
-
-        case 0xa:       // fine volume slide up
-           if(pf->vbtick) break;
-
-           a->tmpvolume += nib;
-           if(a->tmpvolume > 64) a->tmpvolume = 64;
-        break;
-
-        case 0xb:       // fine volume slide dn 
-           if(pf->vbtick) break;
-
-           a->tmpvolume -= nib;
-           if(a->tmpvolume < 0) a->tmpvolume = 0;
-        break;
-
-        case 0xc:       // cut note
-           // When pf->vbtick reaches the cut-note value,
-           // turn the volume to zero ( Just like
-           // on the amiga)
-           if(pf->vbtick>=nib)
-               a->tmpvolume = 0;     // just turn the volume down
-        break;
-
-        case 0xd:       // note delay
-           // delay the start of the
-           // sample until pf->vbtick==nib
-           if(pf->vbtick==nib)
-           {   //a->kick = 1;
-               a->notedelay = 0;
-           } else if(pf->vbtick==0)
-           {   //a->kick = 0;
-               a->notedelay = 1;
-           }
-        break;
-
-        case 0xe:       // pattern delay
-           if(pf->vbtick) break;
-           if(!pf->patdly2) pf->patdly = nib+1;       // only once (when pf->vbtick=0)
-        break;
-
-        case 0xf:       // invert loop, not supported 
-        break;
-    }
-}
-
-
-static void DoVibrato(void)
-{
-    UBYTE q;
-    UWORD temp;
-
-    q = (a->vibpos>>2)&0x1f;
-
-    switch(a->wavecontrol&3)
-    {   case 0:     // sine
-            temp = VibratoTable[q];
-        break;
-
-        case 1:     // ramp down
-            q<<=3;
-            if(a->vibpos<0) q = 255-q;
-            temp = q;
-        break;
-
-        case 2:     // square wave
-            temp = 255;
-        break;
-
-        case 3:     // Evil random wave
-           temp = rand() & 255;
-        break;
-    }
-
-    temp*=a->vibdepth;
-    temp>>=7;
-    temp<<=2;
-
-    if(a->vibpos>=0)
-        a->period = a->tmpperiod+temp;
-    else
-        a->period = a->tmpperiod-temp;
-
-    if(pf->vbtick) a->vibpos+=a->vibspd;    // do not update when pf->vbtick==0
-}
-
-
-static void DoTremolo(void)
-{
-    UBYTE q;
-    UWORD temp;
-
-    q = (a->trmpos>>2) & 0x1f;
-
-    switch((a->wavecontrol>>4) & 3)
-    {   case 0:    // sine
-            temp = VibratoTable[q];
-        break;
-
-        case 1:    // ramp down
-            q<<=3;
-            if(a->trmpos<0) q = 255-q;
-            temp = q;
-        break;
-
-        case 2:    // square wave
-            temp = 255;
-        break;
-
-        case 3:     // Evil random wave
-           temp = rand() & 255;
-        break;
-    }
-
-    temp *= a->trmdepth;
-    temp >>= 6;
-
-    if(a->trmpos >= 0)
-    {   a->volume = a->tmpvolume + temp;
-        if(a->volume > 64) a->volume = 64;
-    } else
-    {   a->volume = a->tmpvolume - temp;
-        if(a->volume < 0) a->volume = 0;
-    }
-
-    if(pf->vbtick) a->trmpos+=a->trmspd;    // do not update when pf->vbtick==0 
-}
-
-
-static void DoVolSlide(UBYTE dat)
-{
-    if(!pf->vbtick) return;             // do not update when pf->vbtick==0
-
-    a->tmpvolume += dat >> 4;           // volume slide
-    a->tmpvolume -= dat & 0xf;
-    if(a->tmpvolume < 0) a->tmpvolume = 0;
-    if(a->tmpvolume > 64) a->tmpvolume = 64;
-}
-
-
-static void DoToneSlide(void)
-{
-    int dist;
-
-    if(a->period==0) return;
-
-    if(!pf->vbtick)
-    {   a->tmpperiod = a->period;
-        return;
-    }
-
-    // We have to slide a->period towards a->wantedperiod, so
-    // compute the difference between those two values
-
-    dist = a->period-a->wantedperiod;
-
-    if( dist==0 || a->portspeed>abs(dist) ) // if they are equal or if portamentospeed is too big
-        a->period = a->wantedperiod;    // make tmpperiod equal tperiod
-    else if(dist>0)                     // dist>0 ?
-        a->period-=a->portspeed;        // then slide up
-    else
-        a->period+=a->portspeed;        // dist<0 -> slide down
-
-    a->tmpperiod = a->period;
-}
-
-
-static void DoPTEffect0(UBYTE dat)
-{
-    UBYTE note;
-
-    note = a->note;
-
-    if(dat!=0)
-    {   switch(pf->vbtick%3)
-        {   case 1:
-                note+=(dat>>4);  break;
-            case 2:
-                note+=(dat&0xf); break;
-        }
-        a->period = GetPeriod(note,a->speed);
-        a->ownper = 1;
-    }
-}
-
-
-// -----------------------------------------
-// --> ScreamTreacker 3 Specific Effects <--
-// -----------------------------------------
-
-static void DoS3MVolSlide(UBYTE inf)
-{
-    UBYTE lo, hi;
-
-    if(inf) a->s3mvolslide = inf;
-
-    inf = a->s3mvolslide;
-    lo  = inf & 0xf;
-    hi  = inf >> 4;
-
-    if(hi==0)       a->tmpvolume -= lo;
-    else if(lo==0)  a->tmpvolume += hi;
-    else if(hi==0xf)
-    {   if(!pf->vbtick) a->tmpvolume -= lo;
-    } else if(lo==0xf)
-    {   if(!pf->vbtick) a->tmpvolume += hi;
-    }
-    if(a->tmpvolume < 0)  a->tmpvolume = 0;
-    if(a->tmpvolume > 64) a->tmpvolume = 64;
-}
-
-
-static void DoS3MSlideDn(UBYTE inf)
-{
-    UBYTE hi,lo;
-
-    if(inf!=0) a->slidespeed = inf;
-    else inf = a->slidespeed;
-
-    hi = inf>>4;
-    lo = inf&0xf;
-
-    if(hi==0xf)
-    {   if(!pf->vbtick) a->tmpperiod+=(UWORD)lo<<2;
-    } else if(hi==0xe)
-    {   if(!pf->vbtick) a->tmpperiod+=lo;
-    } else
-    {   if(pf->vbtick) a->tmpperiod+=(UWORD)inf<<2;
-    }
-}
-
-
-static void DoS3MSlideUp(UBYTE inf)
-{
-    UBYTE hi,lo;
-
-    if(inf!=0) a->slidespeed = inf;
-    else inf = a->slidespeed;
-
-    hi = inf>>4;
-    lo = inf&0xf;
-
-    if(hi==0xf)
-    {   if(!pf->vbtick) a->tmpperiod-=(UWORD)lo<<2;
-    } else if(hi==0xe)
-    {   if(!pf->vbtick) a->tmpperiod-=lo;
-    } else
-    {   if(pf->vbtick) a->tmpperiod-=(UWORD)inf<<2;
-    }
-}
-
-
-static void DoS3MTremor(UBYTE inf)
-{
-    UBYTE on,off;
-
-    if(inf!=0) a->s3mtronof = inf;
-    else inf = a->s3mtronof;
-
-    if(!pf->vbtick) return;
-
-    on  = (inf>>4)+1;
-    off = (inf&0xf)+1;
-
-    a->s3mtremor %= (on+off);
-    a->volume = (a->s3mtremor < on ) ? a->tmpvolume : 0;
-    a->s3mtremor++;
-}
-
-
-static void DoS3MRetrig(UBYTE inf)
-{
-    UBYTE hi,lo;
-
-    hi = inf >> 4;
-    lo = inf & 0xf;
-
-    if(inf)
-    {   a->s3mrtgslide = hi;
-        a->s3mrtgspeed = lo;
-    }
-
-    // only retrigger if
-    // lo nibble > 0
-
-    if(a->s3mrtgspeed > 0)
-    {   if(a->retrig == 0)
-        {   // when retrig counter reaches 0,
-            // reset counter and restart the sample
-
-            if(!a->kick) a->kick = 2;
-            a->retrig = a->s3mrtgspeed;
-
-            if(pf->vbtick)                     // don't slide on first retrig
-            {   switch(a->s3mrtgslide)
-                {   case 1:
-                    case 2:
-                    case 3:
-                    case 4:
-                    case 5:
-                        a->tmpvolume-=(1<<(a->s3mrtgslide-1));
-                        break;
-
-                    case 6:
-                        a->tmpvolume = (2*a->tmpvolume)/3;
-                        break;
-
-                    case 7:
-                        a->tmpvolume = a->tmpvolume>>1;
-                        break;
-
-                    case 9:
-                    case 0xa:
-                    case 0xb:
-                    case 0xc:
-                    case 0xd:
-                        a->tmpvolume+=(1<<(a->s3mrtgslide-9));
-                        break;
-
-                    case 0xe:
-                        a->tmpvolume=(3*a->tmpvolume)/2;
-                        break;
-
-                    case 0xf:
-                        a->tmpvolume=a->tmpvolume<<1;
-                        break;
-                }
-                if(a->tmpvolume<0)  a->tmpvolume = 0;
-                if(a->tmpvolume>64) a->tmpvolume = 64;
-            }
-        }
-        a->retrig--; // countdown 
-    }
-}
-
-
-static void DoS3MSpeed(UBYTE speed)
-{
-    if(pf->vbtick || pf->patdly2) return;
-
-    if(speed)
-    {   pf->sngspd = speed;
-        pf->vbtick    = 0;
-    }
-}
-
-
-static void DoS3MTempo(UBYTE tempo)
-{
-    if(pf->vbtick || pf->patdly2) return;
-    pf->bpm = tempo;
-}
-
-
-static void DoS3MFineVibrato(void)
-{
-    UBYTE q;
-    UWORD temp;
-
-    q = (a->vibpos>>2)&0x1f;
-
-    switch(a->wavecontrol&3)
-    {   case 0: // sine
-            temp=VibratoTable[q];
-            break;
-
-        case 1: // ramp down
-            q<<=3;
-            if(a->vibpos<0) q=255-q;
-            temp=q;
-            break;
-
-        case 2: // square wave
-            temp=255;
-            break;
-
-        case 3: // evil random
-            temp = rand() & 255;  // (range 0 to 255)
-    }
-
-    temp*=a->vibdepth;
-    temp>>=8;
-
-    if(a->vibpos>=0)
-        a->period = a->tmpperiod+temp;
-    else
-        a->period = a->tmpperiod-temp;
-
-    a->vibpos += a->vibspd;
-}
-
-
-static void DoS3MTremolo(void)
-{
-    UBYTE q;
-    UWORD temp;
-
-    q = (a->trmpos>>2)&0x1f;
-
-    switch((a->wavecontrol>>4)&3)
-    {   case 0: // sine
-            temp = VibratoTable[q];
-            break;
-
-        case 1: // ramp down
-            q<<=3;
-            if(a->trmpos<0) q = 255-q;
-            temp = q;
-            break;
-
-        case 2: // square wave
-            temp=255;
-            break;
-
-        case 3: // evil random
-            temp = rand() & 255;  // (range 0 to 255)
-    }
-
-    temp*=a->trmdepth;
-    temp>>=7;
-
-    if(a->trmpos>=0)
-    {   a->volume = a->tmpvolume + temp;
-        if(a->volume>64) a->volume = 64;
-    } else
-    {   a->volume = a->tmpvolume - temp;
-        if(a->volume<0) a->volume = 0;
-    }
-
-    if(pf->vbtick) a->trmpos += a->trmspd;    // do not update when pf->vbtick==0
-}
-
-
-// --------------------------------------
-// --> FastTracker 2 Specific Effects <--
-// --------------------------------------
-
-static void DoXMVolSlide(UBYTE inf)
-{
-    UBYTE lo,hi;
-
-    if(inf)
-       a->s3mvolslide = inf;
-
-    inf = a->s3mvolslide;
-    if(!pf->vbtick) return;
-
-    lo = inf&0xf;
-    hi = inf>>4;
-
-    if(hi==0)
-        a->tmpvolume-=lo;
-    else
-        a->tmpvolume+=hi;
-
-    if(a->tmpvolume<0) a->tmpvolume=0;
-    else if(a->tmpvolume>64) a->tmpvolume=64;
-}
-
-
-static void DoXMGlobalSlide(UBYTE inf)
-{
-    if(pf->vbtick)
-    {  if(inf) pf->globalslide=inf; else inf=pf->globalslide;
-       if(inf & 0xf0) inf &= 0xf0;
-       pf->volume = pf->volume + ((inf >> 4) - (inf & 0xf))*2;
-
-       if(pf->volume<0) pf->volume = 0;
-       else if(pf->volume>128) pf->volume = 128;
-    }
-}
-
-
-static void DoXMPanSlide(UBYTE inf)
-{
-    UBYTE lo,hi;
-    SWORD pan;
-
-
-    if(inf!=0) a->pansspd = inf;
-    else inf = a->pansspd;
-
-    if(!pf->vbtick) return;
-
-    lo = inf & 0xf;
-    hi = inf >> 4;
-
-    // slide right has absolute priority:
-
-    if(hi) lo = 0;
-
-    pan = (a->panning == PAN_SURROUND) ? 128 : a->panning;
-
-    pan -= lo;
-    pan += hi;
-
-    if(pan < 0) pan = 0;
-    if(pan > 255) pan = 255;
-
-    a->panning = pan;
-}
-
-
-static void DoXMExtraFineSlideUp(UBYTE inf)
-{
-   if(!pf->vbtick)       
-   {  if(inf) a->ffportupspd = inf; else inf = a->ffportupspd;
-      a->period -= inf;
-   }
-   a->tmpperiod = a->period;
-}
-
-
-static void DoXMExtraFineSlideDown(UBYTE inf)
-{
-   if(!pf->vbtick)
-   {  if(inf) a->ffportdnspd = inf; else inf = a->ffportdnspd;
-      a->period += inf;
-   }
-   a->tmpperiod = a->period;
-}
-
-
-// ---------------------------------------
-// --> ImpulseTracker Player Functions <--
-// ---------------------------------------
-
-static void DoITChanVolSlide(UBYTE inf)
-{
-    UBYTE lo, hi;
-
-    if(inf) a->chanvolslide = inf;
-    inf = a->chanvolslide;
-
-    lo = inf&0xf;
-    hi = inf>>4;
-
-    if(hi==0)
-    {   a->chanvol-=lo;
-    } else if(lo==0)
-    {   a->chanvol+=hi;
-    } else if(hi==0xf)
-    {   if(!pf->vbtick) a->chanvol-=lo;
-    } else if(lo==0xf)
-    {   if(!pf->vbtick) a->chanvol+=hi;
-    }
-
-    if(a->chanvol<0) a->chanvol = 0;
-    if(a->chanvol>64) a->chanvol = 64;
-}
-
-
-static void DoITGlobalSlide(UBYTE inf)
-{
-    UBYTE lo,hi;
-
-    if(inf) pf->globalslide = inf;
-    inf = pf->globalslide;
-
-    lo = inf&0xf;
-    hi = inf>>4;
-
-    if(lo==0)
-    {   pf->volume += hi;
-    } else if(hi==0)
-    {   pf->volume -= lo;
-    } else if(lo==0xf)
-    {   if(!pf->vbtick) pf->volume += hi;
-    } else if(hi==0xf)
-    {   if(!pf->vbtick) pf->volume -= lo;
-    }
-
-    if(pf->volume < 0)   pf->volume = 0;
-    if(pf->volume > 128) pf->volume = 128;
-}
-
-
-static void DoITPanSlide(UBYTE inf)
-{
-    UBYTE lo,hi;
-    SWORD pan;
-
-    if(inf) a->pansspd = inf;
-    inf = a->pansspd;
-
-    lo = inf & 0xf;
-    hi = inf >> 4;
-
-    pan = (a->panning == PAN_SURROUND) ? 128 : a->panning;
-
-    if(hi==0)
-    {   pan += lo << 2;
-    } else if(lo==0)
-    {   pan -= hi << 2;
-    } else if(hi==0xf)
-    {   if(!pf->vbtick) pan += lo << 2;
-    } else if(lo==0xf)
-    {   if(!pf->vbtick) pan -= hi << 2;
-    }
-    if(pan > 255) pan = 255;
-    if(pan < 0) pan = 0;
-    a->panning = /*pf->panning[mp_channel] =*/ pan;
-}
-
-
-static void DoITVibrato(void)
-{
-    UBYTE q;
-    UWORD temp;
-
-    q = (a->vibpos>>2)&0x1f;
-
-    switch(a->wavecontrol&3)
-    {   case 0: // sine
-           temp=VibratoTable[q];
-        break;
-
-        case 1: // ramp down
-           q<<=3;
-           if(a->vibpos<0) q=255-q;
-           temp=q;
-        break;
-
-        case 2: // square wave
-           temp=255;
-        break;
-
-        case 3: // evil random
-           temp = rand() & 255;  // (range 0 to 255)
-        break;
-    }
-
-    temp*=a->vibdepth;
-    temp>>=8;
-    temp<<=2;
-
-    if(a->vibpos>=0)
-       a->period = a->tmpperiod+temp;
-    else
-       a->period = a->tmpperiod-temp;
-
-    a->vibpos+=a->vibspd;
-}
-
-
-static void DoITFineVibrato(void)
-{
-    UBYTE q;
-    UWORD temp;
-
-    q = (a->vibpos>>2)&0x1f;
-
-    switch(a->wavecontrol&3)
-    {   case 0: // sine
-           temp=VibratoTable[q];
-        break;
-
-        case 1: // ramp down
-           q<<=3;
-           if(a->vibpos<0) q = 255-q;
-           temp = q;
-        break;
-
-        case 2: // square wave
-           temp = 255;
-        break;
-
-        case 3: // evil random
-            temp = rand() & 255;  // (range 0 to 255)
-        break;
-    }
-
-    temp*=a->vibdepth;
-    temp>>=8;
-
-    if(a->vibpos>=0)
-       a->period = a->tmpperiod+temp;
-    else
-       a->period = a->tmpperiod-temp;
-
-    a->vibpos+=a->vibspd;
-}
-
-
-static void DoITTremor(UBYTE inf)
-{
-    UBYTE on,off;
-
-    if(inf!=0) a->s3mtronof = inf;
-    else inf = a->s3mtronof;
-
-    if(!pf->vbtick) return;
-
-    on=(inf>>4);
-    off=(inf&0xf);
-
-    a->s3mtremor%=(on+off);
-    a->volume = (a->s3mtremor < on ) ? a->tmpvolume : 0;
-    a->s3mtremor++;
-}
-
-
-static void DoITPanbrello(void)
-{
-    UBYTE q;
-    static SLONG temp;
-
-    q = a->panbpos;
-
-    switch(a->panbwave)
-    {   case 0: // sine
-           temp = PanbrelloTable[q];
-        break;
-
-        // only sinewave is correctly supported right now
-
-        case 1: // ramp down
-           q<<=3;
-           temp = q;
-        break;
-
-        case 2: // square wave
-           temp = 64;
-        break;
-
-        case 3: // evil random
-           if(a->panbpos >= a->panbspd)
-           {   a->panbpos = 0;
-               temp = rand() & 255;
-           }
-        }
-
-    temp*=a->panbdepth;
-    temp/=8;
-
-    a->panning = pf->panning[mp_channel] + temp;
-    a->panbpos += a->panbspd;
-}
-
-
-static void DoITToneSlide(void)
-{
-    int dist;
-
-    if(a->period == 0) return;
-
-    if(!pf->vbtick)
-    {   a->tmpperiod = a->period;
-        return;
-    }
-
-    // We have to slide a->period towards a->wantedperiod,
-    // compute the difference between those two values
-
-    dist = a->period - a->wantedperiod;
-
-    if( (dist == 0) ||                     // if they are equal
-        ((a->slidespeed<<2) > abs(dist)) ) // or if portamentospeed is too big
-    {   a->period = a->wantedperiod;       // make tmpperiod equal tperiod
-    } else if(dist > 0)                    // dist>0 ?
-    {   a->period -= a->slidespeed << 2;   // then slide up
-    } else
-    {   a->period += a->slidespeed << 2;   // dist<0 -> slide down
-    }
-    a->tmpperiod = a->period;
-}
-
-
-static void DoSSEffects(UBYTE dat)
-
-//  Impulse/Scream Tracker Sxx effects.
-//  All Sxx effects share the same memory space.
-
-{
-    UBYTE inf,c;
-
-    inf = dat&0xf;
-    c   = dat>>4;
-
-    if(dat==0)
-    {   c   = a->sseffect;
-        inf = a->ssdata;
-    } else
-    {   a->sseffect = c;
-        a->ssdata = inf;
-    }
-
-    switch(c)
-    {   case SS_GLISSANDO:      // S1x set glissando voice
-           DoEEffects(0x30|inf);
-        break;              
-
-        case SS_FINETUNE:       // S2x set finetune
-           DoEEffects(0x50|inf);
-        break;
-
-        case SS_VIBWAVE:        // S3x set vibrato waveform
-           DoEEffects(0x40|inf);
-        break;   
-                          
-        case SS_TREMWAVE:       // S4x set tremolo waveform
-           DoEEffects(0x70|inf);
-        break;
-
-        case SS_PANWAVE:        // The Satanic Panbrello waveform
-           a->panbwave = (UniGetByte());
-        break;
-                  
-        case SS_FRAMEDELAY:     // S6x Delay x number of frames (patdly)
-           DoEEffects(0xe0|inf);
-        break;
-        
-        case SS_S7EFFECTS:      // S7x Instrument / NNA commands
-           DoNNAEffects(UniGetByte());
-        break;
-
-        case SS_PANNING:        // S8x set panning position
-           DoEEffects(0x80 | inf);
-        break;
-
-        case SS_SURROUND:       // S9x Set Surround Sound
-           a->panning = pf->panning[mp_channel] = PAN_SURROUND;
-        break;    
-
-        case SS_HIOFFSET:       // SAy Set high order sample offset yxx00h
-           a->hioffset |= UniGetByte() << 16;
-        break;
-
-        case SS_PATLOOP:        // SBx pattern loop
-           DoEEffects(0x60|inf);
-        break;
-
-        case SS_NOTECUT:        // SCx notecut
-           DoEEffects(0xC0|inf);
-        break;
-
-        case SS_NOTEDELAY:      // SDx notedelay
-           DoEEffects(0xD0|inf);
-        break;
-
-        case SS_PATDELAY:       // SEx patterndelay
-           DoEEffects(0xE0|inf);
-        break;
-    }
-}    
-
-
-static void DoVolEffects(UBYTE c)
-
-//  Impulse Tracker Volume/Pan Column effects.
-//  All volume/pan column effects share the same memory space.
-
-{
-    UBYTE inf;
-
-    inf = UniGetByte();
-
-    if(c==0 && inf==0)
-    {   c   = a->voleffect;
-        inf = a->voldata;
-    } else
-    {   a->voleffect = c;
-        a->voldata = inf;
-    }
-
-    switch(c)
-    {   case 0: break;          // do nothing
-        case VOL_VOLUME:
-            if(pf->vbtick) break;
-            if(inf>64) inf = 64;
-            a->tmpvolume = inf;
-        break;
-
-        case VOL_PANNING:
-           if(pf->panflag)
-           {   a->panning = inf;
-               pf->panning[mp_channel] = inf;
-           }
-        break;
-
-        case VOL_VOLSLIDE:
-            DoS3MVolSlide(inf);
-        break;
-           
-        case VOL_PITCHSLIDEDN:
-                DoS3MSlideDn(UniGetByte());
-        break;
-
-        case VOL_PITCHSLIDEUP:
-                DoS3MSlideUp(UniGetByte());
-        break;
-
-        case VOL_PORTAMENTO:
-            if(inf != 0) a->slidespeed   = inf;
-
-            if(a->period != 0)
-            {   if(!(pf->vbtick==pf->sngspd-1) && (a->newsamp))
-                {   a->kick  = 1;
-                    a->start = -1;
-                    //a->period *= a->speed * a->newsamp;
-                } else
-                    a->kick  = 0;
-    
-                DoITToneSlide();
-                a->ownper = 1;
-            }
-        break;
-
-        case VOL_VIBRATO:
-            if(inf & 0x0f) a->vibdepth = inf & 0xf;
-            if(inf & 0xf0) a->vibspd   = (inf & 0xf0) >> 2;
-                DoITVibrato();
-            a->ownper = 1;
-        break;
-    }
-}
-
-
-
-// --------------------------------
-// --> General Player Functions <--
-// --------------------------------
-
-static void pt_playeffects(void)
-{
-   UBYTE dat,c;
-   
-   while(c = UniGetByte())
-    switch(c)
-    {   case UNI_NOTE:
-        case UNI_INSTRUMENT:
-            UniSkipOpcode(c);
-        break;
-
-        case UNI_PTEFFECT0:
-            DoPTEffect0(UniGetByte());
-        break;
-
-        case UNI_PTEFFECT1:
-            dat = UniGetByte();
-            if(dat != 0) a->slidespeed = (UWORD)dat << 2;
-            if(pf->vbtick) a->tmpperiod -= a->slidespeed;
-        break;
-
-        case UNI_PTEFFECT2:
-            dat = UniGetByte();
-            if(dat != 0) a->slidespeed = (UWORD)dat << 2;
-            if(pf->vbtick) a->tmpperiod += a->slidespeed;
-        break;
-
-        case UNI_PTEFFECT3:
-            dat = UniGetByte();
-
-            if(dat!=0)
-            {   a->portspeed   = dat;
-                a->portspeed <<= 2;
-            }
-
-            if(a->period != 0)
-            {   a->kick = 0;                   // temp XM fix
-                DoToneSlide();
-                a->ownper = 1;
-            }
-        break;
-
-        case UNI_PTEFFECT4:
-            dat = UniGetByte();
-            if(dat & 0x0f) a->vibdepth = dat & 0xf;
-            if(dat & 0xf0) a->vibspd = (dat & 0xf0) >> 2;
-            DoVibrato();
-            a->ownper = 1;
-        break;
-
-        case UNI_PTEFFECT5:
-            dat = UniGetByte();
-            a->kick = 0;
-            DoToneSlide();
-            DoVolSlide(dat);
-            a->ownper = 1;
-        break;
-
-        case UNI_PTEFFECT6:
-            dat = UniGetByte();
-            DoVibrato();
-            DoVolSlide(dat);
-            a->ownper = 1;
-        break;
-
-        case UNI_PTEFFECT7:
-            dat = UniGetByte();
-            if(dat & 0x0f) a->trmdepth = dat & 0xf;
-            if(dat & 0xf0) a->trmspd = (dat & 0xf0) >> 2;
-            DoTremolo();
-            a->ownvol = 1;
-        break;
-
-        case UNI_PTEFFECT8:
-            dat = UniGetByte();
-            if(pf->panflag)
-            {   a->panning = dat;
-                pf->panning[mp_channel] = dat;
-            }
-        break;
-
-        case UNI_PTEFFECT9:
-            dat = UniGetByte();
-            if(dat) a->soffset = (UWORD)dat << 8;
-            a->start = a->hioffset | a->soffset;
-            if((a->s != NULL) && (a->start > a->s->length)) a->start = a->s->loopstart;
-        break;
-
-        case UNI_PTEFFECTA:
-            DoVolSlide(UniGetByte());
-        break;
-
-        case UNI_PTEFFECTB:
-            dat = UniGetByte();
-            if(pf->patdly2) break;
-            pf->patbrk = 0;
-            pf->sngpos = dat-1;
-            pf->posjmp = 3;
-        break;
-
-        case UNI_PTEFFECTC:
-            dat = UniGetByte();
-            if(pf->vbtick) break;
-            if(dat>64) dat = 64;
-            a->tmpvolume = dat;
-        break;
-
-        case UNI_PTEFFECTD:
-            dat = UniGetByte();
-            if(pf->patdly2) break;
-            pf->patbrk = dat;
-            if(pf->patbrk>pf->pattrows[mp_channel])
-                pf->patbrk = pf->pattrows[mp_channel];
-            pf->posjmp = 3;
-        break;
-
-        case UNI_PTEFFECTE:
-            DoEEffects(UniGetByte());
-        break;
-
-        case UNI_PTEFFECTF:
-            dat = UniGetByte();
-
-            if(pf->vbtick || pf->patdly2) break;
-
-            if(pf->extspd && (dat >= 0x20))
-                pf->bpm = dat;
-            else
-            {   if(dat)
-                {   pf->sngspd = dat;
-                    pf->vbtick = 0;
-                }
-            }
-        break;
-
-        case UNI_S3MEFFECTA:
-            DoS3MSpeed(UniGetByte());
-        break;
-
-        case UNI_S3MEFFECTD:
-            DoS3MVolSlide(UniGetByte());
-        break;
-
-        case UNI_S3MEFFECTE:
-               DoS3MSlideDn(UniGetByte());
-        break;
-
-        case UNI_S3MEFFECTF:
-               DoS3MSlideUp(UniGetByte());
-        break;
-
-        case UNI_S3MEFFECTI:
-            DoS3MTremor(UniGetByte());
-            a->ownvol = 1;
-        break;
-
-        case UNI_S3MEFFECTQ:
-             DoS3MRetrig(UniGetByte());
-        break;
-
-        case UNI_S3MEFFECTR:
-            dat = UniGetByte();
-            if(dat & 0x0f) a->trmdepth = dat & 0xf;
-            if(dat & 0xf0) a->trmspd   = (dat & 0xf0) >> 2;
-            DoS3MTremolo();
-            a->ownvol = 1;
-        break;
-                    
-        case UNI_S3MEFFECTT:
-            DoS3MTempo(UniGetByte());
-        break;
-
-        case UNI_S3MEFFECTU:
-            dat = UniGetByte();
-            if(dat & 0x0f) a->vibdepth = dat & 0xf;
-            if(dat & 0xf0) a->vibspd   = (dat & 0xf0) >> 2;
-            DoS3MFineVibrato();
-            a->ownper = 1;
-        break;
-
-        case UNI_KEYOFF:
-            a->keyoff |= KEY_OFF;
-            if(a->i != NULL)
-            {   if(!(a->i->volflg & EF_ON) || (a->i->volflg & EF_LOOP))
-                    a->keyoff = KEY_KILL;
-            }
-        break;
-
-        case UNI_KEYFADE:
-            if(pf->vbtick >= UniGetByte())
-            {   a->keyoff = KEY_KILL;
-                if((a->i != NULL) && !(a->i->volflg & EF_ON))
-                    a->fadevol = 0;
-            }
-        break;
-        
-        case UNI_VOLEFFECTS:
-            DoVolEffects(UniGetByte());
-        break;
-
-        case UNI_XMEFFECT4:
-           dat = UniGetByte();
-           if(pf->vbtick)
-           {  if(dat & 0x0f) a->vibdepth = dat & 0xf;
-              if(dat & 0xf0) a->vibspd   = (dat & 0xf0) >> 2;
-           }
-           DoVibrato();
-           a->ownper = 1;
-        break;
-
-        case UNI_XMEFFECTA:
-           DoXMVolSlide(UniGetByte());
-        break;
-
-        case UNI_XMEFFECTE1:       // xm fineslide up
-           dat = UniGetByte();
-           if(!pf->vbtick)
-           {   if(dat) a->fportupspd = dat; else dat = a->fportupspd;
-               a->tmpperiod -= (dat << 2);
-           }
-         break;
-
-         case UNI_XMEFFECTE2:       // xm fineslide dn
-            dat = UniGetByte();
-            if(!pf->vbtick)
-            {   if(dat) a->fportdnspd = dat; else dat = a->fportdnspd;
-                a->tmpperiod += (dat<<2);
-            }
-        break;
-
-        case UNI_XMEFFECTEA:       // fine volume slide up
-           dat = UniGetByte();
-           if(pf->vbtick) break;
-           if(dat) a->fslideupspd = dat; else dat = a->fslideupspd;
-           a->tmpvolume+=dat;
-           if(a->tmpvolume>64) a->tmpvolume = 64;
-        break;
-
-        case UNI_XMEFFECTEB:       // fine volume slide dn
-           dat = UniGetByte();
-           if(pf->vbtick) break;
-           if(dat) a->fslidednspd = dat; else dat = a->fslidednspd;
-           a->tmpvolume-=dat;
-           if(a->tmpvolume<0) a->tmpvolume = 0;
-        break;
-
-        case UNI_XMEFFECTG:
-           pf->volume = UniGetByte();
-        break;
-
-        case UNI_XMEFFECTH:
-           DoXMGlobalSlide(UniGetByte());
-        break;
-
-        case UNI_XMEFFECTL:
-           dat = UniGetByte();
-           if(!pf->vbtick && a->i!=NULL)
-           {   UWORD points;
-               INSTRUMENT *i = a->i;
-               MP_VOICE *aout;
-
-               if((aout = a->slave) != NULL)
-               {   points = i->volenv[i->volpts-1].pos;
-                   aout->venv.p = aout->venv.env[(dat>points) ? points : dat].pos;
-
-                   points = i->panenv[i->panpts-1].pos;
-                   aout->penv.p = aout->penv.env[(dat>points) ? points : dat].pos;
-               }
-           }
-        break;
-                
-        case UNI_XMEFFECTP:
-           DoXMPanSlide(UniGetByte());
-        break;
-
-        case UNI_XMEFFECTX1:
-           DoXMExtraFineSlideUp(UniGetByte());
-           a->ownper = 1;
-        break;
-
-        case UNI_XMEFFECTX2:
-           DoXMExtraFineSlideDown(UniGetByte());
-           a->ownper = 1;
-        break;
-
-        case UNI_ITEFFECTG:
-           dat = UniGetByte();
-           if(dat != 0) a->slidespeed = dat;
-
-           if(a->period != 0)
-           {   if((pf->vbtick < 1) && (a->newsamp))
-               {   a->kick  = 1;
-                   a->start = -1;
-                   //a->period *= a->speed * a->newsamp;
-               } else
-                   a->kick = 0;
-
-               DoITToneSlide();
-               a->ownper = 1;
-           }
-        break;
-
-        case UNI_ITEFFECTH:  // it vibrato
-           dat = UniGetByte();
-           if(dat & 0x0f) a->vibdepth = dat & 0xf;
-           if(dat & 0xf0) a->vibspd   = (dat & 0xf0) >> 2;
-               DoITVibrato();
-           a->ownper = 1;
-        break;
-
-        case UNI_ITEFFECTI:  // it tremor 
-           DoITTremor(UniGetByte());
-           a->ownvol = 1;
-        break;
-
-        case UNI_ITEFFECTM:
-           a->chanvol = UniGetByte();
-           if(a->chanvol > 64) a->chanvol = 64;
-           else if(a->chanvol < 0) a->chanvol = 0;
-        break;
-
-        case UNI_ITEFFECTN:   // Slide / Fineslide Channel Volume
-           DoITChanVolSlide(UniGetByte());
-        break;
-
-        case UNI_ITEFFECTP:  // slide / fineslide channel panning
-           DoITPanSlide(UniGetByte());
-        break;
-                     
-        case UNI_ITEFFECTU:  // fine vibrato
-           dat = UniGetByte();
-           if(dat & 0x0f) a->vibdepth = dat & 0xf;
-           if(dat & 0xf0) a->vibspd   = (dat & 0xf0) >> 2;
-               DoITFineVibrato();
-           a->ownper = 1;
-        break;
-
-        case UNI_ITEFFECTW:  // Slide / Fineslide Global volume
-           DoITGlobalSlide(UniGetByte());
-        break;
-
-        case UNI_ITEFFECTY:  // The Satanic Panbrello
-           dat = UniGetByte();
-           if(dat & 0x0f) a->panbdepth = (dat & 0xf);
-           if(dat & 0xf0) a->panbspd   = (dat & 0xf0) >> 4;
-           DoITPanbrello();
-        break;
-
-        case UNI_ITEFFECTS0:
-           DoSSEffects(UniGetByte());
-        break;
-
-        default:
-           UniSkipOpcode(c);
-        break;
-    }
-}
-
-
-static void DoNNAEffects(UBYTE dat)
-{
-    int t;
-    MP_VOICE *aout;
-    
-    dat &= 0xf;
-    aout = (a->slave==NULL) ? &aout_dummy : a->slave;
-
-    switch(dat)
-    {   case 0x0:       // Past note cut
-           for(t=0; t<md_sngchn; t++)
-              if(pf->voice[t].master == a)
-                 pf->voice[t].fadevol = 0;
-        break;
-
-        case 0x1:       // Past note off
-           for(t=0; t<md_sngchn; t++)
-              if(pf->voice[t].master == a)
-              {  pf->voice[t].keyoff |= KEY_OFF;
-                 if(!(pf->voice[t].venv.flg & EF_ON))
-                    pf->voice[t].keyoff = KEY_KILL;
-              }
-        break;
-
-        case 0x2:       // Past note fade
-           for(t=0; t<md_sngchn; t++)
-              if(pf->voice[t].master == a)
-                 pf->voice[t].keyoff |= KEY_FADE;
-        break;
-
-        case 0x3:       // set NNA note cut
-           a->nna = (a->nna & ~0x3f) | NNA_CUT;
-        break;
-
-        case 0x4:       // set NNA note continue
-           a->nna = (a->nna & ~0x3f) | NNA_CONTINUE;
-        break;
-
-        case 0x5:       // set NNA note off
-           a->nna = (a->nna & ~0x3f) | NNA_OFF;
-        break;   
-
-        case 0x6:       // set NNA note fade
-           a->nna = (a->nna & ~0x3f) | NNA_FADE;
-        break;
-
-        case 0x7:       // disable volume envelope
-           aout->volflg  &= ~EF_ON;
-        break;
-
-        case 0x8:       // enable volume envelope 
-           aout->volflg  |= EF_ON;
-        break;
-
-        case 0x9:       // disable panning envelope
-           aout->panflg  &= ~EF_ON;
-        break;    
-
-        case 0xa:       // enable panning envelope
-           aout->panflg  |= EF_ON;
-        break;
-
-        case 0xb:       // disable pitch envelope
-           aout->pitflg  &= ~EF_ON;
-        break;
-
-        case 0xc:       // enable pitch envelope
-           aout->pitflg  |= EF_ON;
-        break;
-    }
-}
-
-
-void Player_HandleTick(void)
-{
-    MP_VOICE   *aout;         // current audout (slave of audtmp) it's working on
-    int        t, tr, t2, k;
-    ULONG      tmpvol, period;
-    UBYTE      c;
-    BOOL       funky;
-    SAMPLE     *s;
-    INSTRUMENT *i;
-
-    if(isfirst)
-    {   // don't handle the very first ticks, this allows the
-        // other hardware to settle down so we don't loose any 
-        // starting notes
-        isfirst--;
-        return;
-    }
-
-    if(pf==NULL || pf->forbid) return;
-
-    if(++pf->vbtick >= pf->sngspd)
-    {   pf->patpos++;
-        pf->vbtick = 0;
-
-        // process pattern-delay.  pf->patdly2 is the counter and pf->patdly
-        // is the command memory.
-
-        if(pf->patdly)
-        {   pf->patdly2 = pf->patdly;
-            pf->patdly  = 0;
-        }
-
-        if(pf->patdly2)
-        {   // patterndelay active
-            if(--pf->patdly2) pf->patpos--;    // so turn back pf->patpos by 1
-        }
-
-        // Do we have to get a new patternpointer ?
-        //  (when pf->patpos reaches 64 or when
-        //  a patternbreak is active)
-
-        if(pf->patpos == pf->numrow) pf->posjmp = 3;
-
-        if(pf->posjmp)
-        {   pf->patpos = pf->patbrk;
-            pf->sngpos+=(pf->posjmp-2);
-            pf->patbrk = pf->posjmp = 0;
-            if(pf->sngpos>=pf->numpos)
-            {   if(!pf->loop) return;
-                if((pf->sngpos = pf->reppos) == 0)
-                {   pf->volume = pf->initvolume;
-                    pf->sngspd = pf->initspeed;
-                    pf->bpm    = pf->inittempo;
-                }
-            }
-            if(pf->sngpos<0) pf->sngpos = pf->numpos-1;
-        }
-
-        if(!pf->patdly2)
-        {   for(t=0; t<pf->numchn; t++)
-            {   UBYTE  inst;
-                  
-                tr = pf->patterns[(pf->positions[pf->sngpos]*pf->numchn)+t];
-                pf->numrow = pf->pattrows[pf->positions[pf->sngpos]];
-
-                mp_channel = t;
-                a = &pf->control[t];
-                a->row = (tr < pf->numtrk) ? UniFindRow(pf->tracks[tr],pf->patpos) : NULL;
-                a->newsamp = 0;
-
-                if(a->row==NULL) continue;
-                UniSetRow(a->row);
-                funky = 0;          // Funky is set to indicate note or inst change
-
-                while(c = UniGetByte())
-                {   switch(c)
-                    {   case UNI_NOTE:
-                           funky     |= 1;
-                           a->anote   = UniGetByte();
-                           a->kick    = 1;
-                           a->start   = -1;
-
-                           // retrig tremolo and vibrato waves ?
-
-                           if(!(a->wavecontrol & 0x80)) a->trmpos = 0;
-                           if(!(a->wavecontrol & 0x08)) a->vibpos = 0;
-                           if(!a->panbwave) a->panbpos = 0;
-                        break;
-
-                        case UNI_INSTRUMENT:
-                           funky |= 2;
-                           inst   = UniGetByte();
-                           if(inst >= pf->numins) break;    // <- safety valve
-
-                           a->i = (pf->flags & UF_INST) ? &pf->instruments[inst] : NULL;
-                           a->retrig    = 0;
-                           a->s3mtremor = 0;
-                           a->sample    = inst;
-                        break;
-
-                        default:
-                           UniSkipOpcode(c);
-                        break;
-                    }
-                }
-
-                if(funky)
-                {   i = a->i;
-                    if(i != NULL)
-                    {   if(i->samplenumber[a->anote] >= pf->numsmp) continue;
-                        s = &pf->samples[i->samplenumber[a->anote]];
-                        a->note = i->samplenote[a->anote];
-                    } else
-                    {   a->note = a->anote;
-                        s = &pf->samples[a->sample];
-                    }
-
-                    if(a->s != s)
-                    {   a->s = s;
-                        a->newsamp = a->period;
-                    }
-
-                    // channel or instrument determined panning ?
-
-                    a->panning = pf->panning[t];
-                    if(s->flags & SF_OWNPAN)
-                        a->panning = s->panning;
-                    else if((i != NULL) && (i->flags & IF_OWNPAN))
-                        a->panning = i->panning;
-
-                    a->handle    = s->handle;
-                    a->speed     = s->speed;
-
-                    if(i != NULL)
-                    {   if(i->flags & IF_PITCHPAN)
-                            a->panning += ((a->anote-i->pitpancenter) * i->pitpansep) / 8;
-                        a->pitflg   = i->pitflg;
-                        a->volflg   = i->volflg;
-                        a->panflg   = i->panflg;
-                        a->nna      = i->nnatype;
-                        a->dca      = i->dca;
-                        a->dct      = i->dct;
-                    } else
-                    {   a->pitflg   = 0;
-                        a->volflg   = 0;
-                        a->panflg   = 0;
-                        a->nna      = 0;
-                        a->dca      = 0;
-                        a->dct      = 0;
-                    }
-
-                    if(funky & 2)
-                    {   // IT's random volume variations:  0:8 bit fixed, and one bit for sign.
-                        a->volume    = s->volume;
-                        a->tmpvolume = s->volume;
-                        if((s != NULL) && (i != NULL))
-                        {   a->volume = a->tmpvolume = s->volume + ((s->volume * ((SLONG)i->rvolvar * (SLONG)((rand() & 511)-255))) / 25600);
-                            if(a->panning != PAN_SURROUND) a->panning += ((a->panning * ((SLONG)i->rpanvar * (SLONG)((rand() & 511)-255))) / 25600);
-                        }
-                    }
-
-                    period          = GetPeriod(a->note, a->speed);
-                    a->wantedperiod = period;
-                    a->tmpperiod    = period;
-                    a->keyoff       = KEY_KICK;
-                }
-            }
-        }
-    }
-
-    // Update effects
-
-    for(t=0; t<pf->numchn; t++)
-    {   mp_channel = t;
-        a = &pf->control[t];
-
-        if((aout = a->slave) != NULL)
-        {   a->fadevol = aout->fadevol;
-            a->period  = aout->period;
-            if(a->kick != 1) a->keyoff  = aout->keyoff;
-        }
-
-        if(a->row == NULL) continue;
-        UniSetRow(a->row);
-
-        a->ownper = a->ownvol = 0;
-        pt_playeffects();
-        if(!a->ownper) a->period = a->tmpperiod;
-        if(!a->ownvol) a->volume = a->tmpvolume;
-
-        if(a->s != NULL)
-        {   if(a->i != NULL)
-                a->outvolume = (a->volume * a->s->globvol * a->i->globvol) / 1024;  // max val: 256
-            else
-                a->outvolume = (a->volume * a->s->globvol) / 16;  // max val: 256
-            if(a->outvolume > 256) a->volume = 256;
-        }
-    }
-
-
-    a = pf->control;
-    if(pf->flags & UF_NNA)
-    {   for(t=0; t<pf->numchn; t++, a++)
-        {   if(a->kick == 1)
-            {   if(a->slave != NULL)
-                {   aout = a->slave;
-                    if(aout->nna & 0x3f)
-                    {   // oh boy, we have to do an NNA
-                        // Make sure the old MP_VOICE channel knows it has no master now!
-
-                        a->slave = NULL;  // assume the channel is taken by NNA
-                        aout->mflag = 0;
-    
-                        switch(aout->nna)
-                        {   case  NNA_CONTINUE:
-                            break;  // continue note, do nothing
-    
-                            case  NNA_OFF:               // note off
-                               aout->keyoff |= KEY_OFF;
-                               if(!(aout->volflg & EF_ON) || (aout->volflg & EF_LOOP))
-                                   aout->keyoff = KEY_KILL;
-                            break;
-    
-                            case  NNA_FADE:
-                               aout->keyoff |= KEY_FADE;
-                            break;
-                        }
-                    }
-                }
-    
-                k = 0;
-                if(a->dct != DCT_OFF)
-                {   for(t2=0; t2<md_sngchn; t2++)
-                    {   if(!(Voice_Stopped(t2)) && (pf->voice[t2].masterchn == t) && (a->sample == pf->voice[t2].sample))
-                        {   switch(a->dct)
-                            {   case DCT_NOTE:
-                                   if(a->note == pf->voice[t2].note)
-                                       k = 1;
-                                break;
-                
-                                case DCT_SAMPLE:
-                                   if(a->handle == pf->voice[t2].handle)
-                                       k = 1;
-                                break;
-    
-                                case DCT_INST:
-                                       k = 1;
-                                break;
-                            }
-    
-                            if(k==1)
-                            {   k = 0;
-                                switch(a->dca)
-                                {   case DCA_CUT :
-                                       pf->voice[t2].fadevol = 0;
-                                       a->slave = &pf->voice[a->slavechn=t2];
-                                    break;
-    
-                                    case DCA_OFF :
-                                       //a->slave = &pf->voice[newchn];
-                                       pf->voice[t2].keyoff |= KEY_OFF;
-                                       if(!(pf->voice[t2].volflg & EF_ON) || (pf->voice[t2].volflg & EF_LOOP))
-                                           pf->voice[t2].keyoff = KEY_KILL;
-                                    break;
-    
-                                    case DCA_FADE:
-                                       //a->slave = &pf->voice[newchn];
-                                       pf->voice[t2].keyoff |= KEY_FADE;
-                                    break;
-                                }
-                            }
-                        }
-                    }
-                }  // DCT checking
-            }  // if a->kick
-        }  // for loop
-    }
-
-    a = pf->control;
-    for(t=0; t<pf->numchn; t++, a++)
-    {   int newchn;
-
-        if(a->notedelay) continue;
-
-        if(a->kick == 1)
-        {   // If no channel was cut above, find an empty or quiet channel here
-            if(pf->flags & UF_NNA)
-            {   if(a->slave==NULL)
-                {   if((newchn = MP_FindEmptyChannel(t)) != -1)
-                        a->slave = &pf->voice[a->slavechn=newchn];
-                }
-            } else
-                a->slave = &pf->voice[a->slavechn=t];
-
-            // Assign parts of MP_VOICE only done for a KICK!
-
-            if((aout = a->slave) != NULL)
-            {   if(aout->mflag && (aout->master!=NULL)) aout->master->slave = NULL;
-                a->slave = aout;
-                aout->master    = a;
-                aout->masterchn = t;
-                aout->mflag     = 1;
-            }
-        } else
-        {   aout = a->slave;
-        }
-
-        if(aout != NULL)
-        {   aout->kick      = a->kick;
-            aout->i         = a->i;
-            aout->s         = a->s;
-            aout->sample    = a->sample;
-            aout->handle    = a->handle;
-            aout->period    = a->period;
-            aout->panning   = a->panning;
-            aout->chanvol   = a->chanvol;
-            aout->fadevol   = a->fadevol;
-            aout->start     = a->start;
-            aout->volflg    = a->volflg;
-            aout->panflg    = a->panflg;
-            aout->pitflg    = a->pitflg;
-            aout->volume    = a->outvolume;
-            aout->keyoff    = a->keyoff;
-            aout->note      = a->note;
-            aout->nna       = a->nna;
-        }
-        a->kick = 0;
-
-    }
-
-    // Now set up the actual hardware channel playback information
-
-    for(t=0; t<md_sngchn; t++)
-    {   SWORD envpan, envvol = 256, envpit = 0;
-        SLONG vibval, vibdpt;
-
-        aout = &pf->voice[mp_channel = t];
-        i = aout->i;
-        s = aout->s;
-
-        if(s==NULL) continue;
-
-        if(aout->period < 40)    aout->period = 40;
-        if(aout->period > 50000) aout->period = 50000;
-        
-        if(aout->kick)
-        {   Voice_Play(t,s,(aout->start == -1) ? ((s->flags & SF_UST_LOOP) ? s->loopstart : 0) : aout->start);
-            //aout->keyoff   = KEY_KICK;
-            aout->fadevol  = 32768;
-            aout->aswppos  = 0;
-
-            if((i != NULL) && (aout->kick != 2))
-            {   StartEnvelope(&aout->venv, aout->volflg, i->volpts, i->volsusbeg, i->volsusend, i->volbeg, i->volend, i->volenv, aout->keyoff);
-                StartEnvelope(&aout->penv, aout->panflg, i->panpts, i->pansusbeg, i->pansusend, i->panbeg, i->panend, i->panenv, aout->keyoff);
-                StartEnvelope(&aout->cenv, aout->pitflg, i->pitpts, i->pitsusbeg, i->pitsusend, i->pitbeg, i->pitend, i->pitenv, aout->keyoff);
-            }
-            aout->kick    = 0;
-        }
-
-        if(i != NULL)
-        {   envvol = ProcessEnvelope(&aout->venv,256,aout->keyoff);
-            envpan = ProcessEnvelope(&aout->penv,128,aout->keyoff);
-            envpit = ProcessEnvelope(&aout->cenv,32,aout->keyoff);
-        }
-
-        tmpvol  = aout->fadevol;        // max 32768
-        tmpvol *= aout->chanvol;        // * max 64
-        tmpvol *= aout->volume;         // * max 256
-        tmpvol /= 16384L;               // tmpvol is max 32768
-        aout->totalvol = tmpvol>>2;     // totalvolume used to determine samplevolume
-        tmpvol *= envvol;               // * max 256
-        tmpvol *= pf->volume;           // * max 128
-        tmpvol /= 4194304UL;
-
-        if((aout->masterchn != -1) && pf->control[aout->masterchn].muted)   // Channel Muting Line
-            Voice_SetVolume(t,0);
-        else
-            Voice_SetVolume(t,tmpvol);
-
-
-        if(aout->panning == PAN_SURROUND)
-            Voice_SetPanning(t, PAN_SURROUND);
-        else
-        {   if(aout->penv.flg & EF_ON)
-                Voice_SetPanning(t,DoPan(envpan,aout->panning));
-            else
-                Voice_SetPanning(t,aout->panning);
-        }
-
-        if(aout->period && s->vibdepth)
-        {   switch(s->vibtype)
-            {  case 0:
-                   vibval = avibtab[s->avibpos & 127];
-                   if(s->avibpos & 0x80) vibval=-vibval;
-               break;
-
-               case 1:
-                   vibval = 64;
-                   if(s->avibpos & 0x80) vibval=-vibval;
-               break;
-
-               case 2:
-                   vibval = 63-(((s->avibpos + 128) & 255) >> 1);
-               break;
-
-               case 3:
-                   vibval = (((s->avibpos + 128) & 255) >> 1) - 64;
-               break;
-            }
-        }
-
-        if(s->vibflags & AV_IT)
-        {   if((aout->aswppos >> 8) < s->vibdepth)
-            {   aout->aswppos += s->vibsweep;
-                vibdpt = aout->aswppos;
-            } else
-                vibdpt = s->vibdepth << 8;
-            vibval = (vibval*vibdpt) >> 16;
-            if(aout->mflag)
-            {   if(!(pf->flags & UF_LINEAR)) vibval>>=1;
-                aout->period -= vibval;
-            }
-        } else   // do XM style auto-vibrato
-        {   if(!(aout->keyoff & KEY_OFF))
-            {   if(aout->aswppos < s->vibsweep)
-                {   vibdpt = (aout->aswppos*s->vibdepth) / s->vibsweep;
-                    aout->aswppos++;
-                } else
-                    vibdpt = s->vibdepth;
-            } else
-            {   // key-off -> depth becomes 0 if final depth wasn't reached
-                // or stays at final level if depth WAS reached
-                if(aout->aswppos>=s->vibsweep)
-                   vibdpt = s->vibdepth;
-                else
-                   vibdpt = 0;
-             }
-             vibval        = (vibval*vibdpt)>>8;
-             aout->period -= vibval;
-         }
-
-        // update vibrato position
-        s->avibpos = (s->avibpos+s->vibrate) & 0xff;
-
-        if(aout->cenv.flg & EF_ON)                             
-        {   envpit = envpit-32;
-            aout->period -= envpit;
-        }
-
-        Voice_SetFrequency(t,getfrequency(pf->flags,aout->period));
-
-        if(aout->fadevol == 0)     // check for a dead note (fadevol = 0)
-            Voice_Stop(t);
-        else
-        {   // if keyfade, start substracting
-            // fadeoutspeed from fadevol:
-
-            if((i != NULL) && (aout->keyoff & KEY_FADE))
-            {   if(aout->fadevol >= i->volfade)
-                    aout->fadevol -= i->volfade;
-                else
-                    aout->fadevol = 0;
-            }
-        }
-
-        MD_SetBPM(pf->bpm);
-    }
-}
-
-
-BOOL Player_Init(UNIMOD *mf)
-{
-    int  t;
-
-    mf->extspd     = 1;
-    mf->panflag    = 1;
-    mf->loop       = 0;
-
-    mf->pat_reppos = 0;
-    mf->pat_repcnt = 0;
-    mf->sngpos     = 0;
-    mf->sngspd     = mf->initspeed;
-    mf->volume     = mf->initvolume;
-
-    mf->vbtick  = mf->sngspd;
-    mf->patdly  = 0;
-    mf->patdly2 = 0;
-    mf->bpm     = mf->inittempo;
-
-    mf->patpos = 0;
-    mf->posjmp = 2;          // <- make sure the player fetches the first note
-    mf->patbrk = 0;
-
-    // Make sure the player doesn't start with garbage:
-
-    if((mf->control=(MP_CONTROL *)_mm_calloc(mf->numchn,sizeof(MP_CONTROL)))==NULL) return 1;
-    if((mf->voice=(MP_VOICE *)_mm_calloc(md_sngchn,sizeof(MP_VOICE)))==NULL) return 1;
-
-    for(t=0; t<mf->numchn; t++)
-    {   mf->control[t].chanvol = mf->chanvol[t];
-        mf->control[t].panning = mf->panning[t];
-    }
-
-    return 0;
-}
-
-
-void Player_Exit(UNIMOD *mf)
-{
-    if(mf==NULL) return;
-    if(mf==pf)
-    {   Player_Stop();
-        pf = NULL;
-    }
-    if(mf->control!=NULL) free(mf->control);
-    if(mf->voice!=NULL) free(mf->voice);
-    mf->control = NULL;
-    mf->voice = NULL;
-
-}
-
-
-void Player_SetVolume(int volume)
-{
-    if(pf==NULL) return;
-
-    if(volume > 128) volume = 128;
-    if(volume < 0) volume = 0;
-
-    pf->volume = volume;
-}
-
-
-UNIMOD *Player_GetUnimod(void)
-{
-    return pf;
-}
-
-
-void Player_Start(UNIMOD *mf)
-{
-    int t;
-
-    if(!MikMod_Active())
-    {   isfirst = 2;
-        MikMod_EnableOutput();
-    }
-
-    if(mf==NULL) return;
-
-    mf->forbid = 0;
-    if(pf != mf)
-    {   // new song is being started, so completely stop out the old one.
-        if(pf!=NULL) pf->forbid = 1;
-        for(t=0; t<md_sngchn; t++) Voice_Stop(t);
-    }
-
-    pf = mf;
-}
-
-
-void Player_Stop(void)
-{
-    if(md_sfxchn==0) MikMod_DisableOutput();
-    if(pf != NULL) pf->forbid = 1;
-    pf = NULL;
-}
-
-
-BOOL MP_Playing(UNIMOD *mf)
-{
-    if((mf==NULL) || (mf!=pf)) return 0;
-    return(!(mf->sngpos>=mf->numpos));
-}
-
-
-BOOL Player_Active(void)
-{
-    if(pf==NULL) return 0;
-    return(!(pf->sngpos>=pf->numpos));
-}
-
-
-void MP_NextPosition(UNIMOD *mf)
-{
-    int t;
-
-    if(mf==NULL) return;
-    mf->forbid = 1;
-    mf->posjmp = 3;
-    mf->patbrk = 0;
-    mf->vbtick = mf->sngspd;
-
-    for(t=0; t<md_sngchn; t++)
-    {   Voice_Stop(t);
-        mf->voice[t].i = NULL;
-        mf->voice[t].s = NULL;
-    }
-
-    for(t=0; t<mf->numchn; t++)
-    {   mf->control[t].i = NULL;
-        mf->control[t].s = NULL;
-    }
-    mf->forbid = 0;
-}
-
-
-void Player_NextPosition(void)
-{
-    MP_NextPosition(pf);
-}
-
-
-void MP_PrevPosition(UNIMOD *mf)
-{
-    int t;
-
-    if(mf==NULL) return;
-    mf->forbid = 1;
-    mf->posjmp = 1;
-    mf->patbrk = 0;
-    mf->vbtick = mf->sngspd;
-
-    for(t=0; t<md_sngchn; t++)
-    {   Voice_Stop(t);
-        mf->voice[t].i = NULL;
-        mf->voice[t].s = NULL;
-    }
-
-    for(t=0; t<mf->numchn; t++)
-    {   mf->control[t].i = NULL;
-        mf->control[t].s = NULL;
-    }
-
-    mf->forbid = 0;
-}
-
-
-void Player_PrevPosition(void)
-{
-    MP_PrevPosition(pf);
-}
-
-
-void MP_SetPosition(UNIMOD *mf, UWORD pos)
-{
-    int t;
-
-    if(mf==NULL) return;
-    mf->forbid = 1;
-    if(pos>=mf->numpos) pos = mf->numpos;
-    mf->posjmp = 2;
-    mf->patbrk = 0;
-    mf->sngpos = pos;
-    mf->vbtick = mf->sngspd;
-
-    for(t=0; t<md_sngchn; t++)
-    {   Voice_Stop(t);
-        mf->voice[t].i = NULL;
-        mf->voice[t].s = NULL;
-    }
-
-    for(t=0; t<mf->numchn; t++)
-    {   mf->control[t].i = NULL;
-        mf->control[t].s = NULL;
-    }
-
-    mf->forbid = 0;
-}    
-
-
-void Player_SetPosition(UWORD pos)
-{
-    MP_SetPosition(pf,pos);
-}
-
-
-void MP_Unmute(UNIMOD *mf, SLONG arg1, ...)
-{
-    va_list ap;
-    SLONG   t, arg2, arg3;
-
-    va_start(ap,arg1);
-
-    if(mf != NULL)
-    {   switch(arg1)
-        {   case MUTE_INCLUSIVE:
-               if((!(arg2=va_arg(ap,SLONG))) && (!(arg3=va_arg(ap,SLONG))) || (arg2 > arg3) || (arg3 >= mf->numchn))
-               {   va_end(ap);
-                   return;
-               }
-               for(;arg2<mf->numchn && arg2<=arg3;arg2++)
-                   mf->control[arg2].muted = 0;
-            break;
-    
-            case MUTE_EXCLUSIVE:
-               if((!(arg2=va_arg(ap,SLONG))) && (!(arg3=va_arg(ap,SLONG))) || (arg2 > arg3) || (arg3 >= mf->numchn))
-               {   va_end(ap);
-                   return;
-               }
-               for(t=0;t<mf->numchn;t++)
-               {   if ((t>=arg2) && (t<=arg3)) continue;
-                   mf->control[t].muted = 0;
-               }
-            break;
-    
-            default:
-               if(arg1<mf->numchn) mf->control[arg1].muted = 0;
-            break;
-        }
-    }
-    va_end(ap);
-
-    return;
-}
-
-
-void Player_Unmute(SLONG arg1, ...)
-{
-   va_list argptr;
-   MP_Unmute(pf,arg1, argptr);
-   va_end(argptr);
-}
-
-
-void MP_Mute(UNIMOD *mf, SLONG arg1, ...)
-{
-    va_list ap;
-    SLONG t, arg2, arg3;
-
-    va_start(ap,arg1);
-
-    if(mf != NULL)
-    {   switch (arg1)
-        {   case MUTE_INCLUSIVE:
-               if ((!(arg2=va_arg(ap,SLONG))) && (!(arg3=va_arg(ap,SLONG))) || (arg2 > arg3) || (arg3 >= mf->numchn))
-               {   va_end(ap);
-                   return;
-               }
-               for(;arg2<mf->numchn && arg2<=arg3;arg2++)
-                   mf->control[arg2].muted = 1;
-            break;
-    
-            case MUTE_EXCLUSIVE:
-               if ((!(arg2=va_arg(ap,SLONG))) && (!(arg3=va_arg(ap,SLONG))) || (arg2 > arg3) || (arg3 >= mf->numchn))
-               {   va_end(ap);
-                   return;
-               }
-               for (t=0; t<mf->numchn; t++)
-               {   if ((t>=arg2) && (t<=arg3)) continue;
-                   mf->control[t].muted = 1;
-               }
-            break;
-    
-            default:
-               if(arg1<mf->numchn)
-                   mf->control[arg1].muted = 1;
-            break;
-        }
-    }
-    va_end(ap);
-
-    return;
-}
-
-
-void Player_Mute(SLONG arg1, ...)
-{
-   va_list argptr;
-   MP_Mute(pf,arg1, argptr);
-   va_end(argptr);
-}
-
-
-void MP_ToggleMute(UNIMOD *mf, SLONG arg1, ...)
-{
-    va_list ap;
-    SLONG arg2, arg3;
-    ULONG t;
-       
-    va_start(ap,arg1);
-
-    if(mf != NULL)
-    {   switch (arg1)
-        {   case MUTE_INCLUSIVE:
-              if ((!(arg2=va_arg(ap,SLONG))) && (!(arg3=va_arg(ap,SLONG))) || (arg2 > arg3) || (arg3 >= mf->numchn))
-              {   va_end(ap);
-                  return;
-              }
-              for(; arg2<mf->numchn && arg2<=arg3; arg2++)
-                  mf->control[arg2].muted = (mf->control[arg2].muted) ? 0 : 1;
-         
-            break;
-    
-            case MUTE_EXCLUSIVE:
-               if ((!(arg2=va_arg(ap,SLONG))) && (!(arg3=va_arg(ap,SLONG))) || (arg2 > arg3) || (arg3 >= mf->numchn))
-               {   va_end(ap);
-                   return;
-               }    
-               for (t=0;t<mf->numchn;t++)
-               {   if((t>=arg2) && (t<=arg3)) continue;
-                   mf->control[t].muted = (mf->control[t].muted) ? 0 : 1;
-               }
-            break;
-    
-            default:
-               if(arg1<mf->numchn) 
-                   mf->control[arg1].muted = (mf->control[arg1].muted) ? 0 : 1;
-            break;
-        }
-    }
-    va_end(ap);
-
-    return;
-}
-
-
-void Player_ToggleMute(SLONG arg1, ...)
-{
-   va_list argptr;
-   MP_ToggleMute(pf,arg1, argptr);
-   va_end(argptr);
-}
-
-
-BOOL MP_Muted(UNIMOD *mf, int chan)
-{
-    if(mf==NULL) return 1;
-    return (chan<mf->numchn) ? mf->control[chan].muted : 1;
-}
-
-
-BOOL Player_Muted(int chan)
-{
-    if(pf==NULL) return 1;
-    return (chan<pf->numchn) ? pf->control[chan].muted : 1;
-}
-
-
-int MP_GetChannelVoice(UNIMOD *mf, int chan)
-{
-    if(mf==NULL) return 0;
-    return mf->control[chan].slavechn;
-}
-
-
-int Player_GetChannelVoice(int chan)
-{
-    if(pf==NULL) return 0;
-    return pf->control[chan].slavechn;
-}
-
-
-void Player_TogglePause(void)
-{
-    if(pf==NULL) return;
-    if(pf->forbid == 1)
-        pf->forbid = 0;
-    else
-        pf->forbid = 1;
-}
-
-
-// --> The following procedures were taken from UNITRK because they
-//  -> are ProTracker format specific.
-
-void UniInstrument(UBYTE ins)
-// Appends UNI_INSTRUMENT opcode to the unitrk stream.
-{
-    UniWrite(UNI_INSTRUMENT);
-    UniWrite(ins);
-}
-
-void UniNote(UBYTE note)
-// Appends UNI_NOTE opcode to the unitrk stream.
-{
-    UniWrite(UNI_NOTE);
-    UniWrite(note);
-}
-
-void UniPTEffect(UBYTE eff, UBYTE dat)
-//  Appends UNI_PTEFFECTX opcode to the unitrk stream.
-{
-    if(eff!=0 || dat!=0)               // don't write empty effect
-    {   UniWrite(UNI_PTEFFECT0+eff);
-        UniWrite(dat);
-    }
-}
-
-void UniVolEffect(UWORD eff, UBYTE dat)
-// Appends UNI_VOLEFFECT + effect/dat to unistream.
-{
-    if(eff!=0 || dat!=0)               // don't write empty effect
-    {   UniWrite(UNI_VOLEFFECTS);
-        UniWrite(eff); UniWrite(dat);
-    }
-}
-
+/*
+ * --> The Protracker Player Driver -> Part of the SPLAYER pack for MikMod
+ * 3.0
+ * 
+ * The protracker driver supports all base Protracker 3.x commands and fea-
+ * tures.
+ */
+
+#include <string.h>
+#include <stdarg.h>
+#include "mikmod.h"
+
+
+static void     DoNNAEffects(UBYTE dat);
+
+/*
+ * Set forbid to 1 when you want to modify any of the pf->sngpos, pf->patpos
+ * etc. variables and clear it when you're done. This prevents getting
+ * strange results due to intermediate interrupts.
+ */
+
+static UNIMOD  *pf;		/* <- this modfile is being played */
+static SWORD    mp_channel;	/* channel it's working on */
+static MP_CONTROL *a;		/* current AUDTMP it's working on */
+static int      isfirst;
+
+static MP_VOICE aout_dummy;
+
+static UWORD    mytab[12] =
+{
+    1712 * 16, 1616 * 16, 1524 * 16, 1440 * 16, 1356 * 16, 1280 * 16,
+    1208 * 16, 1140 * 16, 1076 * 16, 1016 * 16, 960 * 16, 907 * 16
+};
+
+static UBYTE    VibratoTable[32] =
+{0, 24, 49, 74, 97, 120, 141, 161,
+    180, 197, 212, 224, 235, 244, 250, 253,
+    255, 253, 250, 244, 235, 224, 212, 197,
+    180, 161, 141, 120, 97, 74, 49, 24
+};
+
+static UBYTE    avibtab[128] =
+{
+    0, 1, 3, 4, 6, 7, 9, 10, 12, 14, 15, 17, 18, 20, 21, 23,
+    24, 25, 27, 28, 30, 31, 32, 34, 35, 36, 38, 39, 40, 41, 42, 44,
+    45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 54, 55, 56, 57, 57, 58,
+    59, 59, 60, 60, 61, 61, 62, 62, 62, 63, 63, 63, 63, 63, 63, 63,
+    64, 63, 63, 63, 63, 63, 63, 63, 62, 62, 62, 61, 61, 60, 60, 59,
+    59, 58, 57, 57, 56, 55, 54, 54, 53, 52, 51, 50, 49, 48, 47, 46,
+    45, 44, 42, 41, 40, 39, 38, 36, 35, 34, 32, 31, 30, 28, 27, 25,
+    24, 23, 21, 20, 18, 17, 15, 14, 12, 10, 9, 7, 6, 4, 3, 1
+};
+
+/*
+ * * Triton's linear periods to frequency translation table (for * Fast
+ * Tracker 2 [XM] modules):
+ */
+
+static ULONG    lintab[768] =
+{535232, 534749, 534266, 533784, 533303, 532822, 532341, 531861,
+    531381, 530902, 530423, 529944, 529466, 528988, 528511, 528034,
+    527558, 527082, 526607, 526131, 525657, 525183, 524709, 524236,
+    523763, 523290, 522818, 522346, 521875, 521404, 520934, 520464,
+    519994, 519525, 519057, 518588, 518121, 517653, 517186, 516720,
+    516253, 515788, 515322, 514858, 514393, 513929, 513465, 513002,
+    512539, 512077, 511615, 511154, 510692, 510232, 509771, 509312,
+    508852, 508393, 507934, 507476, 507018, 506561, 506104, 505647,
+    505191, 504735, 504280, 503825, 503371, 502917, 502463, 502010,
+    501557, 501104, 500652, 500201, 499749, 499298, 498848, 498398,
+    497948, 497499, 497050, 496602, 496154, 495706, 495259, 494812,
+    494366, 493920, 493474, 493029, 492585, 492140, 491696, 491253,
+    490809, 490367, 489924, 489482, 489041, 488600, 488159, 487718,
+    487278, 486839, 486400, 485961, 485522, 485084, 484647, 484210,
+    483773, 483336, 482900, 482465, 482029, 481595, 481160, 480726,
+    480292, 479859, 479426, 478994, 478562, 478130, 477699, 477268,
+    476837, 476407, 475977, 475548, 475119, 474690, 474262, 473834,
+    473407, 472979, 472553, 472126, 471701, 471275, 470850, 470425,
+    470001, 469577, 469153, 468730, 468307, 467884, 467462, 467041,
+    466619, 466198, 465778, 465358, 464938, 464518, 464099, 463681,
+    463262, 462844, 462427, 462010, 461593, 461177, 460760, 460345,
+    459930, 459515, 459100, 458686, 458272, 457859, 457446, 457033,
+    456621, 456209, 455797, 455386, 454975, 454565, 454155, 453745,
+    453336, 452927, 452518, 452110, 451702, 451294, 450887, 450481,
+    450074, 449668, 449262, 448857, 448452, 448048, 447644, 447240,
+    446836, 446433, 446030, 445628, 445226, 444824, 444423, 444022,
+    443622, 443221, 442821, 442422, 442023, 441624, 441226, 440828,
+    440430, 440033, 439636, 439239, 438843, 438447, 438051, 437656,
+    437261, 436867, 436473, 436079, 435686, 435293, 434900, 434508,
+    434116, 433724, 433333, 432942, 432551, 432161, 431771, 431382,
+    430992, 430604, 430215, 429827, 429439, 429052, 428665, 428278,
+    427892, 427506, 427120, 426735, 426350, 425965, 425581, 425197,
+    424813, 424430, 424047, 423665, 423283, 422901, 422519, 422138,
+    421757, 421377, 420997, 420617, 420237, 419858, 419479, 419101,
+    418723, 418345, 417968, 417591, 417214, 416838, 416462, 416086,
+    415711, 415336, 414961, 414586, 414212, 413839, 413465, 413092,
+    412720, 412347, 411975, 411604, 411232, 410862, 410491, 410121,
+    409751, 409381, 409012, 408643, 408274, 407906, 407538, 407170,
+    406803, 406436, 406069, 405703, 405337, 404971, 404606, 404241,
+    403876, 403512, 403148, 402784, 402421, 402058, 401695, 401333,
+    400970, 400609, 400247, 399886, 399525, 399165, 398805, 398445,
+    398086, 397727, 397368, 397009, 396651, 396293, 395936, 395579,
+    395222, 394865, 394509, 394153, 393798, 393442, 393087, 392733,
+    392378, 392024, 391671, 391317, 390964, 390612, 390259, 389907,
+    389556, 389204, 388853, 388502, 388152, 387802, 387452, 387102,
+    386753, 386404, 386056, 385707, 385359, 385012, 384664, 384317,
+    383971, 383624, 383278, 382932, 382587, 382242, 381897, 381552,
+    381208, 380864, 380521, 380177, 379834, 379492, 379149, 378807,
+
+    378466, 378124, 377783, 377442, 377102, 376762, 376422, 376082,
+    375743, 375404, 375065, 374727, 374389, 374051, 373714, 373377,
+    373040, 372703, 372367, 372031, 371695, 371360, 371025, 370690,
+    370356, 370022, 369688, 369355, 369021, 368688, 368356, 368023,
+    367691, 367360, 367028, 366697, 366366, 366036, 365706, 365376,
+    365046, 364717, 364388, 364059, 363731, 363403, 363075, 362747,
+    362420, 362093, 361766, 361440, 361114, 360788, 360463, 360137,
+    359813, 359488, 359164, 358840, 358516, 358193, 357869, 357547,
+    357224, 356902, 356580, 356258, 355937, 355616, 355295, 354974,
+    354654, 354334, 354014, 353695, 353376, 353057, 352739, 352420,
+    352103, 351785, 351468, 351150, 350834, 350517, 350201, 349885,
+    349569, 349254, 348939, 348624, 348310, 347995, 347682, 347368,
+    347055, 346741, 346429, 346116, 345804, 345492, 345180, 344869,
+    344558, 344247, 343936, 343626, 343316, 343006, 342697, 342388,
+    342079, 341770, 341462, 341154, 340846, 340539, 340231, 339924,
+    339618, 339311, 339005, 338700, 338394, 338089, 337784, 337479,
+    337175, 336870, 336566, 336263, 335959, 335656, 335354, 335051,
+    334749, 334447, 334145, 333844, 333542, 333242, 332941, 332641,
+    332341, 332041, 331741, 331442, 331143, 330844, 330546, 330247,
+    329950, 329652, 329355, 329057, 328761, 328464, 328168, 327872,
+    327576, 327280, 326985, 326690, 326395, 326101, 325807, 325513,
+    325219, 324926, 324633, 324340, 324047, 323755, 323463, 323171,
+    322879, 322588, 322297, 322006, 321716, 321426, 321136, 320846,
+    320557, 320267, 319978, 319690, 319401, 319113, 318825, 318538,
+    318250, 317963, 317676, 317390, 317103, 316817, 316532, 316246,
+    315961, 315676, 315391, 315106, 314822, 314538, 314254, 313971,
+    313688, 313405, 313122, 312839, 312557, 312275, 311994, 311712,
+    311431, 311150, 310869, 310589, 310309, 310029, 309749, 309470,
+    309190, 308911, 308633, 308354, 308076, 307798, 307521, 307243,
+    306966, 306689, 306412, 306136, 305860, 305584, 305308, 305033,
+    304758, 304483, 304208, 303934, 303659, 303385, 303112, 302838,
+    302565, 302292, 302019, 301747, 301475, 301203, 300931, 300660,
+    300388, 300117, 299847, 299576, 299306, 299036, 298766, 298497,
+    298227, 297958, 297689, 297421, 297153, 296884, 296617, 296349,
+    296082, 295815, 295548, 295281, 295015, 294749, 294483, 294217,
+    293952, 293686, 293421, 293157, 292892, 292628, 292364, 292100,
+    291837, 291574, 291311, 291048, 290785, 290523, 290261, 289999,
+    289737, 289476, 289215, 288954, 288693, 288433, 288173, 287913,
+    287653, 287393, 287134, 286875, 286616, 286358, 286099, 285841,
+    285583, 285326, 285068, 284811, 284554, 284298, 284041, 283785,
+    283529, 283273, 283017, 282762, 282507, 282252, 281998, 281743,
+    281489, 281235, 280981, 280728, 280475, 280222, 279969, 279716,
+    279464, 279212, 278960, 278708, 278457, 278206, 277955, 277704,
+    277453, 277203, 276953, 276703, 276453, 276204, 275955, 275706,
+    275457, 275209, 274960, 274712, 274465, 274217, 273970, 273722,
+    273476, 273229, 272982, 272736, 272490, 272244, 271999, 271753,
+    271508, 271263, 271018, 270774, 270530, 270286, 270042, 269798,
+    269555, 269312, 269069, 268826, 268583, 268341, 268099, 267857
+};
+
+#define LOGFAC 2*16
+
+static UWORD    logtab[104] =
+{LOGFAC * 907, LOGFAC * 900, LOGFAC * 894, LOGFAC * 887, LOGFAC * 881, LOGFAC * 875, LOGFAC * 868, LOGFAC * 862,
+    LOGFAC * 856, LOGFAC * 850, LOGFAC * 844, LOGFAC * 838, LOGFAC * 832, LOGFAC * 826, LOGFAC * 820, LOGFAC * 814,
+    LOGFAC * 808, LOGFAC * 802, LOGFAC * 796, LOGFAC * 791, LOGFAC * 785, LOGFAC * 779, LOGFAC * 774, LOGFAC * 768,
+    LOGFAC * 762, LOGFAC * 757, LOGFAC * 752, LOGFAC * 746, LOGFAC * 741, LOGFAC * 736, LOGFAC * 730, LOGFAC * 725,
+    LOGFAC * 720, LOGFAC * 715, LOGFAC * 709, LOGFAC * 704, LOGFAC * 699, LOGFAC * 694, LOGFAC * 689, LOGFAC * 684,
+    LOGFAC * 678, LOGFAC * 675, LOGFAC * 670, LOGFAC * 665, LOGFAC * 660, LOGFAC * 655, LOGFAC * 651, LOGFAC * 646,
+    LOGFAC * 640, LOGFAC * 636, LOGFAC * 632, LOGFAC * 628, LOGFAC * 623, LOGFAC * 619, LOGFAC * 614, LOGFAC * 610,
+    LOGFAC * 604, LOGFAC * 601, LOGFAC * 597, LOGFAC * 592, LOGFAC * 588, LOGFAC * 584, LOGFAC * 580, LOGFAC * 575,
+    LOGFAC * 570, LOGFAC * 567, LOGFAC * 563, LOGFAC * 559, LOGFAC * 555, LOGFAC * 551, LOGFAC * 547, LOGFAC * 543,
+    LOGFAC * 538, LOGFAC * 535, LOGFAC * 532, LOGFAC * 528, LOGFAC * 524, LOGFAC * 520, LOGFAC * 516, LOGFAC * 513,
+    LOGFAC * 508, LOGFAC * 505, LOGFAC * 502, LOGFAC * 498, LOGFAC * 494, LOGFAC * 491, LOGFAC * 487, LOGFAC * 484,
+    LOGFAC * 480, LOGFAC * 477, LOGFAC * 474, LOGFAC * 470, LOGFAC * 467, LOGFAC * 463, LOGFAC * 460, LOGFAC * 457,
+    LOGFAC * 453, LOGFAC * 450, LOGFAC * 447, LOGFAC * 443, LOGFAC * 440, LOGFAC * 437, LOGFAC * 434, LOGFAC * 431
+};
+
+static SBYTE    PanbrelloTable[256] =
+{0, 2, 3, 5, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
+    24, 26, 27, 29, 30, 32, 33, 34, 36, 37, 38, 39, 41, 42, 43, 44,
+    45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 56, 57, 58, 59,
+    59, 60, 60, 61, 61, 62, 62, 62, 63, 63, 63, 64, 64, 64, 64, 64,
+    64, 64, 64, 64, 64, 64, 63, 63, 63, 62, 62, 62, 61, 61, 60, 60,
+    59, 59, 58, 57, 56, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46,
+    45, 44, 43, 42, 41, 39, 38, 37, 36, 34, 33, 32, 30, 29, 27, 26,
+    24, 23, 22, 20, 19, 17, 16, 14, 12, 11, 9, 8, 6, 5, 3, 2,
+    0, -2, -3, -5, -6, -8, -9, -11, -12, -14, -16, -17, -19, -20, -22, -23,
+    -24, -26, -27, -29, -30, -32, -33, -34, -36, -37, -38, -39, -41, -42, -43, -44,
+    -45, -46, -47, -48, -49, -50, -51, -52, -53, -54, -55, -56, -56, -57, -58, -59,
+    -59, -60, -60, -61, -61, -62, -62, -62, -63, -63, -63, -64, -64, -64, -64, -64,
+    -64, -64, -64, -64, -64, -64, -63, -63, -63, -62, -62, -62, -61, -61, -60, -60,
+    -59, -59, -58, -57, -56, -56, -55, -54, -53, -52, -51, -50, -49, -48, -47, -46,
+    -45, -44, -43, -42, -41, -39, -38, -37, -36, -34, -33, -32, -30, -29, -27, -26,
+    -24, -23, -22, -20, -19, -17, -16, -14, -12, -11, -9, -8, -6, -5, -3, -2
+};
+
+
+/*
+ * New Note Action Scoring System: --------------------------------- 1)
+ * total-volume (fadevol, chanvol, volume) is the main scorer. 2) a looping
+ * sample is a bonus x2 3) a forground channel is a bonus x4 4) an active
+ * envelope with keyoff is a handicap -x2
+ */
+
+static int
+MP_FindEmptyChannel(int curchan)
+{				/* returns mp_control index of free channel */
+    MP_VOICE       *a;
+    ULONG           t, k, tvol, p, pp;
+
+    /*
+     * for(t=md_sngchn; t; t--, audpool++) {   if(audpool == md_sngchn)
+     * audpool = 0; if(!(pf->voice[audpool].kick) && Voice_Stopped(audpool))
+     * {   audpool++; return audpool-1; } }
+     */
+
+    for (t = 0; t < md_sngchn; t++) {
+	if (!(pf->voice[t].kick) && Voice_Stopped(t)) {
+	    return t;
+	}
+    }
+
+    tvol = 0xffffff UL;
+    t = 0;
+    p = 0;
+    a = pf->voice;
+    for (k = 0; k < md_sngchn; k++, a++) {
+	if (!a->kick) {
+	    pp = a->totalvol << ((a->s->flags & SF_LOOP) ? 1 : 0);
+	    if ((a->master != NULL) && (a == a->master->slave))
+		pp <<= 2;
+
+	    /*
+	     * if(a->volflg & EF_ON) {   if(a->volflg & (EF_SUSTAIN |
+	     * EF_LOOP)) {   if(a->keyoff & KEY_OFF) {   pp >>= 1;
+	     * if(a->venv.env[a->venv.end].val < 32) pp>>=1; } else pp <<= 1;
+	     * } else pp <<= 1; }
+	     */
+
+	    if (pp < tvol) {
+		tvol = pp;
+		t = k;
+	    }
+	}
+    }
+
+    if (tvol > (8000 * 7))
+	return -1;		/* mp_channel; */
+
+    return t;
+}
+
+
+static          SWORD
+Interpolate(SWORD p, SWORD p1, SWORD p2, SWORD v1, SWORD v2)
+{
+    SWORD           dp, dv, di;
+
+    if (p1 == p2)
+	return v1;
+
+    dv = v2 - v1;
+    dp = p2 - p1;
+    di = p - p1;
+
+    return v1 + ((SLONG) (di * dv) / dp);
+}
+
+
+UWORD
+getlinearperiod(UBYTE note, ULONG fine)
+{
+    return ((10L * 12 * 16 * 4) - ((ULONG) note * 16 * 4) - (fine / 2) + 64);
+}
+
+
+static          UWORD
+getlogperiod(UBYTE note, ULONG fine)
+{
+    UBYTE           n, o;
+    UWORD           p1, p2;
+    ULONG           i;
+
+    n = note % 12;
+    o = note / 12;
+    i = (n << 3) + (fine >> 4);	/* n*8 + fine/16 */
+
+    p1 = logtab[i];
+    p2 = logtab[i + 1];
+
+    return (Interpolate(fine / 16, 0, 15, p1, p2) >> o);
+}
+
+
+static          UWORD
+getoldperiod(UBYTE note, ULONG speed)
+{
+    UBYTE           n, o;
+    ULONG           period;
+
+    if (!speed)
+	return 4242;		/* <- prevent divide overflow.. (42 eheh) */
+
+    n = note % 12;
+    o = note / 12;
+    period = ((8363l * (ULONG) mytab[n]) >> o) / speed;
+    return period;
+}
+
+
+static          UWORD
+GetPeriod(UBYTE note, ULONG speed)
+{
+    if (pf->flags & UF_XMPERIODS) {
+		return (pf->flags & UF_LINEAR) ? 
+			getlinearperiod(note, speed) : getlogperiod(note, speed);
+	}
+	
+    return getoldperiod(note, speed);
+}
+
+
+static          SWORD
+InterpolateEnv(SWORD p, ENVPT * a, ENVPT * b)
+{
+    return (Interpolate(p, a->pos, b->pos, a->val, b->val));
+}
+
+
+static          SWORD
+DoPan(SWORD envpan, SWORD pan)
+{
+    return (pan + (((envpan - 128) * (128 - abs(pan - 128))) / 128));
+}
+
+
+static void
+StartEnvelope(ENVPR * t, UBYTE flg, UBYTE pts, UBYTE susbeg, UBYTE susend, UBYTE beg, UBYTE end, ENVPT * p, UBYTE keyoff)
+{
+    t->flg = flg;
+    t->pts = pts;
+    t->susbeg = susbeg;
+    t->susend = susend;
+    t->beg = beg;
+    t->end = end;
+    t->env = p;
+    t->p = 0;
+    t->a = 0;
+    t->b = ((t->flg & EF_SUSTAIN) && !(keyoff & KEY_OFF)) ? 0 : 1;
+}
+
+
+/*
+ * This procedure processes all envelope types, include volume, pitch, and
+ * panning.  Envelopes are defined by a set of points, each with a magnitude
+ * [relating either to volume, panniong position, or pitch modifier] and a
+ * tick position.
+ * 
+ * Envelopes work in the following manner:
+ * 
+ * (a) Each tick the envelope is moved a point further in its progression. 1.
+ * For an accurate progression, magnitudes between two envelope points are
+ * interpolated.
+ * 
+ * (b) When progression reaches a defined point on the envelope, values are
+ * shifted to interpolate between this point and the next, and checks for
+ * loops or envelope end are done.
+ * 
+ * Misc: Sustain loops are loops that are only active as long as the keyoff flag
+ * is clear.  When a volume envelope terminates, so does the current fadeout.
+ */
+static          SWORD
+ProcessEnvelope(ENVPR * t, SWORD v, UBYTE keyoff)
+{
+    if (t->flg & EF_ON) {
+	UBYTE           a, b;	/* actual points in the envelope */
+	UWORD           p;		/* the 'tick counter' - real point being
+							 * played */
+
+	a = t->a;
+	b = t->b;
+	p = t->p;
+
+	/* compute the current envelope value between points a and b */
+
+	if (a == b)
+	    v = t->env[a].val;
+	else
+	    v = InterpolateEnv(p, &t->env[a], &t->env[b]);
+
+	p++;
+
+	/* pointer reached point b? */
+
+	if (p >= t->env[b].pos) {
+	    a = b++;		/* shift points a and b */
+
+	    /* Check for loops, sustain loops, or end of envelope. */
+
+	    if ((t->flg & EF_SUSTAIN) && !(keyoff & KEY_OFF) && (b > t->susend)) {
+		a = t->susbeg;
+		if (t->susbeg == t->susend)
+		    b = a;
+		else
+		    b = a + 1;
+		p = t->env[a].pos;
+	    } else if ((t->flg & EF_LOOP) && (b > t->end)) {
+		a = t->beg;
+		if (t->beg == t->end)
+		    b = a;
+		else
+		    b = a + 1;
+		p = t->env[a].pos;
+	    } else {
+		if (b >= t->pts) {
+		    if ((t->flg & EF_VOLENV) && (mp_channel != -1)) {
+			pf->voice[mp_channel].keyoff |= KEY_FADE;
+			if (v == 0)
+			    pf->voice[mp_channel].fadevol = 0;
+		    }
+		    b--;
+		    p--;
+		}
+	    }
+	}
+	t->a = a;
+	t->b = b;
+	t->p = p;
+    }
+    return v;
+}
+
+
+/* XM linear period to frequency conversion */
+ULONG
+getfrequency(UBYTE flags, ULONG period)
+{
+    ULONG           result;
+
+    if (flags & UF_LINEAR)
+		result = lintab[period % 768] >> (period / 768);
+    else
+		result = (8363L * 1712L) / period;
+
+    return result;
+}
+
+
+static void
+DoEEffects(UBYTE dat)
+{
+    UBYTE           nib;
+
+    nib = dat & 0xf;
+
+    switch (dat >> 4) {
+    case 0x0:			/* filter toggle, not supported */
+		break;
+
+    case 0x1:			/* fineslide up */
+		if (!pf->vbtick)
+			a->tmpperiod -= (nib << 2);
+		break;
+
+    case 0x2:			/* fineslide dn */
+		if (!pf->vbtick)
+			a->tmpperiod += (nib << 2);
+		break;
+
+    case 0x3:			/* glissando ctrl */
+		a->glissando = nib;
+		break;
+
+    case 0x4:			/* set vibrato waveform */
+		a->wavecontrol &= 0xf0;
+		a->wavecontrol |= nib;
+		break;
+
+    case 0x5:			/* set finetune */
+		/* a->speed=finetune[nib]; */
+		/*
+		 * 
+		 * a->tmpperiod=GetPeriod(a->note,pf->samples[a->sample].transpose,a->
+		 * speed);
+		 */
+		break;
+
+    case 0x6:			/* set patternloop */
+		if (pf->vbtick)
+			break;
+		/*
+		 * hmm.. this one is a real kludge. But now it works
+		 */
+		if (nib) {		/* set reppos or repcnt ? set repcnt, so
+						 * check if repcnt already is set, which
+						 * means we are already looping */
+
+			if (pf->pat_repcnt > 0)
+				pf->pat_repcnt--;	/* already looping, decrease counter */
+			else
+				pf->pat_repcnt = nib;	/* not yet looping, so set repcnt */
+			
+			if (pf->pat_repcnt)	/* jump to reppos if repcnt>0 */
+				pf->patpos = pf->pat_reppos;
+		} else {
+			pf->pat_reppos = pf->patpos - 1;	/* set reppos */
+		}
+		break;
+
+    case 0x7:			/* set tremolo waveform */
+		a->wavecontrol &= 0x0f;
+		a->wavecontrol |= nib << 4;
+		break;
+
+    case 0x8:			/* set panning */
+		if (pf->panflag) {
+			if (nib <= 8)
+				nib *= 16;
+			else
+				nib *= 17;
+			a->panning = nib;
+			pf->panning[mp_channel] = nib;
+		}
+		break;
+
+    case 0x9:			/* retrig note */
+		/*
+		 * only retrigger if data nibble > 0
+		 */
+
+		if (nib > 0) {
+			if (a->retrig == 0) {	/* when retrig counter reaches 0,
+									 * reset counter and restart the
+									 * sample */
+				a->kick = 1;
+				a->retrig = nib;
+			}
+			a->retrig--;	/* countdown */
+		}
+		break;
+
+    case 0xa:			/* fine volume slide up */
+		if (pf->vbtick)
+			break;
+
+		a->tmpvolume += nib;
+		if (a->tmpvolume > 64)
+			a->tmpvolume = 64;
+		break;
+
+    case 0xb:			/* fine volume slide dn */
+		if (pf->vbtick)
+			break;
+
+		a->tmpvolume -= nib;
+		if (a->tmpvolume < 0)
+			a->tmpvolume = 0;
+		break;
+
+    case 0xc:			/* cut note */
+		/*
+		 * When pf->vbtick reaches the cut-note value, turn the volume to
+		 * zero ( Just like on the amiga)
+		 */
+		if (pf->vbtick >= nib)
+			a->tmpvolume = 0;	/* just turn the volume down */
+		break;
+
+    case 0xd:			/* note delay */
+		/*
+		 * delay the start of the sample until pf->vbtick==nib
+		 */
+		if (pf->vbtick == nib) {/* a->kick = 1; */
+			a->notedelay = 0;
+		} else if (pf->vbtick == 0) {	/* a->kick = 0; */
+			a->notedelay = 1;
+		}
+		break;
+
+    case 0xe:			/* pattern delay */
+		if (pf->vbtick)
+			break;
+		if (!pf->patdly2)
+			pf->patdly = nib + 1;	/* only once (when pf->vbtick = 0) */
+		break;
+
+    case 0xf:			/* invert loop, not supported  */
+		break;
+    }
+}
+
+
+static void
+DoVibrato(void)
+{
+    UBYTE           q;
+    UWORD           temp;
+
+    q = (a->vibpos >> 2) & 0x1f;
+
+    switch (a->wavecontrol & 3) {
+    case 0:			/* sine */
+		temp = VibratoTable[q];
+		break;
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		if (a->vibpos < 0)
+			q = 255 - q;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 255;
+		break;
+
+    case 3:			/* Evil random wave */
+		temp = rand() & 255;
+		break;
+    }
+
+    temp *= a->vibdepth;
+    temp >>= 7;
+    temp <<= 2;
+
+    if (a->vibpos >= 0)
+		a->period = a->tmpperiod + temp;
+    else
+		a->period = a->tmpperiod - temp;
+
+    if (pf->vbtick)
+		a->vibpos += a->vibspd;	/* do not update when pf->vbtick==0 */
+}
+
+
+static void
+DoTremolo(void)
+{
+    UBYTE           q;
+    UWORD           temp;
+
+    q = (a->trmpos >> 2) & 0x1f;
+
+    switch ((a->wavecontrol >> 4) & 3) {
+    case 0:			/* sine */
+		temp = VibratoTable[q];
+		break;
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		if (a->trmpos < 0)
+			q = 255 - q;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 255;
+		break;
+
+    case 3:			/* Evil random wave */
+		temp = rand() & 255;
+		break;
+    }
+
+    temp *= a->trmdepth;
+    temp >>= 6;
+
+    if (a->trmpos >= 0) {
+		a->volume = a->tmpvolume + temp;
+		if (a->volume > 64)
+			a->volume = 64;
+    } else {
+		a->volume = a->tmpvolume - temp;
+		if (a->volume < 0)
+			a->volume = 0;
+    }
+
+    if (pf->vbtick)
+		a->trmpos += a->trmspd;	/* do not update when pf->vbtick == 0 */
+}
+
+
+static void
+DoVolSlide(UBYTE dat)
+{
+    if (!pf->vbtick)
+		return;			/* do not update when pf->vbtick == 0 */
+
+    a->tmpvolume += dat >> 4;	/* volume slide */
+    a->tmpvolume -= dat & 0xf;
+    if (a->tmpvolume < 0)
+		a->tmpvolume = 0;
+    if (a->tmpvolume > 64)
+		a->tmpvolume = 64;
+}
+
+
+static void
+DoToneSlide(void)
+{
+    int             dist;
+
+    if (a->period == 0)
+		return;
+
+    if (!pf->vbtick) {
+		a->tmpperiod = a->period;
+		return;
+    }
+    /*
+     * We have to slide a->period towards a->wantedperiod, so compute the
+     * difference between those two values
+     */
+
+    dist = a->period - a->wantedperiod;
+
+    if (dist == 0 || a->portspeed > abs(dist))	/* if they are equal or if
+												 * portamentospeed is too big */
+		a->period = a->wantedperiod;	/* make tmpperiod equal tperiod */
+    else if (dist > 0)		/* dist > 0 ? */
+		a->period -= a->portspeed;	/* then slide up */
+    else
+		a->period += a->portspeed;	/* dist < 0 -> slide down */
+
+    a->tmpperiod = a->period;
+}
+
+
+static void
+DoPTEffect0(UBYTE dat)
+{
+    UBYTE           note;
+
+    note = a->note;
+
+    if (dat != 0) {
+		switch (pf->vbtick % 3) {
+		case 1:
+			note += (dat >> 4);
+			break;
+		case 2:
+			note += (dat & 0xf);
+			break;
+		}
+		a->period = GetPeriod(note, a->speed);
+		a->ownper = 1;
+    }
+}
+
+
+/*
+ * ----------------------------------------- --> ScreamTreacker 3 Specific
+ * Effects <-- -----------------------------------------
+ */
+static void
+DoS3MVolSlide(UBYTE inf)
+{
+    UBYTE           lo, hi;
+
+    if (inf)
+		a->s3mvolslide = inf;
+
+    inf = a->s3mvolslide;
+    lo = inf & 0xf;
+    hi = inf >> 4;
+
+    if (hi == 0)
+		a->tmpvolume -= lo;
+    else if (lo == 0)
+		a->tmpvolume += hi;
+    else if (hi == 0xf) {
+		if (!pf->vbtick)
+			a->tmpvolume -= lo;
+    } else if (lo == 0xf) {
+		if (!pf->vbtick)
+			a->tmpvolume += hi;
+    }
+    if (a->tmpvolume < 0)
+		a->tmpvolume = 0;
+    if (a->tmpvolume > 64)
+		a->tmpvolume = 64;
+}
+
+
+static void
+DoS3MSlideDn(UBYTE inf)
+{
+    UBYTE           hi, lo;
+
+    if (inf != 0)
+		a->slidespeed = inf;
+    else
+		inf = a->slidespeed;
+
+    hi = inf >> 4;
+    lo = inf & 0xf;
+
+    if (hi == 0xf) {
+		if (!pf->vbtick)
+			a->tmpperiod += (UWORD) lo << 2;
+    } else if (hi == 0xe) {
+		if (!pf->vbtick)
+			a->tmpperiod += lo;
+    } else {
+		if (pf->vbtick)
+			a->tmpperiod += (UWORD) inf << 2;
+    }
+}
+
+
+static void
+DoS3MSlideUp(UBYTE inf)
+{
+    UBYTE           hi, lo;
+
+    if (inf != 0)
+		a->slidespeed = inf;
+    else
+		inf = a->slidespeed;
+
+    hi = inf >> 4;
+    lo = inf & 0xf;
+
+    if (hi == 0xf) {
+		if (!pf->vbtick)
+			a->tmpperiod -= (UWORD) lo << 2;
+    } else if (hi == 0xe) {
+		if (!pf->vbtick)
+			a->tmpperiod -= lo;
+    } else {
+		if (pf->vbtick)
+			a->tmpperiod -= (UWORD) inf << 2;
+    }
+}
+
+
+static void
+DoS3MTremor(UBYTE inf)
+{
+    UBYTE           on, off;
+
+    if (inf != 0)
+		a->s3mtronof = inf;
+    else
+		inf = a->s3mtronof;
+
+    if (!pf->vbtick)
+		return;
+
+    on = (inf >> 4) + 1;
+    off = (inf & 0xf) + 1;
+
+    a->s3mtremor %= (on + off);
+    a->volume = (a->s3mtremor < on) ? a->tmpvolume : 0;
+    a->s3mtremor++;
+}
+
+
+static void
+DoS3MRetrig(UBYTE inf)
+{
+    UBYTE           hi, lo;
+
+    hi = inf >> 4;
+    lo = inf & 0xf;
+
+    if (inf) {
+		a->s3mrtgslide = hi;
+		a->s3mrtgspeed = lo;
+    }
+    /*
+     * only retrigger if lo nibble > 0
+     */
+
+    if (a->s3mrtgspeed > 0) {
+		if (a->retrig == 0) {	/* when retrig counter reaches 0, reset
+								 * counter and restart the sample */
+
+			if (!a->kick)
+				a->kick = 2;
+			a->retrig = a->s3mrtgspeed;
+
+			if (pf->vbtick) {	/* don't slide on first retrig */
+				switch (a->s3mrtgslide) {
+				case 1:
+				case 2:
+				case 3:
+				case 4:
+				case 5:
+					a->tmpvolume -= (1 << (a->s3mrtgslide - 1));
+					break;
+
+				case 6:
+					a->tmpvolume = (2 * a->tmpvolume) / 3;
+					break;
+
+				case 7:
+					a->tmpvolume = a->tmpvolume >> 1;
+					break;
+
+				case 9:
+				case 0xa:
+				case 0xb:
+				case 0xc:
+				case 0xd:
+					a->tmpvolume += (1 << (a->s3mrtgslide - 9));
+					break;
+
+				case 0xe:
+					a->tmpvolume = (3 * a->tmpvolume) / 2;
+					break;
+
+				case 0xf:
+					a->tmpvolume = a->tmpvolume << 1;
+					break;
+				}
+				if (a->tmpvolume < 0)
+					a->tmpvolume = 0;
+				if (a->tmpvolume > 64)
+					a->tmpvolume = 64;
+			}
+		}
+		a->retrig--;		/* countdown */
+    }
+}
+
+
+static void
+DoS3MSpeed(UBYTE speed)
+{
+    if (pf->vbtick || pf->patdly2)
+		return;
+
+    if (speed) {
+		pf->sngspd = speed;
+		pf->vbtick = 0;
+    }
+}
+
+
+static void
+DoS3MTempo(UBYTE tempo)
+{
+    if (pf->vbtick || pf->patdly2)
+		return;
+    pf->bpm = tempo;
+}
+
+
+static void
+DoS3MFineVibrato(void)
+{
+    UBYTE           q;
+    UWORD           temp;
+
+    q = (a->vibpos >> 2) & 0x1f;
+
+    switch (a->wavecontrol & 3) {
+    case 0:			/* sine */
+		temp = VibratoTable[q];
+		break;
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		if (a->vibpos < 0)
+			q = 255 - q;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 255;
+		break;
+
+    case 3:			/* evil random */
+		temp = rand() & 255;	/* (range 0 to 255) */
+    }
+
+    temp *= a->vibdepth;
+    temp >>= 8;
+
+    if (a->vibpos >= 0)
+		a->period = a->tmpperiod + temp;
+    else
+		a->period = a->tmpperiod - temp;
+
+    a->vibpos += a->vibspd;
+}
+
+
+static void
+DoS3MTremolo(void)
+{
+    UBYTE           q;
+    UWORD           temp;
+
+    q = (a->trmpos >> 2) & 0x1f;
+
+    switch ((a->wavecontrol >> 4) & 3) {
+    case 0:			/* sine */
+		temp = VibratoTable[q];
+		break;
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		if (a->trmpos < 0)
+			q = 255 - q;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 255;
+		break;
+
+    case 3:			/* evil random */
+		temp = rand() & 255;	/* (range 0 to 255) */
+    }
+
+    temp *= a->trmdepth;
+    temp >>= 7;
+
+    if (a->trmpos >= 0) {
+		a->volume = a->tmpvolume + temp;
+		if (a->volume > 64)
+			a->volume = 64;
+    } else {
+		a->volume = a->tmpvolume - temp;
+		if (a->volume < 0)
+			a->volume = 0;
+    }
+
+    if (pf->vbtick)
+		a->trmpos += a->trmspd;	/* do not update when pf->vbtick == 0 */
+}
+
+
+/*
+ * -------------------------------------- --> FastTracker 2 Specific Effects
+ * <-- --------------------------------------
+ */
+static void
+DoXMVolSlide(UBYTE inf)
+{
+    UBYTE           lo, hi;
+
+    if (inf)
+		a->s3mvolslide = inf;
+
+    inf = a->s3mvolslide;
+    if (!pf->vbtick)
+		return;
+
+    lo = inf & 0xf;
+    hi = inf >> 4;
+
+    if (hi == 0)
+		a->tmpvolume -= lo;
+    else
+		a->tmpvolume += hi;
+
+    if (a->tmpvolume < 0)
+		a->tmpvolume = 0;
+    else if (a->tmpvolume > 64)
+		a->tmpvolume = 64;
+}
+
+
+static void
+DoXMGlobalSlide(UBYTE inf)
+{
+    if (pf->vbtick) {
+		if (inf)
+			pf->globalslide = inf;
+		else
+			inf = pf->globalslide;
+		if (inf & 0xf0)
+			inf &= 0xf0;
+		pf->volume = pf->volume + ((inf >> 4) - (inf & 0xf)) * 2;
+
+		if (pf->volume < 0)
+			pf->volume = 0;
+		else if (pf->volume > 128)
+			pf->volume = 128;
+    }
+}
+
+
+static void
+DoXMPanSlide(UBYTE inf)
+{
+    UBYTE           lo, hi;
+    SWORD           pan;
+
+
+    if (inf != 0)
+		a->pansspd = inf;
+    else
+		inf = a->pansspd;
+
+    if (!pf->vbtick)
+		return;
+
+    lo = inf & 0xf;
+    hi = inf >> 4;
+
+    /* slide right has absolute priority: */
+
+    if (hi)
+		lo = 0;
+
+    pan = (a->panning == PAN_SURROUND) ? 128 : a->panning;
+
+    pan -= lo;
+    pan += hi;
+
+    if (pan < 0)
+		pan = 0;
+    if (pan > 255)
+		pan = 255;
+
+    a->panning = pan;
+}
+
+
+static void
+DoXMExtraFineSlideUp(UBYTE inf)
+{
+    if (!pf->vbtick) {
+		if (inf)
+			a->ffportupspd = inf;
+		else
+			inf = a->ffportupspd;
+		a->period -= inf;
+    }
+    a->tmpperiod = a->period;
+}
+
+
+static void
+DoXMExtraFineSlideDown(UBYTE inf)
+{
+    if (!pf->vbtick) {
+		if (inf)
+			a->ffportdnspd = inf;
+		else
+			inf = a->ffportdnspd;
+		a->period += inf;
+    }
+    a->tmpperiod = a->period;
+}
+
+
+/*
+ * --------------------------------------- --> ImpulseTracker Player
+ * Functions <-- ---------------------------------------
+ */
+static void
+DoITChanVolSlide(UBYTE inf)
+{
+    UBYTE           lo, hi;
+
+    if (inf)
+		a->chanvolslide = inf;
+    inf = a->chanvolslide;
+
+    lo = inf & 0xf;
+    hi = inf >> 4;
+
+    if (hi == 0) {
+		a->chanvol -= lo;
+    } else if (lo == 0) {
+		a->chanvol += hi;
+    } else if (hi == 0xf) {
+		if (!pf->vbtick)
+			a->chanvol -= lo;
+    } else if (lo == 0xf) {
+		if (!pf->vbtick)
+			a->chanvol += hi;
+    }
+    if (a->chanvol < 0)
+		a->chanvol = 0;
+    if (a->chanvol > 64)
+		a->chanvol = 64;
+}
+
+
+static void
+DoITGlobalSlide(UBYTE inf)
+{
+    UBYTE           lo, hi;
+
+    if (inf)
+		pf->globalslide = inf;
+    inf = pf->globalslide;
+
+    lo = inf & 0xf;
+    hi = inf >> 4;
+
+    if (lo == 0) {
+		pf->volume += hi;
+    } else if (hi == 0) {
+		pf->volume -= lo;
+    } else if (lo == 0xf) {
+		if (!pf->vbtick)
+			pf->volume += hi;
+    } else if (hi == 0xf) {
+		if (!pf->vbtick)
+			pf->volume -= lo;
+    }
+    if (pf->volume < 0)
+		pf->volume = 0;
+    if (pf->volume > 128)
+		pf->volume = 128;
+}
+
+
+static void
+DoITPanSlide(UBYTE inf)
+{
+    UBYTE           lo, hi;
+    SWORD           pan;
+
+    if (inf)
+		a->pansspd = inf;
+    inf = a->pansspd;
+
+    lo = inf & 0xf;
+    hi = inf >> 4;
+
+    pan = (a->panning == PAN_SURROUND) ? 128 : a->panning;
+
+    if (hi == 0) {
+		pan += lo << 2;
+    } else if (lo == 0) {
+		pan -= hi << 2;
+    } else if (hi == 0xf) {
+		if (!pf->vbtick)
+			pan += lo << 2;
+    } else if (lo == 0xf) {
+		if (!pf->vbtick)
+			pan -= hi << 2;
+    }
+    if (pan > 255)
+		pan = 255;
+    if (pan < 0)
+		pan = 0;
+    a->panning = /* pf->panning[mp_channel] = */ pan;
+}
+
+
+static void
+DoITVibrato(void)
+{
+    UBYTE           q;
+    UWORD           temp;
+
+    q = (a->vibpos >> 2) & 0x1f;
+
+    switch (a->wavecontrol & 3) {
+    case 0:			/* sine */
+		temp = VibratoTable[q];
+		break;
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		if (a->vibpos < 0)
+			q = 255 - q;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 255;
+		break;
+
+    case 3:			/* evil random */
+		temp = rand() & 255;	/* (range 0 to 255) */
+		break;
+    }
+
+    temp *= a->vibdepth;
+    temp >>= 8;
+    temp <<= 2;
+
+    if (a->vibpos >= 0)
+		a->period = a->tmpperiod + temp;
+    else
+		a->period = a->tmpperiod - temp;
+
+    a->vibpos += a->vibspd;
+}
+
+
+static void
+DoITFineVibrato(void)
+{
+    UBYTE           q;
+    UWORD           temp;
+
+    q = (a->vibpos >> 2) & 0x1f;
+
+    switch (a->wavecontrol & 3) {
+    case 0:			/* sine */
+		temp = VibratoTable[q];
+		break;
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		if (a->vibpos < 0)
+			q = 255 - q;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 255;
+		break;
+
+    case 3:			/* evil random */
+		temp = rand() & 255;	/* (range 0 to 255) */
+		break;
+    }
+
+    temp *= a->vibdepth;
+    temp >>= 8;
+
+    if (a->vibpos >= 0)
+		a->period = a->tmpperiod + temp;
+    else
+		a->period = a->tmpperiod - temp;
+
+    a->vibpos += a->vibspd;
+}
+
+
+static void
+DoITTremor(UBYTE inf)
+{
+    UBYTE           on, off;
+
+    if (inf != 0)
+		a->s3mtronof = inf;
+    else
+		inf = a->s3mtronof;
+
+    if (!pf->vbtick)
+		return;
+
+    on = (inf >> 4);
+    off = (inf & 0xf);
+
+    a->s3mtremor %= (on + off);
+    a->volume = (a->s3mtremor < on) ? a->tmpvolume : 0;
+    a->s3mtremor++;
+}
+
+
+static void
+DoITPanbrello(void)
+{
+    UBYTE           q;
+    static SLONG    temp;
+
+    q = a->panbpos;
+
+    switch (a->panbwave) {
+    case 0:			/* sine */
+		temp = PanbrelloTable[q];
+		break;
+
+		/* only sinewave is correctly supported right now */
+
+    case 1:			/* ramp down */
+		q <<= 3;
+		temp = q;
+		break;
+
+    case 2:			/* square wave */
+		temp = 64;
+		break;
+
+    case 3:			/* evil random */
+		if (a->panbpos >= a->panbspd) {
+			a->panbpos = 0;
+			temp = rand() & 255;
+		}
+    }
+
+    temp *= a->panbdepth;
+    temp /= 8;
+
+    a->panning = pf->panning[mp_channel] + temp;
+    a->panbpos += a->panbspd;
+}
+
+
+static void
+DoITToneSlide(void)
+{
+    int             dist;
+
+    if (a->period == 0)
+		return;
+
+    if (!pf->vbtick) {
+		a->tmpperiod = a->period;
+		return;
+    }
+    /*
+     * We have to slide a->period towards a->wantedperiod, compute the
+     * difference between those two values
+     */
+
+    dist = a->period - a->wantedperiod;
+
+    if ((dist == 0) ||		/* if they are equal */
+		((a->slidespeed << 2) > abs(dist))) {	/* or if portamentospeed is
+												 * too big */
+		a->period = a->wantedperiod;	/* make tmpperiod equal tperiod */
+    } else if (dist > 0) {	/* dist > 0 ? */
+		a->period -= a->slidespeed << 2;	/* then slide up */
+    } else {
+		a->period += a->slidespeed << 2;	/* dist<0 -> slide down */
+    }
+    a->tmpperiod = a->period;
+}
+
+
+/*
+ * Impulse/Scream Tracker Sxx effects. All Sxx effects share the same memory
+ * space.
+ */
+static void
+DoSSEffects(UBYTE dat)
+{
+    UBYTE           inf, c;
+
+    inf = dat & 0xf;
+    c = dat >> 4;
+
+    if (dat == 0) {
+		c = a->sseffect;
+		inf = a->ssdata;
+    } else {
+		a->sseffect = c;
+		a->ssdata = inf;
+    }
+
+    switch (c) {
+    case SS_GLISSANDO:		/* S1x set glissando voice */
+		DoEEffects(0x30 | inf);
+		break;
+
+    case SS_FINETUNE:		/* S2x set finetune */
+		DoEEffects(0x50 | inf);
+		break;
+
+    case SS_VIBWAVE:		/* S3x set vibrato waveform */
+		DoEEffects(0x40 | inf);
+		break;
+
+    case SS_TREMWAVE:		/* S4x set tremolo waveform */
+		DoEEffects(0x70 | inf);
+		break;
+
+    case SS_PANWAVE:		/* The Satanic Panbrello waveform */
+		a->panbwave = (UniGetByte());
+		break;
+
+    case SS_FRAMEDELAY:	/* S6x Delay x number of frames (patdly) */
+		DoEEffects(0xe0 | inf);
+		break;
+
+    case SS_S7EFFECTS:		/* S7x Instrument / NNA commands */
+		DoNNAEffects(UniGetByte());
+		break;
+
+    case SS_PANNING:		/* S8x set panning position */
+		DoEEffects(0x80 | inf);
+		break;
+
+    case SS_SURROUND:		/* S9x Set Surround Sound */
+		a->panning = pf->panning[mp_channel] = PAN_SURROUND;
+		break;
+
+    case SS_HIOFFSET:		/* SAy Set high order sample offset yxx00h */
+		a->hioffset |= UniGetByte() << 16;
+		break;
+
+    case SS_PATLOOP:		/* SBx pattern loop */
+		DoEEffects(0x60 | inf);
+		break;
+
+    case SS_NOTECUT:		/* SCx notecut */
+		DoEEffects(0xC0 | inf);
+		break;
+
+    case SS_NOTEDELAY:		/* SDx notedelay */
+		DoEEffects(0xD0 | inf);
+		break;
+
+    case SS_PATDELAY:		/* SEx patterndelay */
+		DoEEffects(0xE0 | inf);
+		break;
+    }
+}
+
+
+/*
+ * Impulse Tracker Volume/Pan Column effects. All volume/pan column effects
+ * share the same memory space.
+ */
+static void
+DoVolEffects(UBYTE c)
+{
+    UBYTE           inf;
+
+    inf = UniGetByte();
+
+    if (c == 0 && inf == 0) {
+		c = a->voleffect;
+		inf = a->voldata;
+    } else {
+		a->voleffect = c;
+		a->voldata = inf;
+    }
+
+    switch (c) {
+    case 0:
+		break;			/* do nothing */
+    case VOL_VOLUME:
+		if (pf->vbtick)
+			break;
+		if (inf > 64)
+			inf = 64;
+		a->tmpvolume = inf;
+		break;
+
+    case VOL_PANNING:
+		if (pf->panflag) {
+			a->panning = inf;
+			pf->panning[mp_channel] = inf;
+		}
+		break;
+
+    case VOL_VOLSLIDE:
+		DoS3MVolSlide(inf);
+		break;
+
+    case VOL_PITCHSLIDEDN:
+		DoS3MSlideDn(UniGetByte());
+		break;
+
+    case VOL_PITCHSLIDEUP:
+		DoS3MSlideUp(UniGetByte());
+		break;
+
+    case VOL_PORTAMENTO:
+		if (inf != 0)
+			a->slidespeed = inf;
+
+		if (a->period != 0) {
+			if (!(pf->vbtick == pf->sngspd - 1) && (a->newsamp)) {
+				a->kick = 1;
+				a->start = -1;
+				/* a->period *= a->speed * a->newsamp; */
+			} else
+				a->kick = 0;
+
+			DoITToneSlide();
+			a->ownper = 1;
+		}
+		break;
+
+    case VOL_VIBRATO:
+		if (inf & 0x0f)
+			a->vibdepth = inf & 0xf;
+		if (inf & 0xf0)
+			a->vibspd = (inf & 0xf0) >> 2;
+		DoITVibrato();
+		a->ownper = 1;
+		break;
+    }
+}
+
+
+
+/*
+ * -------------------------------- --> General Player Functions <--
+ * --------------------------------
+ */
+static void
+pt_playeffects(void)
+{
+    UBYTE           dat, c;
+
+    while (c = UniGetByte())
+		switch (c) {
+		case UNI_NOTE:
+		case UNI_INSTRUMENT:
+			UniSkipOpcode(c);
+			break;
+
+		case UNI_PTEFFECT0:
+			DoPTEffect0(UniGetByte());
+			break;
+
+		case UNI_PTEFFECT1:
+			dat = UniGetByte();
+			if (dat != 0)
+				a->slidespeed = (UWORD) dat << 2;
+			if (pf->vbtick)
+				a->tmpperiod -= a->slidespeed;
+			break;
+
+		case UNI_PTEFFECT2:
+			dat = UniGetByte();
+			if (dat != 0)
+				a->slidespeed = (UWORD) dat << 2;
+			if (pf->vbtick)
+				a->tmpperiod += a->slidespeed;
+			break;
+
+		case UNI_PTEFFECT3:
+			dat = UniGetByte();
+
+			if (dat != 0) {
+				a->portspeed = dat;
+				a->portspeed <<= 2;
+			}
+			if (a->period != 0) {
+				a->kick = 0;	/* temp XM fix */
+				DoToneSlide();
+				a->ownper = 1;
+			}
+			break;
+
+		case UNI_PTEFFECT4:
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->vibdepth = dat & 0xf;
+			if (dat & 0xf0)
+				a->vibspd = (dat & 0xf0) >> 2;
+			DoVibrato();
+			a->ownper = 1;
+			break;
+
+		case UNI_PTEFFECT5:
+			dat = UniGetByte();
+			a->kick = 0;
+			DoToneSlide();
+			DoVolSlide(dat);
+			a->ownper = 1;
+			break;
+
+		case UNI_PTEFFECT6:
+			dat = UniGetByte();
+			DoVibrato();
+			DoVolSlide(dat);
+			a->ownper = 1;
+			break;
+
+		case UNI_PTEFFECT7:
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->trmdepth = dat & 0xf;
+			if (dat & 0xf0)
+				a->trmspd = (dat & 0xf0) >> 2;
+			DoTremolo();
+			a->ownvol = 1;
+			break;
+
+		case UNI_PTEFFECT8:
+			dat = UniGetByte();
+			if (pf->panflag) {
+				a->panning = dat;
+				pf->panning[mp_channel] = dat;
+			}
+			break;
+
+		case UNI_PTEFFECT9:
+			dat = UniGetByte();
+			if (dat)
+				a->soffset = (UWORD) dat << 8;
+			a->start = a->hioffset | a->soffset;
+			if ((a->s != NULL) && (a->start > a->s->length))
+				a->start = a->s->loopstart;
+			break;
+
+		case UNI_PTEFFECTA:
+			DoVolSlide(UniGetByte());
+			break;
+
+		case UNI_PTEFFECTB:
+			dat = UniGetByte();
+			if (pf->patdly2)
+				break;
+			pf->patbrk = 0;
+			pf->sngpos = dat - 1;
+			pf->posjmp = 3;
+			break;
+
+		case UNI_PTEFFECTC:
+			dat = UniGetByte();
+			if (pf->vbtick)
+				break;
+			if (dat > 64)
+				dat = 64;
+			a->tmpvolume = dat;
+			break;
+
+		case UNI_PTEFFECTD:
+			dat = UniGetByte();
+			if (pf->patdly2)
+				break;
+			pf->patbrk = dat;
+			if (pf->patbrk > pf->pattrows[mp_channel])
+				pf->patbrk = pf->pattrows[mp_channel];
+			pf->posjmp = 3;
+			break;
+
+		case UNI_PTEFFECTE:
+			DoEEffects(UniGetByte());
+			break;
+
+		case UNI_PTEFFECTF:
+			dat = UniGetByte();
+
+			if (pf->vbtick || pf->patdly2)
+				break;
+
+			if (pf->extspd && (dat >= 0x20))
+				pf->bpm = dat;
+			else {
+				if (dat) {
+					pf->sngspd = dat;
+					pf->vbtick = 0;
+				}
+			}
+			break;
+
+		case UNI_S3MEFFECTA:
+			DoS3MSpeed(UniGetByte());
+			break;
+
+		case UNI_S3MEFFECTD:
+			DoS3MVolSlide(UniGetByte());
+			break;
+
+		case UNI_S3MEFFECTE:
+			DoS3MSlideDn(UniGetByte());
+			break;
+
+		case UNI_S3MEFFECTF:
+			DoS3MSlideUp(UniGetByte());
+			break;
+
+		case UNI_S3MEFFECTI:
+			DoS3MTremor(UniGetByte());
+			a->ownvol = 1;
+			break;
+
+		case UNI_S3MEFFECTQ:
+			DoS3MRetrig(UniGetByte());
+			break;
+
+		case UNI_S3MEFFECTR:
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->trmdepth = dat & 0xf;
+			if (dat & 0xf0)
+				a->trmspd = (dat & 0xf0) >> 2;
+			DoS3MTremolo();
+			a->ownvol = 1;
+			break;
+
+		case UNI_S3MEFFECTT:
+			DoS3MTempo(UniGetByte());
+			break;
+
+		case UNI_S3MEFFECTU:
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->vibdepth = dat & 0xf;
+			if (dat & 0xf0)
+				a->vibspd = (dat & 0xf0) >> 2;
+			DoS3MFineVibrato();
+			a->ownper = 1;
+			break;
+
+		case UNI_KEYOFF:
+			a->keyoff |= KEY_OFF;
+			if (a->i != NULL) {
+				if (!(a->i->volflg & EF_ON) || (a->i->volflg & EF_LOOP))
+					a->keyoff = KEY_KILL;
+			}
+			break;
+
+		case UNI_KEYFADE:
+			if (pf->vbtick >= UniGetByte()) {
+				a->keyoff = KEY_KILL;
+				if ((a->i != NULL) && !(a->i->volflg & EF_ON))
+					a->fadevol = 0;
+			}
+			break;
+
+		case UNI_VOLEFFECTS:
+			DoVolEffects(UniGetByte());
+			break;
+
+		case UNI_XMEFFECT4:
+			dat = UniGetByte();
+			if (pf->vbtick) {
+				if (dat & 0x0f)
+					a->vibdepth = dat & 0xf;
+				if (dat & 0xf0)
+					a->vibspd = (dat & 0xf0) >> 2;
+			}
+			DoVibrato();
+			a->ownper = 1;
+			break;
+
+		case UNI_XMEFFECTA:
+			DoXMVolSlide(UniGetByte());
+			break;
+
+		case UNI_XMEFFECTE1:	/* xm fineslide up */
+			dat = UniGetByte();
+			if (!pf->vbtick) {
+				if (dat)
+					a->fportupspd = dat;
+				else
+					dat = a->fportupspd;
+				a->tmpperiod -= (dat << 2);
+			}
+			break;
+
+		case UNI_XMEFFECTE2:	/* xm fineslide dn */
+			dat = UniGetByte();
+			if (!pf->vbtick) {
+				if (dat)
+					a->fportdnspd = dat;
+				else
+					dat = a->fportdnspd;
+				a->tmpperiod += (dat << 2);
+			}
+			break;
+
+		case UNI_XMEFFECTEA:	/* fine volume slide up */
+			dat = UniGetByte();
+			if (pf->vbtick)
+				break;
+			if (dat)
+				a->fslideupspd = dat;
+			else
+				dat = a->fslideupspd;
+			a->tmpvolume += dat;
+			if (a->tmpvolume > 64)
+				a->tmpvolume = 64;
+			break;
+
+		case UNI_XMEFFECTEB:	/* fine volume slide dn */
+			dat = UniGetByte();
+			if (pf->vbtick)
+				break;
+			if (dat)
+				a->fslidednspd = dat;
+			else
+				dat = a->fslidednspd;
+			a->tmpvolume -= dat;
+			if (a->tmpvolume < 0)
+				a->tmpvolume = 0;
+			break;
+
+		case UNI_XMEFFECTG:
+			pf->volume = UniGetByte();
+			break;
+
+		case UNI_XMEFFECTH:
+			DoXMGlobalSlide(UniGetByte());
+			break;
+
+		case UNI_XMEFFECTL:
+			dat = UniGetByte();
+			if (!pf->vbtick && a->i != NULL) {
+				UWORD           points;
+				INSTRUMENT     *i = a->i;
+				MP_VOICE       *aout;
+
+				if ((aout = a->slave) != NULL) {
+					points = i->volenv[i->volpts - 1].pos;
+					aout->venv.p = aout->venv.env[(dat > points) ? points : dat].pos;
+
+					points = i->panenv[i->panpts - 1].pos;
+					aout->penv.p = aout->penv.env[(dat > points) ? points : dat].pos;
+				}
+			}
+			break;
+
+		case UNI_XMEFFECTP:
+			DoXMPanSlide(UniGetByte());
+			break;
+
+		case UNI_XMEFFECTX1:
+			DoXMExtraFineSlideUp(UniGetByte());
+			a->ownper = 1;
+			break;
+
+		case UNI_XMEFFECTX2:
+			DoXMExtraFineSlideDown(UniGetByte());
+			a->ownper = 1;
+			break;
+
+		case UNI_ITEFFECTG:
+			dat = UniGetByte();
+			if (dat != 0)
+				a->slidespeed = dat;
+
+			if (a->period != 0) {
+				if ((pf->vbtick < 1) && (a->newsamp)) {
+					a->kick = 1;
+					a->start = -1;
+					/* a->period *= a->speed * a->newsamp; */
+				} else
+					a->kick = 0;
+
+				DoITToneSlide();
+				a->ownper = 1;
+			}
+			break;
+
+		case UNI_ITEFFECTH:	/* it vibrato */
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->vibdepth = dat & 0xf;
+			if (dat & 0xf0)
+				a->vibspd = (dat & 0xf0) >> 2;
+			DoITVibrato();
+			a->ownper = 1;
+			break;
+
+		case UNI_ITEFFECTI:	/* it tremor */
+			DoITTremor(UniGetByte());
+			a->ownvol = 1;
+			break;
+
+		case UNI_ITEFFECTM:
+			a->chanvol = UniGetByte();
+			if (a->chanvol > 64)
+				a->chanvol = 64;
+			else if (a->chanvol < 0)
+				a->chanvol = 0;
+			break;
+
+		case UNI_ITEFFECTN:	/* Slide / Fineslide Channel Volume */
+			DoITChanVolSlide(UniGetByte());
+			break;
+
+		case UNI_ITEFFECTP:	/* slide / fineslide channel panning */
+			DoITPanSlide(UniGetByte());
+			break;
+
+		case UNI_ITEFFECTU:	/* fine vibrato */
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->vibdepth = dat & 0xf;
+			if (dat & 0xf0)
+				a->vibspd = (dat & 0xf0) >> 2;
+			DoITFineVibrato();
+			a->ownper = 1;
+			break;
+
+		case UNI_ITEFFECTW:	/* Slide / Fineslide Global volume */
+			DoITGlobalSlide(UniGetByte());
+			break;
+
+		case UNI_ITEFFECTY:	/* The Satanic Panbrello */
+			dat = UniGetByte();
+			if (dat & 0x0f)
+				a->panbdepth = (dat & 0xf);
+			if (dat & 0xf0)
+				a->panbspd = (dat & 0xf0) >> 4;
+			DoITPanbrello();
+			break;
+
+		case UNI_ITEFFECTS0:
+			DoSSEffects(UniGetByte());
+			break;
+
+		default:
+			UniSkipOpcode(c);
+			break;
+		}
+}
+
+
+static void
+DoNNAEffects(UBYTE dat)
+{
+    int             t;
+    MP_VOICE       *aout;
+
+    dat &= 0xf;
+    aout = (a->slave == NULL) ? &aout_dummy : a->slave;
+
+    switch (dat) {
+    case 0x0:			/* Past note cut */
+		for (t = 0; t < md_sngchn; t++)
+			if (pf->voice[t].master == a)
+				pf->voice[t].fadevol = 0;
+		break;
+
+    case 0x1:			/* Past note off */
+		for (t = 0; t < md_sngchn; t++)
+			if (pf->voice[t].master == a) {
+				pf->voice[t].keyoff |= KEY_OFF;
+				if (!(pf->voice[t].venv.flg & EF_ON))
+					pf->voice[t].keyoff = KEY_KILL;
+			}
+		break;
+
+    case 0x2:			/* Past note fade */
+		for (t = 0; t < md_sngchn; t++)
+			if (pf->voice[t].master == a)
+				pf->voice[t].keyoff |= KEY_FADE;
+		break;
+
+    case 0x3:			/* set NNA note cut */
+		a->nna = (a->nna & ~0x3f) | NNA_CUT;
+		break;
+
+    case 0x4:			/* set NNA note continue */
+		a->nna = (a->nna & ~0x3f) | NNA_CONTINUE;
+		break;
+
+    case 0x5:			/* set NNA note off */
+		a->nna = (a->nna & ~0x3f) | NNA_OFF;
+		break;
+
+    case 0x6:			/* set NNA note fade */
+		a->nna = (a->nna & ~0x3f) | NNA_FADE;
+		break;
+
+    case 0x7:			/* disable volume envelope */
+		aout->volflg &= ~EF_ON;
+		break;
+
+    case 0x8:			/* enable volume envelope */
+		aout->volflg |= EF_ON;
+		break;
+
+    case 0x9:			/* disable panning envelope */
+		aout->panflg &= ~EF_ON;
+		break;
+
+    case 0xa:			/* enable panning envelope */
+		aout->panflg |= EF_ON;
+		break;
+
+    case 0xb:			/* disable pitch envelope */
+		aout->pitflg &= ~EF_ON;
+		break;
+
+    case 0xc:			/* enable pitch envelope */
+		aout->pitflg |= EF_ON;
+		break;
+    }
+}
+
+
+void
+Player_HandleTick(void)
+{
+    MP_VOICE       *aout;	/* current audout (slave of audtmp) it's
+							 * working on */
+    int             t, tr, t2, k;
+    ULONG           tmpvol, period;
+    UBYTE           c;
+    BOOL            funky;
+    SAMPLE         *s;
+    INSTRUMENT     *i;
+
+    if (isfirst) {		/* don't handle the very first ticks, this
+						 * allows the other hardware to settle down
+						 * so we don't loose any starting notes */
+		isfirst--;
+		return;
+    }
+    if (pf == NULL || pf->forbid)
+		return;
+
+    if (++pf->vbtick >= pf->sngspd) {
+		pf->patpos++;
+		pf->vbtick = 0;
+
+		/*
+		 * process pattern-delay.  pf->patdly2 is the counter and pf->patdly
+		 * is the command memory.
+		 */
+
+		if (pf->patdly) {
+			pf->patdly2 = pf->patdly;
+			pf->patdly = 0;
+		}
+		if (pf->patdly2) {	/* patterndelay active */
+			if (--pf->patdly2)
+				pf->patpos--;	/* so turn back pf->patpos by 1 */
+		}
+		/*
+		 * Do we have to get a new patternpointer ? (when pf->patpos reaches
+		 * 64 or when a patternbreak is active)
+		 */
+
+		if (pf->patpos == pf->numrow)
+			pf->posjmp = 3;
+
+		if (pf->posjmp) {
+			pf->patpos = pf->patbrk;
+			pf->sngpos += (pf->posjmp - 2);
+			pf->patbrk = pf->posjmp = 0;
+			if (pf->sngpos >= pf->numpos) {
+				if (!pf->loop)
+					return;
+				if ((pf->sngpos = pf->reppos) == 0) {
+					pf->volume = pf->initvolume;
+					pf->sngspd = pf->initspeed;
+					pf->bpm = pf->inittempo;
+				}
+			}
+			if (pf->sngpos < 0)
+				pf->sngpos = pf->numpos - 1;
+		}
+		if (!pf->patdly2) {
+			for (t = 0; t < pf->numchn; t++) {
+				UBYTE           inst;
+
+				tr = pf->patterns[(pf->positions[pf->sngpos] * pf->numchn) + t];
+				pf->numrow = pf->pattrows[pf->positions[pf->sngpos]];
+
+				mp_channel = t;
+				a = &pf->control[t];
+				a->row = (tr < pf->numtrk) ? UniFindRow(pf->tracks[tr], pf->patpos) : NULL;
+				a->newsamp = 0;
+
+				if (a->row == NULL)
+					continue;
+				UniSetRow(a->row);
+				funky = 0;	/* Funky is set to indicate note or inst
+							 * change */
+
+				while (c = UniGetByte()) {
+					switch (c) {
+					case UNI_NOTE:
+						funky |= 1;
+						a->anote = UniGetByte();
+						a->kick = 1;
+						a->start = -1;
+
+						/* retrig tremolo and vibrato waves ? */
+
+						if (!(a->wavecontrol & 0x80))
+							a->trmpos = 0;
+						if (!(a->wavecontrol & 0x08))
+							a->vibpos = 0;
+						if (!a->panbwave)
+							a->panbpos = 0;
+						break;
+
+					case UNI_INSTRUMENT:
+						funky |= 2;
+						inst = UniGetByte();
+						if (inst >= pf->numins)
+							break;	/* <- safety valve */
+
+						a->i = (pf->flags & UF_INST) ? &pf->instruments[inst] : NULL;
+						a->retrig = 0;
+						a->s3mtremor = 0;
+						a->sample = inst;
+						break;
+
+					default:
+						UniSkipOpcode(c);
+						break;
+					}
+				}
+
+				if (funky) {
+					i = a->i;
+					if (i != NULL) {
+						if (i->samplenumber[a->anote] >= pf->numsmp)
+							continue;
+						s = &pf->samples[i->samplenumber[a->anote]];
+						a->note = i->samplenote[a->anote];
+					} else {
+						a->note = a->anote;
+						s = &pf->samples[a->sample];
+					}
+
+					if (a->s != s) {
+						a->s = s;
+						a->newsamp = a->period;
+					}
+					/* channel or instrument determined panning ? */
+
+					a->panning = pf->panning[t];
+					if (s->flags & SF_OWNPAN)
+						a->panning = s->panning;
+					else if ((i != NULL) && (i->flags & IF_OWNPAN))
+						a->panning = i->panning;
+
+					a->handle = s->handle;
+					a->speed = s->speed;
+
+					if (i != NULL) {
+						if (i->flags & IF_PITCHPAN)
+							a->panning += ((a->anote - i->pitpancenter) * i->pitpansep) / 8;
+						a->pitflg = i->pitflg;
+						a->volflg = i->volflg;
+						a->panflg = i->panflg;
+						a->nna = i->nnatype;
+						a->dca = i->dca;
+						a->dct = i->dct;
+					} else {
+						a->pitflg = 0;
+						a->volflg = 0;
+						a->panflg = 0;
+						a->nna = 0;
+						a->dca = 0;
+						a->dct = 0;
+					}
+
+					if (funky & 2) {	/* IT's random volume variations: 0:8
+										 * bit fixed, and one bit for sign. */
+						a->volume = s->volume;
+						a->tmpvolume = s->volume;
+						if ((s != NULL) && (i != NULL)) {
+							a->volume = a->tmpvolume = s->volume + ((s->volume * ((SLONG) i->rvolvar * (SLONG) ((rand() & 511) - 255))) / 25600);
+							if (a->panning != PAN_SURROUND)
+								a->panning += ((a->panning * ((SLONG) i->rpanvar * (SLONG) ((rand() & 511) - 255))) / 25600);
+						}
+					}
+					period = GetPeriod(a->note, a->speed);
+					a->wantedperiod = period;
+					a->tmpperiod = period;
+					a->keyoff = KEY_KICK;
+				}
+			}
+		}
+    }
+    /* Update effects */
+
+    for (t = 0; t < pf->numchn; t++) {
+		mp_channel = t;
+		a = &pf->control[t];
+
+		if ((aout = a->slave) != NULL) {
+			a->fadevol = aout->fadevol;
+			a->period = aout->period;
+			if (a->kick != 1)
+				a->keyoff = aout->keyoff;
+		}
+		if (a->row == NULL)
+			continue;
+		UniSetRow(a->row);
+
+		a->ownper = a->ownvol = 0;
+		pt_playeffects();
+		if (!a->ownper)
+			a->period = a->tmpperiod;
+		if (!a->ownvol)
+			a->volume = a->tmpvolume;
+
+		if (a->s != NULL) {
+			if (a->i != NULL)
+				a->outvolume = (a->volume * a->s->globvol * a->i->globvol) / 1024;	/* max val: 256 */
+			else
+				a->outvolume = (a->volume * a->s->globvol) / 16;	/* max val: 256 */
+			if (a->outvolume > 256)
+				a->volume = 256;
+		}
+    }
+
+
+    a = pf->control;
+    if (pf->flags & UF_NNA) {
+		for (t = 0; t < pf->numchn; t++, a++) {
+			if (a->kick == 1) {
+				if (a->slave != NULL) {
+					aout = a->slave;
+					if (aout->nna & 0x3f) {	/* oh boy, we have to do an
+											 * NNA Make sure the old
+											 * MP_VOICE channel knows it
+											 * has no master now! */
+
+						a->slave = NULL;	/* assume the channel is
+											 * taken by NNA */
+						aout->mflag = 0;
+
+						switch (aout->nna) {
+						case NNA_CONTINUE:
+							break;	/* continue note, do nothing */
+
+						case NNA_OFF:	/* note off */
+							aout->keyoff |= KEY_OFF;
+							if (!(aout->volflg & EF_ON) || (aout->volflg & EF_LOOP))
+								aout->keyoff = KEY_KILL;
+							break;
+
+						case NNA_FADE:
+							aout->keyoff |= KEY_FADE;
+							break;
+						}
+					}
+				}
+				k = 0;
+				if (a->dct != DCT_OFF) {
+					for (t2 = 0; t2 < md_sngchn; t2++) {
+						if (!(Voice_Stopped(t2)) && (pf->voice[t2].masterchn == t) && (a->sample == pf->voice[t2].sample)) {
+							switch (a->dct) {
+							case DCT_NOTE:
+								if (a->note == pf->voice[t2].note)
+									k = 1;
+								break;
+
+							case DCT_SAMPLE:
+								if (a->handle == pf->voice[t2].handle)
+									k = 1;
+								break;
+
+							case DCT_INST:
+								k = 1;
+								break;
+							}
+
+							if (k == 1) {
+								k = 0;
+								switch (a->dca) {
+								case DCA_CUT:
+									pf->voice[t2].fadevol = 0;
+									a->slave = &pf->voice[a->slavechn = t2];
+									break;
+
+								case DCA_OFF:
+									/* a->slave = &pf->voice[newchn]; */
+									pf->voice[t2].keyoff |= KEY_OFF;
+									if (!(pf->voice[t2].volflg & EF_ON) || (pf->voice[t2].volflg & EF_LOOP))
+										pf->voice[t2].keyoff = KEY_KILL;
+									break;
+
+								case DCA_FADE:
+									/* a->slave = &pf->voice[newchn]; */
+									pf->voice[t2].keyoff |= KEY_FADE;
+									break;
+								}
+							}
+						}
+					}
+				}		/* DCT checking */
+			}			/* if a->kick */
+		}			/* for loop */
+    }
+    a = pf->control;
+    for (t = 0; t < pf->numchn; t++, a++) {
+		int             newchn;
+
+		if (a->notedelay)
+			continue;
+
+		if (a->kick == 1) {	/* If no channel was cut above, find an empty
+							 * or quiet channel here */
+			if (pf->flags & UF_NNA) {
+				if (a->slave == NULL) {
+					if ((newchn = MP_FindEmptyChannel(t)) != -1)
+						a->slave = &pf->voice[a->slavechn = newchn];
+				}
+			} else
+				a->slave = &pf->voice[a->slavechn = t];
+
+			/* Assign parts of MP_VOICE only done for a KICK! */
+
+			if ((aout = a->slave) != NULL) {
+				if (aout->mflag && (aout->master != NULL))
+					aout->master->slave = NULL;
+				a->slave = aout;
+				aout->master = a;
+				aout->masterchn = t;
+				aout->mflag = 1;
+			}
+		} else {
+			aout = a->slave;
+		}
+
+		if (aout != NULL) {
+			aout->kick = a->kick;
+			aout->i = a->i;
+			aout->s = a->s;
+			aout->sample = a->sample;
+			aout->handle = a->handle;
+			aout->period = a->period;
+			aout->panning = a->panning;
+			aout->chanvol = a->chanvol;
+			aout->fadevol = a->fadevol;
+			aout->start = a->start;
+			aout->volflg = a->volflg;
+			aout->panflg = a->panflg;
+			aout->pitflg = a->pitflg;
+			aout->volume = a->outvolume;
+			aout->keyoff = a->keyoff;
+			aout->note = a->note;
+			aout->nna = a->nna;
+		}
+		a->kick = 0;
+
+    }
+
+    /* Now set up the actual hardware channel playback information */
+
+    for (t = 0; t < md_sngchn; t++) {
+		SWORD           envpan, envvol = 256, envpit = 0;
+		SLONG           vibval, vibdpt;
+
+		aout = &pf->voice[mp_channel = t];
+		i = aout->i;
+		s = aout->s;
+
+		if (s == NULL)
+			continue;
+
+		if (aout->period < 40)
+			aout->period = 40;
+		if (aout->period > 50000)
+			aout->period = 50000;
+
+		if (aout->kick) {
+			Voice_Play(t, s, (aout->start == -1) ? ((s->flags & SF_UST_LOOP) ? s->loopstart : 0) : aout->start);
+			/* aout->keyoff   = KEY_KICK; */
+			aout->fadevol = 32768;
+			aout->aswppos = 0;
+
+			if ((i != NULL) && (aout->kick != 2)) {
+				StartEnvelope(&aout->venv, aout->volflg, i->volpts, i->volsusbeg, i->volsusend, i->volbeg, i->volend, i->volenv, aout->keyoff);
+				StartEnvelope(&aout->penv, aout->panflg, i->panpts, i->pansusbeg, i->pansusend, i->panbeg, i->panend, i->panenv, aout->keyoff);
+				StartEnvelope(&aout->cenv, aout->pitflg, i->pitpts, i->pitsusbeg, i->pitsusend, i->pitbeg, i->pitend, i->pitenv, aout->keyoff);
+			}
+			aout->kick = 0;
+		}
+		if (i != NULL) {
+			envvol = ProcessEnvelope(&aout->venv, 256, aout->keyoff);
+			envpan = ProcessEnvelope(&aout->penv, 128, aout->keyoff);
+			envpit = ProcessEnvelope(&aout->cenv, 32, aout->keyoff);
+		}
+		tmpvol = aout->fadevol;	/* max 32768 */
+		tmpvol *= aout->chanvol;/* * max 64 */
+		tmpvol *= aout->volume;	/* * max 256 */
+		tmpvol /= 16384L;	/* tmpvol is max 32768 */
+		aout->totalvol = tmpvol >> 2;	/* totalvolume used to determine
+										 * samplevolume */
+		tmpvol *= envvol;	/* * max 256 */
+		tmpvol *= pf->volume;	/* * max 128 */
+		tmpvol /= 4194304 UL;
+
+		if ((aout->masterchn != -1) && pf->control[aout->masterchn].muted)	/* Channel Muting Line */
+			Voice_SetVolume(t, 0);
+		else
+			Voice_SetVolume(t, tmpvol);
+
+
+		if (aout->panning == PAN_SURROUND)
+			Voice_SetPanning(t, PAN_SURROUND);
+		else {
+			if (aout->penv.flg & EF_ON)
+				Voice_SetPanning(t, DoPan(envpan, aout->panning));
+			else
+				Voice_SetPanning(t, aout->panning);
+		}
+
+		if (aout->period && s->vibdepth) {
+			switch (s->vibtype) {
+			case 0:
+				vibval = avibtab[s->avibpos & 127];
+				if (s->avibpos & 0x80)
+					vibval = -vibval;
+				break;
+
+			case 1:
+				vibval = 64;
+				if (s->avibpos & 0x80)
+					vibval = -vibval;
+				break;
+
+			case 2:
+				vibval = 63 - (((s->avibpos + 128) & 255) >> 1);
+				break;
+
+			case 3:
+				vibval = (((s->avibpos + 128) & 255) >> 1) - 64;
+				break;
+			}
+		}
+		if (s->vibflags & AV_IT) {
+			if ((aout->aswppos >> 8) < s->vibdepth) {
+				aout->aswppos += s->vibsweep;
+				vibdpt = aout->aswppos;
+			} else
+				vibdpt = s->vibdepth << 8;
+			vibval = (vibval * vibdpt) >> 16;
+			if (aout->mflag) {
+				if (!(pf->flags & UF_LINEAR))
+					vibval >>= 1;
+				aout->period -= vibval;
+			}
+		} else {		/* do XM style auto-vibrato */
+			if (!(aout->keyoff & KEY_OFF)) {
+				if (aout->aswppos < s->vibsweep) {
+					vibdpt = (aout->aswppos * s->vibdepth) / s->vibsweep;
+					aout->aswppos++;
+				} else
+					vibdpt = s->vibdepth;
+			} else {
+				/*
+				 * key-off -> depth becomes 0 if final depth wasn't reached
+				 * or stays at final level if depth WAS reached
+				 */
+				if (aout->aswppos >= s->vibsweep)
+					vibdpt = s->vibdepth;
+				else
+					vibdpt = 0;
+			}
+			vibval = (vibval * vibdpt) >> 8;
+			aout->period -= vibval;
+		}
+
+		/* update vibrato position */
+		s->avibpos = (s->avibpos + s->vibrate) & 0xff;
+
+		if (aout->cenv.flg & EF_ON) {
+			envpit = envpit - 32;
+			aout->period -= envpit;
+		}
+		Voice_SetFrequency(t, getfrequency(pf->flags, aout->period));
+
+		if (aout->fadevol == 0)	/* check for a dead note (fadevol = 0) */
+			Voice_Stop(t);
+		else {			/* if keyfade, start substracting
+						 * fadeoutspeed from fadevol: */
+
+			if ((i != NULL) && (aout->keyoff & KEY_FADE)) {
+				if (aout->fadevol >= i->volfade)
+					aout->fadevol -= i->volfade;
+				else
+					aout->fadevol = 0;
+			}
+		}
+
+		MD_SetBPM(pf->bpm);
+    }
+}
+
+
+BOOL
+Player_Init(UNIMOD * mf)
+{
+    int             t;
+
+    mf->extspd = 1;
+    mf->panflag = 1;
+    mf->loop = 0;
+
+    mf->pat_reppos = 0;
+    mf->pat_repcnt = 0;
+    mf->sngpos = 0;
+    mf->sngspd = mf->initspeed;
+    mf->volume = mf->initvolume;
+
+    mf->vbtick = mf->sngspd;
+    mf->patdly = 0;
+    mf->patdly2 = 0;
+    mf->bpm = mf->inittempo;
+
+    mf->patpos = 0;
+    mf->posjmp = 2;		/* <- make sure the player fetches the first
+						 * note */
+    mf->patbrk = 0;
+
+    /* Make sure the player doesn't start with garbage: */
+
+    if ((mf->control = (MP_CONTROL *) _mm_calloc(mf->numchn, sizeof(MP_CONTROL))) == NULL)
+		return 1;
+    if ((mf->voice = (MP_VOICE *) _mm_calloc(md_sngchn, sizeof(MP_VOICE))) == NULL)
+		return 1;
+
+    for (t = 0; t < mf->numchn; t++) {
+		mf->control[t].chanvol = mf->chanvol[t];
+		mf->control[t].panning = mf->panning[t];
+    }
+
+    return 0;
+}
+
+
+void
+Player_Exit(UNIMOD * mf)
+{
+    if (mf == NULL)
+		return;
+    if (mf == pf) {
+		Player_Stop();
+		pf = NULL;
+    }
+    if (mf->control != NULL)
+		free(mf->control);
+    if (mf->voice != NULL)
+		free(mf->voice);
+    mf->control = NULL;
+    mf->voice = NULL;
+
+}
+
+
+void
+Player_SetVolume(int volume)
+{
+    if (pf == NULL)
+		return;
+
+    if (volume > 128)
+		volume = 128;
+    if (volume < 0)
+		volume = 0;
+
+    pf->volume = volume;
+}
+
+
+UNIMOD         *
+Player_GetUnimod(void)
+{
+    return pf;
+}
+
+
+void
+Player_Start(UNIMOD * mf)
+{
+    int             t;
+
+    if (!MikMod_Active()) {
+		isfirst = 2;
+		MikMod_EnableOutput();
+    }
+    if (mf == NULL)
+		return;
+
+    mf->forbid = 0;
+    if (pf != mf) {		/* new song is being started, so completely
+						 * stop out the old one. */
+		if (pf != NULL)
+			pf->forbid = 1;
+		for (t = 0; t < md_sngchn; t++)
+			Voice_Stop(t);
+    }
+    pf = mf;
+}
+
+
+void
+Player_Stop(void)
+{
+    if (md_sfxchn == 0)
+		MikMod_DisableOutput();
+    if (pf != NULL)
+		pf->forbid = 1;
+    pf = NULL;
+}
+
+
+BOOL
+MP_Playing(UNIMOD * mf)
+{
+    if ((mf == NULL) || (mf != pf))
+		return 0;
+    return (!(mf->sngpos >= mf->numpos));
+}
+
+
+BOOL
+Player_Active(void)
+{
+    if (pf == NULL)
+		return 0;
+    return (!(pf->sngpos >= pf->numpos));
+}
+
+
+void
+MP_NextPosition(UNIMOD * mf)
+{
+    int             t;
+
+    if (mf == NULL)
+		return;
+    mf->forbid = 1;
+    mf->posjmp = 3;
+    mf->patbrk = 0;
+    mf->vbtick = mf->sngspd;
+
+    for (t = 0; t < md_sngchn; t++) {
+		Voice_Stop(t);
+		mf->voice[t].i = NULL;
+		mf->voice[t].s = NULL;
+    }
+
+    for (t = 0; t < mf->numchn; t++) {
+		mf->control[t].i = NULL;
+		mf->control[t].s = NULL;
+    }
+    mf->forbid = 0;
+}
+
+
+void
+Player_NextPosition(void)
+{
+    MP_NextPosition(pf);
+}
+
+
+void
+MP_PrevPosition(UNIMOD * mf)
+{
+    int             t;
+
+    if (mf == NULL)
+		return;
+    mf->forbid = 1;
+    mf->posjmp = 1;
+    mf->patbrk = 0;
+    mf->vbtick = mf->sngspd;
+
+    for (t = 0; t < md_sngchn; t++) {
+		Voice_Stop(t);
+		mf->voice[t].i = NULL;
+		mf->voice[t].s = NULL;
+    }
+
+    for (t = 0; t < mf->numchn; t++) {
+		mf->control[t].i = NULL;
+		mf->control[t].s = NULL;
+    }
+
+    mf->forbid = 0;
+}
+
+
+void
+Player_PrevPosition(void)
+{
+    MP_PrevPosition(pf);
+}
+
+
+void
+MP_SetPosition(UNIMOD * mf, UWORD pos)
+{
+    int             t;
+
+    if (mf == NULL)
+		return;
+    mf->forbid = 1;
+    if (pos >= mf->numpos)
+		pos = mf->numpos;
+    mf->posjmp = 2;
+    mf->patbrk = 0;
+    mf->sngpos = pos;
+    mf->vbtick = mf->sngspd;
+
+    for (t = 0; t < md_sngchn; t++) {
+		Voice_Stop(t);
+		mf->voice[t].i = NULL;
+		mf->voice[t].s = NULL;
+    }
+
+    for (t = 0; t < mf->numchn; t++) {
+		mf->control[t].i = NULL;
+		mf->control[t].s = NULL;
+    }
+
+    mf->forbid = 0;
+}
+
+
+void
+Player_SetPosition(UWORD pos)
+{
+    MP_SetPosition(pf, pos);
+}
+
+
+void
+MP_Unmute(UNIMOD * mf, SLONG arg1,...)
+{
+    va_list         ap;
+    SLONG           t, arg2, arg3;
+
+    va_start(ap, arg1);
+
+    if (mf != NULL) {
+		switch (arg1) {
+		case MUTE_INCLUSIVE:
+			if ((!(arg2 = va_arg(ap, SLONG))) && (!(arg3 = va_arg(ap, SLONG))) ||
+				(arg2 > arg3) || (arg3 >= mf->numchn)) {
+				va_end(ap);
+				return;
+			}
+			for (; arg2 < mf->numchn && arg2 <= arg3; arg2++)
+				mf->control[arg2].muted = 0;
+			break;
+
+		case MUTE_EXCLUSIVE:
+			if ((!(arg2 = va_arg(ap, SLONG))) && (!(arg3 = va_arg(ap, SLONG))) ||
+				(arg2 > arg3) || (arg3 >= mf->numchn)) {
+				va_end(ap);
+				return;
+			}
+			for (t = 0; t < mf->numchn; t++) {
+				if ((t >= arg2) && (t <= arg3))
+					continue;
+				mf->control[t].muted = 0;
+			}
+			break;
+
+		default:
+			if (arg1 < mf->numchn)
+				mf->control[arg1].muted = 0;
+			break;
+		}
+    }
+    va_end(ap);
+
+    return;
+}
+
+
+void
+Player_Unmute(SLONG arg1,...)
+{
+    va_list         argptr;
+    MP_Unmute(pf, arg1, argptr);
+    va_end(argptr);
+}
+
+
+void
+MP_Mute(UNIMOD * mf, SLONG arg1,...)
+{
+    va_list         ap;
+    SLONG           t, arg2, arg3;
+
+    va_start(ap, arg1);
+
+    if (mf != NULL) {
+		switch (arg1) {
+		case MUTE_INCLUSIVE:
+			if ((!(arg2 = va_arg(ap, SLONG))) && (!(arg3 = va_arg(ap, SLONG))) || 
+				(arg2 > arg3) || (arg3 >= mf->numchn)) {
+				va_end(ap);
+				return;
+			}
+			for (; arg2 < mf->numchn && arg2 <= arg3; arg2++)
+				mf->control[arg2].muted = 1;
+			break;
+
+		case MUTE_EXCLUSIVE:
+			if ((!(arg2 = va_arg(ap, SLONG))) && (!(arg3 = va_arg(ap, SLONG))) ||
+				(arg2 > arg3) || (arg3 >= mf->numchn)) {
+				va_end(ap);
+				return;
+			}
+			for (t = 0; t < mf->numchn; t++) {
+				if ((t >= arg2) && (t <= arg3))
+					continue;
+				mf->control[t].muted = 1;
+			}
+			break;
+
+		default:
+			if (arg1 < mf->numchn)
+				mf->control[arg1].muted = 1;
+			break;
+		}
+    }
+    va_end(ap);
+
+    return;
+}
+
+
+void
+Player_Mute(SLONG arg1,...)
+{
+    va_list         argptr;
+    MP_Mute(pf, arg1, argptr);
+    va_end(argptr);
+}
+
+
+void
+MP_ToggleMute(UNIMOD * mf, SLONG arg1,...)
+{
+    va_list         ap;
+    SLONG           arg2, arg3;
+    ULONG           t;
+
+    va_start(ap, arg1);
+
+    if (mf != NULL) {
+		switch (arg1) {
+		case MUTE_INCLUSIVE:
+			if ((!(arg2 = va_arg(ap, SLONG))) && (!(arg3 = va_arg(ap, SLONG))) ||
+				(arg2 > arg3) || (arg3 >= mf->numchn)) {
+				va_end(ap);
+				return;
+			}
+			for (; arg2 < mf->numchn && arg2 <= arg3; arg2++)
+				mf->control[arg2].muted = (mf->control[arg2].muted) ? 0 : 1;
+
+			break;
+
+		case MUTE_EXCLUSIVE:
+			if ((!(arg2 = va_arg(ap, SLONG))) && (!(arg3 = va_arg(ap, SLONG))) || 
+				(arg2 > arg3) || (arg3 >= mf->numchn)) {
+				va_end(ap);
+				return;
+			}
+			for (t = 0; t < mf->numchn; t++) {
+				if ((t >= arg2) && (t <= arg3))
+					continue;
+				mf->control[t].muted = (mf->control[t].muted) ? 0 : 1;
+			}
+			break;
+
+		default:
+			if (arg1 < mf->numchn)
+				mf->control[arg1].muted = (mf->control[arg1].muted) ? 0 : 1;
+			break;
+		}
+    }
+    va_end(ap);
+
+    return;
+}
+
+
+void
+Player_ToggleMute(SLONG arg1,...)
+{
+    va_list         argptr;
+    MP_ToggleMute(pf, arg1, argptr);
+    va_end(argptr);
+}
+
+
+BOOL
+MP_Muted(UNIMOD * mf, int chan)
+{
+    if (mf == NULL)
+		return 1;
+    return (chan < mf->numchn) ? mf->control[chan].muted : 1;
+}
+
+
+BOOL
+Player_Muted(int chan)
+{
+    if (pf == NULL)
+		return 1;
+    return (chan < pf->numchn) ? pf->control[chan].muted : 1;
+}
+
+
+int
+MP_GetChannelVoice(UNIMOD * mf, int chan)
+{
+    if (mf == NULL)
+		return 0;
+    return mf->control[chan].slavechn;
+}
+
+
+int
+Player_GetChannelVoice(int chan)
+{
+    if (pf == NULL)
+		return 0;
+    return pf->control[chan].slavechn;
+}
+
+
+void
+Player_TogglePause(void)
+{
+    if (pf == NULL)
+		return;
+    if (pf->forbid == 1)
+		pf->forbid = 0;
+    else
+		pf->forbid = 1;
+}
+
+
+/*
+ * --> The following procedures were taken from UNITRK because they -> are
+ * ProTracker format specific.
+ */
+
+/* Appends UNI_INSTRUMENT opcode to the unitrk stream. */
+void
+UniInstrument(UBYTE ins)
+{
+    UniWrite(UNI_INSTRUMENT);
+    UniWrite(ins);
+}
+
+/* Appends UNI_NOTE opcode to the unitrk stream. */
+void
+UniNote(UBYTE note)
+{
+    UniWrite(UNI_NOTE);
+    UniWrite(note);
+}
+
+/* Appends UNI_PTEFFECTX opcode to the unitrk stream. */
+void
+UniPTEffect(UBYTE eff, UBYTE dat)
+{
+    if (eff != 0 || dat != 0) {	/* don't write empty effect */
+		UniWrite(UNI_PTEFFECT0 + eff);
+		UniWrite(dat);
+    }
+}
+
+/* Appends UNI_VOLEFFECT + effect/dat to unistream. */
+void
+UniVolEffect(UWORD eff, UBYTE dat)
+{
+    if (eff != 0 || dat != 0) {	/* don't write empty effect */
+		UniWrite(UNI_VOLEFFECTS);
+		UniWrite(eff);
+		UniWrite(dat);
+    }
+}