mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-26 00:29:29 +00:00
511 lines
13 KiB
C
511 lines
13 KiB
C
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
|
|
/* Table #0 of Pro Tracker 3.3x - 3.4r */
|
|
static unsigned short PT3NoteTable_PT_33_34r[]={
|
|
0xC21,0xB73,0xACE,0xA33,0x9A0,0x916,0x893,0x818,0x7A4,0x736,0x6CE,0x66D,
|
|
0x610,0x5B9,0x567,0x519,0x4D0,0x48B,0x449,0x40C,0x3D2,0x39B,0x367,0x336,
|
|
0x308,0x2DC,0x2B3,0x28C,0x268,0x245,0x224,0x206,0x1E9,0x1CD,0x1B3,0x19B,
|
|
0x184,0x16E,0x159,0x146,0x134,0x122,0x112,0x103,0x0F4,0x0E6,0x0D9,0x0CD,
|
|
0x0C2,0x0B7,0x0AC,0x0A3,0x09A,0x091,0x089,0x081,0x07A,0x073,0x06C,0x066,
|
|
0x061,0x05B,0x056,0x051,0x04D,0x048,0x044,0x040,0x03D,0x039,0x036,0x033,
|
|
0x030,0x02D,0x02B,0x028,0x026,0x024,0x022,0x020,0x01E,0x01C,0x01B,0x019,
|
|
0x018,0x016,0x015,0x014,0x013,0x012,0x011,0x010,0x00F,0x00E,0x00D,0x00C,
|
|
};
|
|
|
|
/* Table #0 of Pro Tracker 3.4x - 3.5x */
|
|
static unsigned short PT3NoteTable_PT_34_35[]={
|
|
0xC22,0xB73,0xACF,0xA33,0x9A1,0x917,0x894,0x819,0x7A4,0x737,0x6CF,0x66D,
|
|
0x611,0x5BA,0x567,0x51A,0x4D0,0x48B,0x44A,0x40C,0x3D2,0x39B,0x367,0x337,
|
|
0x308,0x2DD,0x2B4,0x28D,0x268,0x246,0x225,0x206,0x1E9,0x1CE,0x1B4,0x19B,
|
|
0x184,0x16E,0x15A,0x146,0x134,0x123,0x112,0x103,0x0F5,0x0E7,0x0DA,0x0CE,
|
|
0x0C2,0x0B7,0x0AD,0x0A3,0x09A,0x091,0x089,0x082,0x07A,0x073,0x06D,0x067,
|
|
0x061,0x05C,0x056,0x052,0x04D,0x049,0x045,0x041,0x03D,0x03A,0x036,0x033,
|
|
0x031,0x02E,0x02B,0x029,0x027,0x024,0x022,0x020,0x01F,0x01D,0x01B,0x01A,
|
|
0x018,0x017,0x016,0x014,0x013,0x012,0x011,0x010,0x00F,0x00E,0x00D,0x00C,
|
|
};
|
|
|
|
|
|
/* Table #1 for all versions */
|
|
static unsigned short PT3NoteTable_ST[]={
|
|
0xEF8,0xE10,0xD60,0xC80,0xBD8,0xB28,0xA88,0x9F0,0x960,0x8E0,0x858,0x7E0,
|
|
0x77C,0x708,0x6B0,0x640,0x5EC,0x594,0x544,0x4F8,0x4B0,0x470,0x42C,0x3FD,
|
|
0x3BE,0x384,0x358,0x320,0x2F6,0x2CA,0x2A2,0x27C,0x258,0x238,0x216,0x1F8,
|
|
0x1DF,0x1C2,0x1AC,0x190,0x17B,0x165,0x151,0x13E,0x12C,0x11C,0x10A,0x0FC,
|
|
0x0EF,0x0E1,0x0D6,0x0C8,0x0BD,0x0B2,0x0A8,0x09F,0x096,0x08E,0x085,0x07E,
|
|
0x077,0x070,0x06B,0x064,0x05E,0x059,0x054,0x04F,0x04B,0x047,0x042,0x03F,
|
|
0x03B,0x038,0x035,0x032,0x02F,0x02C,0x02A,0x027,0x025,0x023,0x021,0x01F,
|
|
0x01D,0x01C,0x01A,0x019,0x017,0x016,0x015,0x013,0x012,0x011,0x010,0x00F,
|
|
};
|
|
|
|
/* Table #2 of Pro Tracker 3.4r */
|
|
static unsigned short PT3NoteTable_ASM_34r[]={
|
|
0xD3E,0xC80,0xBCC,0xB22,0xA82,0x9EC,0x95C,0x8D6,0x858,0x7E0,0x76E,0x704,
|
|
0x69F,0x640,0x5E6,0x591,0x541,0x4F6,0x4AE,0x46B,0x42C,0x3F0,0x3B7,0x382,
|
|
0x34F,0x320,0x2F3,0x2C8,0x2A1,0x27B,0x257,0x236,0x216,0x1F8,0x1DC,0x1C1,
|
|
0x1A8,0x190,0x179,0x164,0x150,0x13D,0x12C,0x11B,0x10B,0x0FC,0x0EE,0x0E0,
|
|
0x0D4,0x0C8,0x0BD,0x0B2,0x0A8,0x09F,0x096,0x08D,0x085,0x07E,0x077,0x070,
|
|
0x06A,0x064,0x05E,0x059,0x054,0x050,0x04B,0x047,0x043,0x03F,0x03C,0x038,
|
|
0x035,0x032,0x02F,0x02D,0x02A,0x028,0x026,0x024,0x022,0x020,0x01E,0x01D,
|
|
0x01B,0x01A,0x019,0x018,0x015,0x014,0x013,0x012,0x011,0x010,0x00F,0x00E
|
|
};
|
|
|
|
/* Table #2 of Pro Tracker 3.4x - 3.5x */
|
|
static unsigned short PT3NoteTable_ASM_34_35[] = {
|
|
0xD10,0xC55,0xBA4,0xAFC,0xA5F,0x9CA,0x93D,0x8B8,0x83B,0x7C5,0x755,0x6EC,
|
|
0x688,0x62A,0x5D2,0x57E,0x52F,0x4E5,0x49E,0x45C,0x41D,0x3E2,0x3AB,0x376,
|
|
0x344,0x315,0x2E9,0x2BF,0x298,0x272,0x24F,0x22E,0x20F,0x1F1,0x1D5,0x1BB,
|
|
0x1A2,0x18B,0x174,0x160,0x14C,0x139,0x128,0x117,0x107,0x0F9,0x0EB,0x0DD,
|
|
0x0D1,0x0C5,0x0BA,0x0B0,0x0A6,0x09D,0x094,0x08C,0x084,0x07C,0x075,0x06F,
|
|
0x069,0x063,0x05D,0x058,0x053,0x04E,0x04A,0x046,0x042,0x03E,0x03B,0x037,
|
|
0x034,0x031,0x02F,0x02C,0x029,0x027,0x025,0x023,0x021,0x01F,0x01D,0x01C,
|
|
0x01A,0x019,0x017,0x016,0x015,0x014,0x012,0x011,0x010,0x00F,0x00E,0x00D,
|
|
};
|
|
|
|
/* Table #3 of Pro Tracker 3.4r */
|
|
static unsigned short PT3NoteTable_REAL_34r[] = {
|
|
0xCDA,0xC22,0xB73,0xACF,0xA33,0x9A1,0x917,0x894,0x819,0x7A4,0x737,0x6CF,
|
|
0x66D,0x611,0x5BA,0x567,0x51A,0x4D0,0x48B,0x44A,0x40C,0x3D2,0x39B,0x367,
|
|
0x337,0x308,0x2DD,0x2B4,0x28D,0x268,0x246,0x225,0x206,0x1E9,0x1CE,0x1B4,
|
|
0x19B,0x184,0x16E,0x15A,0x146,0x134,0x123,0x113,0x103,0x0F5,0x0E7,0x0DA,
|
|
0x0CE,0x0C2,0x0B7,0x0AD,0x0A3,0x09A,0x091,0x089,0x082,0x07A,0x073,0x06D,
|
|
0x067,0x061,0x05C,0x056,0x052,0x04D,0x049,0x045,0x041,0x03D,0x03A,0x036,
|
|
0x033,0x031,0x02E,0x02B,0x029,0x027,0x024,0x022,0x020,0x01F,0x01D,0x01B,
|
|
0x01A,0x018,0x017,0x016,0x014,0x013,0x012,0x011,0x010,0x00F,0x00E,0x00D,
|
|
};
|
|
|
|
/* Table #3 of Pro Tracker 3.4x - 3.5x */
|
|
/* NOTE: ONLY DIFFERENCE IS 0x113 -> 0x112 */
|
|
static unsigned short PT3NoteTable_REAL_34_35[] = {
|
|
0xCDA,0xC22,0xB73,0xACF,0xA33,0x9A1,0x917,0x894,0x819,0x7A4,0x737,0x6CF,
|
|
0x66D,0x611,0x5BA,0x567,0x51A,0x4D0,0x48B,0x44A,0x40C,0x3D2,0x39B,0x367,
|
|
0x337,0x308,0x2DD,0x2B4,0x28D,0x268,0x246,0x225,0x206,0x1E9,0x1CE,0x1B4,
|
|
0x19B,0x184,0x16E,0x15A,0x146,0x134,0x123,0x112,0x103,0x0F5,0x0E7,0x0DA,
|
|
0x0CE,0x0C2,0x0B7,0x0AD,0x0A3,0x09A,0x091,0x089,0x082,0x07A,0x073,0x06D,
|
|
0x067,0x061,0x05C,0x056,0x052,0x04D,0x049,0x045,0x041,0x03D,0x03A,0x036,
|
|
0x033,0x031,0x02E,0x02B,0x029,0x027,0x024,0x022,0x020,0x01F,0x01D,0x01B,
|
|
0x01A,0x018,0x017,0x016,0x014,0x013,0x012,0x011,0x010,0x00F,0x00E,0x00D,
|
|
};
|
|
|
|
|
|
static unsigned short Tone[256];
|
|
|
|
|
|
unsigned short base0_v3[]={
|
|
0xC21,0xB73,0xACE,0xA33,0x9A0,0x916,0x893,0x818,0x7A4,0x736,0x6CE,0x66D,
|
|
};
|
|
|
|
unsigned short base0_v4[]={
|
|
0xC22,0xB73,0xACF,0xA33,0x9A1,0x917,0x894,0x819,0x7A4,0x737,0x6CF,0x66D,
|
|
};
|
|
|
|
unsigned short base1[]={
|
|
0xEF8,0xE10,0xD60,0xC80,0xBD8,0xB28,0xA88,0x9F0,0x960,0x8E0,0x858,0x7E0,
|
|
};
|
|
|
|
unsigned short base2_v3[]={
|
|
0xD3E,0xC80,0xBCC,0xB22,0xA82,0x9EC,0x95C,0x8D6,0x858,0x7E0,0x76E,0x704,
|
|
};
|
|
|
|
unsigned short base2_v4[]={
|
|
0xD10,0xC55,0xBA4,0xAFC,0xA5F,0x9CA,0x93D,0x8B8,0x83B,0x7C5,0x755,0x6EC,
|
|
};
|
|
|
|
/* note: same for both versions */
|
|
unsigned short base3[]={
|
|
0xCDA,0xC22,0xB73,0xACF,0xA33,0x9A1,0x917,0x894,0x819,0x7A4,0x737,0x6CF,
|
|
};
|
|
|
|
|
|
static void NoteTablePropogate(unsigned short *base_table) {
|
|
|
|
int x,y;
|
|
|
|
for(y=0;y<12;y++) Tone[y]=base_table[y];
|
|
|
|
for(x=0;x<84;x++) {
|
|
Tone[x+12]=Tone[x]>>1;
|
|
}
|
|
|
|
}
|
|
|
|
static void NoteTableAdjust(unsigned char *adjust_table) {
|
|
|
|
int blah,extra;
|
|
int offset=0;
|
|
int x,y;
|
|
|
|
for(y=0;y<12;y++) {
|
|
offset=y;
|
|
blah=adjust_table[y];
|
|
for(x=0;x<8;x++) {
|
|
extra=blah&1;
|
|
blah>>=1;
|
|
|
|
// printf("%d ",extra);
|
|
// if (x%12==11) printf("\n");
|
|
|
|
Tone[offset]+=extra;
|
|
offset+=12;
|
|
}
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
/* create table #0 v3.3 "PT3NoteTable_PT_33_34r" */
|
|
static void NoteTableCreate_0_v3(void) {
|
|
|
|
NoteTablePropogate(base0_v3);
|
|
}
|
|
|
|
static unsigned char table0_v4_adjust[]={
|
|
0x40, 0xe6, 0x9c, 0x66, 0x40, 0x2c, 0x20, 0x30, 0x48, 0x6c, 0x1c, 0x5a,
|
|
};
|
|
|
|
/* create table #0 v3.4 "PT3NoteTable_PT_34_35" */
|
|
static void NoteTableCreate_0_v4(void) {
|
|
|
|
NoteTablePropogate(base0_v4);
|
|
NoteTableAdjust(table0_v4_adjust);
|
|
}
|
|
|
|
|
|
|
|
/* create table #1 "PT3NoteTable_ST" */
|
|
void NoteTableCreate_1_vX(void) {
|
|
|
|
NoteTablePropogate(base1);
|
|
|
|
Tone[23]+=13;
|
|
Tone[46]-=1;
|
|
}
|
|
|
|
static unsigned char table2_v3_adjust[]={
|
|
0xf8, 0x80, 0x90, 0xc0, 0x04, 0xf0, 0xf8, 0xec, 0xe0, 0xc0, 0xfc, 0x40,
|
|
};
|
|
|
|
/* Create Table #2, v3, "PT3NoteTable_ASM_34r" */
|
|
void NoteTableCreate_2_v3(void) {
|
|
|
|
NoteTablePropogate(base2_v3);
|
|
NoteTableAdjust(table2_v3_adjust);
|
|
Tone[86]+=1;
|
|
Tone[87]+=1;
|
|
}
|
|
|
|
static unsigned char table2_v4_adjust[]={
|
|
0x20, 0xa8, 0x40, 0xf8, 0xbc, 0x90, 0x78, 0x70, 0x74, 0x08, 0x2a, 0x50,
|
|
};
|
|
|
|
|
|
/* Create Table #2, v4+, "PT3NoteTable_ASM_34_35" */
|
|
void NoteTableCreate_2_v4(void) {
|
|
|
|
NoteTablePropogate(base2_v4);
|
|
NoteTableAdjust(table2_v4_adjust);
|
|
}
|
|
|
|
static unsigned char table3_v4_adjust[]={
|
|
0xB4, 0x40, 0xe6, 0x9c, 0x66, 0x40, 0x2c, 0x20, 0x30, 0x48, 0x6c, 0x1c,
|
|
};
|
|
|
|
/* Create Table #3, v3, "PT3NoteTable_REAL_34r" */
|
|
void NoteTableCreate_3_v3(void) {
|
|
|
|
NoteTablePropogate(base3);
|
|
NoteTableAdjust(table3_v4_adjust);
|
|
Tone[43]++;
|
|
}
|
|
|
|
|
|
|
|
/* Create Table #3, v4+, "PT3NoteTable_REAL_34_35" */
|
|
void NoteTableCreate_3_v4(void) {
|
|
|
|
// int x,y;
|
|
// int extra;
|
|
|
|
NoteTablePropogate(base3);
|
|
NoteTableAdjust(table3_v4_adjust);
|
|
}
|
|
|
|
|
|
|
|
|
|
int main(int argc, char **argv) {
|
|
|
|
int i;
|
|
int nomatch=0;
|
|
|
|
|
|
/***********************************/
|
|
/* Test table #0 Version <=3.3 */
|
|
/* PT3NoteTable_PT_33_34r */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 0 v3\n");
|
|
printf("*********************\n");
|
|
|
|
NoteTableCreate_0_v3();
|
|
|
|
nomatch=0;
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf("%03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_PT_33_34r[i]) {
|
|
printf("+%d|",Tone[i]-PT3NoteTable_PT_33_34r[i]);
|
|
nomatch++;
|
|
//printf("%03X",PT3NoteTable_ASM_34_35[i]);
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_PT_33_34r,8*12*sizeof(short))) {
|
|
printf("MATCH Table 0 version 3.3\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
|
|
/***********************************/
|
|
/* Test table #0 Version 3.4+ */
|
|
/* PT3NoteTable_PT_34_35 */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 0 v4+\n");
|
|
printf("*********************\n");
|
|
|
|
NoteTableCreate_0_v4();
|
|
|
|
nomatch=0;
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf("%03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_PT_34_35[i]) {
|
|
printf("+%d|",Tone[i]-PT3NoteTable_PT_34_35[i]);
|
|
nomatch++;
|
|
//printf("%03X",PT3NoteTable_ASM_34_35[i]);
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_PT_34_35,8*12*sizeof(short))) {
|
|
printf("MATCH Table 0 version 3.4\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
|
|
|
|
|
|
/***********************************/
|
|
/* Test table 1 all versions */
|
|
/* "PT3NoteTable_ST" */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 1\n");
|
|
printf("*********************\n");
|
|
|
|
nomatch=0;
|
|
|
|
NoteTableCreate_1_vX();
|
|
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf(" %03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_ST[i]) {
|
|
printf("+%d",Tone[i]-PT3NoteTable_ST[i]);
|
|
nomatch++;
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_ST,8*12*sizeof(short))) {
|
|
printf("MATCH Table 1\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH Table 1\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
/***********************************/
|
|
/* Test table #2 Version 3.4r */
|
|
/* ASM_34r */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 2 v3.4r\n");
|
|
printf("*********************\n");
|
|
|
|
NoteTableCreate_2_v3();
|
|
|
|
nomatch=0;
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf("%03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_ASM_34r[i]) {
|
|
printf("+%d/",Tone[i]-PT3NoteTable_ASM_34r[i]);
|
|
nomatch++;
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_ASM_34r,8*12*sizeof(short))) {
|
|
printf("MATCH Table 2 v3.4r\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
|
|
/***********************************/
|
|
/* Test table #2 Version 3.4 - 3.5 */
|
|
/* ASM_34_35 */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 2 v3.4+\n");
|
|
printf("*********************\n");
|
|
|
|
NoteTableCreate_2_v4();
|
|
|
|
nomatch=0;
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf("%03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_ASM_34_35[i]) {
|
|
printf("+%d/",Tone[i]-PT3NoteTable_ASM_34_35[i]);
|
|
nomatch++;
|
|
//printf("%03X",PT3NoteTable_ASM_34_35[i]);
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_ASM_34_35,8*12*sizeof(short))) {
|
|
printf("MATCH Table 2 v4\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH 34\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
/***********************************/
|
|
/* Test table #3 Version 3.4r */
|
|
/* ASM_34r */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 3 v3.4r\n");
|
|
printf("*********************\n");
|
|
|
|
NoteTableCreate_3_v3();
|
|
|
|
nomatch=0;
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf("%03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_REAL_34r[i]) {
|
|
printf("+%d/",Tone[i]-PT3NoteTable_REAL_34r[i]);
|
|
nomatch++;
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_REAL_34r,8*12*sizeof(short))) {
|
|
printf("MATCH Table 3 v3.4r\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
|
|
/***********************************/
|
|
/* Test table #3 Version 3.4 - 3.5 */
|
|
/* REAL_34_35 */
|
|
/***********************************/
|
|
|
|
printf("\n");
|
|
printf("*********************\n");
|
|
printf("Test Table 3 v3.4+\n");
|
|
printf("*********************\n");
|
|
|
|
NoteTableCreate_3_v4();
|
|
|
|
nomatch=0;
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf("%03X",Tone[i]);
|
|
if (Tone[i]-PT3NoteTable_REAL_34_35[i]) {
|
|
printf("+%d/",Tone[i]-PT3NoteTable_REAL_34_35[i]);
|
|
nomatch++;
|
|
}
|
|
else {
|
|
printf(" ");
|
|
}
|
|
}
|
|
printf("\n");
|
|
|
|
if (!memcmp(Tone,PT3NoteTable_REAL_34_35,8*12*sizeof(short))) {
|
|
printf("MATCH Table 3 v3.4+\n");
|
|
}
|
|
else {
|
|
printf("NO MATCH\n");
|
|
}
|
|
|
|
printf("Nomatch count=%d\n",nomatch);
|
|
|
|
|
|
}
|
|
|
|
|
|
|