16/adplug/adplug/src/psi.cpp

   1 /*
   2  * Adplug - Replayer for many OPL2/OPL3 audio file formats.
   3  * Copyright (C) 1999 - 2003 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  * [xad] PSI player, by Riven the Mage <riven@ok.ru>
  20  */
  21
  22 /*
  23     - discovery -
  24
  25   file(s) : 4BIDDEN.COM, PGRID.EXE
  26      type : Forbidden Dreams BBStro
  27             Power Grid BBStro
  28      tune : by Friar Tuck [Shadow Faction/ICE]
  29    player : by Psi [Future Crew]
  30   comment : seems to me what 4bidden tune & player was ripped from pgrid
  31
  32   file(s) : MYSTRUNE.COM
  33      type : Mystical Runes BBStro
  34      tune : by ?
  35    player : by Psi [Future Crew]
  36 */
  37
  38 #include "psi.h"
  39 #include "debug.h"
  40
  41 const unsigned char CxadpsiPlayer::psi_adlib_registers[99] =
  42 {
  43   0x20, 0x23, 0x40, 0x43, 0x60, 0x63, 0x80, 0x83, 0xE0, 0xE3, 0xC0,
  44   0x21, 0x24, 0x41, 0x44, 0x61, 0x64, 0x81, 0x84, 0xE1, 0xE4, 0xC1,
  45   0x22, 0x25, 0x42, 0x45, 0x62, 0x65, 0x82, 0x85, 0xE2, 0xE5, 0xC2,
  46   0x28, 0x2B, 0x48, 0x4B, 0x68, 0x6B, 0x88, 0x8B, 0xE8, 0xEB, 0xC3,
  47   0x29, 0x2C, 0x49, 0x4C, 0x69, 0x6C, 0x89, 0x8C, 0xE9, 0xEC, 0xC4,
  48   0x2A, 0x2D, 0x4A, 0x4D, 0x6A, 0x6D, 0x8A, 0x8D, 0xEA, 0xED, 0xC5,
  49   0x30, 0x33, 0x50, 0x53, 0x70, 0x73, 0x90, 0x93, 0xF0, 0xF3, 0xC6,
  50   0x31, 0x34, 0x51, 0x54, 0x71, 0x74, 0x91, 0x94, 0xF1, 0xF4, 0xC7,
  51   0x32, 0x35, 0x52, 0x55, 0x72, 0x75, 0x92, 0x95, 0xF2, 0xF5, 0xC8
  52 };
  53
  54 const unsigned short CxadpsiPlayer::psi_notes[16] =
  55 {
  56   0x216B, 0x2181, 0x2198, 0x21B0, 0x21CA, 0x21E5, 0x2202, 0x2220,
  57   0x2241, 0x2263, 0x2287, 0x2364,
  58   0x0000, 0x0000, 0x0000, 0x0000 // by riven
  59 };
  60
  61 CPlayer *CxadpsiPlayer::factory(Copl *newopl)
  62 {
  63   return new CxadpsiPlayer(newopl);
  64 }
  65
  66 void CxadpsiPlayer::xadplayer_rewind(int subsong)
  67 {
  68   opl_write(0x01, 0x20);
  69   opl_write(0x08, 0x00);
  70   opl_write(0xBD, 0x00);
  71
  72   // get header
  73   header.instr_ptr = (tune[1] << 8) + tune[0];
  74   header.seq_ptr = (tune[3] << 8) + tune[2];
  75
  76   // define instruments
  77   psi.instr_table = &tune[header.instr_ptr];
  78
  79   for(int i=0; i<8; i++)
  80   {
  81     for(int j=0; j<11; j++) {
  82       unsigned short inspos = (psi.instr_table[i * 2 + 1] << 8) + psi.instr_table[i * 2];
  83
  84       opl_write(psi_adlib_registers[i*11 + j],tune[inspos + j]);
  85     }
  86
  87     opl_write(0xA0+i, 0x00);
  88     opl_write(0xB0+i, 0x00);
  89
  90     psi.note_delay[i] = 1;
  91     psi.note_curdelay[i] = 1;
  92     psi.looping[i] = 0;
  93   }
  94
  95   // calculate sequence pointer
  96   psi.seq_table = &tune[header.seq_ptr];
  97 }
  98
  99 void CxadpsiPlayer::xadplayer_update()
 100 {
 101   unsigned short ptr;
 102
 103   for(int i=0; i<8; i++)
 104   {
 105     ptr = (psi.seq_table[(i<<1) * 2 + 1] << 8) + psi.seq_table[(i<<1) * 2];
 106
 107     psi.note_curdelay[i]--;
 108
 109     if (!psi.note_curdelay[i])
 110     {
 111       opl_write(0xA0+i, 0x00);
 112       opl_write(0xB0+i, 0x00);
 113
 114       unsigned char event = tune[ptr++];
 115 #ifdef DEBUG
 116   AdPlug_LogWrite("channel %02X, event %02X:\n",i+1,event);
 117 #endif
 118
 119       // end of sequence ?
 120       if (!event)
 121       {
 122         ptr = (psi.seq_table[(i<<1) * 2 + 3] << 8) + psi.seq_table[(i<<1) * 2 + 2];
 123
 124         event = tune[ptr++];
 125 #ifdef DEBUG
 126   AdPlug_LogWrite(" channel %02X, event %02X:\n",i+1,event);
 127 #endif
 128
 129         // set sequence loop flag
 130         psi.looping[i] = 1;
 131
 132         // module loop ?
 133         plr.looping = 1;
 134         for(int j=0; j<8; j++)
 135           plr.looping &= psi.looping[j];
 136       }
 137
 138       // new note delay ?
 139       if (event & 0x80)
 140       {
 141         psi.note_delay[i] = (event & 0x7F);
 142
 143         event = tune[ptr++];
 144 #ifdef DEBUG
 145   AdPlug_LogWrite("  channel %02X, event %02X:\n",i+1,event);
 146 #endif
 147       }
 148
 149       psi.note_curdelay[i] = psi.note_delay[i];
 150
 151       // play note
 152       unsigned short note = psi_notes[event & 0x0F];
 153
 154       opl_write(0xA0+i, note & 0xFF);
 155       opl_write(0xB0+i, (note >> 8) + ((event >> 2) & 0xFC));
 156
 157       // save position
 158       psi.seq_table[(i<<1) * 2] = ptr & 0xff;
 159       psi.seq_table[(i<<1) * 2 + 1] = ptr >> 8;
 160     }
 161   }
 162 }
 163
 164 float CxadpsiPlayer::xadplayer_getrefresh()
 165 {
 166   return 70.0f;
 167 }
 168
 169 std::string CxadpsiPlayer::xadplayer_gettype()
 170 {
 171   return std::string("xad: psi player");
 172 }
 173
 174 unsigned int CxadpsiPlayer::xadplayer_getinstruments()
 175 {
 176   return 8;
 177 }