16/adplug/adplug/src/analopl.cpp

   1 /*
   2  * Adplug - Replayer for many OPL2/OPL3 audio file formats.
   3  * Copyright (C) 1999 - 2006 Simon Peter, <dn.tlp@gmx.net>, et al.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18  *
  19  * analopl.cpp - Spectrum analyzing hardware OPL, by Simon Peter <dn.tlp@gmx.net>
  20  */
  21
  22 #include "analopl.h"
  23
  24 CAnalopl::CAnalopl(unsigned short initport)
  25   : CRealopl(initport)
  26 {
  27   for(int i = 0; i < 9; i++) {
  28     keyregs[0][i][0] = 0;
  29     keyregs[0][i][1] = 0;
  30     keyregs[1][i][0] = 0;
  31     keyregs[1][i][1] = 0;
  32   }
  33 }
  34
  35 void CAnalopl::write(int reg, int val)
  36 {
  37   if(nowrite) return;
  38
  39   if(reg >= 0xb0 && reg <= 0xb8) {
  40     if(!keyregs[currChip][reg - 0xb0][0] && (val & 32))
  41       keyregs[currChip][reg - 0xb0][1] = 1;
  42     else
  43       keyregs[currChip][reg - 0xb0][1] = 0;
  44     keyregs[currChip][reg - 0xb0][0] = val & 32;
  45   }
  46
  47   CRealopl::write(reg, val);
  48 }
  49
  50 int CAnalopl::getcarriervol(unsigned int v, unsigned int c)
  51 {
  52   return (hardvols[c][op_table[v]+3][0] & 63);
  53 }
  54
  55 int CAnalopl::getmodulatorvol(unsigned int v, unsigned int c)
  56 {
  57   return (hardvols[c][op_table[v]][0] & 63);
  58 }
  59
  60 bool CAnalopl::getkeyon(unsigned int v, unsigned int c)
  61 {
  62   if(keyregs[c][v][1]) {
  63     keyregs[c][v][1] = 0;
  64     return true;
  65   } else
  66     return false;
  67 }