Delay-Funktion im DCM des Spartan-3E

library ieee;

use ieee.std_logic_1164.ALL;

use ieee.numeric_std.ALL;

library UNISIM;

use UNISIM.Vcomponents.ALL;

entity Phaseshift is

   port ( CLKIN_IN        : in    std_logic; 

          PSCLK_IN        : in    std_logic; 

          PSEN_IN         : in    std_logic; 

          PSINCDEC_IN     : in    std_logic; 

          RST_IN          : in    std_logic; 

          CLKIN_IBUFG_OUT : out   std_logic; 

          CLK0_OUT        : out   std_logic; 

          LOCKED_OUT      : out   std_logic; 

          PSDONE_OUT      : out   std_logic);

end Phaseshift;

architecture BEHAVIORAL of Phaseshift is

   signal CLKFB_IN        : std_logic;

   signal CLKIN_IBUFG     : std_logic;

   signal CLK0_BUF        : std_logic;

   signal GND_BIT         : std_logic;

begin

   GND_BIT <= '0';

   CLKIN_IBUFG_OUT <= CLKIN_IBUFG;

   CLK0_OUT <= CLKFB_IN;

   CLKIN_IBUFG_INST : IBUFG

      port map (I=>CLKIN_IN,

                O=>CLKIN_IBUFG);

   CLK0_BUFG_INST : BUFG

      port map (I=>CLK0_BUF,

                O=>CLKFB_IN);

   DCM_SP_INST : DCM_SP

   generic map( CLK_FEEDBACK => "1X",

            CLKDV_DIVIDE => 2.0,

            CLKFX_DIVIDE => 1,

            CLKFX_MULTIPLY => 4,

            CLKIN_DIVIDE_BY_2 => FALSE,

            CLKIN_PERIOD => 20.000,

            CLKOUT_PHASE_SHIFT => "VARIABLE",

            DESKEW_ADJUST => "SYSTEM_SYNCHRONOUS",

            DFS_FREQUENCY_MODE => "LOW",

            DLL_FREQUENCY_MODE => "LOW",

            DUTY_CYCLE_CORRECTION => TRUE,

            FACTORY_JF => x"C080",

            PHASE_SHIFT => 20,

            STARTUP_WAIT => FALSE)

      port map (CLKFB=>CLKFB_IN,

                CLKIN=>CLKIN_IBUFG,

                DSSEN=>GND_BIT,

                PSCLK=>PSCLK_IN,

                PSEN=>PSEN_IN,

                PSINCDEC=>PSINCDEC_IN,

                RST=>RST_IN,

                CLKDV=>open,

                CLKFX=>open,

                CLKFX180=>open,

                CLK0=>CLK0_BUF,

                CLK2X=>open,

                CLK2X180=>open,

                CLK90=>open,

                CLK180=>open,

                CLK270=>open,

                LOCKED=>LOCKED_OUT,

                PSDONE=>PSDONE_OUT,

                STATUS=>open);

end BEHAVIORAL;