const
	Periods : array[0..15,0..35] of Word =
		( ( 856,808,762,720,678,640,604,570,538,508,480,453,
				428,404,381,360,339,320,302,285,269,254,240,226,
				214,202,190,180,170,160,151,143,135,127,120,113 ),
			( 850,802,757,715,674,637,601,567,535,505,477,450,
				425,401,379,357,337,318,300,284,268,253,239,225,
				213,201,189,179,169,159,150,142,134,126,119,113 ),
			( 844,796,752,709,670,632,597,563,532,502,474,447,
				422,398,376,355,335,316,298,282,266,251,237,224,
				211,199,188,177,167,158,149,141,133,125,118,112 ),
			( 838,791,746,704,665,628,592,559,528,498,470,444,
				419,395,373,352,332,314,296,280,264,249,235,222,
				209,198,187,176,166,157,148,140,132,125,118,111 ),
			( 832,785,741,699,660,623,588,555,524,495,467,441,
				416,392,370,350,330,312,294,278,262,247,233,220,
				208,196,185,175,165,156,147,139,131,124,117,110 ),
			( 826,779,736,694,655,619,584,551,520,491,463,437,
				413,390,368,347,328,309,292,276,260,245,232,219,
				206,195,184,174,164,155,146,138,130,123,116,109 ),
			( 820,774,730,689,651,614,580,547,516,487,460,434,
				410,387,365,345,325,307,290,274,258,244,230,217,
				205,193,183,172,163,154,145,137,129,122,115,109 ),
			( 814,768,725,684,646,610,575,543,513,484,457,431,
				407,384,363,342,323,305,288,272,256,242,228,216,
				204,192,181,171,161,152,144,136,128,121,114,108 ),
			( 907,856,808,762,720,678,640,604,570,538,508,480,
				453,428,404,381,360,339,320,302,285,269,254,240,
				226,214,202,190,180,170,160,151,143,135,127,120 ),
			( 900,850,802,757,715,675,636,601,567,535,505,477,
				450,425,401,379,357,337,318,300,284,268,253,238,
				225,212,200,189,179,169,159,150,142,134,126,119 ),
			( 894,844,796,752,709,670,632,597,563,532,502,474,
				447,422,398,376,355,335,316,298,282,266,251,237,
				223,211,199,188,177,167,158,149,141,133,125,118 ),
			( 887,838,791,746,704,665,628,592,559,528,498,470,
				444,419,395,373,352,332,314,296,280,264,249,235,
				222,209,198,187,176,166,157,148,140,132,125,118 ),
			( 881,832,785,741,699,660,623,588,555,524,494,467,
				441,416,392,370,350,330,312,294,278,262,247,233,
				220,208,196,185,175,165,156,147,139,131,123,117 ),
			( 875,826,779,736,694,655,619,584,551,520,491,463,
				437,413,390,368,347,328,309,292,276,260,245,232,
				219,206,195,184,174,164,155,146,138,130,123,116 ),
			( 868,820,774,730,689,651,614,580,547,516,487,460,
				434,410,387,365,345,325,307,290,274,258,244,230,
				217,205,193,183,172,163,154,145,137,129,122,115 ),
			( 862,814,768,725,684,646,610,575,543,513,484,457,
				431,407,384,363,342,323,305,288,272,256,242,228,
				216,203,192,181,171,161,152,144,136,128,121,114 )
		);
	MyAr : array[0..15] of ShortInt = (0,1,2,3,4,5,6,7,-8,-7,-6,-5,-4,-3,-2,-1);

procedure Main;
var
	f : text;
	i,j,k : Integer;
begin
	Assign(f,'PERIOD.ASM');
	Rewrite(f);
	WriteLn(f,'mt_PeriodTable:');
	for i := 0 to 15 do
	begin
		WriteLn(f,'; Tuning ',MyAr[i]);
		Write(f,'        dw    ');
    for j := 0 to 11 do
		begin
			Write(f,Periods[i][j]*2);
			if(j <> 11) then Write(f,',');
		end;
		WriteLn(f);
		for k := 0 to 2 do
		begin
			Write(f,'        dw    ');
			for j := 0 to 11 do
			begin
				Write(f,Periods[i][(k*12)+j]);
				if(j <> 11) then Write(f,',');
			end;
			WriteLn(f);
		end;
		Write(f,'        dw    ');
    for j := 0 to 11 do
		begin
			Write(f,Periods[i][24+j] div 2);
			if(j <> 11) then Write(f,',')
			else Write(f,',0')
		end;
    WriteLn(f);
	end;
	Close(f);
end;

begin
	Main;
end.