Firebee/FireBee_SVN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

further extended testbench.

Browse Source 
Need to fix difference between clock ticks and TIME in original code
This commit is contained in:
Markus Fröschle
2014-12-21 20:40:51 +00:00
parent 9d7858a144
commit 1aab3c25d2
3 changed files with 386 additions and 331 deletions
Download Patch File Download Diff File Expand all files Collapse all files

252
vhdl/rtl/vhdl/DDR/DDR_CTRL.vhd
View File

@@ -71,11 +71,11 @@ ENTITY DDR_CTRL IS
vwe_n : OUT STD_LOGIC; -- video memory write enable vwe_n : OUT STD_LOGIC; -- video memory write enable
vras_n : OUT STD_LOGIC; -- video memory RAS vras_n : OUT STD_LOGIC; -- video memory RAS
vcs_n : OUT STD_LOGIC; -- video memory chip SELECT vcs_n : OUT STD_LOGIC; -- video memory chip SELECT
VCKE : OUT STD_LOGIC; -- video memory clock enable vcke : OUT STD_LOGIC; -- video memory clock enable
vcas_n : OUT STD_LOGIC; -- video memory CAS vcas_n : OUT STD_LOGIC; -- video memory CAS
FB_LE : OUT STD_LOGIC_VECTOR (3 DOWNTO 0); fb_le : OUT STD_LOGIC_VECTOR (3 DOWNTO 0);
FB_VDOE : OUT STD_LOGIC_VECTOR (3 DOWNTO 0); fb_vdoe : OUT STD_LOGIC_VECTOR (3 DOWNTO 0);
sr_fifo_wre : OUT STD_LOGIC; sr_fifo_wre : OUT STD_LOGIC;
sr_ddr_fb : OUT STD_LOGIC; sr_ddr_fb : OUT STD_LOGIC;
@@ -83,20 +83,20 @@ ENTITY DDR_CTRL IS
sr_ddrwr_d_sel : OUT STD_LOGIC; sr_ddrwr_d_sel : OUT STD_LOGIC;
sr_vdmp : OUT STD_LOGIC_VECTOR (7 DOWNTO 0); sr_vdmp : OUT STD_LOGIC_VECTOR (7 DOWNTO 0);
VIDEO_DDR_TA : OUT STD_LOGIC; video_ddr_ta : OUT STD_LOGIC;
sr_blitter_dack : OUT STD_LOGIC; sr_blitter_dack : OUT STD_LOGIC;
ba : OUT STD_LOGIC_VECTOR (1 DOWNTO 0); ba : OUT STD_LOGIC_VECTOR (1 DOWNTO 0);
ddrwr_d_sel1 : OUT STD_LOGIC; ddrwr_d_sel1 : OUT STD_LOGIC;
VDM_SEL : OUT STD_LOGIC_VECTOR (3 DOWNTO 0); vdm_sel : OUT STD_LOGIC_VECTOR (3 DOWNTO 0);
data_in : IN STD_LOGIC_VECTOR (31 DOWNTO 0); data_in : IN STD_LOGIC_VECTOR (31 DOWNTO 0);
DATA_OUT : OUT STD_LOGIC_VECTOR (31 DOWNTO 16); data_out : OUT STD_LOGIC_VECTOR (31 DOWNTO 16);
DATA_EN_H : OUT STD_LOGIC; data_en_h : OUT STD_LOGIC;
DATA_EN_L : OUT STD_LOGIC data_en_l : OUT STD_LOGIC
); );
END ENTITY DDR_CTRL; END ENTITY DDR_CTRL;
ARCHITECTURE BEHAVIOUR of DDR_CTRL IS ARCHITECTURE BEHAVIOUR of DDR_CTRL IS
-- fifo WATER MARK: -- ddr_access_fifo WATER MARK:
CONSTANT fifo_lwm : INTEGER := 0; -- low water mark CONSTANT fifo_lwm : INTEGER := 0; -- low water mark
CONSTANT fifo_mwM : INTEGER := 200; -- medium water mark CONSTANT fifo_mwM : INTEGER := 200; -- medium water mark
CONSTANT fifo_hwm : INTEGER := 500; -- high water mark CONSTANT fifo_hwm : INTEGER := 500; -- high water mark
@@ -110,15 +110,15 @@ ARCHITECTURE BEHAVIOUR of DDR_CTRL IS
CONSTANT vrcr_fifo_on : INTEGER := 24; CONSTANT vrcr_fifo_on : INTEGER := 24;
CONSTANT vrcr_border_on : INTEGER := 25; CONSTANT vrcr_border_on : INTEGER := 25;
TYPE access_width_t IS (LONG, WORD, BYTE); TYPE access_width_t IS (long_access, word_access, byte_access);
TYPE ddr_access_t IS (cpu, fifo, blitter, NONE); TYPE ddr_access_t IS (ddr_access_cpu, ddr_access_fifo, ddr_access_blitter, ddr_access_none);
TYPE fb_regddr_t IS (FR_WAIT, FR_S0, fr_s1, FR_S2, fr_s3); TYPE fb_regddr_t IS (fr_wait, fr_s0, fr_s1, fr_s2, fr_s3);
TYPE ddr_sm_t IS (ds_t1, ds_t2a, ds_t2b, ds_t3, ds_n5, ds_n6, ds_n7, ds_n8, -- Start (normal 8 cycles total = 60ns). TYPE ddr_sm_t IS (ds_t1, ds_t2a, ds_t2b, ds_t3, ds_n5, ds_n6, ds_n7, ds_n8, -- Start (normal 8 cycles total = 60ns).
DS_C2, ds_c3, dc_c4, ds_c5, ds_c6, ds_c7, -- Configuration. ds_c2, ds_c3, dc_c4, ds_c5, ds_c6, ds_c7, -- Configuration.
DS_T4R, ds_t5r, -- Read cpu OR blitter. ds_t4r, ds_t5r, -- Read ddr_access_cpu OR ddr_access_blitter.
DS_T4W, DS_T5W, DS_T6W, ds_t7w, DS_T8W, ds_t9w, -- Write cpu OR blitter. ds_t4w, ds_t5w, ds_t6w, ds_t7w, ds_t8w, ds_t9w, -- Write ddr_access_cpu OR ddr_access_blitter.
ds_t4f, ds_t5f, ds_t6f, ds_t7f, DS_T8F, ds_t9f, ds_t10f, -- Read fifo. ds_t4f, ds_t5f, ds_t6f, ds_t7f, ds_t8f, ds_t9f, ds_t10f, -- Read ddr_access_fifo.
ds_cb6, ds_cb8, -- Close fifo bank. ds_cb6, ds_cb8, -- Close ddr_access_fifo bank.
ds_r2, ds_r3, ds_r4, ds_r5, ds_r6); -- Refresh: 10 x 7.5ns = 75ns. ds_r2, ds_r3, ds_r4, ds_r5, ds_r6); -- Refresh: 10 x 7.5ns = 75ns.
SIGNAL access_width : access_width_t; SIGNAL access_width : access_width_t;
@@ -185,27 +185,27 @@ ARCHITECTURE BEHAVIOUR of DDR_CTRL IS
BEGIN BEGIN
tsiz <= fb_size1 & fb_size0; tsiz <= fb_size1 & fb_size0;
WITH tsiz SELECT WITH tsiz SELECT
access_width <= LONG WHEN "11", access_width <= long_access WHEN "11",
WORD WHEN "00", word_access WHEN "00",
BYTE WHEN OTHERS; byte_access WHEN OTHERS;
-- Byte selectors: -- Byte selectors:
byte_sel(0) <= '1' WHEN access_width = LONG OR access_width = WORD ELSE byte_sel(0) <= '1' WHEN access_width = long_access OR access_width = word_access ELSE
'1' WHEN fb_adr(1 DOWNTO 0) = "00" ELSE '0'; -- Byte 0. '1' WHEN fb_adr(1 DOWNTO 0) = "00" ELSE '0'; -- Byte 0.
byte_sel(1) <= '1' WHEN access_width = LONG OR access_width = WORD ELSE byte_sel(1) <= '1' WHEN access_width = long_access OR access_width = word_access ELSE
'1' WHEN access_width = BYTE AND fb_adr(1) = '0' ELSE -- High word. '1' WHEN access_width = byte_access AND fb_adr(1) = '0' ELSE -- High word_access.
'1' WHEN fb_adr(1 DOWNTO 0) = "01" ELSE '0'; -- Byte 1. '1' WHEN fb_adr(1 DOWNTO 0) = "01" ELSE '0'; -- Byte 1.
byte_sel(2) <= '1' WHEN access_width = LONG OR access_width = WORD ELSE byte_sel(2) <= '1' WHEN access_width = long_access OR access_width = word_access ELSE
'1' WHEN fb_adr(1 DOWNTO 0) = "10" ELSE '0'; -- Byte 2. '1' WHEN fb_adr(1 DOWNTO 0) = "10" ELSE '0'; -- Byte 2.
byte_sel(3) <= '1' WHEN access_width = LONG OR access_width = WORD ELSE byte_sel(3) <= '1' WHEN access_width = long_access OR access_width = word_access ELSE
'1' WHEN access_width = BYTE AND fb_adr(1) = '1' ELSE -- Low word. '1' WHEN access_width = byte_access AND fb_adr(1) = '1' ELSE -- Low word_access.
'1' WHEN fb_adr(1 DOWNTO 0) = "11" ELSE '0'; -- Byte 3. '1' WHEN fb_adr(1 DOWNTO 0) = "11" ELSE '0'; -- Byte 3.
--------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------ cpu READ (REG DDR => cpu) AND WRITE (cpu => REG DDR) --------------------------------------------------------------------- ------------------------------------ ddr_access_cpu READ (REG DDR => ddr_access_cpu) AND WRITE (ddr_access_cpu => REG DDR) ---------------------------------------------------------------------
fbctrl_reg : PROCESS fbctrl_reg : PROCESS
BEGIN BEGIN
WAIT UNTIL RISING_EDGE(clk_33m); WAIT UNTIL RISING_EDGE(clk_33m);
@@ -215,66 +215,66 @@ BEGIN
fbctrl_dec : PROCESS(fb_regddr, bus_cyc, ddr_sel, access_width, fb_wr_n, ddr_cs) fbctrl_dec : PROCESS(fb_regddr, bus_cyc, ddr_sel, access_width, fb_wr_n, ddr_cs)
BEGIN BEGIN
CASE fb_regddr IS CASE fb_regddr IS
WHEN FR_WAIT => WHEN fr_wait =>
IF bus_cyc = '1' THEN IF bus_cyc = '1' THEN
fb_regddr_next <= FR_S0; fb_regddr_next <= fr_s0;
ELSIF ddr_sel = '1' AND access_width = LONG AND fb_wr_n = '0' THEN ELSIF ddr_sel = '1' AND access_width = long_access AND fb_wr_n = '0' THEN
fb_regddr_next <= FR_S0; fb_regddr_next <= fr_s0;
ELSE ELSE
fb_regddr_next <= FR_WAIT; fb_regddr_next <= fr_wait;
END IF; END IF;
WHEN FR_S0 => WHEN fr_s0 =>
IF ddr_cs = '1' AND access_width = LONG THEN IF ddr_cs = '1' AND access_width = long_access THEN
fb_regddr_next <= fr_s1; fb_regddr_next <= fr_s1;
ELSE ELSE
fb_regddr_next <= FR_WAIT; fb_regddr_next <= fr_wait;
END IF; END IF;
WHEN fr_s1 => WHEN fr_s1 =>
IF ddr_cs = '1' THEN IF ddr_cs = '1' THEN
fb_regddr_next <= FR_S2; fb_regddr_next <= fr_s2;
ELSE ELSE
fb_regddr_next <= FR_WAIT; fb_regddr_next <= fr_wait;
END IF; END IF;
WHEN FR_S2 => WHEN fr_s2 =>
IF ddr_cs = '1' AND bus_cyc = '0' AND access_width = LONG AND fb_wr_n = '0' THEN -- wait during long word access IF needed IF ddr_cs = '1' AND bus_cyc = '0' AND access_width = long_access AND fb_wr_n = '0' THEN -- wait during long_access word_access access if needed
fb_regddr_next <= FR_S2; fb_regddr_next <= fr_s2;
ELSIF ddr_cs = '1' THEN ELSIF ddr_cs = '1' THEN
fb_regddr_next <= fr_s3; fb_regddr_next <= fr_s3;
ELSE ELSE
fb_regddr_next <= FR_WAIT; fb_regddr_next <= fr_wait;
END IF; END IF;
WHEN fr_s3 => WHEN fr_s3 =>
fb_regddr_next <= FR_WAIT; fb_regddr_next <= fr_wait;
END CASE; END CASE;
END PROCESS FBCTRL_DEC; END PROCESS FBCTRL_DEC;
-- Coldfire cpu access: -- Coldfire ddr_access_cpu access:
FB_LE(0) <= NOT fb_wr_n WHEN fb_regddr = FR_WAIT ELSE fb_le(0) <= NOT fb_wr_n WHEN fb_regddr = fr_wait ELSE
NOT fb_wr_n WHEN fb_regddr = FR_S0 AND ddr_cs = '1' ELSE '0'; NOT fb_wr_n WHEN fb_regddr = fr_s0 AND ddr_cs = '1' ELSE '0';
FB_LE(1) <= NOT fb_wr_n WHEN fb_regddr = fr_s1 AND ddr_cs = '1' ELSE '0'; fb_le(1) <= NOT fb_wr_n WHEN fb_regddr = fr_s1 AND ddr_cs = '1' ELSE '0';
FB_LE(2) <= NOT fb_wr_n WHEN fb_regddr = FR_S2 AND ddr_cs = '1' ELSE '0'; fb_le(2) <= NOT fb_wr_n WHEN fb_regddr = fr_s2 AND ddr_cs = '1' ELSE '0';
FB_LE(3) <= NOT fb_wr_n WHEN fb_regddr = fr_s3 AND ddr_cs = '1' ELSE '0'; fb_le(3) <= NOT fb_wr_n WHEN fb_regddr = fr_s3 AND ddr_cs = '1' ELSE '0';
-- Video data access: -- video data access:
VIDEO_DDR_TA <= '1' WHEN fb_regddr = FR_S0 AND ddr_cs = '1' ELSE video_ddr_ta <= '1' WHEN fb_regddr = fr_s0 AND ddr_cs = '1' ELSE
'1' WHEN fb_regddr = fr_s1 AND ddr_cs = '1' ELSE '1' WHEN fb_regddr = fr_s1 AND ddr_cs = '1' ELSE
'1' WHEN fb_regddr = FR_S2 AND fb_regddr_next = fr_s3 ELSE '1' WHEN fb_regddr = fr_s2 AND fb_regddr_next = fr_s3 ELSE
'1' WHEN fb_regddr = fr_s3 AND ddr_cs = '1' ELSE '0'; '1' WHEN fb_regddr = fr_s3 AND ddr_cs = '1' ELSE '0';
-- FB_VDOE # VIDEO_OE. -- fb_vdoe # VIDEO_OE.
-- Write access for video data: -- Write access for video data:
FB_VDOE(0) <= '1' WHEN fb_regddr = FR_S0 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' AND access_width = LONG ELSE fb_vdoe(0) <= '1' WHEN fb_regddr = fr_s0 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' AND access_width = long_access ELSE
'1' WHEN fb_regddr = FR_S0 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' AND access_width /= LONG AND clk_33m = '0' ELSE '0'; '1' WHEN fb_regddr = fr_s0 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' AND access_width /= long_access AND clk_33m = '0' ELSE '0';
FB_VDOE(1) <= '1' WHEN fb_regddr = fr_s1 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' ELSE '0'; fb_vdoe(1) <= '1' WHEN fb_regddr = fr_s1 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' ELSE '0';
FB_VDOE(2) <= '1' WHEN fb_regddr = FR_S2 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' ELSE '0'; fb_vdoe(2) <= '1' WHEN fb_regddr = fr_s2 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' ELSE '0';
FB_VDOE(3) <= '1' WHEN fb_regddr = fr_s3 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' AND clk_33m = '0' ELSE '0'; fb_vdoe(3) <= '1' WHEN fb_regddr = fr_s3 AND ddr_cs = '1' AND fb_oe_n = '0' AND ddr_config = '0' AND clk_33m = '0' ELSE '0';
bus_cyc_end <= '1' WHEN fb_regddr = FR_S0 AND ddr_cs = '1' AND access_width /= LONG ELSE bus_cyc_end <= '1' WHEN fb_regddr = fr_s0 AND ddr_cs = '1' AND access_width /= long_access ELSE
'1' WHEN fb_regddr = fr_s3 AND ddr_cs = '1' ELSE '0'; '1' WHEN fb_regddr = fr_s3 AND ddr_cs = '1' ELSE '0';
--------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -293,7 +293,7 @@ BEGIN
IF ddr_refresh_req = '1' THEN IF ddr_refresh_req = '1' THEN
ddr_next_state <= ds_r2; ddr_next_state <= ds_r2;
ELSIF cpu_ddr_sync = '1' AND ddr_config = '1' THEN -- Synchronous start. ELSIF cpu_ddr_sync = '1' AND ddr_config = '1' THEN -- Synchronous start.
ddr_next_state <= DS_C2; ddr_next_state <= ds_c2;
ELSIF cpu_ddr_sync = '1' AND cpu_req = '1' THEN -- Synchronous start. ELSIF cpu_ddr_sync = '1' AND cpu_req = '1' THEN -- Synchronous start.
ddr_next_state <= ds_t2b; ddr_next_state <= ds_t2b;
ELSIF cpu_ddr_sync = '1' THEN ELSIF cpu_ddr_sync = '1' THEN
@@ -309,45 +309,45 @@ BEGIN
ddr_next_state <= ds_t3; ddr_next_state <= ds_t3;
WHEN ds_t3 => WHEN ds_t3 =>
IF ddr_access = cpu AND fb_wr_n = '0' THEN IF ddr_access = ddr_access_cpu AND fb_wr_n = '0' THEN
ddr_next_state <= DS_T4W; ddr_next_state <= ds_t4w;
ELSIF ddr_access = blitter AND blitter_wr = '1' THEN ELSIF ddr_access = ddr_access_blitter AND blitter_wr = '1' THEN
ddr_next_state <= DS_T4W; ddr_next_state <= ds_t4w;
ELSIF ddr_access = cpu THEN -- cpu? ELSIF ddr_access = ddr_access_cpu THEN -- ddr_access_cpu?
ddr_next_state <= DS_T4R; ddr_next_state <= ds_t4r;
ELSIF ddr_access = fifo THEN -- fifo? ELSIF ddr_access = ddr_access_fifo THEN -- ddr_access_fifo?
ddr_next_state <= ds_t4f; ddr_next_state <= ds_t4f;
ELSIF ddr_access = blitter THEN ELSIF ddr_access = ddr_access_blitter THEN
ddr_next_state <= DS_T4R; ddr_next_state <= ds_t4r;
ELSE ELSE
ddr_next_state <= ds_n8; ddr_next_state <= ds_n8;
END IF; END IF;
-- Read: -- Read:
WHEN DS_T4R => WHEN ds_t4r =>
ddr_next_state <= ds_t5r; ddr_next_state <= ds_t5r;
WHEN ds_t5r => WHEN ds_t5r =>
IF fifo_req = '1' AND fifo_bank_ok = '1' THEN -- Insert fifo read, WHEN bank ok. IF fifo_req = '1' AND fifo_bank_ok = '1' THEN -- Insert ddr_access_fifo read, WHEN bank ok.
ddr_next_state <= ds_t6f; ddr_next_state <= ds_t6f;
ELSE ELSE
ddr_next_state <= ds_cb6; ddr_next_state <= ds_cb6;
END IF; END IF;
-- Write: -- Write:
WHEN DS_T4W => WHEN ds_t4w =>
ddr_next_state <= DS_T5W; ddr_next_state <= ds_t5w;
WHEN DS_T5W => WHEN ds_t5w =>
ddr_next_state <= DS_T6W; ddr_next_state <= ds_t6w;
WHEN DS_T6W => WHEN ds_t6w =>
ddr_next_state <= ds_t7w; ddr_next_state <= ds_t7w;
WHEN ds_t7w => WHEN ds_t7w =>
ddr_next_state <= DS_T8W; ddr_next_state <= ds_t8w;
WHEN DS_T8W => WHEN ds_t8w =>
ddr_next_state <= ds_t9w; ddr_next_state <= ds_t9w;
WHEN ds_t9w => WHEN ds_t9w =>
@@ -357,7 +357,7 @@ BEGIN
ddr_next_state <= ds_cb6; ddr_next_state <= ds_cb6;
END IF; END IF;
-- fifo read: -- ddr_access_fifo read:
WHEN ds_t4f => WHEN ds_t4f =>
ddr_next_state <= ds_t5f; ddr_next_state <= ds_t5f;
@@ -377,12 +377,12 @@ BEGIN
ELSIF fifo_req = '1' AND video_adr_cnt(7 DOWNTO 0) = x"FF" THEN -- New page? ELSIF fifo_req = '1' AND video_adr_cnt(7 DOWNTO 0) = x"FF" THEN -- New page?
ddr_next_state <= ds_cb8; -- Close bank. ddr_next_state <= ds_cb8; -- Close bank.
ELSIF fifo_req = '1' THEN ELSIF fifo_req = '1' THEN
ddr_next_state <= DS_T8F; ddr_next_state <= ds_t8f;
ELSE ELSE
ddr_next_state <= ds_cb8; -- Close bank. ddr_next_state <= ds_cb8; -- Close bank.
END IF; END IF;
WHEN DS_T8F => WHEN ds_t8f =>
IF fifo_mw < STD_LOGIC_VECTOR (TO_UNSIGNED(fifo_lwm, fifo_mw'LENGTH)) THEN -- Emergency? IF fifo_mw < STD_LOGIC_VECTOR (TO_UNSIGNED(fifo_lwm, fifo_mw'LENGTH)) THEN -- Emergency?
ddr_next_state <= ds_t5f; -- Yes! ddr_next_state <= ds_t5f; -- Yes!
ELSE ELSE
@@ -406,7 +406,7 @@ BEGIN
END IF; END IF;
-- Configuration cycles: -- Configuration cycles:
WHEN DS_C2 => WHEN ds_c2 =>
ddr_next_state <= ds_c3; ddr_next_state <= ds_c3;
WHEN ds_c3 => WHEN ds_c3 =>
@@ -428,7 +428,7 @@ BEGIN
WHEN ds_c7 => WHEN ds_c7 =>
ddr_next_state <= ds_n8; ddr_next_state <= ds_n8;
-- Close fifo bank. -- Close ddr_access_fifo bank.
WHEN ds_cb6 => WHEN ds_cb6 =>
ddr_next_state <= ds_n7; ddr_next_state <= ds_n7;
@@ -475,7 +475,7 @@ BEGIN
WAIT UNTIL RISING_EDGE(ddrclk0); WAIT UNTIL RISING_EDGE(ddrclk0);
-- Default assignments; -- Default assignments;
ddr_access <= NONE; ddr_access <= ddr_access_none;
sr_fifo_wre_i <= '0'; sr_fifo_wre_i <= '0';
sr_vdmp <= x"00"; sr_vdmp <= x"00";
sr_ddr_wr <= '0'; sr_ddr_wr <= '0';
@@ -545,13 +545,13 @@ BEGIN
bus_cyc <= '1'; bus_cyc <= '1';
ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND fb_wr_n = '0' THEN ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND fb_wr_n = '0' THEN
bus_cyc <= '1'; bus_cyc <= '1';
ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND access_width /= LONG THEN ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND access_width /= long_access THEN
bus_cyc <= '1'; bus_cyc <= '1';
ELSIF ddr_state = ds_t2b THEN ELSIF ddr_state = ds_t2b THEN
bus_cyc <= '1'; bus_cyc <= '1';
ELSIF ddr_state = ds_t10f AND fb_wr_n = '0' AND data_in(13 DOWNTO 12) = fifo_ba THEN ELSIF ddr_state = ds_t10f AND fb_wr_n = '0' AND data_in(13 DOWNTO 12) = fifo_ba THEN
bus_cyc <= '1'; bus_cyc <= '1';
ELSIF ddr_state = ds_t10f AND access_width /= LONG AND data_in(13 DOWNTO 12) = fifo_ba THEN ELSIF ddr_state = ds_t10f AND access_width /= long_access AND data_in(13 DOWNTO 12) = fifo_ba THEN
bus_cyc <= '1'; bus_cyc <= '1';
ELSIF ddr_state = ds_c3 THEN ELSIF ddr_state = ds_c3 THEN
bus_cyc <= cpu_req; bus_cyc <= cpu_req;
@@ -560,49 +560,49 @@ BEGIN
IF ddr_state = ds_t1 AND cpu_ddr_sync = '1' AND cpu_req = '1' THEN IF ddr_state = ds_t1 AND cpu_ddr_sync = '1' AND cpu_req = '1' THEN
va_s <= cpu_row_adr; va_s <= cpu_row_adr;
ba_s <= cpu_ba; ba_s <= cpu_ba;
ddr_access <= cpu; ddr_access <= ddr_access_cpu;
ELSIF ddr_state = ds_t1 AND cpu_ddr_sync = '1' AND fifo_req = '1' THEN ELSIF ddr_state = ds_t1 AND cpu_ddr_sync = '1' AND fifo_req = '1' THEN
va_p <= fifo_row_adr; va_p <= fifo_row_adr;
ba_p <= fifo_ba; ba_p <= fifo_ba;
ddr_access <= fifo; ddr_access <= ddr_access_fifo;
ELSIF ddr_state = ds_t1 AND cpu_ddr_sync = '1' AND blitter_req = '0' THEN ELSIF ddr_state = ds_t1 AND cpu_ddr_sync = '1' AND blitter_req = '0' THEN
va_p <= blitter_row_adr; va_p <= blitter_row_adr;
ba_p <= blitter_ba; ba_p <= blitter_ba;
ddr_access <= blitter; ddr_access <= ddr_access_blitter;
ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND fb_wr_n = '0' THEN ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND fb_wr_n = '0' THEN
va_s(10) <= '1'; va_s(10) <= '1';
ddr_access <= cpu; ddr_access <= ddr_access_cpu;
ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND access_width /= LONG THEN ELSIF ddr_state = ds_t2a AND ddr_sel = '1' AND access_width /= long_access THEN
va_s(10) <= '1'; va_s(10) <= '1';
ddr_access <= cpu; ddr_access <= ddr_access_cpu;
ELSIF ddr_state = ds_t2a THEN ELSIF ddr_state = ds_t2a THEN
-- ?? mfro -- ?? mfro
va_s(10) <= NOT (fifo_active AND fifo_req); va_s(10) <= NOT (fifo_active AND fifo_req);
ddr_access <= fifo; ddr_access <= ddr_access_fifo;
fifo_bank_ok <= fifo_active AND fifo_req; fifo_bank_ok <= fifo_active AND fifo_req;
IF ddr_access = blitter AND blitter_req = '1' THEN IF ddr_access = ddr_access_blitter AND blitter_req = '1' THEN
ddr_access <= blitter; ddr_access <= ddr_access_blitter;
END IF; END IF;
-- ?? mfro BLITTER_AC <= BLITTER_ACTIVE AND blitter_req; -- ?? mfro BLITTER_AC <= BLITTER_ACTIVE AND blitter_req;
ELSIF ddr_state = ds_t2b THEN ELSIF ddr_state = ds_t2b THEN
fifo_bank_ok <= '0'; fifo_bank_ok <= '0';
ELSIF ddr_state = ds_t3 THEN ELSIF ddr_state = ds_t3 THEN
va_s(10) <= va_s(10); va_s(10) <= va_s(10);
IF (fb_wr_n = '0' AND ddr_access = cpu) OR (blitter_wr = '1' AND ddr_access = blitter) THEN IF (fb_wr_n = '0' AND ddr_access = ddr_access_cpu) OR (blitter_wr = '1' AND ddr_access = ddr_access_blitter) THEN
va_s(9 DOWNTO 0) <= cpu_col_adr; va_s(9 DOWNTO 0) <= cpu_col_adr;
ba_s <= cpu_ba; ba_s <= cpu_ba;
ELSIF fifo_active = '1' THEN ELSIF fifo_active = '1' THEN
va_s(9 DOWNTO 0) <= STD_LOGIC_VECTOR (fifo_col_adr); va_s(9 DOWNTO 0) <= STD_LOGIC_VECTOR (fifo_col_adr);
ba_s <= fifo_ba; ba_s <= fifo_ba;
ELSIF ddr_access = blitter THEN ELSIF ddr_access = ddr_access_blitter THEN
va_s(9 DOWNTO 0) <= blitter_col_adr; va_s(9 DOWNTO 0) <= blitter_col_adr;
ba_s <= blitter_ba; ba_s <= blitter_ba;
END IF; END IF;
ELSIF ddr_state = DS_T4R THEN ELSIF ddr_state = ds_t4r THEN
-- mfro change next two statements -- mfro change next two statements
IF ddr_access = cpu THEN IF ddr_access = ddr_access_cpu THEN
sr_ddr_fb <= '1'; sr_ddr_fb <= '1';
ELSIF ddr_access = blitter THEN ELSIF ddr_access = ddr_access_blitter THEN
sr_blitter_dack <= '1'; sr_blitter_dack <= '1';
END IF; END IF;
ELSIF ddr_state = ds_t5r AND fifo_req = '1' AND fifo_bank_ok = '1' THEN ELSIF ddr_state = ds_t5r AND fifo_req = '1' AND fifo_bank_ok = '1' THEN
@@ -611,32 +611,32 @@ BEGIN
ba_s <= fifo_ba; ba_s <= fifo_ba;
ELSIF ddr_state = ds_t5r THEN ELSIF ddr_state = ds_t5r THEN
va_s(10) <= '1'; va_s(10) <= '1';
ELSIF ddr_state = DS_T4W THEN ELSIF ddr_state = ds_t4w THEN
va_s(10) <= va_s(10); va_s(10) <= va_s(10);
-- mfro changed next IF -- mfro changed next IF
IF ddr_access = blitter THEN IF ddr_access = ddr_access_blitter THEN
sr_blitter_dack <= '1'; sr_blitter_dack <= '1';
END IF; END IF;
ELSIF ddr_state = DS_T5W THEN ELSIF ddr_state = ds_t5w THEN
va_s(10) <= va_s(10); va_s(10) <= va_s(10);
IF ddr_access = cpu THEN IF ddr_access = ddr_access_cpu THEN
va_s(9 DOWNTO 0) <= cpu_col_adr; va_s(9 DOWNTO 0) <= cpu_col_adr;
ba_s <= cpu_ba; ba_s <= cpu_ba;
ELSIF ddr_access = blitter THEN ELSIF ddr_access = ddr_access_blitter THEN
va_s(9 DOWNTO 0) <= blitter_col_adr; va_s(9 DOWNTO 0) <= blitter_col_adr;
ba_s <= blitter_ba; ba_s <= blitter_ba;
END IF; END IF;
IF ddr_access = blitter AND access_width = LONG THEN IF ddr_access = ddr_access_blitter AND access_width = long_access THEN
sr_vdmp <= byte_sel & x"F"; sr_vdmp <= byte_sel & x"F";
ELSIF ddr_access = blitter THEN ELSIF ddr_access = ddr_access_blitter THEN
sr_vdmp <= byte_sel & x"0"; sr_vdmp <= byte_sel & x"0";
ELSE ELSE
sr_vdmp <= byte_sel & x"0"; sr_vdmp <= byte_sel & x"0";
END IF; END IF;
ELSIF ddr_state = DS_T6W THEN ELSIF ddr_state = ds_t6w THEN
sr_ddr_wr <= '1'; sr_ddr_wr <= '1';
sr_ddrwr_d_sel <= '1'; sr_ddrwr_d_sel <= '1';
IF ddr_access = blitter OR access_width = LONG THEN IF ddr_access = ddr_access_blitter OR access_width = long_access THEN
sr_vdmp <= x"FF"; sr_vdmp <= x"FF";
ELSE ELSE
sr_vdmp <= x"00"; sr_vdmp <= x"00";
@@ -682,10 +682,10 @@ BEGIN
va_s(10) <= '1'; va_s(10) <= '1';
ELSIF ddr_state = ds_t10f AND fb_wr_n = '0' AND data_in(13 DOWNTO 12) = fifo_ba THEN ELSIF ddr_state = ds_t10f AND fb_wr_n = '0' AND data_in(13 DOWNTO 12) = fifo_ba THEN
va_s(10) <= '1'; va_s(10) <= '1';
ddr_access <= cpu; ddr_access <= ddr_access_cpu;
ELSIF ddr_state = ds_t10f AND access_width /= LONG AND data_in(13 DOWNTO 12) = fifo_ba THEN ELSIF ddr_state = ds_t10f AND access_width /= long_access AND data_in(13 DOWNTO 12) = fifo_ba THEN
va_s(10) <= '1'; va_s(10) <= '1';
ddr_access <= cpu; ddr_access <= ddr_access_cpu;
ELSIF ddr_state = ds_t10f THEN ELSIF ddr_state = ds_t10f THEN
sr_fifo_wre_i <= '1'; sr_fifo_wre_i <= '1';
ELSIF ddr_state = ds_c6 THEN ELSIF ddr_state = ds_c6 THEN
@@ -717,11 +717,11 @@ BEGIN
IF ddr_sel = '1' AND fb_wr_n = '1' AND ddr_config = '0' THEN IF ddr_sel = '1' AND fb_wr_n = '1' AND ddr_config = '0' THEN
cpu_req <= '1'; cpu_req <= '1';
ELSIF ddr_sel = '1' AND access_width /= LONG AND ddr_config = '0' THEN -- Start WHEN NOT config AND NOT long word access. ELSIF ddr_sel = '1' AND access_width /= long_access AND ddr_config = '0' THEN -- Start WHEN NOT config AND NOT long_access word_access access.
cpu_req <= '1'; cpu_req <= '1';
ELSIF ddr_sel = '1' AND ddr_config = '1' THEN -- Config, start immediately. ELSIF ddr_sel = '1' AND ddr_config = '1' THEN -- Config, start immediately.
cpu_req <= '1'; cpu_req <= '1';
ELSIF fb_regddr = fr_s1 AND fb_wr_n = '0' THEN -- Long word write later. ELSIF fb_regddr = fr_s1 AND fb_wr_n = '0' THEN -- Long word_access write later.
cpu_req <= '1'; cpu_req <= '1';
ELSIF fb_regddr /= fr_s1 AND fb_regddr /= fr_s3 AND bus_cyc_end = '0' AND bus_cyc = '0' THEN -- Halt, bus cycle IN progress OR ready. ELSIF fb_regddr /= fr_s1 AND fb_regddr /= fr_s3 AND bus_cyc_end = '0' AND bus_cyc = '0' THEN -- Halt, bus cycle IN progress OR ready.
cpu_req <= '0'; cpu_req <= '0';
@@ -755,8 +755,8 @@ BEGIN
vras <= '1' WHEN ddr_state = ds_t2a AND ddr_sel = '1' AND fb_wr_n = '0' ELSE vras <= '1' WHEN ddr_state = ds_t2a AND ddr_sel = '1' AND fb_wr_n = '0' ELSE
'1' WHEN ddr_state = ds_t2a AND ddr_sel = '1' AND (fb_size0 = '0' OR fb_size1= '0') ELSE '1' WHEN ddr_state = ds_t2a AND ddr_sel = '1' AND (fb_size0 = '0' OR fb_size1= '0') ELSE
'1' WHEN ddr_state = ds_t2a AND ddr_access = fifo AND fifo_req = '1' ELSE '1' WHEN ddr_state = ds_t2a AND ddr_access = ddr_access_fifo AND fifo_req = '1' ELSE
'1' WHEN ddr_state = ds_t2a AND ddr_access = blitter AND blitter_req = '1' ELSE '1' WHEN ddr_state = ds_t2a AND ddr_access = ddr_access_blitter AND blitter_req = '1' ELSE
'1' WHEN ddr_state = ds_t2b ELSE '1' WHEN ddr_state = ds_t2b ELSE
'1' WHEN ddr_state = ds_t10f AND fb_wr_n = '0' AND data_in(13 DOWNTO 12) = fifo_ba ELSE '1' WHEN ddr_state = ds_t10f AND fb_wr_n = '0' AND data_in(13 DOWNTO 12) = fifo_ba ELSE
'1' WHEN ddr_state = ds_t10f AND (fb_size0 = '0' OR fb_size1= '0') AND data_in(13 DOWNTO 12) = fifo_ba ELSE '1' WHEN ddr_state = ds_t10f AND (fb_size0 = '0' OR fb_size1= '0') AND data_in(13 DOWNTO 12) = fifo_ba ELSE
@@ -765,16 +765,16 @@ BEGIN
'1' WHEN ddr_state = ds_cb8 ELSE '1' WHEN ddr_state = ds_cb8 ELSE
'1' WHEN ddr_state = ds_r2 ELSE '0'; '1' WHEN ddr_state = ds_r2 ELSE '0';
vcas <= '1' WHEN ddr_state = DS_T4R ELSE vcas <= '1' WHEN ddr_state = ds_t4r ELSE
'1' WHEN ddr_state = DS_T6W ELSE '1' WHEN ddr_state = ds_t6w ELSE
'1' WHEN ddr_state = ds_t4f ELSE '1' WHEN ddr_state = ds_t4f ELSE
'1' WHEN ddr_state = ds_t6f ELSE '1' WHEN ddr_state = ds_t6f ELSE
'1' WHEN ddr_state = DS_T8F ELSE '1' WHEN ddr_state = ds_t8f ELSE
'1' WHEN ddr_state = ds_t10f AND vras = '0' ELSE '1' WHEN ddr_state = ds_t10f AND vras = '0' ELSE
data_in(17) AND NOT fb_wr_n AND NOT fb_size0 AND NOT fb_size1 WHEN ddr_state = ds_c7 ELSE data_in(17) AND NOT fb_wr_n AND NOT fb_size0 AND NOT fb_size1 WHEN ddr_state = ds_c7 ELSE
'1' WHEN ddr_state = ds_r2 AND ddr_refresh_sig /= x"9" ELSE '0'; '1' WHEN ddr_state = ds_r2 AND ddr_refresh_sig /= x"9" ELSE '0';
vwe <= '1' WHEN ddr_state = DS_T6W ELSE vwe <= '1' WHEN ddr_state = ds_t6w ELSE
data_in(16) AND NOT fb_wr_n AND NOT fb_size0 AND NOT fb_size1 WHEN ddr_state = ds_c7 ELSE data_in(16) AND NOT fb_wr_n AND NOT fb_size0 AND NOT fb_size1 WHEN ddr_state = ds_c7 ELSE
'1' WHEN ddr_state = ds_cb6 ELSE '1' WHEN ddr_state = ds_cb6 ELSE
'1' WHEN ddr_state = ds_cb8 ELSE '1' WHEN ddr_state = ds_cb8 ELSE
@@ -782,7 +782,7 @@ BEGIN
-- DDR controller: -- DDR controller:
-- VIDEO RAM CONTROL REGISTER (IS IN VIDEO_MUX_CTR) -- VIDEO RAM CONTROL REGISTER (IS IN VIDEO_MUX_CTR)
-- $F0000400: BIT 0: VCKE; 1: NOT nVCS ;2:REFRESH ON , (0=fifo AND CNT CLEAR); -- $F0000400: BIT 0: vcke; 1: NOT nVCS ;2:REFRESH ON , (0=ddr_access_fifo AND CNT CLEAR);
-- 3: CONFIG; 8: fifo_active; -- 3: CONFIG; 8: fifo_active;
vcs_n <= NOT(video_control_register(vrcr_refresh_on)); vcs_n <= NOT(video_control_register(vrcr_refresh_on));
ddr_config <= video_control_register(3); ddr_config <= video_control_register(3);
@@ -795,7 +795,7 @@ BEGIN
vcas_n <= NOT vcas; vcas_n <= NOT vcas;
vwe_n <= NOT vwe; vwe_n <= NOT vwe;
ddrwr_d_sel1 <= '1' WHEN ddr_access = blitter ELSE '0'; ddrwr_d_sel1 <= '1' WHEN ddr_access = ddr_access_blitter ELSE '0';
blitter_row_adr <= blitter_adr(26 DOWNTO 14); blitter_row_adr <= blitter_adr(26 DOWNTO 14);
blitter_ba <= blitter_adr(13 DOWNTO 12); blitter_ba <= blitter_adr(13 DOWNTO 12);
@@ -810,7 +810,7 @@ BEGIN
video_base_adr(11 DOWNTO 4) <= video_base_m_d; video_base_adr(11 DOWNTO 4) <= video_base_m_d;
video_base_adr(3 DOWNTO 0) <= video_base_l_d(7 DOWNTO 4); video_base_adr(3 DOWNTO 0) <= video_base_l_d(7 DOWNTO 4);
VDM_SEL <= vdm_sel_i; vdm_sel <= vdm_sel_i;
vdm_sel_i <= video_base_l_d(3 DOWNTO 0); vdm_sel_i <= video_base_l_d(3 DOWNTO 0);
-- Current video address: -- Current video address:
@@ -848,19 +848,19 @@ BEGIN
video_cnt_m <= '1' WHEN fb_cs1_n = '0' AND fb_adr_i(15 DOWNTO 0) = x"8206" ELSE '0'; -- x"FF8207". video_cnt_m <= '1' WHEN fb_cs1_n = '0' AND fb_adr_i(15 DOWNTO 0) = x"8206" ELSE '0'; -- x"FF8207".
video_cnt_h <= '1' WHEN fb_cs1_n = '0' AND fb_adr_i(15 DOWNTO 0) = x"8204" ELSE '0'; -- x"FF8205". video_cnt_h <= '1' WHEN fb_cs1_n = '0' AND fb_adr_i(15 DOWNTO 0) = x"8204" ELSE '0'; -- x"FF8205".
DATA_OUT(31 DOWNTO 24) <= "00000" & video_base_x_d WHEN video_base_h = '1' ELSE data_out(31 DOWNTO 24) <= "00000" & video_base_x_d WHEN video_base_h = '1' ELSE
"00000" & video_act_adr(26 DOWNTO 24) WHEN video_cnt_h = '1' ELSE (OTHERS => '0'); "00000" & video_act_adr(26 DOWNTO 24) WHEN video_cnt_h = '1' ELSE (OTHERS => '0');
DATA_EN_H <= (video_base_h OR video_cnt_h) AND NOT fb_oe_n; data_en_h <= (video_base_h OR video_cnt_h) AND NOT fb_oe_n;
DATA_OUT(23 DOWNTO 16) <= video_base_l_d WHEN video_base_l = '1' ELSE data_out(23 DOWNTO 16) <= video_base_l_d WHEN video_base_l = '1' ELSE
video_base_m_d WHEN video_base_m = '1' ELSE video_base_m_d WHEN video_base_m = '1' ELSE
video_base_h_d WHEN video_base_h = '1' ELSE video_base_h_d WHEN video_base_h = '1' ELSE
video_act_adr(7 DOWNTO 0) WHEN video_cnt_l = '1' ELSE video_act_adr(7 DOWNTO 0) WHEN video_cnt_l = '1' ELSE
video_act_adr(15 DOWNTO 8) WHEN video_cnt_m = '1' ELSE video_act_adr(15 DOWNTO 8) WHEN video_cnt_m = '1' ELSE
video_act_adr(23 DOWNTO 16) WHEN video_cnt_h = '1' ELSE (OTHERS => '0'); video_act_adr(23 DOWNTO 16) WHEN video_cnt_h = '1' ELSE (OTHERS => '0');
DATA_EN_L <= (video_base_l OR video_base_m OR video_base_h OR video_cnt_l OR video_cnt_m OR video_cnt_h) AND NOT fb_oe_n; data_en_l <= (video_base_l OR video_base_m OR video_base_h OR video_cnt_l OR video_cnt_m OR video_cnt_h) AND NOT fb_oe_n;
END ARCHITECTURE BEHAVIOUR; END ARCHITECTURE BEHAVIOUR;
-- va : Video DDR address multiplexed -- va : Video DDR address multiplexed
-- va_p : latched va, wenn FIFO_AC, BLITTER_AC -- va_p : latched va, wenn FIFO_AC, BLITTER_AC

