dos33fsprogs/pt3_player/table_gen/6502_tone.c
2019-09-10 01:37:15 -04:00

198 lines
4.2 KiB
C

#include <stdio.h>
#include <string.h>
// 8*12
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.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,
};
static unsigned short Tone[256];
//static unsigned char ToneHigh[256];
//static unsigned char ToneLow[256];
// NoteTableCreator (c) Ivan Roshin
// A - NoteTableNumber*2+VersionForNoteTable
// (xx1b - 3.xx..3.4r, xx0b - 3.4x..3.6x..VTII1.0)
#if 0
unsigned short base[]={
0x0D10*2,(0x0C55*2)+1,0x0BA4*2,0x0AFC*2,0x0A5F*2,0x09CA*2,
0x093D*2,0x08B8*2,0x083B*2,0x07C5*2,0x0755*2,0x06EC*2,
};
#endif
unsigned short base[]={
0x0D10,0x0C55,0x0BA4,0x0AFC,0x0A5F,0x09CA,
0x093D,0x08B8,0x083B,0x07C5,0x0755,0x06EC,
};
unsigned short base2[]={
0x0EF8,0x0E10,0x0D60,0x0C80,0x0BD8,0x0B28,0x0A88,0x09F0, // 50
0x0960,0x08E0,0x0858,0x07E0,
};
void NoteTableCreate0(void) {
int x,y;
for(y=0;y<12;y++) {
Tone[y]=base2[y];
//ToneHigh[y]=base2[y]>>8;
//ToneLow[y]=base2[y]&0xff;
}
for(x=0;x<84;x++) {
Tone[x+12]=Tone[x]>>1;
}
Tone[23]+=13;
Tone[46]-=1;
}
/*
0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 1 0
0 0 0 0 1 0 0 0 1 0 0 0
0 1 0 1 1 0 1 0 0 1 1 0
0 0 0 1 1 1 1 1 1 0 0 1
1 1 0 1 1 0 1 1 1 0 1 0
0 0 1 1 0 0 1 1 1 0 0 1
0 1 0 1 1 1 0 0 0 0 0 0
*/
static unsigned char table1_adjust[]={
0x20, 0xa8, 0x40, 0xf8, 0xbc, 0x90, 0x78, 0x70, 0x74, 0x08, 0x2a, 0x50
};
void NoteTableCreate1(void) {
int x,y;
int extra;
for(y=0;y<12;y++) Tone[y]=base[y];
for(x=0;x<84;x++) {
Tone[x+12]=Tone[x]>>1;
}
int blah;
int offset=0;
for(y=0;y<12;y++) {
offset=y;
blah=table1_adjust[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;
}
}
// Tone[95]--;
}
int main(int argc, char **argv) {
int i;
/* Test table 0 */
NoteTableCreate0();
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]);
}
else {
printf(" ");
}
}
printf("\n");
if (!memcmp(Tone,PT3NoteTable_ST,8*12*sizeof(short))) {
printf("MATCH 35\n");
}
else {
printf("NO MATCH 35\n");
}
if (!memcmp(Tone,PT3NoteTable_ASM_34_35,8*12*sizeof(short))) {
printf("MATCH 34\n");
}
else {
printf("NO MATCH 34\n");
}
/* Test table 1 */
NoteTableCreate1();
int 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_ST,8*12*sizeof(short))) {
printf("MATCH 35\n");
}
else {
printf("NO MATCH 35\n");
}
if (!memcmp(Tone,PT3NoteTable_ASM_34_35,8*12*sizeof(short))) {
printf("MATCH 34\n");
}
else {
printf("NO MATCH 34\n");
}
printf("Nomatch count=%d\n",nomatch);
}