1 files changed, 145 insertions, 0 deletions
diff --git a/audio/mpu401.cpp b/audio/mpu401.cpp
new file mode 100644
index 0000000000..4f62de930c
--- /dev/null
+++ b/audio/mpu401.cpp
@@ -0,0 +1,145 @@
+/* ScummVM - Graphic Adventure Engine
+ *
+ * ScummVM is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *
+ * $URL$
+ * $Id$
+ */
+
+#include "audio/mpu401.h"
+#include "common/system.h"
+#include "common/timer.h"
+#include "common/util.h"	// for ARRAYSIZE
+
+void MidiChannel_MPU401::init(MidiDriver *owner, byte channel) {
+	_owner = owner;
+	_channel = channel;
+	_allocated = false;
+}
+
+bool MidiChannel_MPU401::allocate() {
+	if (_allocated)
+		return false;
+	return (_allocated = true);
+}
+
+MidiDriver *MidiChannel_MPU401::device() {
+	return _owner;
+}
+
+void MidiChannel_MPU401::send(uint32 b) {
+	_owner->send((b & 0xFFFFFFF0) | (_channel & 0xF));
+}
+
+void MidiChannel_MPU401::noteOff(byte note) {
+	_owner->send(note << 8 | 0x80 | _channel);
+}
+
+void MidiChannel_MPU401::noteOn(byte note, byte velocity) {
+	_owner->send(velocity << 16 | note << 8 | 0x90 | _channel);
+}
+
+void MidiChannel_MPU401::programChange(byte program) {
+	_owner->send(program << 8 | 0xC0 | _channel);
+}
+
+void MidiChannel_MPU401::pitchBend(int16 bend) {
+	_owner->send((((bend + 0x2000) >> 7) & 0x7F) << 16 | ((bend + 0x2000) & 0x7F) << 8 | 0xE0 | _channel);
+}
+
+void MidiChannel_MPU401::controlChange(byte control, byte value) {
+	_owner->send(value << 16 | control << 8 | 0xB0 | _channel);
+}
+
+void MidiChannel_MPU401::pitchBendFactor(byte value) {
+	_owner->setPitchBendRange(_channel, value);
+}
+
+void MidiChannel_MPU401::sysEx_customInstrument(uint32 type, const byte *instr) {
+	_owner->sysEx_customInstrument(_channel, type, instr);
+}
+
+const char *MidiDriver::getErrorName(int error_code) {
+	static const char *const midi_errors[] = {
+		"No error",
+		"Cannot connect",
+		"Streaming not available",
+		"Device not available",
+		"Driver already open"
+	};
+
+	if ((uint)error_code >= ARRAYSIZE(midi_errors))
+		return "Unknown Error";
+	return midi_errors[error_code];
+}
+
+MidiDriver_MPU401::MidiDriver_MPU401() :
+	MidiDriver(),
+	_timer_proc(0),
+	_channel_mask(0xFFFF) // Permit all 16 channels by default
+{
+
+	uint i;
+	for (i = 0; i < ARRAYSIZE(_midi_channels); ++i) {
+		_midi_channels[i].init(this, i);
+	}
+}
+
+void MidiDriver_MPU401::close() {
+	if (_timer_proc)
+		g_system->getTimerManager()->removeTimerProc(_timer_proc);
+	_timer_proc = 0;
+	for (int i = 0; i < 16; ++i)
+		send(0x7B << 8 | 0xB0 | i);
+}
+
+uint32 MidiDriver_MPU401::property(int prop, uint32 param) {
+	switch (prop) {
+	case PROP_CHANNEL_MASK:
+		_channel_mask = param & 0xFFFF;
+		return 1;
+	}
+
+	return 0;
+}
+
+MidiChannel *MidiDriver_MPU401::allocateChannel() {
+	MidiChannel_MPU401 *chan;
+	uint i;
+
+	for (i = 0; i < ARRAYSIZE(_midi_channels); ++i) {
+		if (i == 9 || !(_channel_mask & (1 << i)))
+			continue;
+		chan = &_midi_channels[i];
+		if (chan->allocate()) {
+			return chan;
+		}
+	}
+	return NULL;
+}
+
+void MidiDriver_MPU401::setTimerCallback(void *timer_param, Common::TimerManager::TimerProc timer_proc) {
+	if (!_timer_proc || !timer_proc) {
+		if (_timer_proc)
+			g_system->getTimerManager()->removeTimerProc(_timer_proc);
+		_timer_proc = timer_proc;
+		if (timer_proc)
+			g_system->getTimerManager()->installTimerProc(timer_proc, 10000, timer_param);
+	}
+}