mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-26 00:29:29 +00:00
323 lines
6.5 KiB
C
323 lines
6.5 KiB
C
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
// 8*12
|
|
static unsigned short PT3NoteTable_ST[]={
|
|
0x0EF8,0x0E10,0x0D60,0x0C80,0x0BD8,0x0B28,0x0A88,0x09F0, // 50
|
|
0x0960,0x08E0,0x0858,0x07E0,0x077C,0x0708,0x06B0,0x0640, // 58
|
|
0x05EC,0x0594,0x0544,0x04F8,0x04B0,0x0470,0x042C,0x03FD, // 60
|
|
0x03BE,0x0384,0x0358,0x0320,0x02F6,0x02CA,0x02A2,0x027C, // 68
|
|
0x0258,0x0238,0x0216,0x01F8,0x01DF,0x01C2,0x01AC,0x0190, // 70
|
|
0x017B,0x0165,0x0151,0x013E,0x012C,0x011C,0x010A,0x00FC, // 78
|
|
0x00EF,0x00E1,0x00D6,0x00C8,0x00BD,0x00B2,0x00A8,0x009F, // 80
|
|
0x0096,0x008E,0x0085,0x007E,0x0077,0x0070,0x006B,0x0064, // 88 (g#5-D#6)
|
|
0x005E,0x0059,0x0054,0x004F,0x004B,0x0047,0x0042,0x003F, // 90 (e6-b6)
|
|
0x003B,0x0038,0x0035,0x0032,0x002F,0x002C,0x002A,0x0027, // 98 (c7-g7)
|
|
0x0025,0x0023,0x0021,0x001F,0x001D,0x001C,0x001A,0x0019, // a0 (G#7-d#8)
|
|
0x0017,0x0016,0x0015,0x0013,0x0012,0x0011,0x0010,0x000F // a8 (e8-b8)
|
|
};
|
|
|
|
/* Table #2 of Pro Tracker 3.4x - 3.5x */
|
|
static unsigned short PT3NoteTable_ASM_34_35[] = {
|
|
0x0D10,0x0C55,0x0BA4,0x0AFC,0x0A5F,0x09CA,0x093D,0x08B8,0x083B,0x07C5,0x0755,0x06EC,
|
|
0x0688,0x062A,0x05D2,0x057E,0x052F,0x04E5,0x049E,0x045C,0x041D,0x03E2,0x03AB,0x0376,
|
|
0x0344,0x0315,0x02E9,0x02BF,0x0298,0x0272,0x024F,0x022E,0x020F,0x01F1,0x01D5,0x01BB,
|
|
0x01A2,0x018B,0x0174,0x0160,0x014C,0x0139,0x0128,0x0117,0x0107,0x00F9,0x00EB,0x00DD,
|
|
0x00D1,0x00C5,0x00BA,0x00B0,0x00A6,0x009D,0x0094,0x008C,0x0084,0x007C,0x0075,0x006F,
|
|
0x0069,0x0063,0x005D,0x0058,0x0053,0x004E,0x004A,0x0046,0x0042,0x003E,0x003B,0x0037,
|
|
0x0034,0x0031,0x002F,0x002C,0x0029,0x0027,0x0025,0x0023,0x0021,0x001F,0x001D,0x001C,
|
|
0x001A,0x0019,0x0017,0x0016,0x0015,0x0014,0x0012,0x0011,0x0010,0x000F,0x000E,0x000D,
|
|
};
|
|
|
|
/* Table #3 of Pro Tracker 3.4r */
|
|
static unsigned short PT3NoteTable_REAL_34r[] = {
|
|
0x0CDA,0x0C22,0x0B73,0x0ACF,0x0A33,0x09A1,0x0917,0x0894,
|
|
0x0819,0x07A4,0x0737,0x06CF,0x066D,0x0611,0x05BA,0x0567,
|
|
0x051A,0x04D0,0x048B,0x044A,0x040C,0x03D2,0x039B,0x0367,
|
|
0x0337,0x0308,0x02DD,0x02B4,0x028D,0x0268,0x0246,0x0225,
|
|
0x0206,0x01E9,0x01CE,0x01B4,0x019B,0x0184,0x016E,0x015A,
|
|
0x0146,0x0134,0x0123,0x0113,0x0103,0x00F5,0x00E7,0x00DA,
|
|
0x00CE,0x00C2,0x00B7,0x00AD,0x00A3,0x009A,0x0091,0x0089,
|
|
0x0082,0x007A,0x0073,0x006D,0x0067,0x0061,0x005C,0x0056,
|
|
0x0052,0x004D,0x0049,0x0045,0x0041,0x003D,0x003A,0x0036,
|
|
0x0033,0x0031,0x002E,0x002B,0x0029,0x0027,0x0024,0x0022,
|
|
0x0020,0x001F,0x001D,0x001B,0x001A,0x0018,0x0017,0x0016,
|
|
0x0014,0x0013,0x0012,0x0011,0x0010,0x000F,0x000E,0x000D,
|
|
};
|
|
|
|
#if 0
|
|
|
|
|
|
nt_data:
|
|
DB (T_NEW_0-T1_)*2
|
|
DB TCNEW_0-T_
|
|
DB (T_OLD_0-T1_)*2+1
|
|
DB TCOLD_0-T_
|
|
DB (T_NEW_1-T1_)*2+1
|
|
DB TCNEW_1-T_
|
|
DB (T_OLD_1-T1_)*2+1
|
|
DB TCOLD_1-T_
|
|
DB (T_NEW_2-T1_)*2
|
|
DB TCNEW_2-T_
|
|
DB (T_OLD_2-T1_)*2
|
|
DB TCOLD_2-T_
|
|
DB (T_NEW_3-T1_)*2
|
|
DB TCNEW_3-T_
|
|
DB (T_OLD_3-T1_)*2
|
|
DB TCOLD_3-T_
|
|
|
|
T_
|
|
|
|
TCOLD_0 DB #00+1,#04+1,#08+1,#0A+1,#0C+1,#0E+1,#12+1,#14+1
|
|
DB #18+1,#24+1,#3C+1,0
|
|
TCOLD_1 DB #5C+1,0
|
|
TCOLD_2 DB #30+1,#36+1,#4C+1,#52+1,#5E+1,#70+1,#82,#8C,#9C
|
|
DB #9E,#A0,#A6,#A8,#AA,#AC,#AE,#AE,0
|
|
TCNEW_3 DB #56+1
|
|
TCOLD_3 DB #1E+1,#22+1,#24+1,#28+1,#2C+1,#2E+1,#32+1,#BE+1,0
|
|
TCNEW_0 DB #1C+1,#20+1,#22+1,#26+1,#2A+1,#2C+1,#30+1,#54+1
|
|
DB #BC+1,#BE+1,0
|
|
TCNEW_1 EQU TCOLD_1
|
|
TCNEW_2 DB #1A+1,#20+1,#24+1,#28+1,#2A+1,#3A+1,#4C+1,#5E+1
|
|
DB #BA+1,#BC+1,#BE+1,0
|
|
|
|
#endif
|
|
|
|
/* first 12 values of tone tables (packed) */
|
|
static unsigned char t_pack[]={
|
|
0x06EC*2/256,0x06EC*2,
|
|
0x0755-0x06EC,
|
|
0x07C5-0x0755,
|
|
0x083B-0x07C5,
|
|
0x08B8-0x083B,
|
|
0x093D-0x08B8,
|
|
0x09CA-0x093D,
|
|
0x0A5F-0x09CA,
|
|
0x0AFC-0x0A5F,
|
|
0x0BA4-0x0AFC,
|
|
0x0C55-0x0BA4,
|
|
0x0D10-0x0C55,
|
|
0x066D*2/256,0x066D*2,
|
|
0x06CF-0x066D,
|
|
0x0737-0x06CF,
|
|
0x07A4-0x0737,
|
|
0x0819-0x07A4,
|
|
0x0894-0x0819,
|
|
0x0917-0x0894,
|
|
0x09A1-0x0917,
|
|
0x0A33-0x09A1,
|
|
0x0ACF-0x0A33,
|
|
0x0B73-0x0ACF,
|
|
0x0C22-0x0B73,
|
|
0x0CDA-0x0C22,
|
|
0x0704*2/256,0x0704*2,
|
|
0x076E - 0x0704,
|
|
0x07E0-0x076E,
|
|
0x0858-0x07E0,
|
|
0x08D6-0x0858,
|
|
0x095C-0x08D6,
|
|
0x09EC-0x095C,
|
|
0x0A82-0x09EC,
|
|
0x0B22-0x0A82,
|
|
0x0BCC-0x0B22,
|
|
0x0C80-0x0BCC,
|
|
0x0d3e - 0x0c80,
|
|
0x07E0*2/256,0x07E0*2,
|
|
0x0858-0x07E0,
|
|
0x08E0-0x0858,
|
|
0x0960-0x08E0,
|
|
0x09F0-0x0960,
|
|
0x0A88-0x09F0,
|
|
0x0B28-0x0A88,
|
|
0x0BD8-0x0B28,
|
|
0x0C80-0x0BD8,
|
|
0x0D60-0x0C80,
|
|
0x0E10-0x0D60,
|
|
0x0EF8-0x0E10,
|
|
};
|
|
|
|
static unsigned short Tone[256];
|
|
|
|
|
|
// NoteTableCreator (c) Ivan Roshin
|
|
// A - NoteTableNumber*2+VersionForNoteTable
|
|
// (xx1b - 3.xx..3.4r, xx0b - 3.4x..3.6x..VTII1.0)
|
|
|
|
void NoteTableCreator(int which) {
|
|
|
|
unsigned short hl,de;
|
|
unsigned char a,b,c,carry,old_carry;
|
|
unsigned short ix;
|
|
unsigned short s[16];
|
|
unsigned int temp1,temp2;
|
|
int self_modified=0;
|
|
int sp=0;
|
|
|
|
//LD HL,NT_DATA
|
|
s[0]=de; // PUSH DE
|
|
sp++;
|
|
|
|
de=de&0x00ff;
|
|
de|=b<<8; //LD D,B
|
|
|
|
if (a&0x80) carry=1;
|
|
else carry=0;
|
|
a=a+a; //ADD A,A
|
|
|
|
|
|
de=de&0xff00;
|
|
de|=a; //LD E,A
|
|
|
|
hl=hl+de; //ADD HL,DE
|
|
|
|
//LD E,(HL)
|
|
hl++; // INC HL
|
|
//SRL E
|
|
//SBC A,A
|
|
//AND #A7 ;#00 (NOP) or #A7 (AND A)
|
|
//LD (L3),A
|
|
//EX DE,HL
|
|
//POP BC ;BC=T1_
|
|
//ADD HL,BC
|
|
|
|
//LD A,(DE)
|
|
//ADD A,T_
|
|
c=a; // LD C,A
|
|
//ADC A,T_/256
|
|
//SUB C
|
|
b=a; // LD B,A
|
|
//PUSH BC
|
|
//LD DE,NT_
|
|
//PUSH DE
|
|
|
|
b=12; // LD B,12
|
|
L1:
|
|
//PUSH BC
|
|
//LD C,(HL)
|
|
//INC HL
|
|
//PUSH HL
|
|
//LD B,(HL)
|
|
|
|
//PUSH DE
|
|
//EX DE,HL
|
|
//LD DE,23
|
|
//LD IXH,8
|
|
L2:
|
|
//SRL B
|
|
//RR C
|
|
L3:
|
|
//DB #19 ;AND A or NOP
|
|
a=c; // LD A,C
|
|
//ADC A,D ;=ADC 0
|
|
//LD (HL),A
|
|
hl++; // INC HL
|
|
//LD A,B
|
|
//ADC A,D
|
|
//LD (HL),A
|
|
//ADD HL,DE
|
|
//DEC IXH
|
|
//JR NZ,L2
|
|
|
|
//POP DE
|
|
de++; // INC DE
|
|
de++; // INC DE
|
|
//POP HL
|
|
hl++; // INC HL
|
|
//POP BC
|
|
//DJNZ L1
|
|
//POP HL
|
|
//POP DE
|
|
|
|
a=(de&0xff); // LD A,E
|
|
//CP TCOLD_1
|
|
//JR NZ,CORR_1
|
|
//LD A,#FD
|
|
//LD (NT_+#2E),A
|
|
CORR_1:
|
|
//LD A,(DE)
|
|
//AND A
|
|
if (a==0) goto TC_EXIT; // JR Z,TC_EXIT
|
|
//RRA
|
|
//PUSH AF
|
|
//ADD A,A
|
|
c=a; // LD C,A
|
|
//ADD HL,BC
|
|
//POP AF
|
|
if (carry==0) goto CORR_2; // JR NC,CORR_2
|
|
//DEC (HL)
|
|
//DEC (HL)
|
|
CORR_2:
|
|
//INC (HL)
|
|
//AND A
|
|
//SBC HL,BC
|
|
de++; //INC DE
|
|
goto CORR_1; // JR CORR_1
|
|
|
|
TC_EXIT:
|
|
|
|
sp--;
|
|
a=(s[sp]>>8); //POP AF
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
int main(int argc, char **argv) {
|
|
|
|
int i;
|
|
|
|
NoteTableCreator(0);
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf(" %04X",Tone[i]);
|
|
}
|
|
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");
|
|
}
|
|
|
|
|
|
|
|
|
|
NoteTableCreator(1);
|
|
|
|
for(i=0;i<8*12;i++) {
|
|
if (i%12==0) printf("\n");
|
|
printf(" %04X",Tone[i]);
|
|
}
|
|
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");
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|