118
vhdl/testbenches/ddr2_ram_model.vhd
View File

@@ -5,22 +5,7 @@ LIBRARY IEEE;
LIBRARY work; LIBRARY work;
PACKAGE ddr2_ram_model_pkg IS PACKAGE ddr2_ram_model_pkg IS
CONSTANT DM_BITS : INTEGER := 2; -- DDR2 RAM timing constants
CONSTANT BA_BITS : INTEGER := 2;
CONSTANT MEM_BITS : INTEGER := 10; -- number of write data bursts can be stored in memory. The default is 2 ** 10 = 1024
CONSTANT AP : INTEGER := 10; -- the address bit that controls auto-precharge and precharge-all
CONSTANT ADDR_BITS : INTEGER := 13;
CONSTANT DQ_BITS : INTEGER := 2;
CONSTANT DQS_BITS : INTEGER := 2;
CONSTANT TDLLK : INTEGER := 200;
CONSTANT BUS_DELAY : TIME := 0 ps;
CONSTANT BANKS : INTEGER := TO_INTEGER(SHIFT_LEFT(TO_UNSIGNED(1, 32), BA_BITS));
CONSTANT ROW_BITS : INTEGER := 13;
CONSTANT COL_BITS : INTEGER := 10;
CONSTANT BL_BITS : INTEGER := 3; -- the number of bits required to count to MAX_BL
CONSTANT BL_MAX : INTEGER := 8;
CONSTANT BO_BITS : INTEGER := 2; -- the number of burst order bits
CONSTANT MAX_BITS : INTEGER := BA_BITS + ROW_BITS + COL_BITS - BL_BITS;
CONSTANT TMRD : TIME := 2 ps; -- load mode register command cycle time CONSTANT TMRD : TIME := 2 ps; -- load mode register command cycle time
CONSTANT TRFC_MIN : TIME := 105000 ps; -- refresh to refresh command minimum value CONSTANT TRFC_MIN : TIME := 105000 ps; -- refresh to refresh command minimum value
@@ -31,18 +16,20 @@ PACKAGE ddr2_ram_model_pkg IS
CONSTANT TRAS_MIN : TIME := 40000 ps; -- minimum active to precharge command time CONSTANT TRAS_MIN : TIME := 40000 ps; -- minimum active to precharge command time
CONSTANT TRAS_MAX : TIME := 70000000 ps; -- maximum active to precharge command time CONSTANT TRAS_MAX : TIME := 70000000 ps; -- maximum active to precharge command time
CONSTANT TRRD : TIME := 10000 ps; -- tRRD: active bank to active bank command time CONSTANT TRRD : TIME := 10000 ps; -- tRRD: active bank to active bank command time
CONSTANT TFAW : INTEGER := 45000;
CONSTANT RANDOM_SEED : INTEGER := 711689044; -- seed value for random generator CONSTANT RANDOM_SEED : INTEGER := 711689044; -- seed value for random generator
COMPONENT ddr2_ram_model IS COMPONENT ddr2_ram_model IS
GENERIC GENERIC
( (
DEBUG : STD_LOGIC := '1'; VERBOSE : BOOLEAN := TRUE; -- define if you want additional debug output
DM_BITS : INTEGER := 2;
BA_BITS : INTEGER := 2; BA_BITS : INTEGER := 2; -- number of banks
ADDR_BITS : INTEGER := 13; ADDR_BITS : INTEGER := 13; -- number of address bits
DQ_BITS : INTEGER := 2; DM_BITS : INTEGER := 2; -- number of data mask bits
DQS_BITS : INTEGER := 2 DQ_BITS : INTEGER := 16; -- number of data bits
DQS_BITS : INTEGER := 2 -- number of data strobes
); );
PORT PORT
( (
@@ -80,12 +67,13 @@ LIBRARY work;
ENTITY ddr2_ram_model IS ENTITY ddr2_ram_model IS
GENERIC GENERIC
( (
DEBUG : STD_LOGIC := '1'; VERBOSE : BOOLEAN := TRUE; -- define if you want additional debug output
BA_BITS : INTEGER := 2;
ADDR_BITS : INTEGER := 13; BA_BITS : INTEGER := 2; -- number of banks
DM_BITS : INTEGER := 2; ADDR_BITS : INTEGER := 13; -- number of address bits
DQ_BITS : INTEGER := 16; DM_BITS : INTEGER := 2; -- number of data mask bits
DQS_BITS : INTEGER := 2 DQ_BITS : INTEGER := 8; -- number of data bits
DQS_BITS : INTEGER := 2 -- number of data strobes
); );
PORT PORT
( (
@@ -108,14 +96,26 @@ ENTITY ddr2_ram_model IS
END ENTITY ddr2_ram_model; END ENTITY ddr2_ram_model;
ARCHITECTURE rtl OF ddr2_ram_model IS ARCHITECTURE rtl OF ddr2_ram_model IS
-- DDR2 RAM size constants
CONSTANT MEM_BITS : INTEGER := 10; -- number of write data bursts can be stored in memory. The default is 2 ** 10 = 1024
CONSTANT AP : INTEGER := 10; -- the address bit that controls auto-precharge and precharge-all
CONSTANT TDLLK : INTEGER := 200;
CONSTANT BUS_DELAY : TIME := 0 ps;
CONSTANT BANKS : INTEGER := TO_INTEGER(SHIFT_LEFT(TO_UNSIGNED(1, 32), BA_BITS));
CONSTANT ROW_BITS : INTEGER := 13;
CONSTANT COL_BITS : INTEGER := 10;
CONSTANT BL_BITS : INTEGER := 3; -- the number of bits required to count to MAX_BL
CONSTANT BL_MAX : INTEGER := 8;
CONSTANT BO_BITS : INTEGER := 2; -- the number of burst order bits
CONSTANT MAX_BITS : INTEGER := BA_BITS + ROW_BITS + COL_BITS - BL_BITS;
CONSTANT DQ_PER_DQS : INTEGER := DQ_BITS / DQS_BITS; CONSTANT DQ_PER_DQS : INTEGER := DQ_BITS / DQS_BITS;
CONSTANT MAX_SIZE : INTEGER := TO_INTEGER(SHIFT_LEFT(TO_UNSIGNED(1, 32), BA_BITS + ROW_BITS + COL_BITS - BL_BITS)); CONSTANT MAX_SIZE : INTEGER := TO_INTEGER(SHIFT_LEFT(TO_UNSIGNED(1, 32), BA_BITS + ROW_BITS + COL_BITS - BL_BITS));
CONSTANT MEM_SIZE : INTEGER := TO_INTEGER(SHIFT_LEFT(TO_UNSIGNED(1, 32), MEM_BITS)); CONSTANT MEM_SIZE : INTEGER := TO_INTEGER(SHIFT_LEFT(TO_UNSIGNED(1, 32), MEM_BITS));
CONSTANT AL_MAX : INTEGER := 6; CONSTANT AL_MAX : INTEGER := 6;
CONSTANT CL_MAX : INTEGER := 7; CONSTANT CL_MAX : INTEGER := 7;
CONSTANT MAX_PIPE : INTEGER := 2 * (AL_MAX + CL_MAX); CONSTANT MAX_PIPE : INTEGER := 2 * (AL_MAX + CL_MAX);
CONSTANT TFAW : INTEGER := 45000;
CONSTANT TDLLK : INTEGER := 200;
TYPE time_array_t IS ARRAY (NATURAL RANGE <>) OF TIME; TYPE time_array_t IS ARRAY (NATURAL RANGE <>) OF TIME;
@@ -163,7 +163,7 @@ ARCHITECTURE rtl OF ddr2_ram_model IS
SIGNAL read_latency : INTEGER; SIGNAL read_latency : INTEGER;
SIGNAL write_latency : INTEGER; SIGNAL write_latency : INTEGER;
TYPE cmd_type_t IS (LOAD_MODE, REFRESH, PRECHARGE, ACTIVATE, WRITE, READ, NOP, PWR_DOWN, SELF_REF); TYPE cmd_type_t IS (LOAD_MODE, REFRESH, PRECHARGE, ACTIVATE, WRITE_CMD, READ, NOP, PWR_DOWN, SELF_REF);
TYPE cmd_type_encoding_array_t IS ARRAY(cmd_type_t) OF STD_LOGIC_VECTOR(3 DOWNTO 0); TYPE cmd_type_encoding_array_t IS ARRAY(cmd_type_t) OF STD_LOGIC_VECTOR(3 DOWNTO 0);
CONSTANT cmd_type_encoding : cmd_type_encoding_array_t := CONSTANT cmd_type_encoding : cmd_type_encoding_array_t :=
( (
@@ -204,7 +204,7 @@ ARCHITECTURE rtl OF ddr2_ram_model IS
-- cmd timers/counters -- cmd timers/counters
SIGNAL ref_cntr : INTEGER; SIGNAL ref_cntr : INTEGER;
SIGNAL ck_cntr : TIME; SIGNAL ck_cntr : INTEGER;
SIGNAL ck_load_mode : TIME; SIGNAL ck_load_mode : TIME;
SIGNAL ck_write : INTEGER; SIGNAL ck_write : INTEGER;
SIGNAL ck_read : INTEGER; SIGNAL ck_read : INTEGER;
@@ -552,7 +552,7 @@ BEGIN
REPORT("ERROR: 2**BO_BITS cannot be greater than BL_MAX parameter"); REPORT("ERROR: 2**BO_BITS cannot be greater than BL_MAX parameter");
END IF; END IF;
seed <= RANDOM_SEED; seed <= RANDOM_SEED;
ck_cntr <= 0 ps; ck_cntr <= 0;
WAIT; WAIT;
END PROCESS; END PROCESS;
@@ -650,20 +650,26 @@ BEGIN
IF ck_cntr - ck_load_mode < TMRD THEN IF ck_cntr - ck_load_mode < TMRD THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tMRD violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tMRD violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(LOAD_MODE) & "100-" => WHEN "1" & cmd_type_encoding(LOAD_MODE) & "100-" =>
IF ck_cntr - ck_load_mode < TMRD THEN IF ck_cntr - ck_load_mode < TMRD THEN
REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Load Mode to Reset Condition"); REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Load Mode to Reset Condition");
END IF; END IF;
WHEN "1" & cmd_type_encoding(REFRESH) & "0---" => WHEN "1" & cmd_type_encoding(REFRESH) & "0---" =>
IF NOW - tm_refresh < TRFC_MIN THEN IF NOW - tm_refresh < TRFC_MIN THEN
REPORT("tRFC violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("tRFC violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(REFRESH) & cmd_type_encoding(PWR_DOWN) => -- 1 tCK_avg
WHEN "1" & cmd_type_encoding(REFRESH) & cmd_type_encoding(PWR_DOWN) =>
-- 1 tCK_avg
WHEN "1" & cmd_type_encoding(REFRESH) & cmd_type_encoding(SELF_REF) => WHEN "1" & cmd_type_encoding(REFRESH) & cmd_type_encoding(SELF_REF) =>
IF NOW - tm_refresh < TRFC_MIN THEN IF NOW - tm_refresh < TRFC_MIN THEN
REPORT("at time " & TIME'IMAGE(NOW) & "INFO: Refresh to Reset condition"); REPORT("at time " & TIME'IMAGE(NOW) & "INFO: Refresh to Reset condition");
END IF; END IF;
init_done <= '0'; init_done <= '0';
WHEN "1" & cmd_type_encoding(PRECHARGE) & "000-" => WHEN "1" & cmd_type_encoding(PRECHARGE) & "000-" =>
IF NOW - tm_precharge_all < TRPA THEN IF NOW - tm_precharge_all < TRPA THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRPA violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRPA violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
@@ -671,14 +677,16 @@ BEGIN
IF NOW - tm_precharge < TRP THEN IF NOW - tm_precharge < TRP THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRP violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRP violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(PRECHARGE) => WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(PRECHARGE) =>
IF DEBUG = '1' AND NOW - tm_precharge_all < TRPA THEN IF VERBOSE = TRUE AND NOW - tm_precharge_all < TRPA THEN
REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Precharge All interruption during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Precharge All interruption during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
END IF; END IF;
IF DEBUG = '1' AND NOW - tm_bank_precharge(TO_INTEGER(UNSIGNED(bank))) < TRP THEN IF VERBOSE = TRUE AND NOW - tm_bank_precharge(TO_INTEGER(UNSIGNED(bank))) < TRP THEN
REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Precharge Bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))) & " interruption during " REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Precharge Bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))) & " interruption during "
& cmd_string(TO_INTEGER(UNSIGNED(cmd)))); & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(ACTIVATE) => WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(ACTIVATE) =>
IF NOW - tm_precharge_all < TRPA THEN IF NOW - tm_precharge_all < TRPA THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRPA violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRPA violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
@@ -687,17 +695,21 @@ BEGIN
REPORT("at time " & TIME'IMAGE(NOW) & " tRP violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & " to bank " REPORT("at time " & TIME'IMAGE(NOW) & " tRP violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & " to bank "
& INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank)))); & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(PWR_DOWN) => WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(PWR_DOWN) =>
-- 1 tCK, can be concurrent with auto precharge -- 1 tCK, can be concurrent with auto precharge
WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(SELF_REF) => WHEN "1" & cmd_type_encoding(PRECHARGE) & cmd_type_encoding(SELF_REF) =>
IF NOW - tm_precharge_all < TRPA OR NOW - tm_precharge < TRP THEN IF NOW - tm_precharge_all < TRPA OR NOW - tm_precharge < TRP THEN
REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Precharge to reset condition"); REPORT("at time " & TIME'IMAGE(NOW) & " INFO: Precharge to reset condition");
init_done <= '0'; init_done <= '0';
END IF; END IF;
WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(REFRESH) => WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(REFRESH) =>
IF NOW - tm_activate < TRC THEN IF NOW - tm_activate < TRC THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRC violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd)))); REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRC violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(PRECHARGE) => WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(PRECHARGE) =>
IF NOW - tm_bank_activate(TO_INTEGER(UNSIGNED(bank))) > TRAS_MAX AND active_bank(TO_INTEGER(UNSIGNED(bank))) = '1' THEN IF NOW - tm_bank_activate(TO_INTEGER(UNSIGNED(bank))) > TRAS_MAX AND active_bank(TO_INTEGER(UNSIGNED(bank))) = '1' THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRAS maximum violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRAS maximum violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) &
@@ -707,12 +719,46 @@ BEGIN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRAS minimum violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRAS minimum violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) &
" to bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank)))); " to bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(ACTIVATE) => WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(ACTIVATE) =>
IF NOW - tm_activate < TRRD THEN IF NOW - tm_activate < TRRD THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRRD violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRRD violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) &
" to bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank)))); " to bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))));
END IF; END IF;
WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(ACTIVATE) =>
IF NOW - tm_bank_activate(TO_INTEGER(UNSIGNED(bank))) < TRC THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tRC violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & " to bank " &
INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))));
END IF;
WHEN "1" & cmd_type_encoding(ACTIVATE) & "010-" =>
-- tRCD is checked outside this task
WHEN "1" & cmd_type_encoding(ACTIVATE) & cmd_type_encoding(PWR_DOWN) =>
-- 1 tCK
WHEN "1" & cmd_type_encoding(WRITE_CMD) & cmd_type_encoding(PRECHARGE) =>
IF ck_cntr - ck_bank_write(TO_INTEGER(UNSIGNED(bank)))
<= write_latency + TO_INTEGER(UNSIGNED(burst_length)) + 2 OR
NOW - tm_bank_write_end(TO_INTEGER(UNSIGNED(bank))) < TWR THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tWR violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & " to bank " & INTEGER'IMAGE(TO_INTEGER(UNSIGNED(bank))));
END IF;
WHEN "1" & cmd_type_enconding(WRITE_CMD) & cmd_type_encoding(WRITE_CMD) =>
IF ck_cntr - ck_write < TCCD THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tCCD violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & " to bank " & INTEGER'IMAGE(TO_INTEGER(bank)));
END IF;
WHEN "1" & cmd_type_encoding(WRITE_CMD) & cmd_type_encoding(READ) =>
IF ck_load_mode < ck_write AND ck_cntr - ck_write < write_latency + burst_length / 2 + 2 - additive_latency THEN
REPORT("at time " & TIME'IMAGE(NOW) & " ERROR: tWTR violation during " & cmd_string(TO_INTEGER(UNSIGNED(cmd))) & " to bank " & INTEGER'IMAGE(TO_INTEGER(bank)));
END IF;
WHEN "1" & cmd_type_encoding(WRITE_CMD) & cmd_type_encoding(PWR_DOWN) =>
WHEN OTHERS => -- do nothing WHEN OTHERS => -- do nothing
END CASE?; END CASE?;
END; END;
BEGIN BEGIN

11
vhdl/testbenches/ddr_ctlr_tb.vhd
View File

@@ -105,6 +105,15 @@ BEGIN
); );
d1 : ddr2_ram_model d1 : ddr2_ram_model
GENERIC MAP
(
VERBOSE => TRUE, -- define if you want additional debug output
BA_BITS => 2, -- number of banks
ADDR_BITS => 13, -- number of address bits
DM_BITS => 2, -- number of data mask bits
DQ_BITS => 8, -- number of data bits
DQS_BITS => 2 -- number of data strobes
)
PORT map PORT map
( (
ck => ddrclk0, ck => ddrclk0,
@@ -118,7 +127,7 @@ BEGIN
dm_rdqs(1) => data_en_h, dm_rdqs(1) => data_en_h,
ba => ba, ba => ba,
addr => va, addr => va,
DQ => sr_vdmp, dq => sr_vdmp,
dqs(0) => data_en_l, dqs(0) => data_en_l,
dqs(1) => data_en_h, dqs(1) => data_en_h,
odt => '0' odt => '0'