p15 = PACK16MSB(m[29], m[21]);
	
	p16 = PACK16LSB(m[10], m[2]);
	p17 = PACK16LSB(m[26], m[18]);
	p18 = PACK16LSB(m[14], m[6]);
	p19 = PACK16LSB(m[30], m[22]);
	p20 = PACK16MSB(m[10], m[2]);
	p21 = PACK16MSB(m[26], m[18]);
	p22 = PACK16MSB(m[14], m[6]);
	p23 = PACK16MSB(m[30], m[22]);
	
	p24 = PACK16LSB(m[11], m[3]);
	p25 = PACK16LSB(m[27], m[19]);
	p26 = PACK16LSB(m[15], m[7]);
	p27 = PACK16LSB(m[31], m[23]);
	p28 = PACK16MSB(m[11], m[3]);
	p29 = PACK16MSB(m[27], m[19]);
	p30 = PACK16MSB(m[15], m[7]);
	p31 = PACK16MSB(m[31], m[23]);
	
	temp0  = IFIR16(c[0],p0);
	temp1  = IFIR16(c[1],p1);
	temp2  = IFIR16(c[2],p2);
	temp3  = IFIR16(c[3],p3);
	temp4  = IFIR16(c[0],p4);
	temp5  = IFIR16(c[1],p5);
	temp6  = IFIR16(c[2],p6);
	temp7  = IFIR16(c[3],p7);
	temp8  = IFIR16(c[0],p8);
	temp9  = IFIR16(c[1],p9);
	temp10 = IFIR16(c[2],p10);
	temp11 = IFIR16(c[3],p11);
	temp12 = IFIR16(c[0],p12);
	temp13 = IFIR16(c[1],p13);
	temp14 = IFIR16(c[2],p14);
	temp15 = IFIR16(c[3],p15);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[0]  = ASRI( 15, (add0+add1) );
	mid[4]  = ASRI( 15, (add2+add3) );
	mid[1]  = ASRI( 15, (add4+add5) );
	mid[5]  = ASRI( 15, (add6+add7) );
	mid[56] = ASRI( 15, (add0-add1) );
	mid[60] = ASRI( 15, (add2-add3) );
	mid[57] = ASRI( 15, (add4-add5) );
	mid[61] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[0],p16);
	temp1  = IFIR16(c[1],p17);
	temp2  = IFIR16(c[2],p18);
	temp3  = IFIR16(c[3],p19);
	temp4  = IFIR16(c[0],p20);
	temp5  = IFIR16(c[1],p21);
	temp6  = IFIR16(c[2],p22);
	temp7  = IFIR16(c[3],p23);
	temp8  = IFIR16(c[0],p24);
	temp9  = IFIR16(c[1],p25);
	temp10 = IFIR16(c[2],p26);
	temp11 = IFIR16(c[3],p27);
	temp12 = IFIR16(c[0],p28);
	temp13 = IFIR16(c[1],p29);
	temp14 = IFIR16(c[2],p30);
	temp15 = IFIR16(c[3],p31);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[2]  = ASRI( 15, (add0+add1) );
	mid[6]  = ASRI( 15, (add2+add3) );
	mid[3]  = ASRI( 15, (add4+add5) );
	mid[7]  = ASRI( 15, (add6+add7) );
	mid[58] = ASRI( 15, (add0-add1) );
	mid[62] = ASRI( 15, (add2-add3) );
	mid[59] = ASRI( 15, (add4-add5) );
	mid[63] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[4],p0);
	temp1  = IFIR16(c[5],p1);
	temp2  = IFIR16(c[6],p2);
	temp3  = IFIR16(c[7],p3);
	temp4  = IFIR16(c[4],p4);
	temp5  = IFIR16(c[5],p5);
	temp6  = IFIR16(c[6],p6);
	temp7  = IFIR16(c[7],p7);
	temp8  = IFIR16(c[4],p8);
	temp9  = IFIR16(c[5],p9);
	temp10 = IFIR16(c[6],p10);
	temp11 = IFIR16(c[7],p11);
	temp12 = IFIR16(c[4],p12);
	temp13 = IFIR16(c[5],p13);
	temp14 = IFIR16(c[6],p14);
	temp15 = IFIR16(c[7],p15);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[8]  = ASRI( 15, (add0+add1) );
	mid[12] = ASRI( 15, (add2+add3) );
	mid[9]  = ASRI( 15, (add4+add5) );
	mid[13] = ASRI( 15, (add6+add7) );
	mid[48] = ASRI( 15, (add0-add1) );
	mid[52] = ASRI( 15, (add2-add3) );
	mid[49] = ASRI( 15, (add4-add5) );
	mid[53] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[4],p16);
	temp1  = IFIR16(c[5],p17);
	temp2  = IFIR16(c[6],p18);
	temp3  = IFIR16(c[7],p19);
	temp4  = IFIR16(c[4],p20);
	temp5  = IFIR16(c[5],p21);
	temp6  = IFIR16(c[6],p22);
	temp7  = IFIR16(c[7],p23);
	temp8  = IFIR16(c[4],p24);
	temp9  = IFIR16(c[5],p25);
	temp10 = IFIR16(c[6],p26);
	temp11 = IFIR16(c[7],p27);
	temp12 = IFIR16(c[4],p28);
	temp13 = IFIR16(c[5],p29);
	temp14 = IFIR16(c[6],p30);
	temp15 = IFIR16(c[7],p31);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[10] = ASRI( 15, (add0+add1) );
	mid[14] = ASRI( 15, (add2+add3) );
	mid[11] = ASRI( 15, (add4+add5) );
	mid[15] = ASRI( 15, (add6+add7) );
	mid[50] = ASRI( 15, (add0-add1) );
	mid[54] = ASRI( 15, (add2-add3) );
	mid[51] = ASRI( 15, (add4-add5) );
	mid[55] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[8],p0);
	temp1  = IFIR16(c[9],p1);
	temp2  = IFIR16(c[10],p2);
	temp3  = IFIR16(c[11],p3);
	temp4  = IFIR16(c[8],p4);
	temp5  = IFIR16(c[9],p5);
	temp6  = IFIR16(c[10],p6);
	temp7  = IFIR16(c[11],p7);
	temp8  = IFIR16(c[8],p8);
	temp9  = IFIR16(c[9],p9);
	temp10 = IFIR16(c[10],p10);
	temp11 = IFIR16(c[11],p11);
	temp12 = IFIR16(c[8],p12);
	temp13 = IFIR16(c[9],p13);
	temp14 = IFIR16(c[10],p14);
	temp15 = IFIR16(c[11],p15);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[16] = ASRI( 15, (add0+add1) );
	mid[20] = ASRI( 15, (add2+add3) );
	mid[17] = ASRI( 15, (add4+add5) );
	mid[21] = ASRI( 15, (add6+add7) );
	mid[40] = ASRI( 15, (add0-add1) );
	mid[44] = ASRI( 15, (add2-add3) );
	mid[41] = ASRI( 15, (add4-add5) );
	mid[45] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[8],p16);
	temp1  = IFIR16(c[9],p17);
	temp2  = IFIR16(c[10],p18);
	temp3  = IFIR16(c[11],p19);
	temp4  = IFIR16(c[8],p20);
	temp5  = IFIR16(c[9],p21);
	temp6  = IFIR16(c[10],p22);
	temp7  = IFIR16(c[11],p23);
	temp8  = IFIR16(c[8],p24);
	temp9  = IFIR16(c[9],p25);
	temp10 = IFIR16(c[10],p26);
	temp11 = IFIR16(c[11],p27);
	temp12 = IFIR16(c[8],p28);
	temp13 = IFIR16(c[9],p29);
	temp14 = IFIR16(c[10],p30);
	temp15 = IFIR16(c[11],p31);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[18] = ASRI( 15, (add0+add1) );
	mid[22] = ASRI( 15, (add2+add3) );
	mid[19] = ASRI( 15, (add4+add5) );
	mid[23] = ASRI( 15, (add6+add7) );
	mid[42] = ASRI( 15, (add0-add1) );
	mid[46] = ASRI( 15, (add2-add3) );
	mid[43] = ASRI( 15, (add4-add5) );
	mid[47] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[12],p0);
	temp1  = IFIR16(c[13],p1);
	temp2  = IFIR16(c[14],p2);
	temp3  = IFIR16(c[15],p3);
	temp4  = IFIR16(c[12],p4);
	temp5  = IFIR16(c[13],p5);
	temp6  = IFIR16(c[14],p6);
	temp7  = IFIR16(c[15],p7);
	temp8  = IFIR16(c[12],p8);
	temp9  = IFIR16(c[13],p9);
	temp10 = IFIR16(c[14],p10);
	temp11 = IFIR16(c[15],p11);
	temp12 = IFIR16(c[12],p12);
	temp13 = IFIR16(c[13],p13);
	temp14 = IFIR16(c[14],p14);
	temp15 = IFIR16(c[15],p15);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[24] = ASRI( 15, (add0+add1) );
	mid[28] = ASRI( 15, (add2+add3) );
	mid[25] = ASRI( 15, (add4+add5) );
	mid[29] = ASRI( 15, (add6+add7) );
	mid[32] = ASRI( 15, (add0-add1) );
	mid[36] = ASRI( 15, (add2-add3) );
	mid[33] = ASRI( 15, (add4-add5) );
	mid[37] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(c[12],p16);
	temp1  = IFIR16(c[13],p17);
	temp2  = IFIR16(c[14],p18);
	temp3  = IFIR16(c[15],p19);
	temp4  = IFIR16(c[12],p20);
	temp5  = IFIR16(c[13],p21);
	temp6  = IFIR16(c[14],p22);
	temp7  = IFIR16(c[15],p23);
	temp8  = IFIR16(c[12],p24);
	temp9  = IFIR16(c[13],p25);
	temp10 = IFIR16(c[14],p26);
	temp11 = IFIR16(c[15],p27);
	temp12 = IFIR16(c[12],p28);
	temp13 = IFIR16(c[13],p29);
	temp14 = IFIR16(c[14],p30);
	temp15 = IFIR16(c[15],p31);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	mid[26] = ASRI( 15, (add0+add1) );
	mid[30] = ASRI( 15, (add2+add3) );
	mid[27] = ASRI( 15, (add4+add5) );
	mid[31] = ASRI( 15, (add6+add7) );
	mid[34] = ASRI( 15, (add0-add1) );
	mid[38] = ASRI( 15, (add2-add3) );
	mid[35] = ASRI( 15, (add4-add5) );
	mid[39] = ASRI( 15, (add6-add7) );
	
	m = (int *)mid;
	
    temp0  = IFIR16(m[0],c[0]);
	temp1  = IFIR16(m[1],c[1]);
	temp2  = IFIR16(m[2],c[2]);
	temp3  = IFIR16(m[3],c[3]);
	temp4  = IFIR16(m[0],c[4]);
	temp5  = IFIR16(m[1],c[5]);
	temp6  = IFIR16(m[2],c[6]);
	temp7  = IFIR16(m[3],c[7]);
	temp8  = IFIR16(m[0],c[8]);
	temp9  = IFIR16(m[1],c[9]);
	temp10 = IFIR16(m[2],c[10]);
	temp11 = IFIR16(m[3],c[11]);
	temp12 = IFIR16(m[0],c[12]);
	temp13 = IFIR16(m[1],c[13]);
	temp14 = IFIR16(m[2],c[14]);
	temp15 = IFIR16(m[3],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[0] = ASRI( 15, (add0+add1) );
	blk[1] = ASRI( 15, (add2+add3) );
	blk[2] = ASRI( 15, (add4+add5) );
	blk[3] = ASRI( 15, (add6+add7) );
	blk[7] = ASRI( 15, (add0-add1) );
	blk[6] = ASRI( 15, (add2-add3) );
	blk[5] = ASRI( 15, (add4-add5) );
	blk[4] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[4],c[0]);
	temp1  = IFIR16(m[5],c[1]);
	temp2  = IFIR16(m[6],c[2]);
	temp3  = IFIR16(m[7],c[3]);
	temp4  = IFIR16(m[4],c[4]);
	temp5  = IFIR16(m[5],c[5]);
	temp6  = IFIR16(m[6],c[6]);
	temp7  = IFIR16(m[7],c[7]);
	temp8  = IFIR16(m[4],c[8]);
	temp9  = IFIR16(m[5],c[9]);
	temp10 = IFIR16(m[6],c[10]);
	temp11 = IFIR16(m[7],c[11]);
	temp12 = IFIR16(m[4],c[12]);
	temp13 = IFIR16(m[5],c[13]);
	temp14 = IFIR16(m[6],c[14]);
	temp15 = IFIR16(m[7],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[8]  = ASRI( 15, (add0+add1) );
	blk[9]  = ASRI( 15, (add2+add3) );
	blk[10] = ASRI( 15, (add4+add5) );
	blk[11] = ASRI( 15, (add6+add7) );
	blk[15] = ASRI( 15, (add0-add1) );
	blk[14] = ASRI( 15, (add2-add3) );
	blk[13] = ASRI( 15, (add4-add5) );
	blk[12] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[8],c[0]);
	temp1  = IFIR16(m[9],c[1]);
	temp2  = IFIR16(m[10],c[2]);
	temp3  = IFIR16(m[11],c[3]);
	temp4  = IFIR16(m[8],c[4]);
	temp5  = IFIR16(m[9],c[5]);
	temp6  = IFIR16(m[10],c[6]);
	temp7  = IFIR16(m[11],c[7]);
	temp8  = IFIR16(m[8],c[8]);
	temp9  = IFIR16(m[9],c[9]);
	temp10 = IFIR16(m[10],c[10]);
	temp11 = IFIR16(m[11],c[11]);
	temp12 = IFIR16(m[8],c[12]);
	temp13 = IFIR16(m[9],c[13]);
	temp14 = IFIR16(m[10],c[14]);
	temp15 = IFIR16(m[11],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[16] = ASRI( 15, (add0+add1) );
	blk[17] = ASRI( 15, (add2+add3) );
	blk[18] = ASRI( 15, (add4+add5) );
	blk[19] = ASRI( 15, (add6+add7) );
	blk[23] = ASRI( 15, (add0-add1) );
	blk[22] = ASRI( 15, (add2-add3) );
	blk[21] = ASRI( 15, (add4-add5) );
	blk[20] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[12],c[0]);
	temp1  = IFIR16(m[13],c[1]);
	temp2  = IFIR16(m[14],c[2]);
	temp3  = IFIR16(m[15],c[3]);
	temp4  = IFIR16(m[12],c[4]);
	temp5  = IFIR16(m[13],c[5]);
	temp6  = IFIR16(m[14],c[6]);
	temp7  = IFIR16(m[15],c[7]);
	temp8  = IFIR16(m[12],c[8]);
	temp9  = IFIR16(m[13],c[9]);
	temp10 = IFIR16(m[14],c[10]);
	temp11 = IFIR16(m[15],c[11]);
	temp12 = IFIR16(m[12],c[12]);
	temp13 = IFIR16(m[13],c[13]);
	temp14 = IFIR16(m[14],c[14]);
	temp15 = IFIR16(m[15],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[24] = ASRI( 15, (add0+add1) );
	blk[25] = ASRI( 15, (add2+add3) );
	blk[26] = ASRI( 15, (add4+add5) );
	blk[27] = ASRI( 15, (add6+add7) );
	blk[31] = ASRI( 15, (add0-add1) );
	blk[30] = ASRI( 15, (add2-add3) );
	blk[29] = ASRI( 15, (add4-add5) );
	blk[28] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[16],c[0]);
	temp1  = IFIR16(m[17],c[1]);
	temp2  = IFIR16(m[18],c[2]);
	temp3  = IFIR16(m[19],c[3]);
	temp4  = IFIR16(m[16],c[4]);
	temp5  = IFIR16(m[17],c[5]);
	temp6  = IFIR16(m[18],c[6]);
	temp7  = IFIR16(m[19],c[7]);
	temp8  = IFIR16(m[16],c[8]);
	temp9  = IFIR16(m[17],c[9]);
	temp10 = IFIR16(m[18],c[10]);
	temp11 = IFIR16(m[19],c[11]);
	temp12 = IFIR16(m[16],c[12]);
	temp13 = IFIR16(m[17],c[13]);
	temp14 = IFIR16(m[18],c[14]);
	temp15 = IFIR16(m[19],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[32] = ASRI( 15, (add0+add1) );
	blk[33] = ASRI( 15, (add2+add3) );
	blk[34] = ASRI( 15, (add4+add5) );
	blk[35] = ASRI( 15, (add6+add7) );
	blk[39] = ASRI( 15, (add0-add1) );
	blk[38] = ASRI( 15, (add2-add3) );
	blk[37] = ASRI( 15, (add4-add5) );
	blk[36] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[20],c[0]);
	temp1  = IFIR16(m[21],c[1]);
	temp2  = IFIR16(m[22],c[2]);
	temp3  = IFIR16(m[23],c[3]);
	temp4  = IFIR16(m[20],c[4]);
	temp5  = IFIR16(m[21],c[5]);
	temp6  = IFIR16(m[22],c[6]);
	temp7  = IFIR16(m[23],c[7]);
	temp8  = IFIR16(m[20],c[8]);
	temp9  = IFIR16(m[21],c[9]);
	temp10 = IFIR16(m[22],c[10]);
	temp11 = IFIR16(m[23],c[11]);
	temp12 = IFIR16(m[20],c[12]);
	temp13 = IFIR16(m[21],c[13]);
	temp14 = IFIR16(m[22],c[14]);
	temp15 = IFIR16(m[23],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[40] = ASRI( 15, (add0+add1) );
	blk[41] = ASRI( 15, (add2+add3) );
	blk[42] = ASRI( 15, (add4+add5) );
	blk[43] = ASRI( 15, (add6+add7) );
	blk[47] = ASRI( 15, (add0-add1) );
	blk[46] = ASRI( 15, (add2-add3) );
	blk[45] = ASRI( 15, (add4-add5) );
	blk[44] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[24],c[0]);
	temp1  = IFIR16(m[25],c[1]);
	temp2  = IFIR16(m[26],c[2]);
	temp3  = IFIR16(m[27],c[3]);
	temp4  = IFIR16(m[24],c[4]);
	temp5  = IFIR16(m[25],c[5]);
	temp6  = IFIR16(m[26],c[6]);
	temp7  = IFIR16(m[27],c[7]);
	temp8  = IFIR16(m[24],c[8]);
	temp9  = IFIR16(m[25],c[9]);
	temp10 = IFIR16(m[26],c[10]);
	temp11 = IFIR16(m[27],c[11]);
	temp12 = IFIR16(m[24],c[12]);
	temp13 = IFIR16(m[25],c[13]);
	temp14 = IFIR16(m[26],c[14]);
	temp15 = IFIR16(m[27],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[48] = ASRI( 15, (add0+add1) );
	blk[49] = ASRI( 15, (add2+add3) );
	blk[50] = ASRI( 15, (add4+add5) );
	blk[51] = ASRI( 15, (add6+add7) );
	blk[55] = ASRI( 15, (add0-add1) );
	blk[54] = ASRI( 15, (add2-add3) );
	blk[53] = ASRI( 15, (add4-add5) );
	blk[52] = ASRI( 15, (add6-add7) );
	
	temp0  = IFIR16(m[28],c[0]);
	temp1  = IFIR16(m[29],c[1]);
	temp2  = IFIR16(m[30],c[2]);
	temp3  = IFIR16(m[31],c[3]);
	temp4  = IFIR16(m[28],c[4]);
	temp5  = IFIR16(m[29],c[5]);
	temp6  = IFIR16(m[30],c[6]);
	temp7  = IFIR16(m[31],c[7]);
	temp8  = IFIR16(m[28],c[8]);
	temp9  = IFIR16(m[29],c[9]);
	temp10 = IFIR16(m[30],c[10]);
	temp11 = IFIR16(m[31],c[11]);
	temp12 = IFIR16(m[28],c[12]);
	temp13 = IFIR16(m[29],c[13]);
	temp14 = IFIR16(m[30],c[14]);
	temp15 = IFIR16(m[31],c[15]);
	
	add0 = temp0  + temp1;
	add1 = temp2  + temp3;
	add2 = temp4  + temp5;
	add3 = temp6  + temp7;
	add4 = temp8  + temp9;
	add5 = temp10 + temp11;
	add6 = temp12 + temp13;
	add7 = temp14 + temp15;
	
	blk[56] = ASRI( 15, (add0+add1) );
	blk[57] = ASRI( 15, (add2+add3) );
	blk[58] = ASRI( 15, (add4+add5) );
	blk[59] = ASRI( 15, (add6+add7) );
	blk[63] = ASRI( 15, (add0-add1) );
	blk[62] = ASRI( 15, (add2-add3) );
	blk[61] = ASRI( 15, (add4-add5) );
	blk[60] = ASRI( 15, (add6-add7) );
	
	return 0;
}