32位二进制数转BCD码

//32位二进制数转BCD码(基本思想是逢十进1)
module BIN_BCD_4 (CLK, A,BWW,BQW,BAW,BSW, BW, BQ, BB, BS, BG);
    input CLK;
    input  [31:0]A;           //二进制输入数据
    output [3:0]BWW,BQW,BAW,BSW,BW, BQ, BB, BS, BG;//BCD数据输出寄存器
    reg    [3:0]BWW,BQW,BAW,BSW,BW, BQ, BB, BS, BG;
    integer I;
    reg  [35:0]TEMP;
    reg  [31:0]C;
    always @ (posedge CLK)
     begin
       C=A;
       TEMP=0;
      for (I=1; I<32; I=I+1)
           begin
           {TEMP, C}={TEMP[34:0], C, 1'b0};//左移一位
           if (TEMP[3:0]>4'b0100)
              begin
                TEMP[3:0]=TEMP[3:0]+3; // >4则加3
              end
           if (TEMP[7:4]>4'b0100)
              begin
                TEMP[7:4]=TEMP[7:4]+3;
              end
           if (TEMP[11:8]>4'b0100)
              begin
                TEMP[11:8]=TEMP[11:8]+3;
              end
           if (TEMP[15:12]>4'b0100)
              begin
                TEMP[15:12]=TEMP[15:12]+3;
              end
           if (TEMP[19:16]>4'b0100)
              begin
                TEMP[19:16]=TEMP[19:16]+3;
              end
           if (TEMP[23:20]>4'b0100)
              begin
                TEMP[23:20]=TEMP[23:20]+3;
              end
           if (TEMP[27:24]>4'b0100)
              begin
                TEMP[27:24]=TEMP[27:24]+3;
              end
              if (TEMP[31:28]>4'b0100)
              begin
                TEMP[31:28]=TEMP[31:28]+3;
              end   
              if (TEMP[35:32]>4'b0100)
              begin
                TEMP[35:32]=TEMP[35:32]+3;
              end      
           {BWW,BQW,BAW,BSW,BW, BQ, BB, BS, BG}={TEMP[34:0], A[0]};
           end
     end
  endmodule