/** 產生規定數目的時鐘脈沖 **/
/** 產生占空比不同的時鐘脈沖，高電平占2個時鐘，低電平占1個時鐘 **/

					
module GEN_CLK (CLK_IN, CLR, CLK_OUT);		
    input   CLK_IN, CLR;
    output  CLK_OUT;  
    reg     [5:0] Q;
    reg     [2:0] R;
    wire    CLK;
    reg     Q_OR;
    parameter NUM=12;             // 產生12個時鐘脈沖

    assign   CLK=CLK_IN & Q_OR;

   always @ (posedge CLK or negedge CLR)
     begin
       if (!CLR)
         begin
           Q=NUM*3;
           Q_OR=1;
         end
       else if (Q==0)
         begin
           Q=0;
         end
       else
         begin
           Q=Q-1;
           Q_OR=Q[5]|Q[4]|Q[3]|Q[2]|Q[1]|Q[0];
         end
     end	
    
   always @ (posedge CLK or negedge CLR)
     begin
       if (!CLR)
         begin
           R=0;
         end
       else if (R==0)
         begin
           R=4;
         end
       else if (R==5)
         begin
           R=0;
         end
       else 
         begin
           R=R+1;
         end        
     end

   assign  CLK_OUT=R[2];
endmodule