/* -*-Verilog-*-
*******************************************************************************
*
* File:         divide_by_1000.v
* RCS:          $Header: $
* Description:  
* Author:       Costas Calamvokis
* Language:     Verilog
* Package:      N/A
* Status:       Experimental (Do Not Distribute)
*
* Copyright (c) 1998 Costas Calamvokis, all rights reserved.
*
*******************************************************************************
*/



module divide_by_1000 (
    clk,
    reset,
    enable,
    out);

input clk;
input reset;
input enable;
output out;

reg [9:0] count;

wire  [9:0] new_count = count + 1;

assign out = (count == 10'd999);



always @(posedge clk)
    begin
    if (reset)
        begin
        count = 0;
        end
    else if (enable)
        begin
        if ( out )
            count = 0;
        else
            count = new_count;
        end
    end




endmodule


/*
 *  Click on this link to go back to v2html home page: 
 *    http:../../../v2html.html
 */