二进制转换BCD码出现的问题？

代码如下
module bin(bin,bcd);
input[3:0] bin;
output[7:0] bcd;
reg[7:0] bcd;
always@(bin);
begin
        bcd={8{1'b0}};
        case(bin[3:1])
                3'b000:bcd[7:1]=7'b0000000;
                3'b001:bcd[7:1]=7'b0000001;
                3'b010:bcd[7:1]=7'b0000010;
                3'b011:bcd[7:1]=7'b0000011;
                3'b100:bcd[7:1]=7'b0000100;
                3'b101:bcd[7:1]=7'b0001000;
                3'b110:bcd[7:1]=7'b0001001;
                3'b111:bcd[7:1]=7'b0001010;
                default:bcd[7:1]={7{1'b0}};
        endcase
        bcd[0]=bin[0];
end
endmodule