gosu 0.15.2 → 1.1.0.pre2

data/dependencies/SDL_sound/libmodplug/load_med.c

@@ -0,0 +1,757 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>,
+ *          Adam Goode       <adam@evdebs.org> (endian and char fixes for PPC)
+*/
+
+#include "libmodplug.h"
+
+//////////////////////////////////////////////////////////
+// OctaMed MED file support (import only)
+//
+// Lookup table for bpm values.
+static const BYTE bpmvals[10] = { 179,164,152,141,131,123,116,110,104,99 };
+
+
+// flags
+#define	MMD_FLAG_FILTERON	0x1
+#define	MMD_FLAG_JUMPINGON	0x2
+#define	MMD_FLAG_JUMP8TH	0x4
+#define	MMD_FLAG_INSTRSATT	0x8 // instruments are attached (this is a module)
+#define	MMD_FLAG_VOLHEX		0x10
+#define MMD_FLAG_STSLIDE	0x20 // SoundTracker mode for slides
+#define MMD_FLAG_8CHANNEL	0x40 // OctaMED 8 channel song
+#define	MMD_FLAG_SLOWHQ		0x80 // HQ slows playing speed (V2-V4 compatibility)
+// flags2
+#define MMD_FLAG2_BMASK		0x1F
+#define MMD_FLAG2_BPM		0x20
+#define	MMD_FLAG2_MIX		0x80 // uses Mixing (V7+)
+// flags3:
+#define	MMD_FLAG3_STEREO	0x1	// mixing in Stereo mode
+#define	MMD_FLAG3_FREEPAN	0x2	// free panning
+#define MMD_FLAG3_GM		0x4 // module designed for GM/XG compatibility
+
+
+// generic MMD tags
+#define	MMDTAG_END		0
+#define	MMDTAG_PTR		0x80000000	// data needs relocation
+#define	MMDTAG_MUSTKNOW	0x40000000	// loader must fail if this isn't recognized
+#define	MMDTAG_MUSTWARN	0x20000000	// loader must warn if this isn't recognized
+
+// ExpData tags
+// # of effect groups, including the global group (will
+// override settings in MMDSong struct), default = 1
+#define	MMDTAG_EXP_NUMFXGROUPS	1
+#define	MMDTAG_TRK_NAME		(MMDTAG_PTR|1)	// trackinfo tags
+#define	MMDTAG_TRK_NAMELEN	2				// namelen includes zero term.
+#define	MMDTAG_TRK_FXGROUP	3
+// effectinfo tags
+#define	MMDTAG_FX_ECHOTYPE	1
+#define MMDTAG_FX_ECHOLEN	2
+#define	MMDTAG_FX_ECHODEPTH	3
+#define	MMDTAG_FX_STEREOSEP	4
+#define	MMDTAG_FX_GROUPNAME	(MMDTAG_PTR|5)	// the Global Effects group shouldn't have name saved!
+#define	MMDTAG_FX_GRPNAMELEN 6	// namelen includes zero term.
+
+#pragma pack(1)
+
+typedef struct tagMEDMODULEHEADER
+{
+	DWORD id;		// MMD1-MMD3
+	DWORD modlen;	// Size of file
+	DWORD song;		// Position in file for this song
+	WORD psecnum;
+	WORD pseq;
+	DWORD blockarr;	// Position in file for blocks
+	DWORD mmdflags;
+	DWORD smplarr;	// Position in file for samples
+	DWORD reserved;
+	DWORD expdata;	// Absolute offset in file for ExpData (0 if not present)
+	DWORD reserved2;
+	WORD pstate;
+	WORD pblock;
+	WORD pline;
+	WORD pseqnum;
+	WORD actplayline;
+	BYTE counter;
+	BYTE extra_songs;	// # of songs - 1
+} MEDMODULEHEADER;
+
+
+typedef struct tagMMD0SAMPLE
+{
+	WORD rep, replen;
+	BYTE midich;
+	BYTE midipreset;
+	BYTE svol;
+	signed char strans;
+} MMD0SAMPLE;
+
+
+// Sample header is immediately followed by sample data...
+typedef struct tagMMDSAMPLEHEADER
+{
+	DWORD length;     // length of *one* *unpacked* channel in *bytes*
+	WORD type;   
+				// if non-negative
+					// bits 0-3 reserved for multi-octave instruments, not supported on the PC
+					// 0x10: 16 bit (otherwise 8 bit)
+					// 0x20: Stereo (otherwise mono)
+					// 0x40: Uses DeltaCode
+					// 0x80: Packed data
+				// -1: Synth
+				// -2: Hybrid
+	// if type indicates packed data, these fields follow, otherwise we go right to the data
+	WORD packtype;	// Only 1 = ADPCM is supported
+	WORD subtype;	// Packing subtype
+		// ADPCM subtype
+		// 1: g723_40
+		// 2: g721
+		// 3: g723_24
+	BYTE commonflags;	// flags common to all packtypes (none defined so far)
+	BYTE packerflags;	// flags for the specific packtype
+	ULONG leftchlen;	// packed length of left channel in bytes
+	ULONG rightchlen;	// packed length of right channel in bytes (ONLY PRESENT IN STEREO SAMPLES)
+	BYTE SampleData[1];	// Sample Data
+} MMDSAMPLEHEADER;
+
+
+// MMD0/MMD1 song header
+typedef struct tagMMD0SONGHEADER
+{
+	MMD0SAMPLE sample[63];
+	WORD numblocks;		// # of blocks
+	WORD songlen;		// # of entries used in playseq
+	BYTE playseq[256];	// Play sequence
+	WORD deftempo;		// BPM tempo
+	signed char playtransp;	// Play transpose
+	BYTE flags;			// 0x10: Hex Volumes | 0x20: ST/NT/PT Slides | 0x40: 8 Channels song
+	BYTE flags2;		// [b4-b0]+1: Tempo LPB, 0x20: tempo mode, 0x80: mix_conv=on
+	BYTE tempo2;		// tempo TPL
+	BYTE trkvol[16];	// track volumes
+	BYTE mastervol;		// master volume
+	BYTE numsamples;	// # of samples (max=63)
+} MMD0SONGHEADER;
+
+
+// MMD2/MMD3 song header
+typedef struct tagMMD2SONGHEADER
+{
+	MMD0SAMPLE sample[63];
+	WORD numblocks;		// # of blocks
+	WORD numsections;	// # of sections
+	DWORD playseqtable;	// filepos of play sequence
+	DWORD sectiontable;	// filepos of sections table (WORD array)
+	DWORD trackvols;	// filepos of tracks volume (BYTE array)
+	WORD numtracks;		// # of tracks (max 64)
+	WORD numpseqs;		// # of play sequences
+	DWORD trackpans;	// filepos of tracks pan values (BYTE array)
+	LONG flags3;		// 0x1:stereo_mix, 0x2:free_panning, 0x4:GM/XG compatibility
+	WORD voladj;		// vol_adjust (set to 100 if 0)
+	WORD channels;		// # of channels (4 if =0)
+	BYTE mix_echotype;	// 1:normal,2:xecho
+	BYTE mix_echodepth;	// 1..6
+	WORD mix_echolen;	// > 0
+	signed char mix_stereosep;	// -4..4
+	BYTE pad0[223];
+	WORD deftempo;		// BPM tempo
+	signed char playtransp;	// play transpose
+	BYTE flags;			// 0x1:filteron, 0x2:jumpingon, 0x4:jump8th, 0x8:instr_attached, 0x10:hex_vol, 0x20:PT_slides, 0x40:8ch_conv,0x80:hq slows playing speed
+	BYTE flags2;		// 0x80:mix_conv=on, [b4-b0]+1:tempo LPB, 0x20:tempo_mode
+	BYTE tempo2;		// tempo TPL
+	BYTE pad1[16];
+	BYTE mastervol;		// master volume
+	BYTE numsamples;	// # of samples (max 63)
+} MMD2SONGHEADER;
+
+// For MMD0 the note information is held in 3 bytes, byte0, byte1, byte2.  For reference we 
+// number the bits in each byte 0..7, where 0 is the low bit.
+// The note is held as bits 5..0 of byte0
+// The instrument is encoded in 6 bits,  bits 7 and 6 of byte0 and bits 7,6,5,4 of byte1
+// The command number is bits 3,2,1,0 of byte1, command data is in byte2:
+// For command 0, byte2 represents the second data byte, otherwise byte2
+// represents the first data byte.
+typedef struct tagMMD0BLOCK
+{
+	BYTE numtracks;
+	BYTE lines;		// File value is 1 less than actual, so 0 -> 1 line
+} MMD0BLOCK;		// BYTE data[lines+1][tracks][3];
+
+
+// For MMD1,MMD2,MMD3 the note information is carried in 4 bytes, byte0, byte1,
+// byte2 and byte3
+// The note is held as byte0 (values above 0x84 are ignored)
+// The instrument is held as byte1
+// The command number is held as byte2, command data is in byte3
+// For commands 0 and 0x19 byte3 represents the second data byte,
+// otherwise byte2 represents the first data byte.
+typedef struct tagMMD1BLOCK
+{
+	WORD numtracks;	// Number of tracks, may be > 64, but then that data is skipped.
+	WORD lines;		// Stored value is 1 less than actual, so 0 -> 1 line
+	DWORD info;		// Offset of BlockInfo (if 0, no block_info is present)
+} MMD1BLOCK;
+
+
+typedef struct tagMMD1BLOCKINFO
+{
+	DWORD hlmask;		// Unimplemented - ignore
+	DWORD blockname;	// file offset of block name
+	DWORD blocknamelen;	// length of block name (including term. 0)
+	DWORD pagetable;	// file offset of command page table
+	DWORD cmdexttable;	// file offset of command extension table
+	DWORD reserved[4];	// future expansion
+} MMD1BLOCKINFO;
+
+
+// A set of play sequences is stored as an array of ULONG files offsets
+// Each offset points to the play sequence itself.
+typedef struct tagMMD2PLAYSEQ
+{
+	CHAR name[32];
+	DWORD command_offs;	// filepos of command table
+	DWORD reserved;
+	WORD length;
+	WORD seq[512];	// skip if > 0x8000
+} MMD2PLAYSEQ;
+
+
+// A command table contains commands that effect a particular play sequence
+// entry.  The only commands read in are STOP or POSJUMP, all others are ignored
+// POSJUMP is presumed to have extra bytes containing a WORD for the position
+typedef struct tagMMDCOMMAND
+{
+	WORD offset;		// Offset within current sequence entry
+	BYTE cmdnumber;		// STOP (537) or POSJUMP (538) (others skipped)
+	BYTE extra_count;
+	BYTE extra_bytes[4];// [extra_count];
+} MMDCOMMAND;  // Last entry has offset == 0xFFFF, cmd_number == 0 and 0 extrabytes
+
+
+typedef struct tagMMD0EXP
+{
+	DWORD nextmod;			// File offset of next Hdr
+	DWORD exp_smp;			// Pointer to extra instrument data
+	WORD s_ext_entries;		// Number of extra instrument entries
+	WORD s_ext_entrsz;		// Size of extra instrument data
+	DWORD annotxt;
+	DWORD annolen;
+	DWORD iinfo;			// Instrument names
+	WORD i_ext_entries;	
+	WORD i_ext_entrsz;
+	DWORD jumpmask;
+	DWORD rgbtable;
+	BYTE channelsplit[4];	// Only used if 8ch_conv (extra channel for every nonzero entry)
+	DWORD n_info;
+	DWORD songname;			// Song name
+	DWORD songnamelen;
+	DWORD dumps;
+	DWORD mmdinfo;
+	DWORD mmdrexx;
+	DWORD mmdcmd3x;
+	DWORD trackinfo_ofs;	// ptr to song->numtracks ptrs to tag lists
+	DWORD effectinfo_ofs;	// ptr to group ptrs
+	DWORD tag_end;
+} MMD0EXP;
+
+#pragma pack()
+
+
+
+static void MedConvert(MODCOMMAND *p, const MMD0SONGHEADER *pmsh)
+//---------------------------------------------------------------
+{
+	UINT command = p->command;
+	UINT param = p->param;
+	switch(command)
+	{
+	case 0x00:	if (param) command = CMD_ARPEGGIO; else command = 0; break;
+	case 0x01:	command = CMD_PORTAMENTOUP; break;
+	case 0x02:	command = CMD_PORTAMENTODOWN; break;
+	case 0x03:	command = CMD_TONEPORTAMENTO; break;
+	case 0x04:	command = CMD_VIBRATO; break;
+	case 0x05:	command = CMD_TONEPORTAVOL; break;
+	case 0x06:	command = CMD_VIBRATOVOL; break;
+	case 0x07:	command = CMD_TREMOLO; break;
+	case 0x0A:	if (param & 0xF0) param &= 0xF0; command = CMD_VOLUMESLIDE; if (!param) command = 0; break;
+	case 0x0B:	command = CMD_POSITIONJUMP; break;
+	case 0x0C:	command = CMD_VOLUME;
+				if (pmsh->flags & MMD_FLAG_VOLHEX)
+				{
+					if (param < 0x80)
+					{
+						param = (param+1) / 2;
+					} else command = 0;
+				} else
+				{
+					if (param <= 0x99)
+					{
+						param = (param >> 4)*10+((param & 0x0F) % 10);
+						if (param > 64) param = 64;
+					} else command = 0;
+				}
+				break;
+	case 0x09:	command = (param < 0x20) ? CMD_SPEED : CMD_TEMPO; break;
+	case 0x0D:	if (param & 0xF0) param &= 0xF0; command = CMD_VOLUMESLIDE; if (!param) command = 0; break;
+	case 0x0F:	// Set Tempo / Special
+		// F.00 = Pattern Break
+		if (!param)	command = CMD_PATTERNBREAK;	else
+		// F.01 - F.F0: Set tempo/speed
+		if (param <= 0xF0)
+		{
+			if (pmsh->flags & MMD_FLAG_8CHANNEL)
+			{
+				param = (param > 10) ? 99 : bpmvals[param-1];
+			} else
+			// F.01 - F.0A: Set Speed
+			if (param <= 0x0A)
+			{
+				command = CMD_SPEED;
+			} else
+			// Old tempo
+			if (!(pmsh->flags2 & MMD_FLAG2_BPM))
+			{
+				param = _muldiv(param, 5*715909, 2*474326);
+			}
+			// F.0B - F.F0: Set Tempo (assumes LPB=4)
+			if (param > 0x0A)
+			{
+				command = CMD_TEMPO;
+				if (param < 0x21) param = 0x21;
+				if (param > 240) param = 240;
+			}
+		} else
+		switch(param)
+		{
+		// F.F1: Retrig 2x
+		case 0xF1:
+			command = CMD_MODCMDEX;
+			param = 0x93;
+			break;
+		// F.F2: Note Delay 2x
+		case 0xF2:
+			command = CMD_MODCMDEX;
+			param = 0xD3;
+			break;
+		// F.F3: Retrig 3x
+		case 0xF3:
+			command = CMD_MODCMDEX;
+			param = 0x92;
+			break;
+		// F.F4: Note Delay 1/3
+		case 0xF4:
+			command = CMD_MODCMDEX;
+			param = 0xD2;
+			break;
+		// F.F5: Note Delay 2/3
+		case 0xF5:
+			command = CMD_MODCMDEX;
+			param = 0xD4;
+			break;
+		// F.F8: Filter Off
+		case 0xF8:
+			command = CMD_MODCMDEX;
+			param = 0x00;
+			break;
+		// F.F9: Filter On
+		case 0xF9:
+			command = CMD_MODCMDEX;
+			param = 0x01;
+			break;
+		// F.FD: Very fast tone-portamento
+		case 0xFD:
+			command = CMD_TONEPORTAMENTO;
+			param = 0xFF;
+			break;
+		// F.FE: End Song
+		case 0xFE:
+			command = CMD_SPEED;
+			param = 0;
+			break;
+		// F.FF: Note Cut
+		case 0xFF:
+			command = CMD_MODCMDEX;
+			param = 0xC0;
+			break;
+		default:
+			param = command = 0;
+		}
+		break;
+	// 11.0x: Fine Slide Up
+	case 0x11:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0x10;
+		break;
+	// 12.0x: Fine Slide Down
+	case 0x12:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0x20;
+		break;
+	// 14.xx: Vibrato
+	case 0x14:
+		command = CMD_VIBRATO;
+		break;
+	// 15.xx: FineTune
+	case 0x15:
+		command = CMD_MODCMDEX;
+		param &= 0x0F;
+		param |= 0x50;
+		break;
+	// 16.xx: Pattern Loop
+	case 0x16:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0x60;
+		break;
+	// 18.xx: Note Cut
+	case 0x18:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0xC0;
+		break;
+	// 19.xx: Sample Offset
+	case 0x19:
+		command = CMD_OFFSET;
+		break;
+	// 1A.0x: Fine Volume Up
+	case 0x1A:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0xA0;
+		break;
+	// 1B.0x: Fine Volume Down
+	case 0x1B:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0xB0;
+		break;
+	// 1D.xx: Pattern Break
+	case 0x1D:
+		command = CMD_PATTERNBREAK;
+		break;
+	// 1E.0x: Pattern Delay
+	case 0x1E:
+		command = CMD_MODCMDEX;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0xE0;
+		break;
+	// 1F.xy: Retrig
+	case 0x1F:
+		command = CMD_RETRIG;
+		param &= 0x0F;
+		break;
+	// 2E.xx: set panning
+	case 0x2E:
+		command = CMD_MODCMDEX;
+		param = ((param + 0x10) & 0xFF) >> 1;
+		if (param > 0x0F) param = 0x0F;
+		param |= 0x80;
+		break;
+	default:
+		command = param = 0;
+	}
+	p->command = command;
+	p->param = param;
+}
+
+
+BOOL CSoundFile_ReadMed(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	const MEDMODULEHEADER *pmmh;
+	const MMD0SONGHEADER *pmsh;
+	const MMD2SONGHEADER *pmsh2;
+	const MMD0EXP *pmex;
+	DWORD dwBlockArr, dwSmplArr, dwExpData, wNumBlocks;
+	LPDWORD pdwTable;
+	CHAR version;
+	UINT deftempo;
+	int playtransp = 0;
+
+	if ((!lpStream) || (dwMemLength < 0x200)) return FALSE;
+	pmmh = (MEDMODULEHEADER *)lpStream;
+	if (((pmmh->id & 0x00FFFFFF) != 0x444D4D) || (!pmmh->song)) return FALSE;
+	// Check for 'MMDx'
+	DWORD dwSong = bswapBE32(pmmh->song);
+	if ((dwSong >= dwMemLength) || (dwSong + sizeof(MMD0SONGHEADER) >= dwMemLength)) return FALSE;
+	version = (signed char)((pmmh->id >> 24) & 0xFF);
+	if ((version < '0') || (version > '3')) return FALSE;
+	_this->m_nType = MOD_TYPE_MED;
+	_this->m_nSongPreAmp = 0x20;
+	dwBlockArr = bswapBE32(pmmh->blockarr);
+	dwSmplArr = bswapBE32(pmmh->smplarr);
+	dwExpData = bswapBE32(pmmh->expdata);
+	if ((dwExpData) && (dwExpData < dwMemLength - sizeof(MMD0EXP)))
+		pmex = (MMD0EXP *)(lpStream+dwExpData);
+	else
+		pmex = NULL;
+	pmsh = (MMD0SONGHEADER *)(lpStream + dwSong);
+	pmsh2 = (MMD2SONGHEADER *)pmsh;
+	wNumBlocks = bswapBE16(pmsh->numblocks);
+	_this->m_nChannels = 4;
+	_this->m_nSamples = pmsh->numsamples;
+	if (_this->m_nSamples > 63) _this->m_nSamples = 63;
+	// Tempo
+	_this->m_nDefaultTempo = 125;
+	deftempo = bswapBE16(pmsh->deftempo);
+	if (!deftempo) deftempo = 125;
+	if (pmsh->flags2 & MMD_FLAG2_BPM)
+	{
+		UINT tempo_tpl = (pmsh->flags2 & MMD_FLAG2_BMASK) + 1;
+		if (!tempo_tpl) tempo_tpl = 4;
+		deftempo *= tempo_tpl;
+		deftempo /= 4;
+	} else
+	{
+		if (pmsh->flags & MMD_FLAG_8CHANNEL && deftempo > 0 && deftempo <= 10)
+		{
+			deftempo = bpmvals[deftempo-1];
+		} else {
+			deftempo = _muldiv(deftempo, 5*715909, 2*474326);
+		}
+	}
+	// Speed
+	_this->m_nDefaultSpeed = pmsh->tempo2;
+	if (!_this->m_nDefaultSpeed) _this->m_nDefaultSpeed = 6;
+	if (deftempo < 0x21) deftempo = 0x21;
+	if (deftempo > 255)
+	{
+		while ((_this->m_nDefaultSpeed > 3) && (deftempo > 260))
+		{
+			deftempo = (deftempo * (_this->m_nDefaultSpeed - 1)) / _this->m_nDefaultSpeed;
+			_this->m_nDefaultSpeed--;
+		}
+		if (deftempo > 255) deftempo = 255;
+	}
+	_this->m_nDefaultTempo = deftempo;
+	// Reading Samples
+	for (UINT iSHdr=0; iSHdr<_this->m_nSamples; iSHdr++)
+	{
+		MODINSTRUMENT *pins = &_this->Ins[iSHdr+1];
+		pins->nLoopStart = bswapBE16(pmsh->sample[iSHdr].rep) << 1;
+		pins->nLoopEnd = pins->nLoopStart + (bswapBE16(pmsh->sample[iSHdr].replen) << 1);
+		pins->nVolume = (pmsh->sample[iSHdr].svol << 2);
+		pins->nGlobalVol = 64;
+		if (pins->nVolume > 256) pins->nVolume = 256;
+		pins->RelativeTone = -12 * pmsh->sample[iSHdr].strans;
+		pins->nPan = 128;
+		if (pins->nLoopEnd) pins->uFlags |= CHN_LOOP;
+	}
+	// Common Flags
+	if (!(pmsh->flags & 0x20)) _this->m_dwSongFlags |= SONG_FASTVOLSLIDES;
+	// Reading play sequence
+	if (version < '2')
+	{
+		UINT nbo = pmsh->songlen >> 8;
+		if (nbo >= MAX_ORDERS) nbo = MAX_ORDERS-1;
+		if (!nbo) nbo = 1;
+		SDL_memcpy(_this->Order, pmsh->playseq, nbo);
+		playtransp = pmsh->playtransp;
+	} else
+	{
+		UINT nOrders, nSections;
+		UINT nTrks = bswapBE16(pmsh2->numtracks);
+		if ((nTrks >= 4) && (nTrks <= 32)) _this->m_nChannels = nTrks;
+		DWORD playseqtable = bswapBE32(pmsh2->playseqtable);
+		UINT numplayseqs = bswapBE16(pmsh2->numpseqs);
+		if (!numplayseqs) numplayseqs = 1;
+		nOrders = 0;
+		nSections = bswapBE16(pmsh2->numsections);
+		DWORD sectiontable = bswapBE32(pmsh2->sectiontable);
+		if ((!nSections) || (!sectiontable) || (sectiontable >= dwMemLength-2)) nSections = 1;
+		nOrders = 0;
+		for (UINT iSection=0; iSection<nSections; iSection++)
+		{
+			UINT nplayseq = 0;
+			if ((sectiontable) && (sectiontable < dwMemLength-2))
+			{
+				nplayseq = lpStream[sectiontable+1];
+				sectiontable += 2; // WORDs
+			} else
+			{
+				nSections = 0;
+			}
+			UINT pseq = 0;
+			
+			if ((playseqtable) && (playseqtable < dwMemLength) && (nplayseq*4 < dwMemLength - playseqtable))
+			{
+				pseq = bswapBE32(((LPDWORD)(lpStream+playseqtable))[nplayseq]);
+			}
+			if ((pseq) && (pseq < dwMemLength - sizeof(MMD2PLAYSEQ)))
+			{
+				const MMD2PLAYSEQ *pmps = (MMD2PLAYSEQ *)(lpStream + pseq);
+				UINT n = bswapBE16(pmps->length);
+				if (n < (dwMemLength - (pseq + sizeof(*pmps)) + sizeof(pmps->seq)) / sizeof(pmps->seq[0]))
+				{
+					for (UINT i=0; i<n; i++)
+					{
+						UINT seqval = pmps->seq[i] >> 8;
+						if ((seqval < wNumBlocks) && (nOrders < MAX_ORDERS-1))
+						{
+							_this->Order[nOrders++] = seqval;
+						}
+					}
+				}
+			}
+		}
+		playtransp = pmsh2->playtransp;
+		while (nOrders < MAX_ORDERS) _this->Order[nOrders++] = 0xFF;
+	}
+	// Reading Expansion structure
+	if (pmex)
+	{
+		// Channel Split
+		if ((_this->m_nChannels == 4) && (pmsh->flags & MMD_FLAG_8CHANNEL))
+		{
+			for (UINT i8ch=0; i8ch<4; i8ch++)
+			{
+				if (pmex->channelsplit[i8ch]) _this->m_nChannels++;
+			}
+		}
+	}
+	// Reading samples
+	if (dwSmplArr > dwMemLength - 4*_this->m_nSamples) return TRUE;
+	pdwTable = (LPDWORD)(lpStream + dwSmplArr);
+	for (UINT iSmp=0; iSmp<_this->m_nSamples; iSmp++) if (pdwTable[iSmp])
+	{
+		UINT dwPos = bswapBE32(pdwTable[iSmp]);
+		if ((dwPos >= dwMemLength) || (dwPos + sizeof(MMDSAMPLEHEADER) >= dwMemLength)) continue;
+		MMDSAMPLEHEADER *psdh = (MMDSAMPLEHEADER *)(lpStream + dwPos);
+		UINT len = bswapBE32(psdh->length);
+		if ((len > MAX_SAMPLE_LENGTH) || (dwPos + len + 6 > dwMemLength)) len = 0;
+		UINT flags = RS_PCM8S, stype = bswapBE16(psdh->type);
+		LPSTR psdata = (LPSTR)(lpStream + dwPos + 6);
+		if (stype & 0x80)
+		{
+			psdata += (stype & 0x20) ? 14 : 6;
+		} else
+		{
+			if (stype & 0x10)
+			{
+				_this->Ins[iSmp+1].uFlags |= CHN_16BIT;
+				len /= 2;
+				flags = (stype & 0x20) ? RS_STPCM16M : RS_PCM16M;
+			} else
+			{
+				flags = (stype & 0x20) ? RS_STPCM8S : RS_PCM8S;
+			}
+			if (stype & 0x20) len /= 2;
+		}
+		_this->Ins[iSmp+1].nLength = len;
+		CSoundFile_ReadSample(_this, &_this->Ins[iSmp+1], flags, psdata, dwMemLength - dwPos - 6);
+	}
+	// Reading patterns (blocks)
+	if (wNumBlocks > MAX_PATTERNS) wNumBlocks = MAX_PATTERNS;
+	if ((!dwBlockArr) || (dwBlockArr > dwMemLength - 4*wNumBlocks)) return TRUE;
+	pdwTable = (LPDWORD)(lpStream + dwBlockArr);
+	playtransp += (version == '3') ? 24 : 48;
+	for (UINT iBlk=0; iBlk<wNumBlocks; iBlk++)
+	{
+		UINT dwPos = bswapBE32(pdwTable[iBlk]);
+		if ((!dwPos) || (dwPos >= dwMemLength) || (dwPos >= dwMemLength - 8)) continue;
+		UINT lines = 64, tracks = 4;
+		if (version == '0')
+		{
+			const MMD0BLOCK *pmb = (const MMD0BLOCK *)(lpStream + dwPos);
+			lines = pmb->lines + 1;
+			tracks = pmb->numtracks;
+			if (!tracks) tracks = _this->m_nChannels;
+			if ((_this->Patterns[iBlk] = CSoundFile_AllocatePattern(lines, _this->m_nChannels)) == NULL) continue;
+			_this->PatternSize[iBlk] = lines;
+			MODCOMMAND *p = _this->Patterns[iBlk];
+			LPBYTE s = (LPBYTE)(lpStream + dwPos + 2);
+			UINT maxlen = tracks*lines*3;
+			if (maxlen + dwPos > dwMemLength - 2) break;
+			for (UINT y=0; y<lines; y++)
+			{
+				for (UINT x=0; x<tracks; x++, s+=3) if (x < _this->m_nChannels)
+				{
+					BYTE note = s[0] & 0x3F;
+					BYTE instr = s[1] >> 4;
+					if (s[0] & 0x80) instr |= 0x10;
+					if (s[0] & 0x40) instr |= 0x20;
+					if ((note) && (note <= 132)) p->note = note + playtransp;
+					p->instr = instr;
+					p->command = s[1] & 0x0F;
+					p->param = s[2];
+					// if (!iBlk) Log("%02X.%02X.%02X | ", s[0], s[1], s[2]);
+					MedConvert(p, pmsh);
+					p++;
+				}
+				//if (!iBlk) Log("\n");
+			}
+		} else
+		{
+			const MMD1BLOCK *pmb = (MMD1BLOCK *)(lpStream + dwPos);
+			const MMD1BLOCKINFO *pbi = NULL;
+			BYTE *pcmdext = NULL;
+			lines = (pmb->lines >> 8) + 1;
+			tracks = pmb->numtracks >> 8;
+			if (!tracks) tracks = _this->m_nChannels;
+			if ((_this->Patterns[iBlk] = CSoundFile_AllocatePattern(lines, _this->m_nChannels)) == NULL) continue;
+			_this->PatternSize[iBlk] = (WORD)lines;
+			DWORD dwBlockInfo = bswapBE32(pmb->info);
+			if ((dwBlockInfo) && (dwBlockInfo < dwMemLength - sizeof(MMD1BLOCKINFO)))
+			{
+				pbi = (MMD1BLOCKINFO *)(lpStream + dwBlockInfo);
+				if ((pbi->blockname) && (pbi->blocknamelen))
+				{
+					DWORD nameofs = bswapBE32(pbi->blockname);
+					UINT namelen = bswapBE32(pbi->blocknamelen);
+					if ((nameofs < dwMemLength) && (namelen < dwMemLength + nameofs))
+					{
+						CSoundFile_SetPatternName(_this, iBlk, (LPCSTR)(lpStream+nameofs));
+					}
+				}
+				if (pbi->cmdexttable)
+				{
+					DWORD cmdexttable = bswapBE32(pbi->cmdexttable);
+					if (cmdexttable < dwMemLength - 4)
+					{
+						cmdexttable = bswapBE32(*(DWORD *)(lpStream + cmdexttable));
+						if ((cmdexttable) && (cmdexttable <= dwMemLength - lines*tracks))
+						{
+							pcmdext = (BYTE *)(lpStream + cmdexttable);
+						}
+					}
+				}
+			}
+			MODCOMMAND *p = _this->Patterns[iBlk];
+			LPBYTE s = (LPBYTE)(lpStream + dwPos + 8);
+			UINT maxlen = tracks*lines*4;
+			if (maxlen + dwPos > dwMemLength - 8) break;
+			for (UINT y=0; y<lines; y++)
+			{
+				for (UINT x=0; x<tracks; x++, s+=4) if (x < _this->m_nChannels)
+				{
+					BYTE note = s[0];
+					if ((note) && (note <= 132))
+					{
+						int rnote = note + playtransp;
+						if (rnote < 1) rnote = 1;
+						if (rnote > NOTE_MAX) rnote = NOTE_MAX;
+						p->note = (BYTE)rnote;
+					}
+					p->instr = s[1];
+					p->command = s[2];
+					p->param = s[3];
+					if (pcmdext) p->vol = pcmdext[x];
+					MedConvert(p, pmsh);
+					p++;
+				}
+				if (pcmdext) pcmdext += tracks;
+			}
+		}
+	}
+	// Setup channel pan positions
+	for (UINT iCh=0; iCh<_this->m_nChannels; iCh++)
+	{
+		_this->ChnSettings[iCh].nPan = (((iCh&3) == 1) || ((iCh&3) == 2)) ? 0xC0 : 0x40;
+		_this->ChnSettings[iCh].nVolume = 64;
+	}
+	return TRUE;
+}
+