海明码接收方设计模块_荼荻-的博客-爱代码爱编程

module hamming_receive(m,m1);
input  [12:1] m;
output reg [8:1] m1;
//output sign;
wire [4:1] p;
wire [4:1] s;
assign p[1]=m[1];
   assign p[2]=m[2]; 
   assign p[3]= m[4];
   assign p[4]= m[8]; 
   assign s[1]= m[1]^m[3]^m[5]^m[7]^m[9]^m[11]; 
   assign s[2]= m[2]^m[3]^m[6]^m[7]^m[10]^m[11]; 
   assign s[3]= m[4]^m[5]^m[6]^m[7]^m[12]; 
   assign s[4]= m[8]^m[9]^m[10]^m[11]^m[12];

   always @(s)
   begin
      case(s)
        4'b0011: m1={m[12:9],m[7:5],~m[3]};
        4'b0101: m1={m[12:9],m[7:6],~m[5],m[3]};
        4'b0110: m1={m[12:9],m[7],~m[6],m[5],m[3]};
        4'b0111: m1={m[12:9],~m[7],m[6:5],m[3]};
        4'b1001: m1={m[12:10],~m[9],m[7:5],m[3]};
        4'b1010: m1={m[12:11],~m[10],m[9],m[7:5],m[3]};
        4'b1011: m1={m[12],~m[11],m[10:9],m[7:5],m[3]};
        4'b1100: m1={~m[12],m[11:9],m[7:5],m[3]};
        default m1={m[12:9],m[7:5],m[3]};
endcase
    end 
endmodule
 

module hamming_receive_tb();
reg [12:1] m;
wire [8:1] m1;
hamming_receive h2(m,m1);
initial
 begin
         m=12'b011001010011;
        #10 m=12'b011101010011;
        #10 m=12'b011011010011;
        #10 $finish;
    end
endmodule