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


module pulse_per_millennium (
    clk,
    reset,
    out);

input clk;
input reset;
output out;

reg year;



pulse_per_year y1 (
    .clk(clk),
    .reset(reset),
    .out(year));


divide_by_1000 d1 (
    .clk(clk),
    .reset(reset),
    .enable(year),
    .out(out));



endmodule










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