module w1(clk,dx,dy);
input  clk;
output[7:0] dx,dy;

integer i,j,k;
reg[5:0] st;
reg[7:0] x[64],f[64];
reg[31:0] dre00[6],dim00[6],dre01[6],dim01[6];
reg[7:0]  dwre[6],dwim[6];
reg[31:0] dre10[6],dim10[6],dre11[6],dim11[6];
reg[31:0] re00[64],re01[64],re10[64],re11[64],re20[64],re21[64],
          re30[64],re31[64],re40[64],re41[64],re50[64],re51[64];
reg[31:0] im00[64],im01[64],im10[64],im11[64],im20[64],im21[64],
          im30[64],im31[64],im40[64],im41[64],im50[64],im51[64];

//---------------------------------------------------------------
//module die(re00,im00,re01,im01,wre,wim,re10,im10,re11,im11);
//input[31:0]  re00,im00,re01,im01;
//input[7:0]   wre,wim;
//output[31:0] re10,im10,re11,im11;
//---------------------------------------------------------------
function[31:0] mul;
input[31:0] a;
input[7:0]  b;
reg s;
reg[30:0] aa;
reg[6:0]  bb;
reg[37:0] dd,d;
begin
  s=a[31]^b[7];
  aa=(a[31])?~a[30:0]+1:a[30:0];
  bb=(b[7])?~b[6:0]+1:b[6:0];
  dd=aa*bb;
  d=(s)?~dd+1:dd;
  mul={s,d[36:6]};
end
endfunction
//---------------------------------------------------------------

