static int pt3_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
iff_handle handle;
char buf[20];
int ret;
LOAD_INIT();
hio_read32b(f); /* FORM */
hio_read32b(f); /* size */
hio_read32b(f); /* MODL */
hio_read32b(f); /* VERS */
hio_read32b(f); /* VERS size */
hio_read(buf, 1, 10, f);
libxmp_set_type(m, "%-6.6s IFFMODL", buf + 4);
handle = libxmp_iff_new();
if (handle == NULL)
return -1;
/* IFF chunk IDs */
ret = libxmp_iff_register(handle, "INFO", get_info);
ret |= libxmp_iff_register(handle, "CMNT", get_cmnt);
ret |= libxmp_iff_register(handle, "PTDT", get_ptdt);
if (ret != 0)
return -1;
libxmp_iff_set_quirk(handle, IFF_FULL_CHUNK_SIZE);
/* Load IFF chunks */
if (libxmp_iff_load(handle, m, f, NULL) < 0) {
libxmp_iff_release(handle);
return -1;
}
libxmp_iff_release(handle);
/* Sanity check */
if (m->mod.smp <= 0) {
return -1;
}
return 0;
}
static int get_init(struct module_data *m, int size, HIO_HANDLE *f, void *parm)
{
struct xmp_module *mod = &m->mod;
struct local_data *data = (struct local_data *)parm;
char buf[64];
int flags;
hio_read(buf, 1, 64, f);
strncpy(mod->name, buf, 63); /* ensure string terminator */
libxmp_set_type(m, "Galaxy Music System 5.0");
flags = hio_read8(f); /* bit 0: Amiga period */
if (~flags & 0x01)
m->period_type = PERIOD_LINEAR;
mod->chn = hio_read8(f);
mod->spd = hio_read8(f);
mod->bpm = hio_read8(f);
hio_read16l(f); /* unknown - 0x01c5 */
hio_read16l(f); /* unknown - 0xff00 */
hio_read8(f); /* unknown - 0x80 */
hio_read(data->chn_pan, 1, 64, f);
return 0;
}
static int coco_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
struct xmp_event *event;
int i, j;
int seq_ptr, pat_ptr, smp_ptr[100];
LOAD_INIT();
mod->chn = hio_read8(f) & 0x3f;
libxmp_read_title(f, mod->name, 20);
for (i = 0; i < 20; i++) {
if (mod->name[i] == 0x0d)
mod->name[i] = 0;
}
libxmp_set_type(m, "Coconizer");
mod->ins = mod->smp = hio_read8(f);
mod->len = hio_read8(f);
mod->pat = hio_read8(f);
mod->trk = mod->pat * mod->chn;
seq_ptr = hio_read32l(f);
pat_ptr = hio_read32l(f);
MODULE_INFO();
if (libxmp_init_instrument(m) < 0)
return -1;
m->vol_table = (int *)arch_vol_table;
m->volbase = 0xff;
for (i = 0; i < mod->ins; i++) {
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
smp_ptr[i] = hio_read32l(f);
mod->xxs[i].len = hio_read32l(f);
mod->xxi[i].sub[0].vol = 0xff - hio_read32l(f);
mod->xxi[i].sub[0].pan = 0x80;
mod->xxs[i].lps = hio_read32l(f);
mod->xxs[i].lpe = mod->xxs[i].lps + hio_read32l(f);
if (mod->xxs[i].lpe)
mod->xxs[i].lpe -= 1;
mod->xxs[i].flg = mod->xxs[i].lps > 0 ? XMP_SAMPLE_LOOP : 0;
hio_read(mod->xxi[i].name, 1, 11, f);
for (j = 0; j < 11; j++) {
if (mod->xxi[i].name[j] == 0x0d)
mod->xxi[i].name[j] = 0;
}
hio_read8(f); /* unused */
mod->xxi[i].sub[0].sid = i;
if (mod->xxs[i].len > 0)
mod->xxi[i].nsm = 1;
D_(D_INFO "[%2X] %-10.10s %05x %05x %05x %c V%02x",
i, mod->xxi[i].name,
mod->xxs[i].len, mod->xxs[i].lps, mod->xxs[i].lpe,
mod->xxs[i].flg & XMP_SAMPLE_LOOP ? 'L' : ' ',
mod->xxi[i].sub[0].vol);
}
/* Sequence */
hio_seek(f, start + seq_ptr, SEEK_SET);
for (i = 0; ; i++) {
uint8 x = hio_read8(f);
if (x == 0xff)
break;
mod->xxo[i] = x;
}
for (i++; i % 4; i++) /* for alignment */
hio_read8(f);
/* Patterns */
if (libxmp_init_pattern(mod) < 0)
return -1;
D_(D_INFO "Stored patterns: %d", mod->pat);
for (i = 0; i < mod->pat; i++) {
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (j = 0; j < (64 * mod->chn); j++) {
event = &EVENT (i, j % mod->chn, j / mod->chn);
event->fxp = hio_read8(f);
event->fxt = hio_read8(f);
event->ins = hio_read8(f);
event->note = hio_read8(f);
if (event->note)
event->note += 12;
fix_effect(event);
}
}
/* Read samples */
D_(D_INFO "Stored samples : %d", mod->smp);
for (i = 0; i < mod->ins; i++) {
if (mod->xxi[i].nsm == 0)
continue;
hio_seek(f, start + smp_ptr[i], SEEK_SET);
if (libxmp_load_sample(m, f, SAMPLE_FLAG_VIDC, &mod->xxs[i], NULL) < 0)
return -1;
}
for (i = 0; i < mod->chn; i++) {
mod->xxc[i].pan = DEFPAN((((i + 3) / 2) % 2) * 0xff);
}
return 0;
}
static int psm_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
int c, r, i;
struct xmp_event *event;
uint8 buf[1024];
uint32 p_ord, p_chn, p_pat, p_ins;
uint32 p_smp[64];
int type, ver /*, mode*/;
LOAD_INIT();
hio_read32b(f);
hio_read(buf, 1, 60, f);
strncpy(mod->name, (char *)buf, 60);
type = hio_read8(f); /* song type */
ver = hio_read8(f); /* song version */
/*mode =*/ hio_read8(f); /* pattern version */
if (type & 0x01) /* song mode not supported */
return -1;
libxmp_set_type(m, "Protracker Studio PSM %d.%02d", MSN(ver), LSN(ver));
mod->spd = hio_read8(f);
mod->bpm = hio_read8(f);
hio_read8(f); /* master volume */
hio_read16l(f); /* song length */
mod->len = hio_read16l(f);
mod->pat = hio_read16l(f);
mod->ins = hio_read16l(f);
hio_read16l(f); /* ignore channels to play */
mod->chn = hio_read16l(f); /* use channels to proceed */
mod->smp = mod->ins;
mod->trk = mod->pat * mod->chn;
/* Sanity check */
if (mod->len > 256 || mod->pat > 256 || mod->ins > 255 ||
mod->chn > XMP_MAX_CHANNELS) {
return -1;
}
p_ord = hio_read32l(f);
p_chn = hio_read32l(f);
p_pat = hio_read32l(f);
p_ins = hio_read32l(f);
/* should be this way but fails with Silverball song 6 */
//mod->flg |= ~type & 0x02 ? XXM_FLG_MODRNG : 0;
m->c4rate = C4_NTSC_RATE;
MODULE_INFO();
hio_seek(f, start + p_ord, SEEK_SET);
hio_read(mod->xxo, 1, mod->len, f);
hio_seek(f, start + p_chn, SEEK_SET);
hio_read(buf, 1, 16, f);
if (libxmp_init_instrument(m) < 0)
return -1;
hio_seek(f, start + p_ins, SEEK_SET);
for (i = 0; i < mod->ins; i++) {
uint16 flags, c2spd;
int finetune;
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
hio_read(buf, 1, 13, f); /* sample filename */
hio_read(buf, 1, 24, f); /* sample description */
buf[24] = 0; /* add string termination */
strncpy((char *)mod->xxi[i].name, (char *)buf, 24);
p_smp[i] = hio_read32l(f);
hio_read32l(f); /* memory location */
hio_read16l(f); /* sample number */
flags = hio_read8(f); /* sample type */
mod->xxs[i].len = hio_read32l(f);
mod->xxs[i].lps = hio_read32l(f);
mod->xxs[i].lpe = hio_read32l(f);
finetune = (int8)(hio_read8(f) << 4);
mod->xxi[i].sub[0].vol = hio_read8(f);
c2spd = hio_read16l(f);
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
mod->xxs[i].flg = flags & 0x80 ? XMP_SAMPLE_LOOP : 0;
mod->xxs[i].flg |= flags & 0x20 ? XMP_SAMPLE_LOOP_BIDIR : 0;
libxmp_c2spd_to_note(c2spd, &mod->xxi[i].sub[0].xpo,
&mod->xxi[i].sub[0].fin);
mod->xxi[i].sub[0].fin += finetune;
if (mod->xxs[i].len > 0)
mod->xxi[i].nsm = 1;
D_(D_INFO "[%2X] %-22.22s %04x %04x %04x %c V%02x %5d",
i, mod->xxi[i].name, mod->xxs[i].len, mod->xxs[i].lps,
mod->xxs[i].lpe, mod->xxs[i].flg & XMP_SAMPLE_LOOP ?
'L' : ' ', mod->xxi[i].sub[0].vol, c2spd);
}
if (libxmp_init_pattern(mod) < 0)
return -1;
D_(D_INFO "Stored patterns: %d", mod->pat);
hio_seek(f, start + p_pat, SEEK_SET);
for (i = 0; i < mod->pat; i++) {
int len;
uint8 b, rows, chan;
len = hio_read16l(f) - 4;
rows = hio_read8(f);
if (rows > 64) {
return -1;
}
chan = hio_read8(f);
if (chan > 32) {
return -1;
}
if (libxmp_alloc_pattern_tracks(mod, i, rows) < 0)
return -1;
for (r = 0; r < rows; r++) {
while (len > 0) {
b = hio_read8(f);
len--;
if (b == 0)
break;
c = b & 0x0f;
if (c >= mod->chn)
return -1;
event = &EVENT(i, c, r);
if (b & 0x80) {
event->note = hio_read8(f) + 36 + 1;
event->ins = hio_read8(f);
len -= 2;
}
if (b & 0x40) {
event->vol = hio_read8(f) + 1;
len--;
}
if (b & 0x20) {
event->fxt = hio_read8(f);
event->fxp = hio_read8(f);
len -= 2;
}
}
}
if (len > 0)
hio_seek(f, len, SEEK_CUR);
}
/* Read samples */
D_(D_INFO "Stored samples: %d", mod->smp);
for (i = 0; i < mod->ins; i++) {
hio_seek(f, start + p_smp[i], SEEK_SET);
if (libxmp_load_sample(m, f, SAMPLE_FLAG_DIFF,
&mod->xxs[mod->xxi[i].sub[0].sid], NULL) < 0)
return -1;
}
return 0;
}
static int hsc_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
int pat, i, r, c;
struct xmp_event *event;
uint8 *x, *sid, e[2], buf[128 * 12];
LOAD_INIT();
hio_read(buf, 1, 128 * 12, f);
x = buf;
for (i = 0; i < 128; i++, x += 12) {
if (x[9] & ~0x3 || x[10] & ~0x3) /* Test waveform register */
break;
if (x[8] & ~0xf) /* Test feedback & algorithm */
break;
}
mod->ins = i;
hio_seek(f, start + 0, SEEK_SET);
mod->chn = 9;
mod->bpm = 135;
mod->spd = 6;
mod->smp = mod->ins;
m->quirk |= QUIRK_LINEAR;
libxmp_set_type(m, "HSC-Tracker");
MODULE_INFO();
/* Read instruments */
if (libxmp_init_instrument(m) < 0)
return -1;
hio_read(buf, 1, 128 * 12, f);
sid = buf;
for (i = 0; i < mod->ins; i++, sid += 12) {
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
mod->xxi[i].nsm = 1;
mod->xxi[i].sub[0].vol = 0x40;
mod->xxi[i].sub[0].fin = (int8)sid[11] / 4;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].xpo = 0;
mod->xxi[i].sub[0].sid = i;
mod->xxi[i].rls = LSN(sid[7]) * 32; /* carrier release */
if (libxmp_load_sample(m, f, SAMPLE_FLAG_ADLIB | SAMPLE_FLAG_HSC,
&mod->xxs[i], (char *)sid) < 0)
return -1;
}
/* Read orders */
for (pat = i = 0; i < 51; i++) {
mod->xxo[i] = hio_read8(f);
if (mod->xxo[i] > 127)
break; /* FIXME: jump line */
if (mod->xxo[i] > pat)
pat = mod->xxo[i];
}
hio_seek(f, 50 - i, SEEK_CUR);
mod->len = i;
mod->pat = pat + 1;
mod->trk = mod->pat * mod->chn;
D_(D_INFO "Module length: %d", mod->len);
D_(D_INFO "Instruments: %d", mod->ins);
D_(D_INFO "Stored patterns: %d", mod->pat);
if (libxmp_init_pattern(mod) < 0)
return -1;
/* Read and convert patterns */
for (i = 0; i < mod->pat; i++) {
int ins[9] = { 1, 2, 3, 4, 5, 6, 7, 8, 9 };
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (r = 0; r < mod->xxp[i]->rows; r++) {
for (c = 0; c < 9; c++) {
hio_read(e, 1, 2, f);
event = &EVENT (i, c, r);
if (e[0] & 0x80) {
ins[c] = e[1] + 1;
} else if (e[0] == 0x7f) {
event->note = XMP_KEY_OFF;
} else if (e[0] > 0) {
event->note = e[0] + 25;
event->ins = ins[c];
}
event->fxt = 0;
event->fxp = 0;
if (e[1] == 0x01) {
event->fxt = 0x0d;
event->fxp = 0;
}
}
}
}
for (i = 0; i < mod->chn; i++) {
mod->xxc[i].pan = 0x80;
mod->xxc[i].flg = XMP_CHANNEL_SYNTH;
}
m->synth = &synth_adlib;
return 0;
}
static int mtp_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
struct xmp_event *event;
int i, j, k;
uint8 buffer[25];
int blocksize;
LOAD_INIT();
hio_read(buffer, 6, 1, f);
if (!memcmp(buffer, "SONGOK", 6))
libxmp_set_type(m, "IIgs SoundSmith");
else if (!memcmp(buffer, "IAN92a", 8))
libxmp_set_type(m, "IIgs MegaTracker");
else
return -1;
blocksize = hio_read16l(f);
mod->spd = hio_read16l(f);
hio_seek(f, 10, SEEK_CUR); /* skip 10 reserved bytes */
mod->ins = mod->smp = 15;
if (libxmp_init_instrument(m) < 0)
return -1;
for (i = 0; i < mod->ins; i++) {
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
hio_read(buffer, 1, 22, f);
if (buffer[0]) {
buffer[buffer[0] + 1] = 0;
libxmp_instrument_name(mod, i, buffer + 1, 22);
}
hio_read16l(f); /* skip 2 reserved bytes */
mod->xxi[i].sub[0].vol = hio_read8(f) >> 2;
mod->xxi[i].sub[0].pan = 0x80;
hio_seek(f, 5, SEEK_CUR); /* skip 5 bytes */
}
mod->len = hio_read8(f) & 0x7f;
hio_read8(f);
hio_read(mod->xxo, 1, 128, f);
MODULE_INFO();
hio_seek(f, start + 600, SEEK_SET);
mod->chn = 14;
mod->pat = blocksize / (14 * 64);
mod->trk = mod->pat * mod->chn;
if (libxmp_init_pattern(mod) < 0)
return -1;
/* Read and convert patterns */
D_(D_INFO "Stored patterns: %d", mod->pat);
/* Load notes */
for (i = 0; i < mod->pat; i++) {
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (j = 0; j < mod->xxp[i]->rows; j++) {
for (k = 0; k < mod->chn; k++) {
event = &EVENT(i, k, j);
event->note = hio_read8(f);;
if (event->note)
event->note += 24;
}
}
}
/* Load fx1 */
for (i = 0; i < mod->pat; i++) {
for (j = 0; j < mod->xxp[i]->rows; j++) {
for (k = 0; k < mod->chn; k++) {
uint8 x;
event = &EVENT(i, k, j);
x = hio_read8(f);;
event->ins = x >> 4;
switch (x & 0x0f) {
case 0x00:
event->fxt = FX_ARPEGGIO;
break;
case 0x03:
event->fxt = FX_VOLSET;
break;
case 0x05:
event->fxt = FX_VOLSLIDE_DN;
break;
case 0x06:
event->fxt = FX_VOLSLIDE_UP;
break;
case 0x0f:
event->fxt = FX_SPEED;
break;
}
}
}
}
/* Load fx2 */
for (i = 0; i < mod->pat; i++) {
for (j = 0; j < mod->xxp[i]->rows; j++) {
for (k = 0; k < mod->chn; k++) {
event = &EVENT(i, k, j);
event->fxp = hio_read8(f);;
switch (event->fxt) {
case FX_VOLSET:
case FX_VOLSLIDE_DN:
case FX_VOLSLIDE_UP:
event->fxp >>= 2;
}
}
}
}
/* Read instrument data */
D_(D_INFO "Instruments : %d ", mod->ins);
for (i = 0; i < mod->ins; i++) {
HIO_HANDLE *s;
char filename[1024];
if (!mod->xxi[i].name[0])
continue;
strncpy(filename, m->dirname, NAME_SIZE);
if (*filename)
strncat(filename, "/", NAME_SIZE);
strncat(filename, (char *)mod->xxi[i].name, NAME_SIZE);
if ((s = hio_open_file(filename, "rb")) != NULL) {
asif_load(m, s, i);
hio_close(s);
}
#if 0
mod->xxs[i].lps = 0;
mod->xxs[i].lpe = 0;
mod->xxs[i].flg = mod->xxs[i].lpe > 0 ? XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].fin = 0;
mod->xxi[i].sub[0].pan = 0x80;
#endif
D_(D_INFO "[%2X] %-22.22s %04x %04x %04x %c V%02x", i,
mod->xxi[i].name,
mod->xxs[i].len, mod->xxs[i].lps, mod->xxs[i].lpe,
mod->xxs[i].flg & XMP_SAMPLE_LOOP ? 'L' : ' ',
mod->xxi[i].sub[0].vol);
}
return 0;
}
static int mfp_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
int i, j, k, x, y;
struct xmp_event *event;
struct stat st;
char smp_filename[PATH_MAX];
HIO_HANDLE *s;
int size1 /*, size2*/;
int pat_addr, pat_table[128][4];
uint8 buf[1024], mod_event[4];
int row;
LOAD_INIT();
libxmp_set_type(m, "Magnetic Fields Packer");
MODULE_INFO();
mod->chn = 4;
mod->ins = mod->smp = 31;
if (libxmp_init_instrument(m) < 0)
return -1;
for (i = 0; i < 31; i++) {
int loop_size;
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
mod->xxs[i].len = 2 * hio_read16b(f);
mod->xxi[i].sub[0].fin = (int8)(hio_read8(f) << 4);
mod->xxi[i].sub[0].vol = hio_read8(f);
mod->xxs[i].lps = 2 * hio_read16b(f);
loop_size = hio_read16b(f);
mod->xxs[i].lpe = mod->xxs[i].lps + 2 * loop_size;
mod->xxs[i].flg = loop_size > 1 ? XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
mod->xxi[i].rls = 0xfff;
if (mod->xxs[i].len > 0)
mod->xxi[i].nsm = 1;
D_(D_INFO "[%2X] %04x %04x %04x %c V%02x %+d",
i, mod->xxs[i].len, mod->xxs[i].lps,
mod->xxs[i].lpe,
loop_size > 1 ? 'L' : ' ',
mod->xxi[i].sub[0].vol, mod->xxi[i].sub[0].fin >> 4);
}
mod->len = mod->pat = hio_read8(f);
hio_read8(f); /* restart */
for (i = 0; i < 128; i++) {
mod->xxo[i] = hio_read8(f);
}
if (hio_error(f)) {
return -1;
}
mod->trk = mod->pat * mod->chn;
/* Read and convert patterns */
if (libxmp_init_pattern(mod) < 0)
return -1;
size1 = hio_read16b(f);
/* size2 = */ hio_read16b(f);
for (i = 0; i < size1; i++) { /* Read pattern table */
for (j = 0; j < 4; j++) {
pat_table[i][j] = hio_read16b(f);
}
}
D_(D_INFO "Stored patterns: %d ", mod->pat);
pat_addr = hio_tell(f);
for (i = 0; i < mod->pat; i++) {
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (j = 0; j < 4; j++) {
hio_seek(f, pat_addr + pat_table[i][j], SEEK_SET);
hio_read(buf, 1, 1024, f);
for (row = k = 0; k < 4; k++) {
for (x = 0; x < 4; x++) {
for (y = 0; y < 4; y++, row++) {
event = &EVENT(i, j, row);
memcpy(mod_event, &buf[buf[buf[buf[k] + x] + y] * 2], 4);
libxmp_decode_protracker_event(event, mod_event);
}
}
}
}
}
/* Read samples */
D_(D_INFO "Loading samples: %d", mod->ins);
/* first check smp.filename */
if (strlen(m->basename) < 5 || m->basename[3] != '.') {
fprintf(stderr, "libxmp: invalid filename %s\n", m->basename);
goto err;
}
m->basename[0] = 's';
m->basename[1] = 'm';
m->basename[2] = 'p';
snprintf(smp_filename, PATH_MAX, "%s%s", m->dirname, m->basename);
if (stat(smp_filename, &st) < 0) {
/* handle .set filenames like in Kid Chaos*/
char *x;
if (strchr(m->basename, '-')) {
if ((x = strrchr(smp_filename, '-')))
strcpy(x, ".set");
}
if (stat(smp_filename, &st) < 0) {
fprintf(stderr, "libxmp: missing file %s\n",
smp_filename);
goto err;
}
}
if ((s = hio_open(smp_filename, "rb")) == NULL) {
fprintf(stderr, "libxmp: can't open sample file %s\n",
smp_filename);
goto err;
}
for (i = 0; i < mod->ins; i++) {
if (libxmp_load_sample(m, s, SAMPLE_FLAG_FULLREP,
&mod->xxs[mod->xxi[i].sub[0].sid], NULL) < 0) {
free(s);
return -1;
}
}
hio_close(s);
m->period_type = PERIOD_MODRNG;
return 0;
err:
for (i = 0; i < mod->ins; i++) {
mod->xxi[i].nsm = 0;
memset(&mod->xxs[i], 0, sizeof(struct xmp_sample));
}
return 0;
}
static int gdm_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
struct xmp_event *event;
int vermaj, vermin, tvmaj, tvmin, tracker;
int /*origfmt,*/ ord_ofs, pat_ofs, ins_ofs, smp_ofs;
uint8 buffer[32], panmap[32];
int i;
LOAD_INIT();
hio_read32b(f); /* skip magic */
hio_read(mod->name, 1, 32, f);
hio_seek(f, 32, SEEK_CUR); /* skip author */
hio_seek(f, 7, SEEK_CUR);
vermaj = hio_read8(f);
vermin = hio_read8(f);
tracker = hio_read16l(f);
tvmaj = hio_read8(f);
tvmin = hio_read8(f);
if (tracker == 0) {
libxmp_set_type(m, "GDM %d.%02d (2GDM %d.%02d)",
vermaj, vermin, tvmaj, tvmin);
} else {
libxmp_set_type(m, "GDM %d.%02d (unknown tracker %d.%02d)",
vermaj, vermin, tvmaj, tvmin);
}
hio_read(panmap, 32, 1, f);
for (i = 0; i < 32; i++) {
if (panmap[i] == 255) {
panmap[i] = 8;
mod->xxc[i].vol = 0;
mod->xxc[i].flg |= XMP_CHANNEL_MUTE;
} else if (panmap[i] == 16) {
panmap[i] = 8;
}
mod->xxc[i].pan = 0x80 + (panmap[i] - 8) * 16;
}
mod->gvl = hio_read8(f);
mod->spd = hio_read8(f);
mod->bpm = hio_read8(f);
/*origfmt =*/ hio_read16l(f);
ord_ofs = hio_read32l(f);
mod->len = hio_read8(f) + 1;
pat_ofs = hio_read32l(f);
mod->pat = hio_read8(f) + 1;
ins_ofs = hio_read32l(f);
smp_ofs = hio_read32l(f);
mod->ins = mod->smp = hio_read8(f) + 1;
m->c4rate = C4_NTSC_RATE;
MODULE_INFO();
hio_seek(f, start + ord_ofs, SEEK_SET);
for (i = 0; i < mod->len; i++)
mod->xxo[i] = hio_read8(f);
/* Read instrument data */
hio_seek(f, start + ins_ofs, SEEK_SET);
if (libxmp_init_instrument(m) < 0)
return -1;
for (i = 0; i < mod->ins; i++) {
int flg, c4spd, vol, pan;
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
if (hio_read(buffer, 1, 32, f) != 32)
return -1;
libxmp_instrument_name(mod, i, buffer, 32);
hio_seek(f, 12, SEEK_CUR); /* skip filename */
hio_read8(f); /* skip EMS handle */
mod->xxs[i].len = hio_read32l(f);
mod->xxs[i].lps = hio_read32l(f);
mod->xxs[i].lpe = hio_read32l(f);
flg = hio_read8(f);
c4spd = hio_read16l(f);
vol = hio_read8(f);
pan = hio_read8(f);
mod->xxi[i].sub[0].vol = vol > 0x40 ? 0x40 : vol;
mod->xxi[i].sub[0].pan = pan > 15 ? 0x80 : 0x80 + (pan - 8) * 16;
libxmp_c2spd_to_note(c4spd, &mod->xxi[i].sub[0].xpo, &mod->xxi[i].sub[0].fin);
mod->xxi[i].sub[0].sid = i;
mod->xxs[i].flg = 0;
if (mod->xxs[i].len > 0)
mod->xxi[i].nsm = 1;
if (flg & 0x01) {
mod->xxs[i].flg |= XMP_SAMPLE_LOOP;
}
if (flg & 0x02) {
mod->xxs[i].flg |= XMP_SAMPLE_16BIT;
mod->xxs[i].len >>= 1;
mod->xxs[i].lps >>= 1;
mod->xxs[i].lpe >>= 1;
}
D_(D_INFO "[%2X] %-32.32s %05x%c%05x %05x %c V%02x P%02x %5d",
i, mod->xxi[i].name,
mod->xxs[i].len,
mod->xxs[i].flg & XMP_SAMPLE_16BIT ? '+' : ' ',
mod->xxs[i].lps,
mod->xxs[i].lpe,
mod->xxs[i].flg & XMP_SAMPLE_LOOP ? 'L' : ' ',
mod->xxi[i].sub[0].vol,
mod->xxi[i].sub[0].pan,
c4spd);
}
static int chip_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
struct mod_header mh;
uint8 *tidx;
int i, j, tnum;
LOAD_INIT();
if ((tidx = calloc(1, 1024)) == NULL) {
goto err;
}
hio_read(&mh.name, 20, 1, f);
hio_read16b(f);
for (i = 0; i < 31; i++) {
hio_read(&mh.ins[i].name, 22, 1, f);
mh.ins[i].size = hio_read16b(f);
mh.ins[i].finetune = hio_read8(f);
mh.ins[i].volume = hio_read8(f);
mh.ins[i].loop_start = hio_read16b(f);
mh.ins[i].loop_size = hio_read16b(f);
}
hio_read(&mh.magic, 4, 1, f);
mh.len = hio_read8(f);
/* Sanity check */
if (mh.len > 128) {
goto err2;
}
mh.restart = hio_read8(f);
hio_read(tidx, 1024, 1, f);
hio_read16b(f);
mod->chn = 4;
mod->ins = 31;
mod->smp = mod->ins;
mod->len = mh.len;
mod->pat = mh.len;
mod->rst = mh.restart;
tnum = 0;
for (i = 0; i < mod->len; i++) {
mod->xxo[i] = i;
for (j = 0; j < 4; j++) {
int t = tidx[2 * (4 * i + j)];
if (t > tnum)
tnum = t;
}
}
mod->trk = tnum + 1;
strncpy(mod->name, (char *)mh.name, 20);
libxmp_set_type(m, "Chiptracker");
MODULE_INFO();
if (libxmp_init_instrument(m) < 0)
goto err2;
for (i = 0; i < mod->ins; i++) {
struct xmp_instrument *xxi = &mod->xxi[i];
struct xmp_sample *xxs = &mod->xxs[i];
struct xmp_subinstrument *sub;
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
goto err2;
sub = &xxi->sub[0];
xxs->len = 2 * mh.ins[i].size;
xxs->lps = mh.ins[i].loop_start;
xxs->lpe = xxs->lps + 2 * mh.ins[i].loop_size;
xxs->flg = mh.ins[i].loop_size > 1 ? XMP_SAMPLE_LOOP : 0;
sub->fin = (int8) (mh.ins[i].finetune << 4);
sub->vol = mh.ins[i].volume;
sub->pan = 0x80;
sub->sid = i;
if (xxs->len > 0)
xxi->nsm = 1;
libxmp_instrument_name(mod, i, mh.ins[i].name, 22);
}
if (libxmp_init_pattern(mod) < 0)
goto err2;
for (i = 0; i < mod->len; i++) {
if (libxmp_alloc_pattern(mod, i) < 0)
goto err2;
mod->xxp[i]->rows = 64;
for (j = 0; j < 4; j++) {
int t = tidx[2 * (4 * i + j)];
mod->xxp[i]->index[j] = t;
}
}
/* Load and convert tracks */
D_(D_INFO "Stored tracks: %d", mod->trk);
for (i = 0; i < mod->trk; i++) {
if (libxmp_alloc_track(mod, i, 64) < 0)
goto err2;
for (j = 0; j < 64; j++) {
struct xmp_event *event = &mod->xxt[i]->event[j];
uint8 e[4];
hio_read(e, 1, 4, f);
if (e[0] && e[0] != 0xa8)
event->note = 13 + e[0] / 2;
event->ins = e[1];
event->fxt = e[2] & 0x0f;
event->fxp = e[3];
}
}
m->period_type = PERIOD_MODRNG;
/* Load samples */
D_(D_INFO "Stored samples: %d", mod->smp);
for (i = 0; i < mod->smp; i++) {
if (mod->xxs[i].len == 0)
continue;
if (libxmp_load_sample(m, f, SAMPLE_FLAG_FULLREP, &mod->xxs[i], NULL) < 0)
goto err2;
}
free(tidx);
return 0;
err2:
free(tidx);
err:
return -1;
}
static int no_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
struct xmp_event *event;
int i, j, k;
int nsize;
LOAD_INIT();
hio_read32b(f); /* NO 0x00 0x00 */
libxmp_set_type(m, "Liquid Tracker");
nsize = hio_read8(f);
for (i = 0; i < nsize; i++) {
uint8 x = hio_read8(f);
if (i < XMP_NAME_SIZE)
mod->name[i] = x;
}
hio_read16l(f);
hio_read16l(f);
hio_read16l(f);
hio_read16l(f);
hio_read8(f);
mod->pat = hio_read8(f);
hio_read8(f);
mod->chn = hio_read8(f);
mod->trk = mod->pat * mod->chn;
hio_read8(f);
hio_read16l(f);
hio_read16l(f);
hio_read8(f);
mod->ins = mod->smp = 63;
for (i = 0; i < 256; i++) {
uint8 x = hio_read8(f);
if (x == 0xff)
break;
mod->xxo[i] = x;
}
hio_seek(f, 255 - i, SEEK_CUR);
mod->len = i;
m->c4rate = C4_NTSC_RATE;
MODULE_INFO();
if (libxmp_init_instrument(m) < 0)
return -1;
/* Read instrument names */
for (i = 0; i < mod->ins; i++) {
int hasname, c2spd;
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
nsize = hio_read8(f);
if (hio_error(f)) {
return -1;
}
hasname = 0;
for (j = 0; j < nsize; j++) {
uint8 x = hio_read8(f);
if (x != 0x20)
hasname = 1;
if (j < 32)
mod->xxi[i].name[j] = x;
}
if (!hasname)
mod->xxi[i].name[0] = 0;
hio_read32l(f);
hio_read32l(f);
mod->xxi[i].sub[0].vol = hio_read8(f);
c2spd = hio_read16l(f);
mod->xxs[i].len = hio_read16l(f);
mod->xxs[i].lps = hio_read16l(f);
mod->xxs[i].lpe = hio_read16l(f);
hio_read32l(f);
hio_read16l(f);
if (mod->xxs[i].len > 0)
mod->xxi[i].nsm = 1;
/*
mod->xxs[i].lps = 0;
mod->xxs[i].lpe = 0;
*/
mod->xxs[i].flg = mod->xxs[i].lpe > 0 ? XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].fin = 0;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
D_(D_INFO "[%2X] %-22.22s %04x %04x %04x %c V%02x %5d",
i, mod->xxi[i].name,
mod->xxs[i].len, mod->xxs[i].lps, mod->xxs[i].lpe,
mod->xxs[i].flg & XMP_SAMPLE_LOOP ? 'L' : ' ',
mod->xxi[i].sub[0].vol, c2spd);
libxmp_c2spd_to_note(c2spd, &mod->xxi[i].sub[0].xpo, &mod->xxi[i].sub[0].fin);
}
if (libxmp_init_pattern(mod) < 0)
return -1;
/* Read and convert patterns */
D_(D_INFO "Stored patterns: %d ", mod->pat);
for (i = 0; i < mod->pat; i++) {
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (j = 0; j < mod->xxp[i]->rows; j++) {
for (k = 0; k < mod->chn; k++) {
uint32 x, note, ins, vol, fxt, fxp;
event = &EVENT (i, k, j);
x = hio_read32l(f);
note = x & 0x0000003f;
ins = (x & 0x00001fc0) >> 6;
vol = (x & 0x000fe000) >> 13;
fxt = (x & 0x00f00000) >> 20;
fxp = (x & 0xff000000) >> 24;
if (note != 0x3f)
event->note = 36 + note;
if (ins != 0x7f)
event->ins = 1 + ins;
if (vol != 0x7f)
event->vol = vol;
if (fxt != 0x0f) {
event->fxt = fx[fxt];
event->fxp = fxp;
}
}
}
}
/* Read samples */
D_(D_INFO "Stored samples: %d", mod->smp);
for (i = 0; i < mod->ins; i++) {
if (mod->xxs[i].len == 0)
continue;
if (libxmp_load_sample(m, f, SAMPLE_FLAG_UNS, &mod->xxs[i], NULL) < 0)
return -1;
}
m->quirk |= QUIRKS_ST3;
m->read_event_type = READ_EVENT_ST3;
return 0;
}
static int alm_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
int i, j;
struct alm_file_header afh;
struct xmp_event *event;
struct stat stat;
uint8 b;
char *basename;
char filename[NAME_SIZE];
char modulename[NAME_SIZE];
LOAD_INIT();
hio_read(&afh.id, 7, 1, f);
if (!strncmp((char *)afh.id, "ALEYMOD", 7)) /* Version 1.0 */
mod->spd = afh.speed / 2;
strncpy(modulename, m->filename, NAME_SIZE);
basename = strtok (modulename, ".");
afh.speed = hio_read8(f);
afh.length = hio_read8(f);
afh.restart = hio_read8(f);
hio_read(&afh.order, 128, 1, f);
mod->len = afh.length;
mod->rst = afh.restart;
memcpy (mod->xxo, afh.order, mod->len);
for (mod->pat = i = 0; i < mod->len; i++)
if (mod->pat < afh.order[i])
mod->pat = afh.order[i];
mod->pat++;
mod->ins = 31;
mod->trk = mod->pat * mod->chn;
mod->smp = mod->ins;
m->c4rate = C4_NTSC_RATE;
libxmp_set_type(m, "Aley's Module");
MODULE_INFO();
if (libxmp_init_pattern(mod) < 0)
return -1;
/* Read and convert patterns */
D_(D_INFO "Stored patterns: %d", mod->pat);
for (i = 0; i < mod->pat; i++) {
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (j = 0; j < 64 * mod->chn; j++) {
event = &EVENT (i, j % mod->chn, j / mod->chn);
b = hio_read8(f);
if (b)
event->note = (b == 37) ? 0x61 : b + 48;
event->ins = hio_read8(f);
}
}
if (libxmp_init_instrument(m) < 0)
return -1;
/* Read and convert instruments and samples */
D_(D_INFO "Loading samples: %d", mod->ins);
for (i = 0; i < mod->ins; i++) {
HIO_HANDLE *s;
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
mod->xxi[i].sub = calloc(sizeof (struct xmp_subinstrument), 1);
snprintf(filename, NAME_SIZE, "%s.%d", basename, i + 1);
s = hio_open_file(filename, "rb");
if (s == NULL)
continue;
mod->xxi[i].nsm = 1;
hio_stat(s, &stat);
b = hio_read8(s); /* Get first octet */
mod->xxs[i].len = stat.st_size - 5 * !b;
if (!b) { /* Instrument with header */
mod->xxs[i].lps = hio_read16l(f);
mod->xxs[i].lpe = hio_read16l(f);
mod->xxs[i].flg = mod->xxs[i].lpe > mod->xxs[i].lps ? XMP_SAMPLE_LOOP : 0;
} else {
hio_seek(s, 0, SEEK_SET);
}
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].vol = 0x40;
mod->xxi[i].sub[0].sid = i;
D_(D_INFO "[%2X] %-14.14s %04x %04x %04x %c V%02x", i,
filename, mod->xxs[i].len, mod->xxs[i].lps, mod->xxs[i].lpe,
mod->xxs[i].flg & XMP_SAMPLE_LOOP ? 'L' : ' ', mod->xxi[i].sub[0].vol);
if (libxmp_load_sample(m, s, SAMPLE_FLAG_UNS, &mod->xxs[i], NULL) < 0)
return -1;
hio_close(s);
}
/* ALM is LRLR, not LRRL */
for (i = 0; i < mod->chn; i++)
mod->xxc[i].pan = DEFPAN((i % 2) * 0xff);
return 0;
}
static int tcb_load(struct module_data *m, HIO_HANDLE *f, const int start)
{
struct xmp_module *mod = &m->mod;
struct xmp_event *event;
int i, j, k;
uint8 buffer[10];
int base_offs, soffs[16];
uint8 unk1[16], unk2[16], unk3[16];
LOAD_INIT();
hio_read(buffer, 8, 1, f);
libxmp_set_type(m, "TCB Tracker", buffer);
hio_read16b(f); /* ? */
mod->pat = hio_read16b(f);
mod->ins = 16;
mod->smp = mod->ins;
mod->chn = 4;
mod->trk = mod->pat * mod->chn;
m->quirk |= QUIRK_MODRNG;
hio_read16b(f); /* ? */
for (i = 0; i < 128; i++)
mod->xxo[i] = hio_read8(f);
mod->len = hio_read8(f);
hio_read8(f); /* ? */
hio_read16b(f); /* ? */
MODULE_INFO();
if (libxmp_init_instrument(m) < 0)
return -1;
/* Read instrument names */
for (i = 0; i < mod->ins; i++) {
if (libxmp_alloc_subinstrument(mod, i, 1) < 0)
return -1;
hio_read(buffer, 8, 1, f);
libxmp_instrument_name(mod, i, buffer, 8);
}
hio_read16b(f); /* ? */
for (i = 0; i < 5; i++)
hio_read16b(f);
for (i = 0; i < 5; i++)
hio_read16b(f);
for (i = 0; i < 5; i++)
hio_read16b(f);
if (libxmp_init_pattern(mod) < 0)
return -1;
/* Read and convert patterns */
D_(D_INFO "Stored patterns: %d ", mod->pat);
for (i = 0; i < mod->pat; i++) {
if (libxmp_alloc_pattern_tracks(mod, i, 64) < 0)
return -1;
for (j = 0; j < mod->xxp[i]->rows; j++) {
for (k = 0; k < mod->chn; k++) {
int b;
event = &EVENT (i, k, j);
b = hio_read8(f);
if (b) {
event->note = 12 * (b >> 4);
event->note += (b & 0xf) + 36;
}
b = hio_read8(f);
event->ins = b >> 4;
if (event->ins)
event->ins += 1;
if (b &= 0x0f) {
switch (b) {
case 0xd:
event->fxt = FX_BREAK;
event->fxp = 0;
break;
default:
printf("---> %02x\n", b);
}
}
}
}
}
base_offs = hio_tell(f);
hio_read32b(f); /* remaining size */
/* Read instrument data */
for (i = 0; i < mod->ins; i++) {
mod->xxi[i].sub[0].vol = hio_read8(f) / 2;
mod->xxi[i].sub[0].pan = 0x80;
unk1[i] = hio_read8(f);
unk2[i] = hio_read8(f);
unk3[i] = hio_read8(f);
}
for (i = 0; i < mod->ins; i++) {
soffs[i] = hio_read32b(f);
mod->xxs[i].len = hio_read32b(f);
}
hio_read32b(f);
hio_read32b(f);
hio_read32b(f);
hio_read32b(f);
for (i = 0; i < mod->ins; i++) {
mod->xxi[i].nsm = !!(mod->xxs[i].len);
mod->xxs[i].lps = 0;
mod->xxs[i].lpe = 0;
mod->xxs[i].flg = mod->xxs[i].lpe > 0 ? XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].fin = 0;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
D_(D_INFO "[%2X] %-8.8s %04x %04x %04x %c "
"V%02x %02x %02x %02x\n",
i, mod->xxi[i].name,
mod->xxs[i].len, mod->xxs[i].lps, mod->xxs[i].lpe,
mod->xxs[i].flg & XMP_SAMPLE_LOOP ? 'L' : ' ',
mod->xxi[i].sub[0].vol, unk1[i], unk2[i], unk3[i]);
}
/* Read samples */
D_(D_INFO "Stored samples: %d", mod->smp);
for (i = 0; i < mod->ins; i++) {
hio_seek(f, start + base_offs + soffs[i], SEEK_SET);
if (libxmp_load_sample(m, f, SAMPLE_FLAG_UNS, &mod->xxs[i], NULL) < 0)
return -1;
}
return 0;
}
