// $Header: /devl/xcs/repo/env/Databases/CAEInterfaces/verunilibs/data/unisims/DCM.v,v 1.28.4.3 2007/04/11 20:32:09 yanx Exp $ /////////////////////////////////////////////////////////////////////////////// // Copyright (c) 1995/2004 Xilinx, Inc. // All Right Reserved. /////////////////////////////////////////////////////////////////////////////// // ____ ____ // / /\/ / // /___/ \ / Vendor : Xilinx // \ \ \/ Version : 9.2i (J.36) // \ \ Description : Xilinx Functional Simulation Library Component // / / Digital Clock Manager // /___/ /\ Filename : DCM.v // \ \ / \ Timestamp : Thu Mar 25 16:42:15 PST 2004 // \___\/\___\ // // Revision: // 03/23/04 - Initial version. // 04/11/05 - Initial all output signals. // 05/06/05 - Use assign/deassign to reset all output clocks. CR 207692. // 05/11/05 - Add clkin alignment check control to remove the glitch when // clkin stopped. (CR207409). // 05/25/05 - Seperate clock_second_pos and neg to another process due to // wait caused unreset. Set fb_delay_found after fb_delay computed. // Enable clkfb_div after lock_fb high (CR 208771) // 07/05/05 - Use counter to generate clkdv_out to align with clk0_out. (CR211465). // Add lock_fb_dly to alignment check. (CR210755). // 07/25/05 - Set CLKIN_PERIOD default to 10.0ns to (CR 213190). // 12/22/05 - LOCKED = x when RST less than 3 clock cycles (CR 222795) // 01/12/06 - Add rst_in to period_div and period_ps block to handle clkin frequency // change case. (CR 221989). // 02/28/06 - Add integer and real to parameter declaration. // 09/22/06 - Add lock_period and lock_fb to clkfb_div block (CR418722). // 12/19/06 - Add clkfb_div_en for clkfb2x divider (CR431210). // 04/06/07 - Enable the clock out in clock low time after reset in model // clock_divide_by_2 (CR 437471). // End Revision `ifndef NEW_DCM `timescale 1 ps / 1 ps module DCM ( CLK0, CLK180, CLK270, CLK2X, CLK2X180, CLK90, CLKDV, CLKFX, CLKFX180, LOCKED, PSDONE, STATUS, CLKFB, CLKIN, DSSEN, PSCLK, PSEN, PSINCDEC, RST); parameter CLKDV_DIVIDE = 2.0; parameter integer CLKFX_DIVIDE = 1; parameter integer CLKFX_MULTIPLY = 4; parameter CLKIN_DIVIDE_BY_2 = "FALSE"; parameter CLKIN_PERIOD = 10.0; // non-simulatable parameter CLKOUT_PHASE_SHIFT = "NONE"; parameter CLK_FEEDBACK = "1X"; parameter DESKEW_ADJUST = "SYSTEM_SYNCHRONOUS"; // non-simulatable parameter DFS_FREQUENCY_MODE = "LOW"; parameter DLL_FREQUENCY_MODE = "LOW"; parameter DSS_MODE = "NONE"; // non-simulatable parameter DUTY_CYCLE_CORRECTION = "TRUE"; parameter FACTORY_JF = 16'hC080; // non-simulatable parameter integer MAXPERCLKIN = 1000000; // non-modifiable simulation parameter parameter integer MAXPERPSCLK = 100000000; // non-modifiable simulation parameter parameter integer PHASE_SHIFT = 0; parameter integer SIM_CLKIN_CYCLE_JITTER = 300; // non-modifiable simulation parameter parameter integer SIM_CLKIN_PERIOD_JITTER = 1000; // non-modifiable simulation parameter parameter STARTUP_WAIT = "FALSE"; // non-simulatable input CLKFB, CLKIN, DSSEN; input PSCLK, PSEN, PSINCDEC, RST; output CLK0, CLK180, CLK270, CLK2X, CLK2X180, CLK90; output CLKDV, CLKFX, CLKFX180, LOCKED, PSDONE; output [7:0] STATUS; reg CLK0, CLK180, CLK270, CLK2X, CLK2X180, CLK90; reg CLKDV, CLKFX, CLKFX180; wire locked_out_out; wire clkfb_in, clkin_in, dssen_in; wire psclk_in, psen_in, psincdec_in, rst_in; reg clk0_out; reg clk2x_out, clkdv_out; reg clkfx_out, clkfx180_en; reg rst_flag; reg locked_out, psdone_out, ps_overflow_out, ps_lock; reg clkfb_div, clkfb_chk, clkfb_div_en; integer clkdv_cnt; reg [1:0] clkfb_type; reg [8:0] divide_type; reg clkin_type; reg [1:0] ps_type; reg [3:0] deskew_adjust_mode; reg dfs_mode_type; reg dll_mode_type; reg clk1x_type; integer ps_in, ps_in_ps; reg lock_period, lock_delay, lock_clkin, lock_clkfb; reg first_time_locked; reg en_status; reg ps_overflow_out_ext; reg clkin_lost_out_ext; reg clkfx_lost_out_ext; reg [1:0] lock_out; reg lock_out1_neg; reg lock_fb, lock_ps, lock_ps_dly, lock_fb_dly, lock_fb_dly_tmp; reg fb_delay_found; reg clock_stopped; reg clkin_chkin, clkfb_chkin; wire chk_enable, chk_rst; wire clkin_div; wire lock_period_pulse; wire lock_period_dly; reg clkin_ps; reg clkin_fb; time FINE_SHIFT_RANGE; time ps_delay; time clkin_edge; time clkin_div_edge; time clkin_ps_edge; time delay_edge; time clkin_period [2:0]; time period; time period_div; time period_orig; time period_ps; time clkout_delay; time fb_delay; time period_fx, remain_fx; time period_dv_high, period_dv_low; time cycle_jitter, period_jitter; reg clkin_window, clkfb_window; reg [2:0] rst_reg; reg [12:0] numerator, denominator, gcd; reg [23:0] i, n, d, p; reg notifier; initial begin #1; if ($realtime == 0) begin $display ("Simulator Resolution Error : Simulator resolution is set to a value greater than 1 ps."); $display ("In order to simulate the DCM, the simulator resolution must be set to 1ps or smaller."); $finish; end end initial begin case (CLKDV_DIVIDE) 1.5 : divide_type = 'd3; 2.0 : divide_type = 'd4; 2.5 : divide_type = 'd5; 3.0 : divide_type = 'd6; 3.5 : divide_type = 'd7; 4.0 : divide_type = 'd8; 4.5 : divide_type = 'd9; 5.0 : divide_type = 'd10; 5.5 : divide_type = 'd11; 6.0 : divide_type = 'd12; 6.5 : divide_type = 'd13; 7.0 : divide_type = 'd14; 7.5 : divide_type = 'd15; 8.0 : divide_type = 'd16; 9.0 : divide_type = 'd18; 10.0 : divide_type = 'd20; 11.0 : divide_type = 'd22; 12.0 : divide_type = 'd24; 13.0 : divide_type = 'd26; 14.0 : divide_type = 'd28; 15.0 : divide_type = 'd30; 16.0 : divide_type = 'd32; default : begin $display("Attribute Syntax Error : The attribute CLKDV_DIVIDE on DCM instance %m is set to %0.1f. Legal values for this attribute are 1.5, 2.0, 2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 5.5, 6.0, 6.5, 7.0, 7.5, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, or 16.0.", CLKDV_DIVIDE); $finish; end endcase if ((CLKFX_DIVIDE <= 0) || (32 < CLKFX_DIVIDE)) begin $display("Attribute Syntax Error : The attribute CLKFX_DIVIDE on DCM instance %m is set to %d. Legal values for this attribute are 1 ... 32.", CLKFX_DIVIDE); $finish; end if ((CLKFX_MULTIPLY <= 1) || (32 < CLKFX_MULTIPLY)) begin $display("Attribute Syntax Error : The attribute CLKFX_MULTIPLY on DCM instance %m is set to %d. Legal values for this attribute are 2 ... 32.", CLKFX_MULTIPLY); $finish; end case (CLKIN_DIVIDE_BY_2) "false" : clkin_type = 0; "FALSE" : clkin_type = 0; "true" : clkin_type = 1; "TRUE" : clkin_type = 1; default : begin $display("Attribute Syntax Error : The attribute CLKIN_DIVIDE_BY_2 on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", CLKIN_DIVIDE_BY_2); $finish; end endcase case (CLKOUT_PHASE_SHIFT) "NONE" : begin ps_in = 256; ps_type = 0; end "none" : begin ps_in = 256; ps_type = 0; end "FIXED" : begin ps_in = PHASE_SHIFT + 256; ps_type = 1; end "fixed" : begin ps_in = PHASE_SHIFT + 256; ps_type = 1; end "VARIABLE" : begin ps_in = PHASE_SHIFT + 256; ps_type = 2; end "variable" : begin ps_in = PHASE_SHIFT + 256; ps_type = 2; end default : begin $display("Attribute Syntax Error : The attribute CLKOUT_PHASE_SHIFT on DCM instance %m is set to %s. Legal values for this attribute are NONE, FIXED or VARIABLE.", CLKOUT_PHASE_SHIFT); $finish; end endcase ps_in_ps = ps_in; case (CLK_FEEDBACK) "none" : clkfb_type = 2'b00; "NONE" : clkfb_type = 2'b00; "1x" : clkfb_type = 2'b01; "1X" : clkfb_type = 2'b01; "2x" : clkfb_type = 2'b10; "2X" : clkfb_type = 2'b10; default : begin $display("Attribute Syntax Error : The attribute CLK_FEEDBACK on DCM instance %m is set to %s. Legal values for this attribute are NONE, 1X or 2X.", CLK_FEEDBACK); $finish; end endcase case (DESKEW_ADJUST) "source_synchronous" : deskew_adjust_mode = 8; "SOURCE_SYNCHRONOUS" : deskew_adjust_mode = 8; "system_synchronous" : deskew_adjust_mode = 11; "SYSTEM_SYNCHRONOUS" : deskew_adjust_mode = 11; "0" : deskew_adjust_mode = 0; "1" : deskew_adjust_mode = 1; "2" : deskew_adjust_mode = 2; "3" : deskew_adjust_mode = 3; "4" : deskew_adjust_mode = 4; "5" : deskew_adjust_mode = 5; "6" : deskew_adjust_mode = 6; "7" : deskew_adjust_mode = 7; "8" : deskew_adjust_mode = 8; "9" : deskew_adjust_mode = 9; "10" : deskew_adjust_mode = 10; "11" : deskew_adjust_mode = 11; "12" : deskew_adjust_mode = 12; "13" : deskew_adjust_mode = 13; "14" : deskew_adjust_mode = 14; "15" : deskew_adjust_mode = 15; default : begin $display("Attribute Syntax Error : The attribute DESKEW_ADJUST on DCM instance %m is set to %s. Legal values for this attribute are SOURCE_SYNCHRONOUS, SYSTEM_SYNCHRONOUS or 0 ... 15.", DESKEW_ADJUST); $finish; end endcase case (DFS_FREQUENCY_MODE) "high" : dfs_mode_type = 1; "HIGH" : dfs_mode_type = 1; "low" : dfs_mode_type = 0; "LOW" : dfs_mode_type = 0; default : begin $display("Attribute Syntax Error : The attribute DFS_FREQUENCY_MODE on DCM instance %m is set to %s. Legal values for this attribute are HIGH or LOW.", DFS_FREQUENCY_MODE); $finish; end endcase period_jitter = SIM_CLKIN_PERIOD_JITTER; cycle_jitter = SIM_CLKIN_CYCLE_JITTER; case (DLL_FREQUENCY_MODE) "high" : dll_mode_type = 1; "HIGH" : dll_mode_type = 1; "low" : dll_mode_type = 0; "LOW" : dll_mode_type = 0; default : begin $display("Attribute Syntax Error : The attribute DLL_FREQUENCY_MODE on DCM instance %m is set to %s. Legal values for this attribute are HIGH or LOW.", DLL_FREQUENCY_MODE); $finish; end endcase if ((dll_mode_type ==1) && (clkfb_type == 2'b10)) begin $display("Attribute Syntax Error : The attributes DLL_FREQUENCY_MODE on DCM instance %m is set to %s and CLK_FEEDBACK is set to %s. CLK_FEEDBACK 2X is not supported when DLL_FREQUENCY_MODE is HIGH.", DLL_FREQUENCY_MODE, CLK_FEEDBACK); $finish; end case (DSS_MODE) "none" : ; "NONE" : ; default : begin $display("Attribute Syntax Error : The attribute DSS_MODE on DCM instance %m is set to %s. Legal values for this attribute is NONE.", DSS_MODE); $finish; end endcase case (DUTY_CYCLE_CORRECTION) "false" : clk1x_type = 0; "FALSE" : clk1x_type = 0; "true" : clk1x_type = 1; "TRUE" : clk1x_type = 1; default : begin $display("Attribute Syntax Error : The attribute DUTY_CYCLE_CORRECTION on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", DUTY_CYCLE_CORRECTION); $finish; end endcase if ((PHASE_SHIFT < -255) || (PHASE_SHIFT > 255)) begin $display("Attribute Syntax Error : The attribute PHASE_SHIFT on DCM instance %m is set to %d. Legal values for this attribute are -255 ... 255.", PHASE_SHIFT); $display("Error : PHASE_SHIFT = %d is not -255 ... 255.", PHASE_SHIFT); $finish; end case (STARTUP_WAIT) "false" : ; "FALSE" : ; "true" : ; "TRUE" : ; default : begin $display("Attribute Syntax Error : The attribute STARTUP_WAIT on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", STARTUP_WAIT); $finish; end endcase end // // fx parameters // initial begin gcd = 1; for (i = 2; i <= CLKFX_MULTIPLY; i = i + 1) begin if (((CLKFX_MULTIPLY % i) == 0) && ((CLKFX_DIVIDE % i) == 0)) gcd = i; end numerator = CLKFX_MULTIPLY / gcd; denominator = CLKFX_DIVIDE / gcd; end // // input wire delays // buf b_clkin (clkin_in, CLKIN); buf b_clkfb (clkfb_in, CLKFB); buf b_dssen (dssen_in, DSSEN); buf b_psclk (psclk_in, PSCLK); buf b_psen (psen_in, PSEN); buf b_psincdec (psincdec_in, PSINCDEC); buf b_rst (rst_in, RST); buf #100 b_locked (LOCKED, locked_out_out); buf #100 b_psdone (PSDONE, psdone_out); buf b_ps_overflow (STATUS[0], ps_overflow_out_ext); buf b_clkin_lost (STATUS[1], clkin_lost_out_ext); buf b_clkfx_lost (STATUS[2], clkfx_lost_out_ext); assign STATUS[7:3] = 5'b0; dcm_clock_divide_by_2 i_clock_divide_by_2 (clkin_in, clkin_type, clkin_div, rst_in); dcm_maximum_period_check #("CLKIN", MAXPERCLKIN) i_max_clkin (clkin_in); dcm_maximum_period_check #("PSCLK", MAXPERPSCLK) i_max_psclk (psclk_in); dcm_clock_lost i_clkin_lost (clkin_in, first_time_locked, clkin_lost_out, rst_in); dcm_clock_lost i_clkfx_lost (CLKFX, first_time_locked, clkfx_lost_out, rst_in); always @(rst_in or en_status or clkfx_lost_out or clkin_lost_out or ps_overflow_out) if (rst_in == 1 || en_status == 0) begin ps_overflow_out_ext = 0; clkin_lost_out_ext = 0; clkfx_lost_out_ext = 0; end else begin ps_overflow_out_ext = ps_overflow_out; clkin_lost_out_ext = clkin_lost_out; clkfx_lost_out_ext = clkfx_lost_out; end always @(posedge rst_in or posedge LOCKED) if (rst_in == 1) en_status <= 0; else en_status <= 1; always @(clkin_div) clkin_ps <= #(ps_delay) clkin_div; always @(clkin_ps or lock_fb) clkin_fb = clkin_ps & lock_fb; always @(negedge clkfb_in or posedge rst_in) if (rst_in) clkfb_div_en <= 0; else if (lock_fb_dly && lock_period && lock_fb && ~clkin_ps) clkfb_div_en <= 1; always @(posedge clkfb_in or posedge rst_in) if (rst_in) clkfb_div <= 0; else if (clkfb_div_en ) clkfb_div <= ~clkfb_div; always @(clkfb_in or clkfb_div) if (clkfb_type == 2'b10 ) clkfb_chk = clkfb_div; else clkfb_chk = clkfb_in & lock_fb_dly; always @(posedge clkin_fb or posedge chk_rst) if (chk_rst) clkin_chkin <= 0; else clkin_chkin <= 1; always @(posedge clkfb_chk or posedge chk_rst) if (chk_rst) clkfb_chkin <= 0; else clkfb_chkin <= 1; assign chk_rst = (rst_in==1 || clock_stopped==1 ) ? 1 : 0; assign chk_enable = (clkin_chkin == 1 && clkfb_chkin == 1 && lock_ps ==1 && lock_fb ==1 && lock_fb_dly == 1) ? 1 : 0; always @(posedge clkin_div or posedge rst_in) if (rst_in) begin period_div <= 0; clkin_div_edge <= 0; end else if ( clkin_div ==1 ) begin clkin_div_edge <= $time; if (($time - clkin_div_edge) <= (1.5 * period_div)) period_div <= $time - clkin_div_edge; else if ((period_div == 0) && (clkin_div_edge != 0)) period_div <= $time - clkin_div_edge; end always @(posedge clkin_ps or posedge rst_in) if (rst_in) begin period_ps <= 0; clkin_ps_edge <= 0; end else if (clkin_ps == 1 ) begin clkin_ps_edge <= $time; if (($time - clkin_ps_edge) <= (1.5 * period_ps)) period_ps <= $time - clkin_ps_edge; else if ((period_ps == 0) && (clkin_ps_edge != 0)) period_ps <= $time - clkin_ps_edge; end always @(posedge clkin_ps) begin lock_ps <= lock_period; lock_ps_dly <= lock_ps; lock_fb <= lock_ps_dly; lock_fb_dly_tmp <= lock_fb; end always @(negedge clkin_ps or posedge rst_in) if (rst_in) lock_fb_dly <= 1'b0; else // lock_fb_dly <= #(period/4) lock_fb_dly_tmp; lock_fb_dly <= #(period * 0.75) lock_fb_dly_tmp; always @(period or fb_delay ) if (fb_delay == 0) clkout_delay = 0; else clkout_delay = period - fb_delay; // // generate master reset signal // always @(posedge clkin_in) begin rst_reg[0] <= rst_in; rst_reg[1] <= rst_reg[0] & rst_in; rst_reg[2] <= rst_reg[1] & rst_reg[0] & rst_in; end reg rst_tmp1, rst_tmp2; initial begin rst_tmp1 = 0; rst_tmp2 = 0; rst_flag = 0; end always @(rst_in) begin if (rst_in) rst_flag = 0; rst_tmp1 = rst_in; if (rst_tmp1 == 0 && rst_tmp2 == 1) begin if ((rst_reg[2] & rst_reg[1] & rst_reg[0]) == 0) begin rst_flag = 1; $display("Input Error : RST on instance %m must be asserted for 3 CLKIN clock cycles."); end end rst_tmp2 = rst_tmp1; end initial begin CLK0 = 0; CLK180 = 0; CLK270 = 0; CLK2X = 0; CLK2X180 = 0; CLK90 = 0; CLKDV = 0; CLKFX = 0; CLKFX180 = 0; clk0_out = 0; clk2x_out = 0; clkdv_out = 0; clkdv_cnt = 0; clkfb_window = 0; clkfx_out = 0; clkfx180_en = 0; clkin_div_edge = 0; clkin_period[0] = 0; clkin_period[1] = 0; clkin_period[2] = 0; clkin_edge = 0; clkin_ps_edge = 0; clkin_window = 0; clkout_delay = 0; clock_stopped = 1; fb_delay = 0; fb_delay_found = 0; lock_clkfb = 0; lock_clkin = 0; lock_delay = 0; lock_fb = 0; lock_fb_dly = 0; lock_out = 2'b00; lock_out1_neg = 0; lock_period = 0; lock_ps = 0; lock_ps_dly = 0; locked_out = 0; period = 0; period_div = 0; period_fx = 0; period_orig = 0; period_ps = 0; psdone_out = 0; ps_delay = 0; ps_lock = 0; ps_overflow_out = 0; ps_overflow_out_ext = 0; clkin_lost_out_ext = 0; clkfx_lost_out_ext = 0; rst_reg = 3'b000; first_time_locked = 0; en_status = 0; clkfb_div = 0; clkin_chkin = 0; clkfb_chkin = 0; end // RST less than 3 cycles, lock = x assign locked_out_out = (rst_flag) ? 1'bx : locked_out; // // detect_first_time_locked // always @(posedge locked_out) if (first_time_locked == 0) first_time_locked <= 1; // // phase shift parameters // always @(posedge lock_period) begin if (ps_type == 2'b01) FINE_SHIFT_RANGE = 10000; else if (ps_type == 2'b10) FINE_SHIFT_RANGE = 5000; if (PHASE_SHIFT > 0) begin if ((ps_in * period_orig / 256) > period_orig + FINE_SHIFT_RANGE) begin $display("Function Error : Instance %m Requested Phase Shift = PHASE_SHIFT * PERIOD / 256 = %d * %1.3f / 256 = %1.3f. This exceeds the FINE_SHIFT_RANGE of %1.3f ns.", PHASE_SHIFT, period_orig / 1000.0, PHASE_SHIFT * period_orig / 256 / 1000.0, FINE_SHIFT_RANGE / 1000.0); $finish; end end else if (PHASE_SHIFT < 0) begin if ((period_orig > FINE_SHIFT_RANGE) && ((ps_in * period_orig / 256) < period_orig - FINE_SHIFT_RANGE)) begin $display("Function Error : Instance %m Requested Phase Shift = PHASE_SHIFT * PERIOD / 256 = %d * %1.3f / 256 = %1.3f. This exceeds the FINE_SHIFT_RANGE of %1.3f ns.", PHASE_SHIFT, period_orig / 1000.0, -(PHASE_SHIFT) * period_orig / 256 / 1000.0, FINE_SHIFT_RANGE / 1000.0); $finish; end end end always @(posedge lock_period_pulse or posedge rst_in or ps_in_ps) if (rst_in) begin ps_delay <= 0; end else if (lock_period_pulse) begin ps_delay <= (ps_in * period_div / 256); end else begin if (ps_type == 2'b10 && ps_lock ==1) begin ps_delay = (ps_in_ps * period_div / 256); end end always @(posedge psclk_in or rst_in) if (rst_in) begin ps_in_ps <= ps_in; ps_overflow_out <= 0; end else begin if (ps_type == 2'b10) if (psen_in) if (ps_lock == 1) $display(" Warning : Please wait for PSDONE signal before adjusting the Phase Shift."); else if (psincdec_in == 1) begin if (ps_in_ps == 511) ps_overflow_out <= 1; else if (((ps_in_ps + 1) * period_orig / 256) > period_orig + FINE_SHIFT_RANGE) ps_overflow_out <= 1; else begin ps_in_ps <= ps_in_ps + 1; ps_overflow_out <= 0; end ps_lock <= 1; end else if (psincdec_in == 0) begin if (ps_in_ps == 1) ps_overflow_out <= 1; else if ((period_orig > FINE_SHIFT_RANGE) && (((ps_in_ps - 1) * period_orig / 256) < period_orig - FINE_SHIFT_RANGE)) ps_overflow_out <= 1; else begin ps_in_ps <= ps_in_ps - 1; ps_overflow_out <= 0; end ps_lock <= 1; end end always @(posedge ps_lock) begin @(posedge clkin_ps) @(posedge psclk_in) @(posedge psclk_in) @(posedge psclk_in) psdone_out <= 1; @(posedge psclk_in) psdone_out <= 0; ps_lock <= 0; end // // determine clock period // always @(posedge clkin_div or negedge clkin_div or posedge rst_in) if (rst_in == 1) begin clkin_period[0] <= 0; clkin_period[1] <= 0; clkin_period[2] <= 0; clkin_edge <= 0; end else if (clkin_div == 1) begin clkin_edge <= $time; clkin_period[2] <= clkin_period[1]; clkin_period[1] <= clkin_period[0]; if (clkin_edge != 0) clkin_period[0] <= $time - clkin_edge; end else if (clkin_div == 0) if (lock_period == 1) if (100000000 < clkin_period[0]/1000) begin end else if ((period_orig * 2 < clkin_period[0]) && (clock_stopped == 0)) begin clkin_period[0] <= clkin_period[1]; end always @(negedge clkin_div or posedge rst_in) if (rst_in == 1) begin lock_period <= 0; clock_stopped <= 1; end else begin if (lock_period == 1'b0) begin if ((clkin_period[0] != 0) && (clkin_period[0] - cycle_jitter <= clkin_period[1]) && (clkin_period[1] <= clkin_period[0] + cycle_jitter) && (clkin_period[1] - cycle_jitter <= clkin_period[2]) && (clkin_period[2] <= clkin_period[1] + cycle_jitter)) begin lock_period <= 1; period_orig <= (clkin_period[0] + clkin_period[1] + clkin_period[2]) / 3; period <= clkin_period[0]; end end else if (lock_period == 1'b1) begin if (100000000 < (clkin_period[0] / 1000)) begin $display(" Warning : CLKIN stopped toggling on instance %m exceeds %d ms. Current CLKIN Period = %1.3f ns.", 100, clkin_period[0] / 1000.0); lock_period <= 0; @(negedge rst_reg[2]); end else if ((period_orig * 2 < clkin_period[0]) && clock_stopped == 1'b0) begin clock_stopped <= 1'b1; end else if ((clkin_period[0] < period_orig - period_jitter) || (period_orig + period_jitter < clkin_period[0])) begin $display(" Warning : Input Clock Period Jitter on instance %m exceeds %1.3f ns. Locked CLKIN Period = %1.3f. Current CLKIN Period = %1.3f.", period_jitter / 1000.0, period_orig / 1000.0, clkin_period[0] / 1000.0); lock_period <= 0; @(negedge rst_reg[2]); end else if ((clkin_period[0] < clkin_period[1] - cycle_jitter) || (clkin_period[1] + cycle_jitter < clkin_period[0])) begin $display(" Warning : Input Clock Cycle-Cycle Jitter on instance %m exceeds %1.3f ns. Previous CLKIN Period = %1.3f. Current CLKIN Period = %1.3f.", cycle_jitter / 1000.0, clkin_period[1] / 1000.0, clkin_period[0] / 1000.0); lock_period <= 0; @(negedge rst_reg[2]); end else begin period <= clkin_period[0]; clock_stopped <= 1'b0; end end end assign #(period/2) lock_period_dly = lock_period; assign lock_period_pulse = (lock_period==1 && lock_period_dly==0) ? 1 : 0; // // determine clock delay // //always @(posedge lock_period or posedge rst_in) always @(posedge lock_ps_dly or posedge rst_in) if (rst_in) begin fb_delay <= 0; fb_delay_found <= 0; end else begin if (lock_period && clkfb_type != 2'b00) begin if (clkfb_type == 2'b01) begin @(posedge CLK0 or rst_in) delay_edge = $time; end else if (clkfb_type == 2'b10) begin @(posedge CLK2X or rst_in) delay_edge = $time; end @(posedge clkfb_in or rst_in) begin fb_delay <= ($time - delay_edge) % period_orig; fb_delay_found <= 1; end end end // // determine feedback lock // //always @(posedge clkfb_in or posedge rst_in) always @(posedge clkfb_chk or posedge rst_in) if (rst_in) clkfb_window <= 0; else begin clkfb_window <= 1; #cycle_jitter clkfb_window <= 0; end always @(posedge clkin_fb or posedge rst_in) if (rst_in) clkin_window <= 0; else begin clkin_window <= 1; #cycle_jitter clkin_window <= 0; end always @(posedge clkin_fb or posedge rst_in) if (rst_in) lock_clkin <= 0; else begin #1 if ((clkfb_window && fb_delay_found) || (clkin_lost_out == 1'b1 && lock_out[0]==1'b1)) lock_clkin <= 1; else if (chk_enable==1) lock_clkin <= 0; end always @(posedge clkfb_chk or posedge rst_in) if (rst_in) lock_clkfb <= 0; else begin #1 if ((clkin_window && fb_delay_found) || (clkin_lost_out == 1'b1 && lock_out[0]==1'b1)) lock_clkfb <= 1; else if (chk_enable ==1) lock_clkfb <= 0; end always @(negedge clkin_fb or posedge rst_in) if (rst_in) lock_delay <= 0; else lock_delay <= lock_clkin || lock_clkfb; // // generate lock signal // always @(posedge clkin_ps or posedge rst_in) if (rst_in) begin lock_out <= 2'b0; locked_out <=0; end else begin if (clkfb_type == 2'b00) lock_out[0] <= lock_period; else lock_out[0] <= lock_period & lock_delay & lock_fb; lock_out[1] <= lock_out[0]; locked_out <= lock_out[1]; end always @(negedge clkin_ps or posedge rst_in) if (rst_in) lock_out1_neg <= 0; else lock_out1_neg <= lock_out[1]; // // generate the clk1x_out // always @(posedge clkin_ps or negedge clkin_ps or posedge rst_in) if (rst_in) clk0_out <= 0; else if (clkin_ps ==1) if (clk1x_type==1 && lock_out[0]) begin clk0_out <= 1; #(period / 2) clk0_out <= 0; end else clk0_out <= 1; else if (clkin_ps == 0 && ((clk1x_type && lock_out[0]) == 0 || (lock_out[0]== 1 && lock_out[1]== 0))) clk0_out <= 0; // // generate the clk2x_out // always @(posedge clkin_ps or posedge rst_in) if (rst_in) clk2x_out <= 0; else begin clk2x_out <= 1; #(period / 4) clk2x_out <= 0; #(period / 4) clk2x_out <= 1; #(period / 4) clk2x_out <= 0; end // // generate the clkdv_out // always @(posedge clkin_ps or negedge clkin_ps or posedge rst_in) if (rst_in) begin clkdv_out <= 1'b0; clkdv_cnt <= 0; end else if (lock_out1_neg) begin if (clkdv_cnt >= divide_type -1) clkdv_cnt <= 0; else clkdv_cnt <= clkdv_cnt + 1; if (clkdv_cnt < divide_type /2) clkdv_out <= 1'b1; else if ( (divide_type[0] == 1'b1) && dll_mode_type == 1'b0) clkdv_out <= #(period/4) 1'b0; else clkdv_out <= 1'b0; end // // generate fx output signal // always @(lock_period or period or denominator or numerator) begin if (lock_period == 1'b1) begin period_fx = (period * denominator) / (numerator * 2); remain_fx = (period * denominator) % (numerator * 2); end end always @(posedge clkin_ps or posedge clkin_lost_out or posedge rst_in ) if (rst_in == 1) clkfx_out = 1'b0; else if (clkin_lost_out == 1'b1 ) begin if (locked_out == 1) @(negedge rst_reg[2]); end else if (lock_out[1] == 1) begin clkfx_out = 1'b1; for (p = 0; p < (numerator * 2 - 1); p = p + 1) begin #(period_fx); if (p < remain_fx) #1; clkfx_out = !clkfx_out; end if (period_fx > (period / 2)) begin #(period_fx - (period / 2)); end end // // generate all output signal // always @(rst_in) if (rst_in) begin assign CLK0 = 0; assign CLK90 = 0; assign CLK180 = 0; assign CLK270 = 0; assign CLK2X = 0; assign CLK2X180 =0; assign CLKDV = 0; assign CLKFX = 0; assign CLKFX180 = 0; end else begin deassign CLK0; deassign CLK90; deassign CLK180; deassign CLK270; deassign CLK2X; deassign CLK2X180; deassign CLKDV; deassign CLKFX; deassign CLKFX180; end always @(clk0_out) begin CLK0 <= #(clkout_delay) clk0_out && (clkfb_type != 2'b00); CLK90 <= #(clkout_delay + period / 4) clk0_out && !dll_mode_type && (clkfb_type != 2'b00); CLK180 <= #(clkout_delay) ~clk0_out && (clkfb_type != 2'b00); CLK270 <= #(clkout_delay + period / 4) ~clk0_out && !dll_mode_type && (clkfb_type != 2'b00); end always @(clk2x_out) begin CLK2X <= #(clkout_delay) clk2x_out && !dll_mode_type && (clkfb_type != 2'b00); CLK2X180 <= #(clkout_delay) ~clk2x_out && !dll_mode_type && (clkfb_type != 2'b00); end always @(clkdv_out) CLKDV <= #(clkout_delay) clkdv_out && (clkfb_type != 2'b00); always @(clkfx_out ) CLKFX <= #(clkout_delay) clkfx_out; always @( clkfx_out or first_time_locked or locked_out) if ( ~first_time_locked) CLKFX180 = 0; else CLKFX180 <= #(clkout_delay) ~clkfx_out; endmodule ////////////////////////////////////////////////////// module dcm_clock_divide_by_2 (clock, clock_type, clock_out, rst); input clock; input clock_type; input rst; output clock_out; reg clock_out; reg clock_div2; reg [2:0] rst_reg; wire clk_src; initial begin clock_out = 1'b0; clock_div2 = 1'b0; end always @(posedge clock) clock_div2 <= ~clock_div2; always @(posedge clock) begin rst_reg[0] <= rst; rst_reg[1] <= rst_reg[0] & rst; rst_reg[2] <= rst_reg[1] & rst_reg[0] & rst; end assign clk_src = (clock_type) ? clock_div2 : clock; always @(clk_src or rst or rst_reg) if (rst == 1'b0) clock_out = clk_src; else if (rst == 1'b1) begin clock_out = 1'b0; @(negedge rst_reg[2]); if (clk_src == 1'b1) @(negedge clk_src); end endmodule module dcm_maximum_period_check (clock); parameter clock_name = ""; parameter maximum_period = 0; input clock; time clock_edge; time clock_period; initial begin clock_edge = 0; clock_period = 0; end always @(posedge clock) begin clock_edge <= $time; clock_period <= $time - clock_edge; if (clock_period > maximum_period ) begin $display(" Warning : Input clock period of, %1.3f ns, on the %s port of instance %m exceeds allotted value of %1.3f ns at simulation time %1.3f ns.", clock_period/1000.0, clock_name, maximum_period/1000.0, $time/1000.0); end end endmodule module dcm_clock_lost (clock, enable, lost, rst); input clock; input enable; input rst; output lost; time clock_edge; reg [63:0] period; reg clock_low, clock_high; reg clock_posedge, clock_negedge; reg lost_r, lost_f, lost; reg clock_second_pos, clock_second_neg; initial begin clock_edge = 0; clock_high = 0; clock_low = 0; lost_r = 0; lost_f = 0; period = 0; clock_posedge = 0; clock_negedge = 0; clock_second_pos = 0; clock_second_neg = 0; end always @(posedge clock or posedge rst) if (rst==1) period <= 0; else begin clock_edge <= $time; if (period != 0 && (($time - clock_edge) <= (1.5 * period))) period <= $time - clock_edge; else if (period != 0 && (($time - clock_edge) > (1.5 * period))) period <= 0; else if ((period == 0) && (clock_edge != 0) && clock_second_pos == 1) period <= $time - clock_edge; end always @(posedge clock or posedge rst) if (rst) lost_r <= 0; else if (enable == 1 && clock_second_pos == 1) begin #1; if ( period != 0) lost_r <= 0; #((period * 9.1) / 10) if ((clock_low != 1'b1) && (clock_posedge != 1'b1) && rst == 0) lost_r <= 1; end always @(posedge clock or negedge clock or posedge rst) if (rst) begin clock_second_pos <= 0; clock_second_neg <= 0; end else if (clock) clock_second_pos <= 1; else if (~clock) clock_second_neg <= 1; always @(negedge clock or posedge rst) if (rst==1) begin lost_f <= 0; end else begin if (enable == 1 && clock_second_neg == 1) begin if ( period != 0) lost_f <= 0; #((period * 9.1) / 10) if ((clock_high != 1'b1) && (clock_negedge != 1'b1) && rst == 0) lost_f <= 1; end end always @( lost_r or lost_f or enable) begin if (enable == 1) lost = lost_r | lost_f; else lost = 0; end always @(posedge clock or negedge clock or posedge rst) if (rst==1) begin clock_low <= 1'b0; clock_high <= 1'b0; clock_posedge <= 1'b0; clock_negedge <= 1'b0; end else begin if (clock ==1) begin clock_low <= 1'b0; clock_high <= 1'b1; clock_posedge <= 1'b0; clock_negedge <= 1'b1; end else if (clock == 0) begin clock_low <= 1'b1; clock_high <= 1'b0; clock_posedge <= 1'b1; clock_negedge <= 1'b0; end end endmodule `else `timescale 1 ps / 1 ps module DCM ( CLK0, CLK180, CLK270, CLK2X, CLK2X180, CLK90, CLKDV, CLKFX, CLKFX180, LOCKED, PSDONE, STATUS, CLKFB, CLKIN, DSSEN, PSCLK, PSEN, PSINCDEC, RST); parameter real CLKDV_DIVIDE = 2.0; parameter integer CLKFX_DIVIDE = 1; parameter integer CLKFX_MULTIPLY = 4; parameter CLKIN_DIVIDE_BY_2 = "FALSE"; parameter real CLKIN_PERIOD = 10.0; parameter CLKOUT_PHASE_SHIFT = "NONE"; parameter CLK_FEEDBACK = "1X"; parameter DESKEW_ADJUST = "SYSTEM_SYNCHRONOUS"; parameter DFS_FREQUENCY_MODE = "LOW"; parameter DLL_FREQUENCY_MODE = "LOW"; parameter DSS_MODE = "NONE"; parameter DUTY_CYCLE_CORRECTION = "TRUE"; parameter [15:0] FACTORY_JF = 16'hC080; parameter integer PHASE_SHIFT = 0; parameter STARTUP_WAIT = "FALSE"; input CLKFB, CLKIN, DSSEN; input PSCLK, PSEN, PSINCDEC, RST; output CLK0, CLK180, CLK270, CLK2X, CLK2X180, CLK90; output CLKDV, CLKFX, CLKFX180, LOCKED, PSDONE; output [7:0] STATUS; reg CLK0, CLK180, CLK270, CLK2X, CLK2X180, CLK90; reg CLKDV, CLKFX, CLKFX180; reg LOCKED_out, PSDONE = 0; reg [7:0] STATUS = 8'b0; wire LOCKED; reg [1:0] clkfb_type, ps_type; reg clkin_type, align, clkin_divide, fbsync = 0; reg [2:0] pos_shift, neg_shift; reg [2:0] pos_shift_st, neg_shift_st; reg [3:0] deskew_adjust_mode; // reg [8:0] shift = 9'b0; reg [1:0] clkin_cnt, old_clkin_cnt; reg clkin_error; reg period_updated; reg clkin_cnt_en; reg rst_tmp, rst_done_fx, rst_done_dv; integer shift; realtime clk_period; // = (250*CLKIN_PERIOD); realtime clkfx_period; // = ((CLKIN_PERIOD*CLKFX_DIVIDE*1000)/(CLKFX_MULTIPLY*2)); realtime shift_ammount; // = ((CLKIN_PERIOD*1000)/256); realtime clkdv_period; // = ((CLKIN_PERIOD*CLKDV_DIVIDE*1000)/2); realtime clkin_time1, clkin_time2, period_clkin; time start_time, delay_time; initial begin case (CLKIN_DIVIDE_BY_2) "false" : clkin_type <= 0; "FALSE" : clkin_type <= 0; "true" : clkin_type <= 1; "TRUE" : clkin_type <= 1; default : begin $display("Attribute Syntax Error : The attribute CLKIN_DIVIDE_BY_2 on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", CLKIN_DIVIDE_BY_2); $finish; end endcase case (CLKDV_DIVIDE) 1.5 : ; 2.0 : ; 2.5 : ; 3.0 : ; 3.5 : ; 4.0 : ; 4.5 : ; 5.0 : ; 5.5 : ; 6.0 : ; 6.5 : ; 7.0 : ; 7.5 : ; 8.0 : ; 9.0 : ; 10.0 : ; 11.0 : ; 12.0 : ; 13.0 : ; 14.0 : ; 15.0 : ; 16.0 : ; default : begin $display("Attribute Syntax Error : The attribute CLKDV_DIVIDE on DCM instance %m is set to %0.1f. Legal values for this attribute are 1.5, 2.0, 2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 5.5, 6.0, 6.5, 7.0, 7.5, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, or 16.0.", CLKDV_DIVIDE); $finish; end endcase if ((CLKFX_DIVIDE <= 0) || (32 < CLKFX_DIVIDE)) begin $display("Attribute Syntax Error : The attribute CLKFX_DIVIDE on DCM instance %m is set to %d. Legal values for this attribute are 1 ... 32.", CLKFX_DIVIDE); $finish; end if ((CLKFX_MULTIPLY <= 1) || (32 < CLKFX_MULTIPLY)) begin $display("Attribute Syntax Error : The attribute CLKFX_MULTIPLY on DCM instance %m is set to %d. Legal values for this attribute are 2 ... 32.", CLKFX_MULTIPLY); $finish; end case (CLKIN_DIVIDE_BY_2) "false" : clkin_divide <= 0; "FALSE" : clkin_divide <= 0; "true" : clkin_divide <= 1; "TRUE" : clkin_divide <= 1; default : begin $display("Attribute Syntax Error : The attribute CLKIN_DIVIDE_BY_2 on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", CLKIN_DIVIDE_BY_2); $finish; end endcase case (CLKOUT_PHASE_SHIFT) "NONE" : ps_type <= 0; "none" : ps_type <= 0; "FIXED" : ps_type <= 1; "fixed" : ps_type <= 1; "VARIABLE" : ps_type <= 2; "variable" : ps_type <= 2; default : begin $display("Attribute Syntax Error : The attribute CLKOUT_PHASE_SHIFT on DCM instance %m is set to %s. Legal values for this attribute are NONE, FIXED or VARIABLE.", CLKOUT_PHASE_SHIFT); $finish; end endcase case (CLK_FEEDBACK) "none" : clkfb_type <= 0; "NONE" : clkfb_type <= 0; "1x" : clkfb_type <= 1; "1X" : clkfb_type <= 1; "2x" : clkfb_type <= 2; "2X" : clkfb_type <= 2; default : begin $display("Attribute Syntax Error : The attribute CLK_FEEDBACK on DCM instance %m is set to %s. Legal values for this attribute are NONE, 1X or 2X.", CLK_FEEDBACK); $finish; end endcase case (DESKEW_ADJUST) "source_synchronous" : deskew_adjust_mode <= 8; "SOURCE_SYNCHRONOUS" : deskew_adjust_mode <= 8; "system_synchronous" : deskew_adjust_mode <= 11; "SYSTEM_SYNCHRONOUS" : deskew_adjust_mode <= 11; "0" : deskew_adjust_mode <= 0; "1" : deskew_adjust_mode <= 1; "2" : deskew_adjust_mode <= 2; "3" : deskew_adjust_mode <= 3; "4" : deskew_adjust_mode <= 4; "5" : deskew_adjust_mode <= 5; "6" : deskew_adjust_mode <= 6; "7" : deskew_adjust_mode <= 7; "8" : deskew_adjust_mode <= 8; "9" : deskew_adjust_mode <= 9; "10" : deskew_adjust_mode <= 10; "11" : deskew_adjust_mode <= 11; "12" : deskew_adjust_mode <= 12; "13" : deskew_adjust_mode <= 13; "14" : deskew_adjust_mode <= 14; "15" : deskew_adjust_mode <= 15; default : begin $display("Attribute Syntax Error : The attribute DESKEW_ADJUST on DCM instance %m is set to %s. Legal values for this attribute are SOURCE_SYNCHRONOUS, SYSTEM_SYNCHRONOUS or 0 ... 15.", DESKEW_ADJUST); $finish; end endcase case (DFS_FREQUENCY_MODE) "high" : ; "HIGH" : ; "low" : ; "LOW" : ; default : begin $display("Attribute Syntax Error : The attribute DFS_FREQUENCY_MODE on DCM instance %m is set to %s. Legal values for this attribute are HIGH or LOW.", DFS_FREQUENCY_MODE); $finish; end endcase case (DLL_FREQUENCY_MODE) "high" : ; "HIGH" : ; "low" : ; "LOW" : ; default : begin $display("Attribute Syntax Error : The attribute DLL_FREQUENCY_MODE on DCM instance %m is set to %s. Legal values for this attribute are HIGH or LOW.", DLL_FREQUENCY_MODE); $finish; end endcase case (DSS_MODE) "none" : ; "NONE" : ; default : begin $display("Attribute Syntax Error : The attribute DSS_MODE on DCM instance %m is set to %s. The legal value for this attribute is NONE.", DSS_MODE); $finish; end endcase case (DUTY_CYCLE_CORRECTION) "false" : begin $display("Unsupported Attribute Error : The attribute DUTY_CYCLE_CORRECTION on DCM instance %m is set to %s which is not supported in this simulation model. The legal value of DUTY_CYCLE_CORRECTION for this model is TRUE.", DUTY_CYCLE_CORRECTION); $finish; end "FALSE" : begin $display("Unsupported Attribute Error : The attribute DUTY_CYCLE_CORRECTION on DCM instance %m is set to %s which is not supported in this simulation model. The legal value of DUTY_CYCLE_CORRECTION for this model is TRUE.", DUTY_CYCLE_CORRECTION); $finish; end "true" : ; "TRUE" : ; default : begin $display("Attribute Syntax Error : The attribute DUTY_CYCLE_CORRECTION on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", DUTY_CYCLE_CORRECTION); $finish; end endcase if ((PHASE_SHIFT < -255) || (PHASE_SHIFT > 255)) begin $display("Attribute Syntax Error : The attribute PHASE_SHIFT on DCM instance %m is set to %d. Legal values for this attribute are -255 ... 255.", PHASE_SHIFT); $display("Error : PHASE_SHIFT = %d is not -255 ... 255.", PHASE_SHIFT); $finish; end case (STARTUP_WAIT) "false" : ; "FALSE" : ; "true" : ; "TRUE" : ; default : begin $display("Attribute Syntax Error : The attribute STARTUP_WAIT on DCM instance %m is set to %s. Legal values for this attribute are TRUE or FALSE.", STARTUP_WAIT); $finish; end endcase // if (CLKIN_PERIOD == 0.0) begin // $display("Attribute Syntax Error : The attribute CLKIN_PERIOD on DCM instance %m must be defined to the value of the input clock period in nano-seconds"); // $finish; // end end // always @(posedge RST) begin // disable main_dcm; // disable clkdv_dcm; // disable clkfx_dcm; // end integer t; assign #100 LOCKED = LOCKED_out; always begin: feedback_dcm fbsync = 0; wait (RST==0); wait (period_updated==1) @(posedge CLKFB); delay_time = $time - start_time; @(posedge CLKIN); #(((12*clk_period)-(delay_time))); fbsync = 1; wait (RST==1); end always begin: main_dcm pos_shift[0] = 1'b0; neg_shift[0] = 1'b0; align = 0; LOCKED_out = 1'b0; period_updated = 0; clkin_cnt_en = 0; CLK0 = 1'b0; CLK90 = 1'b0; CLK180 = 1'b0; CLK270 = 1'b0; CLK2X = 1'b0; CLK2X180 = 1'b0; rst_tmp <= 1'b1; wait (RST==0); wait (rst_done_fx==1 ); wait (rst_done_dv==1); rst_tmp <= 1'b0; @(posedge CLKIN); clkin_time1 = $time; @(posedge CLKIN); clkin_time2 = $time; period_clkin = clkin_time2 - clkin_time1; clk_period = (0.25*period_clkin); clkfx_period = ((period_clkin*CLKFX_DIVIDE)/(CLKFX_MULTIPLY*2)); shift_ammount = ((period_clkin)/256); clkdv_period = ((period_clkin*CLKDV_DIVIDE)/2); @(posedge CLKIN); period_updated = 1; start_time = $time; repeat (6) begin CLK0 = ~CLK0; CLK2X = ~CLK2X; #(clk_period); CLK2X = ~CLK2X; #(clk_period); end repeat (6) begin CLK0 = ~CLK0; CLK2X = ~CLK2X; #(clk_period); CLK2X = ~CLK2X; #(clk_period); end if (clkfb_type != 0) wait(fbsync==1); if (ps_type != 0) if (PHASE_SHIFT > 0) #((period_clkin*PHASE_SHIFT)/256); else if (PHASE_SHIFT < 0) #((period_clkin)-((period_clkin*PHASE_SHIFT)/256)); align = 1; CLK0 = ~CLK0; CLK2X = ~CLK2X; #(clk_period); CLK90 = ~CLK90; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; #(clk_period); repeat (7) begin CLK0 = ~CLK0; CLK180 = ~CLK180; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; #(clk_period); CLK90 = ~CLK90; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; CLK270 = ~CLK270; #(clk_period); end LOCKED_out = 1'b1; clkin_cnt_en = 1'b1; // forever begin while (RST==0) begin CLK0 = ~CLK0; CLK180 = ~CLK180; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; #(clk_period); CLK90 = ~CLK90; CLK270 = ~CLK270; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; #(clk_period); CLK0 = ~CLK0; CLK180 = ~CLK180; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; #(clk_period); CLK90 = ~CLK90; CLK270 = ~CLK270; CLK2X = ~CLK2X; CLK2X180 = ~CLK2X180; if (pos_shift_st[0]==1'b1 && pos_shift[0]==1'b0) begin #((clk_period)+shift_ammount); // pos_shift[0] <= 1; pos_shift[0] = 1; end else if (neg_shift_st[0]==1'b1 && neg_shift[0]==1'b0) begin #((clk_period)-shift_ammount); // neg_shift[0] <= 1; neg_shift[0] = 1; end else begin if (pos_shift_st[0] == 1'b0) // pos_shift[0] <= 0; pos_shift[0] = 0; if (neg_shift_st[0] == 1'b0) // neg_shift[0] <= 0; neg_shift[0] = 0; #(clk_period); end if (clkin_error) wait (0); end end always begin: clkfx_dcm pos_shift[1]=1'b0; neg_shift[1]=1'b0; CLKFX = 1'b0; CLKFX180 = 1'b0; rst_done_fx <= 1'b1; // wait (RST==0); wait (rst_tmp==0 && RST==0); wait (LOCKED_out==1); rst_done_fx <= 1'b0; CLKFX = 1; CLKFX180 = 0; // forever begin while (RST== 0 && rst_tmp==0) begin #(clkfx_period); CLKFX = ~CLKFX; CLKFX180 = ~CLKFX180; if (pos_shift_st[1]==1'b1 && pos_shift[1]==1'b0) begin #((clkfx_period)+shift_ammount); pos_shift[1] <= 1; end else if (neg_shift_st[1]==1'b1 && neg_shift[1]==1'b0) begin #((clkfx_period)-shift_ammount); neg_shift[1] <= 1; end else begin if (pos_shift_st[1] == 1'b0) pos_shift[1] <= 0; if (neg_shift_st[1] == 1'b0) neg_shift[1] <= 0; #(clkfx_period); end CLKFX = ~CLKFX; CLKFX180 = ~CLKFX180; if (clkin_error) wait(0); end end always begin: clkdv_dcm pos_shift[2] = 0; neg_shift[2] = 0; CLKDV = 1'b0; rst_done_dv <= 1'b1; // wait (RST==0); wait (rst_tmp==0 && RST==0); wait (LOCKED_out==1); rst_done_dv <= 1'b0; CLKDV = ~CLKDV; // forever begin while (RST==0 && rst_tmp==0) begin if (pos_shift_st[2]==1'b1 && pos_shift[2]==1'b0) begin #(clkdv_period+shift_ammount); pos_shift[2] = 1; end else if (neg_shift_st[2]==1'b1 && neg_shift[2]==1'b0) begin #(clkdv_period-shift_ammount); neg_shift[2] = 1; end else begin if (pos_shift_st[2] == 1'b0) pos_shift[2] <= 0; if (neg_shift_st[2] == 1'b0) neg_shift[2] <= 0; #(clkdv_period); end CLKDV = ~CLKDV; if (clkin_error) wait(0); end end initial shift = 0; always @(posedge PSCLK) begin: dps_dcm PSDONE <= 1'b0; if (ps_type==2) begin if (PSEN) begin if (pos_shift != 3'b000 || neg_shift != 3'b000) $display("Warning : Please wait for PSDONE signal before adjusting the Phase Shift. %m at time %t. ", $time); else begin if (PSINCDEC==1'b1 && pos_shift==3'b000) begin pos_shift_st <= 3'b111; shift = shift + 1; if (shift > 256) STATUS[0] <= 1; else STATUS[0] <= 0; end else if (PSINCDEC==1'b0 && neg_shift==3'b000) begin neg_shift_st <= 3'b111; shift = shift - 1; if (shift < -256) STATUS[0] <= 1; else STATUS[0] <= 0; end end end if (pos_shift==3'b111) begin pos_shift_st <= 3'b000; PSDONE <= 1'b1; end if (neg_shift==3'b111) begin neg_shift_st <= 3'b000; PSDONE <= 1'b1; end end end // block: dps_dcm always @(posedge CLKIN) if (RST) begin clkin_cnt <= 2'b00; end else begin if (clkin_cnt_en ==1) clkin_cnt <= clkin_cnt + 1; end always @(posedge CLK0 or posedge RST) begin : status_dcm if (RST) begin old_clkin_cnt <= 0; clkin_error <= 1'b0; end else if (clkin_cnt_en== 1'b1) begin #1 clkin_error <= 1'b0; @(posedge CLK0); if (clkin_cnt == old_clkin_cnt) begin // $display("Error: This DCM simulation for %m does not support the stopping of CLKIN or the use of frequecies to other than that specified for the CLKIN_PERIOD, %f.\nPlease use the standard DCM model to properly view this behavior.\nAll DCM outputs will be suspended until the DCM is reset.",CLKIN_PERIOD); $display("Error: This DCM simulation for %m does not support the stopping of CLKIN.\nPlease use the standard DCM model to properly view this behavior.\nAll DCM outputs will be suspended until the DCM is reset."); clkin_error <= 1; wait (RST==1); end else old_clkin_cnt <= clkin_cnt; end end endmodule `endif