#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,
};





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;

//LD HL,NT_DATA
	s[0]=de;	// PUSH DE
	
        LD D,B
        ADD A,A
        LD E,A
        ADD HL,DE
        LD E,(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_
        LD C,A
        ADC A,T_/256
        SUB C
        LD B,A
        PUSH BC
        LD DE,NT_
        PUSH DE

        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
        LD A,C
        ADC A,D ;=ADC 0
        LD (HL),A
        INC HL
        LD A,B
        ADC A,D
        LD (HL),A
        ADD HL,DE
        DEC IXH
        JR NZ,L2

        POP DE
        INC DE
        INC DE
        POP HL
        INC HL
        POP BC
        DJNZ L1
        POP HL
        POP DE

        LD A,E
        CP TCOLD_1
        JR NZ,CORR_1
        LD A,#FD
        LD (NT_+#2E),A

CORR_1  LD A,(DE)
        AND A
        JR Z,TC_EXIT
        RRA
        PUSH AF
        ADD A,A
        LD C,A
        ADD HL,BC
        POP AF
        JR NC,CORR_2
        DEC (HL)
        DEC (HL)
CORR_2  INC (HL)
        AND A
        SBC HL,BC
        INC DE
        JR CORR_1

TC_EXIT

        POP AF


#endif
}


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");
	}



}