always @(posedge clk)
begin
  st=(st!=40)?st+1:0;
  case(st)
   0:begin

     end
   1:begin
       dre00[0]=re00[ 0];dre01[0]=re00[ 1];
       dim00[0]=im00[ 0];dim01[0]=im00[ 1];
       dwre=wre[ 0];dwim=wim[ 0];

       dre00[1]=re10[ 0];dre01[1]=re10[ 2];
       dim00[1]=im10[ 0];dim01[1]=im10[ 2];
       dwre=wre[ 0];dwim=wim[ 0];

       dre00[2]=re20[ 0];dre01[2]=re20[ 4];
       dim00[2]=im20[ 0];dim01[2]=im20[ 4];
       dwre=wre[ 0];dwim=wim[ 0];

       dre00[3]=re30[ 0];dre01[3]=re30[ 8];
       dim00[3]=im30[ 0];dim01[3]=im30[ 8];
       dwre=wre[ 0];dwim=wim[ 0];

       dre00[4]=re40[ 0];dre01[4]=re40[16];
       dim00[4]=im40[ 0];dim01[4]=im40[16];
       dwre=wre[ 0];dwim=wim[ 0];

       dre00[5]=re50[ 0];dre01[5]=re50[32];
       dim00[5]=im50[ 0];dim01[5]=im50[32];
       dwre=wre[ 0];dwim=wim[ 0];

     end
   2:begin
       dre00[0]=re00[ 2];dre01[0]=re00[ 3];
       dim00[0]=im00[ 2];dim01[0]=im00[ 3];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[ 0]=dre10[0];re01[ 1]=dre11[0];
       im01[ 0]=dim10[0];im01[ 1]=dim11[0];
       dre00[1]=re10[ 1];dre01[1]=re10[ 3];
       dim00[1]=im10[ 1];dim01[1]=im10[ 3];
       dwre=wre[16];dwim=wim[16];
       re11[ 0]=dre10[1];re11[ 2]=dre11[1];
       im11[ 0]=dim10[1];im11[ 2]=dim11[1];
       dre00[2]=re20[ 1];dre01[2]=re20[ 5];
       dim00[2]=im20[ 1];dim01[2]=im20[ 5];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[ 0]=dre10[2];re21[ 4]=dre11[2];
       im21[ 0]=dim10[2];im21[ 4]=dim11[2];
       dre00[3]=re30[ 1];dre01[3]=re30[ 9];
       dim00[3]=im30[ 1];dim01[3]=im30[ 9];
       dwre=wre[ 4];dwim=wim[ 4];
       re31[ 0]=dre10[3];re31[ 8]=dre11[3];
       im31[ 0]=dim10[3];im31[ 8]=dim11[3];
       dre00[4]=re40[ 1];dre01[4]=re40[17];
       dim00[4]=im40[ 1];dim01[4]=im40[17];
       dwre=wre[ 2];dwim=wim[ 2];
       re41[ 0]=dre10[4];re41[16]=dre11[4];
       im41[ 0]=dim10[4];im41[16]=dim11[4];
       dre00[5]=re50[ 1];dre01[5]=re50[33];
       dim00[5]=im50[ 1];dim01[5]=im50[33];
       dwre=wre[ 1];dwim=wim[ 1];
       re51[ 0]=dre10[5];re51[32]=dre11[5];
       im51[ 0]=dim10[5];im51[32]=dim11[5];
     end
   3:begin
       dre00[0]=re00[ 4];dre01[0]=re00[ 5];
       dim00[0]=im00[ 4];dim01[0]=im00[ 5];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[ 2]=dre10[0];re01[ 3]=dre11[0];
       im01[ 2]=dim10[0];im01[ 3]=dim11[0];
       dre00[1]=re10[ 4];dre01[1]=re10[ 6];
       dim00[1]=im10[ 4];dim01[1]=im10[ 6];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[ 1]=dre10[1];re11[ 3]=dre11[1];
       im11[ 1]=dim10[1];im11[ 3]=dim11[1];
       dre00[2]=re20[ 2];dre01[2]=re20[ 6];
       dim00[2]=im20[ 2];dim01[2]=im20[ 6];
       dwre=wre[16];dwim=wim[16];
       re21[ 1]=dre10[2];re21[ 5]=dre11[2];
       im21[ 1]=dim10[2];im21[ 5]=dim11[2];
       dre00[3]=re30[ 2];dre01[3]=re30[10];
       dim00[3]=im30[ 2];dim01[3]=im30[10];
       dwre=wre[ 8];dwim=wim[ 8];
       re31[ 1]=dre10[3];re31[ 9]=dre11[3];
       im31[ 1]=dim10[3];im31[ 9]=dim11[3];
       dre00[4]=re40[ 2];dre01[4]=re40[18];
       dim00[4]=im40[ 2];dim01[4]=im40[18];
       dwre=wre[ 4];dwim=wim[ 4];
       re41[ 1]=dre10[4];re41[17]=dre11[4];
       im41[ 1]=dim10[4];im41[17]=dim11[4];
       dre00[5]=re50[ 2];dre01[5]=re50[34];
       dim00[5]=im50[ 2];dim01[5]=im50[34];
       dwre=wre[ 2];dwim=wim[ 2];
       re51[ 1]=dre10[5];re51[33]=dre11[5];
       im51[ 1]=dim10[5];im51[33]=dim11[5];
     end
   4:begin
       dre00[0]=re00[ 6];dre01[0]=re00[ 7];
       dim00[0]=im00[ 6];dim01[0]=im00[ 7];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[ 4]=dre10[0];re01[ 5]=dre11[0];
       im01[ 4]=dim10[0];im01[ 5]=dim11[0];
       dre00[1]=re10[ 5];dre01[1]=re10[ 7];
       dim00[1]=im10[ 5];dim01[1]=im10[ 7];
       dwre=wre[16];dwim=wim[16];
       re11[ 4]=dre10[1];re11[ 6]=dre11[1];
       im11[ 4]=dim10[1];im11[ 6]=dim11[1];
       dre00[2]=re20[ 3];dre01[2]=re20[ 7];
       dim00[2]=im20[ 3];dim01[2]=im20[ 7];
       dwre=wre[24];dwim=wim[24];
       re21[ 2]=dre10[2];re21[ 6]=dre11[2];
       im21[ 2]=dim10[2];im21[ 6]=dim11[2];
       dre00[3]=re30[ 3];dre01[3]=re30[11];
       dim00[3]=im30[ 3];dim01[3]=im30[11];
       dwre=wre[12];dwim=wim[12];
       re31[ 2]=dre10[3];re31[10]=dre11[3];
       im31[ 2]=dim10[3];im31[10]=dim11[3];
       dre00[4]=re40[ 3];dre01[4]=re40[19];
       dim00[4]=im40[ 3];dim01[4]=im40[19];
       dwre=wre[ 6];dwim=wim[ 6];
       re41[ 2]=dre10[4];re41[18]=dre11[4];
       im41[ 2]=dim10[4];im41[18]=dim11[4];
       dre00[5]=re50[ 3];dre01[5]=re50[35];
       dim00[5]=im50[ 3];dim01[5]=im50[35];
       dwre=wre[ 3];dwim=wim[ 3];
       re51[ 2]=dre10[5];re51[34]=dre11[5];
       im51[ 2]=dim10[5];im51[34]=dim11[5];
     end
   5:begin
       dre00[0]=re00[ 8];dre01[0]=re00[ 9];
       dim00[0]=im00[ 8];dim01[0]=im00[ 9];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[ 6]=dre10[0];re01[ 7]=dre11[0];
       im01[ 6]=dim10[0];im01[ 7]=dim11[0];
       dre00[1]=re10[ 8];dre01[1]=re10[10];
       dim00[1]=im10[ 8];dim01[1]=im10[10];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[ 5]=dre10[1];re11[ 7]=dre11[1];
       im11[ 5]=dim10[1];im11[ 7]=dim11[1];
       dre00[2]=re20[ 8];dre01[2]=re20[12];
       dim00[2]=im20[ 8];dim01[2]=im20[12];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[ 3]=dre10[2];re21[ 7]=dre11[2];
       im21[ 3]=dim10[2];im21[ 7]=dim11[2];
       dre00[3]=re30[ 4];dre01[3]=re30[12];
       dim00[3]=im30[ 4];dim01[3]=im30[12];
       dwre=wre[16];dwim=wim[16];
       re31[ 3]=dre10[3];re31[11]=dre11[3];
       im31[ 3]=dim10[3];im31[11]=dim11[3];
       dre00[4]=re40[ 4];dre01[4]=re40[20];
       dim00[4]=im40[ 4];dim01[4]=im40[20];
       dwre=wre[ 8];dwim=wim[ 8];
       re41[ 3]=dre10[4];re41[19]=dre11[4];
       im41[ 3]=dim10[4];im41[19]=dim11[4];
       dre00[5]=re50[ 4];dre01[5]=re50[36];
       dim00[5]=im50[ 4];dim01[5]=im50[36];
       dwre=wre[ 4];dwim=wim[ 4];
       re51[ 3]=dre10[5];re51[35]=dre11[5];
       im51[ 3]=dim10[5];im51[35]=dim11[5];
     end
   6:begin
       dre00[0]=re00[10];dre01[0]=re00[11];
       dim00[0]=im00[10];dim01[0]=im00[11];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[ 8]=dre10[0];re01[ 9]=dre11[0];
       im01[ 8]=dim10[0];im01[ 9]=dim11[0];
       dre00[1]=re10[ 9];dre01[1]=re10[11];
       dim00[1]=im10[ 9];dim01[1]=im10[11];
       dwre=wre[16];dwim=wim[16];
       re11[ 8]=dre10[1];re11[10]=dre11[1];
       im11[ 8]=dim10[1];im11[10]=dim11[1];
       dre00[2]=re20[ 9];dre01[2]=re20[13];
       dim00[2]=im20[ 9];dim01[2]=im20[13];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[ 8]=dre10[2];re21[12]=dre11[2];
       im21[ 8]=dim10[2];im21[12]=dim11[2];
       dre00[3]=re30[ 5];dre01[3]=re30[13];
       dim00[3]=im30[ 5];dim01[3]=im30[13];
       dwre=wre[20];dwim=wim[20];
       re31[ 4]=dre10[3];re31[12]=dre11[3];
       im31[ 4]=dim10[3];im31[12]=dim11[3];
       dre00[4]=re40[ 5];dre01[4]=re40[21];
       dim00[4]=im40[ 5];dim01[4]=im40[21];
       dwre=wre[10];dwim=wim[10];
       re41[ 4]=dre10[4];re41[20]=dre11[4];
       im41[ 4]=dim10[4];im41[20]=dim11[4];
       dre00[5]=re50[ 5];dre01[5]=re50[37];
       dim00[5]=im50[ 5];dim01[5]=im50[37];
       dwre=wre[ 5];dwim=wim[ 5];
       re51[ 4]=dre10[5];re51[36]=dre11[5];
       im51[ 4]=dim10[5];im51[36]=dim11[5];
     end
   7:begin
       dre00[0]=re00[12];dre01[0]=re00[13];
       dim00[0]=im00[12];dim01[0]=im00[13];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[10]=dre10[0];re01[11]=dre11[0];
       im01[10]=dim10[0];im01[11]=dim11[0];
       dre00[1]=re10[12];dre01[1]=re10[14];
       dim00[1]=im10[12];dim01[1]=im10[14];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[ 9]=dre10[1];re11[11]=dre11[1];
       im11[ 9]=dim10[1];im11[11]=dim11[1];
       dre00[2]=re20[10];dre01[2]=re20[14];
       dim00[2]=im20[10];dim01[2]=im20[14];
       dwre=wre[16];dwim=wim[16];
       re21[ 9]=dre10[2];re21[13]=dre11[2];
       im21[ 9]=dim10[2];im21[13]=dim11[2];
       dre00[3]=re30[ 6];dre01[3]=re30[14];
       dim00[3]=im30[ 6];dim01[3]=im30[14];
       dwre=wre[24];dwim=wim[24];
       re31[ 5]=dre10[3];re31[13]=dre11[3];
       im31[ 5]=dim10[3];im31[13]=dim11[3];
       dre00[4]=re40[ 6];dre01[4]=re40[22];
       dim00[4]=im40[ 6];dim01[4]=im40[22];
       dwre=wre[12];dwim=wim[12];
       re41[ 5]=dre10[4];re41[21]=dre11[4];
       im41[ 5]=dim10[4];im41[21]=dim11[4];
       dre00[5]=re50[ 6];dre01[5]=re50[38];
       dim00[5]=im50[ 6];dim01[5]=im50[38];
       dwre=wre[ 6];dwim=wim[ 6];
       re51[ 5]=dre10[5];re51[37]=dre11[5];
       im51[ 5]=dim10[5];im51[37]=dim11[5];
     end
   8:begin
       dre00[0]=re00[14];dre01[0]=re00[15];
       dim00[0]=im00[14];dim01[0]=im00[15];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[12]=dre10[0];re01[13]=dre11[0];
       im01[12]=dim10[0];im01[13]=dim11[0];
       dre00[1]=re10[13];dre01[1]=re10[15];
       dim00[1]=im10[13];dim01[1]=im10[15];
       dwre=wre[16];dwim=wim[16];
       re11[12]=dre10[1];re11[14]=dre11[1];
       im11[12]=dim10[1];im11[14]=dim11[1];
       dre00[2]=re20[11];dre01[2]=re20[15];
       dim00[2]=im20[11];dim01[2]=im20[15];
       dwre=wre[24];dwim=wim[24];
       re21[10]=dre10[2];re21[14]=dre11[2];
       im21[10]=dim10[2];im21[14]=dim11[2];
       dre00[3]=re30[ 7];dre01[3]=re30[15];
       dim00[3]=im30[ 7];dim01[3]=im30[15];
       dwre=wre[28];dwim=wim[28];
       re31[ 6]=dre10[3];re31[14]=dre11[3];
       im31[ 6]=dim10[3];im31[14]=dim11[3];
       dre00[4]=re40[ 7];dre01[4]=re40[23];
       dim00[4]=im40[ 7];dim01[4]=im40[23];
       dwre=wre[14];dwim=wim[14];
       re41[ 6]=dre10[4];re41[22]=dre11[4];
       im41[ 6]=dim10[4];im41[22]=dim11[4];
       dre00[5]=re50[ 7];dre01[5]=re50[39];
       dim00[5]=im50[ 7];dim01[5]=im50[39];
       dwre=wre[ 7];dwim=wim[ 7];
       re51[ 6]=dre10[5];re51[38]=dre11[5];
       im51[ 6]=dim10[5];im51[38]=dim11[5];
     end
   9:begin
       dre00[0]=re00[16];dre01[0]=re00[17];
       dim00[0]=im00[16];dim01[0]=im00[17];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[14]=dre10[0];re01[15]=dre11[0];
       im01[14]=dim10[0];im01[15]=dim11[0];
       dre00[1]=re10[16];dre01[1]=re10[18];
       dim00[1]=im10[16];dim01[1]=im10[18];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[13]=dre10[1];re11[15]=dre11[1];
       im11[13]=dim10[1];im11[15]=dim11[1];
       dre00[2]=re20[16];dre01[2]=re20[20];
       dim00[2]=im20[16];dim01[2]=im20[20];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[11]=dre10[2];re21[15]=dre11[2];
       im21[11]=dim10[2];im21[15]=dim11[2];
       dre00[3]=re30[16];dre01[3]=re30[24];
       dim00[3]=im30[16];dim01[3]=im30[24];
       dwre=wre[ 0];dwim=wim[ 0];
       re31[ 7]=dre10[3];re31[15]=dre11[3];
       im31[ 7]=dim10[3];im31[15]=dim11[3];
       dre00[4]=re40[ 8];dre01[4]=re40[24];
       dim00[4]=im40[ 8];dim01[4]=im40[24];
       dwre=wre[16];dwim=wim[16];
       re41[ 7]=dre10[4];re41[23]=dre11[4];
       im41[ 7]=dim10[4];im41[23]=dim11[4];
       dre00[5]=re50[ 8];dre01[5]=re50[40];
       dim00[5]=im50[ 8];dim01[5]=im50[40];
       dwre=wre[ 8];dwim=wim[ 8];
       re51[ 7]=dre10[5];re51[39]=dre11[5];
       im51[ 7]=dim10[5];im51[39]=dim11[5];
     end
  10:begin
       dre00[0]=re00[18];dre01[0]=re00[19];
       dim00[0]=im00[18];dim01[0]=im00[19];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[16]=dre10[0];re01[17]=dre11[0];
       im01[16]=dim10[0];im01[17]=dim11[0];
       dre00[1]=re10[17];dre01[1]=re10[19];
       dim00[1]=im10[17];dim01[1]=im10[19];
       dwre=wre[16];dwim=wim[16];
       re11[16]=dre10[1];re11[18]=dre11[1];
       im11[16]=dim10[1];im11[18]=dim11[1];
       dre00[2]=re20[17];dre01[2]=re20[21];
       dim00[2]=im20[17];dim01[2]=im20[21];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[16]=dre10[2];re21[20]=dre11[2];
       im21[16]=dim10[2];im21[20]=dim11[2];
       dre00[3]=re30[17];dre01[3]=re30[25];
       dim00[3]=im30[17];dim01[3]=im30[25];
       dwre=wre[ 4];dwim=wim[ 4];
       re31[16]=dre10[3];re31[24]=dre11[3];
       im31[16]=dim10[3];im31[24]=dim11[3];
       dre00[4]=re40[ 9];dre01[4]=re40[25];
       dim00[4]=im40[ 9];dim01[4]=im40[25];
       dwre=wre[18];dwim=wim[18];
       re41[ 8]=dre10[4];re41[24]=dre11[4];
       im41[ 8]=dim10[4];im41[24]=dim11[4];
       dre00[5]=re50[ 9];dre01[5]=re50[41];
       dim00[5]=im50[ 9];dim01[5]=im50[41];
       dwre=wre[ 9];dwim=wim[ 9];
       re51[ 8]=dre10[5];re51[40]=dre11[5];
       im51[ 8]=dim10[5];im51[40]=dim11[5];
     end
  11:begin
       dre00[0]=re00[20];dre01[0]=re00[21];
       dim00[0]=im00[20];dim01[0]=im00[21];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[18]=dre10[0];re01[19]=dre11[0];
       im01[18]=dim10[0];im01[19]=dim11[0];
       dre00[1]=re10[20];dre01[1]=re10[22];
       dim00[1]=im10[20];dim01[1]=im10[22];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[17]=dre10[1];re11[19]=dre11[1];