diff options
author | Martin Braun <martin.braun@ettus.com> | 2014-10-07 11:25:20 +0200 |
---|---|---|
committer | Martin Braun <martin.braun@ettus.com> | 2014-10-07 11:25:20 +0200 |
commit | fd3e84941de463fa1a7ebab0a69515b4bf2614cd (patch) | |
tree | 3fa721a13d41d2c0451d663a59a220a38fd5e614 /fpga/usrp2/models/DCM_SP.v | |
parent | 3b66804e41891e358c790b453a7a59ec7462dba4 (diff) | |
download | uhd-fd3e84941de463fa1a7ebab0a69515b4bf2614cd.tar.gz uhd-fd3e84941de463fa1a7ebab0a69515b4bf2614cd.tar.bz2 uhd-fd3e84941de463fa1a7ebab0a69515b4bf2614cd.zip |
Removed copy of FPGA source files.
Diffstat (limited to 'fpga/usrp2/models/DCM_SP.v')
-rw-r--r-- | fpga/usrp2/models/DCM_SP.v | 1244 |
1 files changed, 0 insertions, 1244 deletions
diff --git a/fpga/usrp2/models/DCM_SP.v b/fpga/usrp2/models/DCM_SP.v deleted file mode 100644 index 2142fa736..000000000 --- a/fpga/usrp2/models/DCM_SP.v +++ /dev/null @@ -1,1244 +0,0 @@ -// $Header: /devl/xcs/repo/env/Databases/CAEInterfaces/verunilibs/data/unisims/DCM_SP.v,v 1.9.4.3 2007/04/11 20:30:19 yanx Exp $ -/////////////////////////////////////////////////////////////////////////////// -// Copyright (c) 1995/2004 Xilinx, Inc. -// All Right Reserved. -/////////////////////////////////////////////////////////////////////////////// -// ____ ____ -// / /\/ / -// /___/ \ / Vendor : Xilinx -// \ \ \/ Version : 9.2i (J.36) -// \ \ Description : Xilinx Function Simulation Library Component -// / / Digital Clock Manager -// /___/ /\ Filename : DCM_SP.v -// \ \ / \ Timestamp : -// \___\/\___\ -// -// Revision: -// 02/28/06 - Initial version. -// 05/09/06 - Add clkin_ps_mkup and clkin_ps_mkup_win for phase shifting (CR 229789). -// 06/14/06 - Add clkin_ps_mkup_flag for multiple cycle delays (CR233283). -// 07/21/06 - Change range of variable phase shifting to +/- integer of 20*(Period-3ns). -// Give warning not support initial phase shifting for variable phase shifting. -// (CR 235216). -// 09/22/06 - Add lock_period and lock_fb to clkfb_div block (CR 418722). -// 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 - - -`timescale 1 ps / 1 ps - -module DCM_SP ( - 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 - - -localparam PS_STEP = 25; - -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; - -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, lock_period_dly1; - -reg clkin_ps, clkin_ps_tmp, clkin_ps_mkup, clkin_ps_mkup_win, clkin_ps_mkup_flag; -reg clkin_fb; - -time FINE_SHIFT_RANGE; -//time ps_delay, ps_delay_init, ps_delay_md, ps_delay_all, ps_max_range; -integer ps_delay, ps_delay_init, ps_delay_md, ps_delay_all, ps_max_range; -integer ps_delay_last; -integer ps_acc; -time clkin_edge; -time clkin_div_edge; -time clkin_ps_edge; -time delay_edge; -time clkin_period [2:0]; -time period; -integer period_int, period_int2, period_int3, period_ps_tmp; -time period_div; -integer period_orig_int; -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_SP, the simulator resolution must be set to 1ps or smaller."); - $finish; - end -end - -initial begin - case (2.0) - 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_SP 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_SP 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_SP 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_SP 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; - if (PHASE_SHIFT != 0) - $display("Attribute Syntax Warning : The attribute PHASE_SHIFT on DCM_SP instance %m is set to %d. The maximum variable phase shift range is only valid when initial phase shift PHASE_SHIFT is zero.", PHASE_SHIFT); - end - default : begin - $display("Attribute Syntax Error : The attribute CLKOUT_PHASE_SHIFT on DCM_SP 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 = 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_SP 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_SP 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_SP 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_SP 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_SP 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_SP 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_SP 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_SP 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_SP 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_sp_clock_divide_by_2 i_clock_divide_by_2 (clkin_in, clkin_type, clkin_div, rst_in); - -dcm_sp_maximum_period_check #("CLKIN", MAXPERCLKIN) i_max_clkin (clkin_in, rst_in); -dcm_sp_maximum_period_check #("PSCLK", MAXPERPSCLK) i_max_psclk (psclk_in, rst_in); - -dcm_sp_clock_lost i_clkin_lost (clkin_in, first_time_locked, clkin_lost_out, rst_in); -dcm_sp_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_tmp <= #(ps_delay_md) clkin_div; - -always @(clkin_ps_tmp or clkin_ps_mkup or clkin_ps_mkup_win) - if (clkin_ps_mkup_win) - clkin_ps = clkin_ps_mkup; - else - clkin_ps = clkin_ps_tmp; - -always @(ps_delay_last or period_int or ps_delay) begin - period_int2 = 2 * period_int; - period_int3 = 3 * period_int; - if ((ps_delay_last >= period_int && ps_delay < period_int) || - (ps_delay_last >= period_int2 && ps_delay < period_int2) || - (ps_delay_last >= period_int3 && ps_delay < period_int3)) - clkin_ps_mkup_flag = 1; - else - clkin_ps_mkup_flag = 0; -end - -always @(posedge clkin_div or negedge clkin_div) begin - if (ps_type == 2'b10) begin - if ((ps_delay_last > 0 && ps_delay <= 0 ) || clkin_ps_mkup_flag == 1) begin - if (clkin_div) begin - clkin_ps_mkup_win <= 1; - clkin_ps_mkup <= 1; - #1; - @(negedge clkin_div) begin - clkin_ps_mkup_win <= 1; - clkin_ps_mkup <= 0; - end - end - else begin - clkin_ps_mkup_win <= 0; - clkin_ps_mkup <= 0; - #1; - @(posedge clkin_div) begin - clkin_ps_mkup_win <= 1; - clkin_ps_mkup <= 1; - end - @(negedge clkin_div) begin - clkin_ps_mkup_win <= 1; - clkin_ps_mkup <= 0; - end - end - end - else begin - clkin_ps_mkup_win <= 0; - clkin_ps_mkup <= 0; - end - ps_delay_last <= ps_delay; - end -end - -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; - - -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_int = 0; - period_int2 = 0; - period_int3 = 0; - period_div = 0; - period_fx = 0; - period_orig = 0; - period_orig_int = 0; - period_ps = 0; - psdone_out = 0; - ps_delay = 0; - ps_delay_md = 0; - ps_delay_init = 0; - ps_acc = 0; - ps_delay_all = 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; - clkin_ps_mkup = 0; - clkin_ps_mkup_win = 0; - clkin_ps_mkup_flag = 0; - ps_delay_last = 0; - clkin_ps_tmp = 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) - ps_delay_init <= ps_in * period_orig /256; - - -always @(period) begin - period_int = period; - if (clkin_type==1) - period_ps_tmp = 2 * period; - else - period_ps_tmp = period; - - if (period_ps_tmp > 3000) - ps_max_range = 20 * (period_ps_tmp - 3000)/1000; - else - ps_max_range = 0; -end - -always @(ps_delay or rst_in or period_int or lock_period) - if ( rst_in) - ps_delay_md = 0; - else if (lock_period) begin - ps_delay_md = period_int + ps_delay % period_int; - end - -always @(posedge psclk_in or posedge rst_in or posedge lock_period_pulse) - if (rst_in) begin - ps_delay <= 0; - ps_overflow_out <= 0; - ps_acc <= 0; - end - else if (lock_period_pulse) - ps_delay <= ps_delay_init; - else - if (ps_type == 2'b10) - if (psen_in) begin - if (ps_lock == 1) - $display(" Warning : Please wait for PSDONE signal before adjusting the Phase Shift."); - else if (lock_ps) begin - if (psincdec_in == 1) begin - if (ps_acc > ps_max_range) - ps_overflow_out <= 1; - else begin - ps_delay <= ps_delay + PS_STEP; - ps_acc <= ps_acc + 1; - ps_overflow_out <= 0; - end - ps_lock <= 1; - end - else if (psincdec_in == 0) begin - if (ps_acc < -ps_max_range) - ps_overflow_out <= 1; - else begin - ps_delay <= ps_delay - PS_STEP; - ps_acc <= ps_acc - 1; - ps_overflow_out <= 0; - end - ps_lock <= 1; - end - 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 #1 lock_period_dly1 = lock_period; - assign #(period/2) lock_period_dly = lock_period_dly1; - assign lock_period_pulse = (lock_period_dly1==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_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_sp_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_sp_maximum_period_check (clock, rst); -parameter clock_name = ""; -parameter maximum_period = 0; -input clock; -input rst; - -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; - clock_period = $time - clock_edge; - if (clock_period > maximum_period ) begin - if (rst == 0) - $display(" Warning : Input clock period of %1.3f ns, on the %s port of instance %m exceeds allowed value of %1.3f ns at time %1.3f ns.", clock_period/1000.0, clock_name, maximum_period/1000.0, $time/1000.0); - end -end -endmodule - -module dcm_sp_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 |