module w3(d1,d2,d3);
input[23:0] d1,d2;
output[23:0] d3;

reg[7:0]  e_;
reg[14:0] dd;

wire[7:0]  e =d1[23:16]+d2[23:16];
wire       s =d1[15]^d2[15];
wire[29:0] d =d1[14:0]*d2[14:0];
wire[23:0] d3=(dd!=0)?{e_,s,dd}:0;

always
begin
       if(d[29]) begin dd=d[29:15];        e_=e;   end
  else if(d[28]) begin dd=d[28:14];        e_=e- 1;end
  else if(d[27]) begin dd=d[27:13];        e_=e- 2;end
  else if(d[26]) begin dd=d[26:12];        e_=e- 3;end
  else if(d[25]) begin dd=d[25:11];        e_=e- 4;end
  else if(d[24]) begin dd=d[24:10];        e_=e- 5;end
  else if(d[23]) begin dd=d[23: 9];        e_=e- 6;end
  else if(d[22]) begin dd=d[22: 8];        e_=e- 7;end
  else if(d[21]) begin dd=d[21: 7];        e_=e- 8;end
  else if(d[20]) begin dd=d[20: 6];        e_=e- 9;end
  else if(d[19]) begin dd=d[19: 5];        e_=e-10;end
  else if(d[18]) begin dd=d[18: 4];        e_=e-11;end
  else if(d[17]) begin dd=d[17: 3];        e_=e-12;end
  else if(d[16]) begin dd=d[16: 2];        e_=e-13;end
  else if(d[15]) begin dd=d[15: 1];        e_=e-14;end
  else           begin dd=d[14: 0];        e_=e-15;end
end

endmodule