請問如何設計BCD counter

ricel00777

我也來寫一個
" f  q7 s4 H! y" ?" a% S輸入：clk, rst
輸出：tens(十位數), units(個位數)

code :
5 s) u! Y! f3 R% J& j; t7 N
module BCD(clk, rst, tens, units);
, k5 P5 B, C4 o% f5 H2 V' z' T  input clk, rst;
  output [2:0] tens;
$ D' c: F4 i; P: A: x  output [3:0] units;
8 P+ G  r: ]6 o0 |7 [  reg [2:0] tens, xtens;
  reg [3:0] units, xunits;
3 ?6 t+ A. ]7 n: ]& q
0 g$ t/ R* B$ s1 |& \& s4 g# |8 M  always@(posedge clk or posedge rst)
7 C+ Z2 H8 O3 v$ g' Z" K  begin
    if(rst)
    begin
      tens <= 3'b0;
3 B2 L) A/ s) N8 g      units <= 4'b0;
! c- t& e. s+ S. n" i8 {7 j, \# e    end
    else
# s4 @# k4 c7 r2 \& i& }! k    begin
      tens <= xtens;
- Y2 @5 u0 O: p( Q. `: o- O      units <= xunits;
% d$ ^8 e) H( ?* X+ w. f    end
  ~3 f/ J% F2 i5 Y$ D  end
. m7 b2 _4 L0 Y/ V& @* m- Q4 m
* E, ~* [3 p3 \5 I; R) D! x" U  always@(tens or units)
  begin
    if(units == 4'd9)
( Z2 M: o7 }# R1 L9 ^    begin
      xunits = 4'b0;
      xtens = tens + 1;
      if(tens > 3'd5)
$ x- b2 p* L! [# u% p. L5 s, m        xtens = 3'b0;
      else
        xtens = tens;
$ P1 v/ ~4 J, u& L9 Y& E3 {) e    end
* m' V# ?# {- |. f% }    else
    begin
      xunits = units + 1;
      xtens = tens;
    end
  end
endmodule