/*----------數字跑表--------*/
/*--具有復位、暫停、秒表計時等功能--*/
/*信號定義 :CLK:時鐘信號
            CLR:異步復位信號 1:清零;0:計數
            PAUSE:暫停信號   1:??;0:??
            MSH、MSL:百分秒高位和低位
            SH、SL:秒種高位和低位
            MH、ML:分鐘高位和低位   */
module paobiao(CLK,CLR,PAUSE,MSH,MSL,SH,SL,MH,ML);
input CLK,CLR;
input PAUSE;
output MSH,MSL,SH,SL,MH,ML;
reg [3:0] MSH,MSL,SH,SL,MH,ML;
reg cn1,cn2;  //進位標志
/*--- 百分秒計時模塊,滿100進位 ---*/
always @(posedge CLK or posedge CLR)
begin if(CLR) 
          begin
             {MSH,MSL}=8'h00;
             cn1=0;
          end
      else if(PAUSE)
              begin
                 if(MSL==9)
                    begin MSL=0;
                       if(MSH==9)
                          begin  MSH=0;
                                 cn1=1;
                          end
                       else MSH=MSH+1;
                    end
                 else begin
                         MSL=MSL+1;
                         cn1=0;
                      end
             end
end
/*---- 秒計時模塊,滿60進位 ----*/
always @(posedge cn1 or posedge CLR)
begin if(CLR) 
          begin
             {SH,SL}=8'h00;
             cn2=0;
          end
      else  if(SL==9)
               begin SL=0;
                     if(SH==5)
                        begin  SH=0;
                               cn2=1;
                        end
                    else SH=SH+1;
                end
             else begin
                     SL=SL+1;
                     cn2=0;
                  end
end
/*---- 分鐘計時模塊,滿60清零 ----*/
always @(posedge cn2 or posedge CLR)
begin if(CLR) 
          begin
             {MH,ML}=8'h00;
             cn2=0;
          end
      else  if(ML==9)
               begin ML=0;
                     if(MH==5)
                        MH=0;
                     else MH=MH+1;
               end
     else ML=ML+1;
end
endmodule