- added BLIT command FIFO

Committed on the Free edition of March Hare Software CVSNT Server.
Upgrade to CVS Suite for more features and support:
http://march-hare.com/cvsnt/


git-svn-id: http://moon:8086/svn/vhdl/trunk@960 cc03376c-175c-47c8-b038-4cd826a8556b
This commit is contained in:
2013-05-06 21:52:44 +00:00
parent a2a1d6f5b9
commit f0093103fa
2 changed files with 438 additions and 336 deletions
+19 -22
View File
@@ -463,12 +463,6 @@ VGA_CLK_GEN: process
ack_v(i) := '0'; ack_v(i) := '0';
end loop; end loop;
else else
if blit_count_rst = '1' then
for i in 0 to 127 loop
-- ram_dst(i) <= X"DEADBEEF" & X"DEADBEEF";
ram_dst(i) <= (others => '-');
end loop;
end if;
if (CYC_I and STB_I) = '1' and rdy = '1' then if (CYC_I and STB_I) = '1' and rdy = '1' then
if WE_I = '0' then if WE_I = '0' then
if ADDR_I(30) = '1' then if ADDR_I(30) = '1' then
@@ -490,6 +484,7 @@ VGA_CLK_GEN: process
ack_v := ack_v(10 downto 0) & '1'; ack_v := ack_v(10 downto 0) & '1';
else -- WE=1 else -- WE=1
ram_data := ram_dst(to_integer(ADDR_I(31 downto 3))); ram_data := ram_dst(to_integer(ADDR_I(31 downto 3)));
ram_data := (others => '-');
if ADDR_I(2) = '0' then if ADDR_I(2) = '0' then
if SEL_I = "11111111" then if SEL_I = "11111111" then
ram_dst(to_integer(ADDR_I(31 downto 3))) <= MDAT_I; ram_dst(to_integer(ADDR_I(31 downto 3))) <= MDAT_I;
@@ -560,9 +555,9 @@ STIMULUS: process
STB_O <= '1'; STB_O <= '1';
wait until rising_edge(CLK_O) and SRDY_I = '1'; wait until rising_edge(CLK_O) and SRDY_I = '1';
STB_O <= '0'; STB_O <= '0';
CYC_O <= '0';
wait until rising_edge(CLK_O) and ACK_I = '1'; wait until rising_edge(CLK_O) and ACK_I = '1';
result := SDAT_I; result := SDAT_I;
CYC_O <= '0';
end procedure reg_read; end procedure reg_read;
@@ -572,15 +567,17 @@ STIMULUS: process
RST_O <= '0'; RST_O <= '0';
wait for 60*CLK_PERIOD; wait for 60*CLK_PERIOD;
reg_write(X"0000_0018", X"4000_0000"); -- set frontbuffer address
reg_write(X"0000_001C", X"4000_0000"); -- set backbuffer address
reg_write(X"0000_0020", X"0000_0002"); -- set BLIT source address 0
reg_write(X"0000_0028", X"0000_0002"); -- set BLIT source dimension 0
reg_write(X"0000_0030", X"0000_0002"); -- set BLIT source address 1
reg_write(X"0000_0038", X"0000_0002"); -- set BLIT source dimension 1
reg_write(X"0000_0050", X"0000_0002"); -- set BLIT destination address
reg_write(X"0000_0058", X"0000_0002"); -- set BLIT destination dimension
-- Enable master -- Enable master
CYC_O <= '1'; reg_write(X"0000_0000", X"0000_0002");
wait until rising_edge(CLK_O) and SRDY_I = '1';
STB_O <= '1';
WE_O <= '1';
SDAT_O <= X"0000_0002";
ADDR_O <= X"0000_0000";
wait until rising_edge(CLK_O) and SRDY_I = '1';
STB_O <= '0';
-- Read status -- Read status
CYC_O <= '1'; CYC_O <= '1';
@@ -713,7 +710,7 @@ STIMULUS: process
for i in 0 to blit_size_array_t'length-1 loop for i in 0 to blit_size_array_t'length-1 loop
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
------------------------------------------------- -------------------------------------------------
-- BLIT aligned => aligned test -- BLIT aligned => aligned test
@@ -755,7 +752,7 @@ STIMULUS: process
reg_read(X"0000_0000"); reg_read(X"0000_0000");
reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100"); reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100");
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
------------------------------------------------- -------------------------------------------------
-- BLIT unaligned => aligned test -- BLIT unaligned => aligned test
------------------------------------------------- -------------------------------------------------
@@ -795,7 +792,7 @@ STIMULUS: process
reg_read(X"0000_0000"); reg_read(X"0000_0000");
reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100"); reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100");
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
------------------------------------------------- -------------------------------------------------
-- BLIT aligned => unaligned test -- BLIT aligned => unaligned test
@@ -836,7 +833,7 @@ STIMULUS: process
reg_read(X"0000_0000"); reg_read(X"0000_0000");
reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100"); reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100");
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
------------------------------------------------- -------------------------------------------------
-- BLIT unaligned => unaligned test -- BLIT unaligned => unaligned test
------------------------------------------------- -------------------------------------------------
@@ -876,7 +873,7 @@ STIMULUS: process
reg_read(X"0000_0000"); reg_read(X"0000_0000");
reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100"); reg_write(X"0000_0000", (result and not X"0001_0000") or X"0000_0100");
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
------------------------------------------------- -------------------------------------------------
-- BLIT const => aligned test -- BLIT const => aligned test
------------------------------------------------- -------------------------------------------------
@@ -918,7 +915,7 @@ STIMULUS: process
reg_read(X"0000_0000"); reg_read(X"0000_0000");
reg_write(X"0000_0000", result or X"0001_0100"); reg_write(X"0000_0000", result or X"0001_0100");
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
------------------------------------------------- -------------------------------------------------
-- BLIT const => unaligned test -- BLIT const => unaligned test
------------------------------------------------- -------------------------------------------------
@@ -960,7 +957,7 @@ STIMULUS: process
reg_read(X"0000_0000"); reg_read(X"0000_0000");
reg_write(X"0000_0000", result or X"0001_0100"); reg_write(X"0000_0000", result or X"0001_0100");
wait for 600*CLK_PERIOD; -- wait for 600*CLK_PERIOD;
end loop; end loop;
state <= IDLE; state <= IDLE;
+284 -179
View File
@@ -31,6 +31,7 @@ entity vga_frontend64 is
fifo_almost_full_thresh : natural := 4000; fifo_almost_full_thresh : natural := 4000;
fifo_almost_empty_thresh : natural := 800; fifo_almost_empty_thresh : natural := 800;
BLIT_CHUNK_SIZE : natural := 512; BLIT_CHUNK_SIZE : natural := 512;
BLIT_CMD_FIFO_DEPTH : natural := 16;
tsvga : vga_timespec_t := ts_vga_800_600_72 tsvga : vga_timespec_t := ts_vga_800_600_72
); );
Port Port
@@ -133,22 +134,16 @@ architecture Behavioral of vga_frontend64 is
signal vga_fb_front : unsigned(31 downto 0); signal vga_fb_front : unsigned(31 downto 0);
signal host_fb_front : unsigned(31 downto 0); signal host_fb_front : unsigned(31 downto 0);
signal host_fb_back : unsigned(31 downto 0); signal host_fb_back : unsigned(31 downto 0);
signal blit_addr_src_0 : unsigned(31 downto 0); signal blit_reg_addr_src_0 : unsigned(31 downto 0);
signal blit_addr_src_1 : unsigned(31 downto 0); signal blit_reg_addr_src_1 : unsigned(31 downto 0);
signal blit_addr_dst : unsigned(31 downto 0); signal blit_reg_addr_dst : unsigned(31 downto 0);
signal blit_dimx_src_0 : unsigned(31 downto 0); signal blit_reg_dimx_src_0 : unsigned(31 downto 0);
signal blit_dimx_src_1 : unsigned(31 downto 0); signal blit_reg_dimx_src_1 : unsigned(31 downto 0);
signal blit_dimx_dst : unsigned(31 downto 0); signal blit_reg_dimx_dst : unsigned(31 downto 0);
signal blit_nx : unsigned(31 downto 0); signal blit_reg_nx : unsigned(31 downto 0);
signal blit_ny : unsigned(31 downto 0); signal blit_reg_ny : unsigned(31 downto 0);
signal blit_func_sel : unsigned(3 downto 0); signal blit_reg_const_color : unsigned(31 downto 0);
signal blit_comb_sel : unsigned(3 downto 0); signal blit_reg_func : unsigned(7 downto 0);
signal blit_request : std_logic;
signal blit_request_set : std_logic;
signal blit_complete : std_logic;
signal blit_complete_ack : std_logic;
signal blit_complete_inten : std_logic;
signal blit_reset : std_logic;
signal vga_scan_rdy : std_logic; signal vga_scan_rdy : std_logic;
signal vga_scan_dma_en : std_logic; signal vga_scan_dma_en : std_logic;
signal vga_scan_dma_en2 : std_logic; signal vga_scan_dma_en2 : std_logic;
@@ -169,6 +164,40 @@ architecture Behavioral of vga_frontend64 is
-- Blitter vars -- Blitter vars
signal blit_reset : std_logic;
signal blit_request : std_logic;
signal blit_const_color_en : std_logic;
signal blit_request_set : std_logic;
signal blit_finish_strobe : unsigned(2 downto 0);
signal blit_complete_int : std_logic;
signal blit_complete_int_ack : std_logic;
signal blit_complete_int_en : std_logic;
signal blit_cmd_empty_int : std_logic;
signal blit_cmd_empty_int_ack : std_logic;
signal blit_cmd_empty_int_en : std_logic;
-- BLIT command FIFO
constant BLIT_CMD_FIFO_WIDTH : natural := 320;
signal blit_cmd_din : unsigned(BLIT_CMD_FIFO_WIDTH-1 downto 0);
signal blit_cmd_dout : unsigned(BLIT_CMD_FIFO_WIDTH-1 downto 0);
signal blit_cmd_re : std_logic;
signal blit_cmd_we : std_logic;
signal blit_cmd_empty : std_logic;
signal blit_cmd_full : std_logic;
signal blit_cmd_bsy : std_logic;
signal blit_cmd_avail : std_logic;
signal blit_cmd_addr_src_0 : unsigned(31 downto 0);
signal blit_cmd_addr_src_1 : unsigned(31 downto 0);
signal blit_cmd_addr_dst : unsigned(31 downto 0);
signal blit_cmd_dimx_src_0 : unsigned(31 downto 0);
signal blit_cmd_dimx_src_1 : unsigned(31 downto 0);
signal blit_cmd_dimx_dst : unsigned(31 downto 0);
signal blit_cmd_nx : unsigned(31 downto 0);
signal blit_cmd_ny : unsigned(31 downto 0);
signal blit_cmd_CC : unsigned(31 downto 0);
signal blit_cmd_func : unsigned(31 downto 0);
signal blit_chunk_cnt : natural range 0 to BLIT_CHUNK_SIZE-1; signal blit_chunk_cnt : natural range 0 to BLIT_CHUNK_SIZE-1;
signal blit_chunk_full : std_logic; signal blit_chunk_full : std_logic;
@@ -220,9 +249,6 @@ architecture Behavioral of vga_frontend64 is
signal blit_fill_finish : std_logic; signal blit_fill_finish : std_logic;
signal blit_fill_addr : unsigned(2 downto 0); signal blit_fill_addr : unsigned(2 downto 0);
signal blit_const_color : unsigned(31 downto 0);
signal blit_const_color_en : std_logic;
signal CYC_O_blit_dst : std_logic; signal CYC_O_blit_dst : std_logic;
signal STB_O_blit_dst : std_logic; signal STB_O_blit_dst : std_logic;
signal ADDR_O_blit_dst : unsigned(31 downto 0); signal ADDR_O_blit_dst : unsigned(31 downto 0);
@@ -268,8 +294,6 @@ architecture Behavioral of vga_frontend64 is
LAST : std_logic; LAST : std_logic;
UNALIGNED : std_logic; UNALIGNED : std_logic;
PARTIAL : std_logic; PARTIAL : std_logic;
N_ODD : std_logic;
re : unsigned(1 downto 0);
end record debug_t; end record debug_t;
signal src_dbg : debug_t; signal src_dbg : debug_t;
@@ -279,6 +303,55 @@ architecture Behavioral of vga_frontend64 is
-------------------------------------------------------------------------- --------------------------------------------------------------------------
begin begin
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-1 downto BLIT_CMD_FIFO_WIDTH-32) <= blit_reg_addr_src_0;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-32-1 downto BLIT_CMD_FIFO_WIDTH-64) <= blit_reg_dimx_src_0;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-64-1 downto BLIT_CMD_FIFO_WIDTH-96) <= blit_reg_addr_src_1;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-96-1 downto BLIT_CMD_FIFO_WIDTH-128) <= blit_reg_dimx_src_1;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-128-1 downto BLIT_CMD_FIFO_WIDTH-160) <= blit_reg_addr_dst;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-160-1 downto BLIT_CMD_FIFO_WIDTH-192) <= blit_reg_dimx_dst;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-192-1 downto BLIT_CMD_FIFO_WIDTH-224) <= blit_reg_nx;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-224-1 downto BLIT_CMD_FIFO_WIDTH-256) <= blit_reg_ny;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-256-1 downto BLIT_CMD_FIFO_WIDTH-288) <= blit_reg_const_color;
blit_cmd_din(BLIT_CMD_FIFO_WIDTH-288-1 downto BLIT_CMD_FIFO_WIDTH-320) <= (31 downto 8 => '0') & blit_reg_func;
blit_cmd_addr_src_0 <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-1 downto BLIT_CMD_FIFO_WIDTH-32);
blit_cmd_dimx_src_0 <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-32-1 downto BLIT_CMD_FIFO_WIDTH-64);
blit_cmd_addr_src_1 <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-64-1 downto BLIT_CMD_FIFO_WIDTH-96);
blit_cmd_dimx_src_1 <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-96-1 downto BLIT_CMD_FIFO_WIDTH-128);
blit_cmd_addr_dst <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-128-1 downto BLIT_CMD_FIFO_WIDTH-160);
blit_cmd_dimx_dst <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-160-1 downto BLIT_CMD_FIFO_WIDTH-192);
blit_cmd_nx <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-192-1 downto BLIT_CMD_FIFO_WIDTH-224);
blit_cmd_ny <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-224-1 downto BLIT_CMD_FIFO_WIDTH-256);
blit_cmd_CC <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-256-1 downto BLIT_CMD_FIFO_WIDTH-288);
blit_cmd_func <= blit_cmd_dout(BLIT_CMD_FIFO_WIDTH-288-1 downto BLIT_CMD_FIFO_WIDTH-320);
blit_cmd_avail <= not blit_cmd_empty;
blit_cmd_bsy <= blit_cmd_full;
blit_cmd_re <= blit_finish_strobe(0);
blit_cmd_we <= blit_request_set;
-- Command FIFO
inst_blit_cmd_fifo: entity work.fifo_sync
GENERIC MAP
(
addr_width => NextExpBaseTwo(BLIT_CMD_FIFO_DEPTH),
data_width => BLIT_CMD_FIFO_WIDTH,
do_last_read_update => false
)
PORT MAP
(
rst => RST_I,
clk => CLK_I,
we => blit_cmd_we,
re => blit_cmd_re,
fifo_full => blit_cmd_full,
fifo_empty => blit_cmd_empty,
fifo_afull => open,
fifo_aempty => open,
data_w => blit_cmd_din,
data_r => blit_cmd_dout
);
proc_synced_vga_scan_en: proc_synced_vga_scan_en:
process(CLK_I) process(CLK_I)
begin begin
@@ -291,46 +364,31 @@ proc_synced_vga_scan_en:
end if; end if;
end process; end process;
proc_bufchg_irq: ADDR_O_scan <= front + (to_unsigned(pixel_cnt, 29) & "000");
proc_scan_addr:
process(CLK_I) process(CLK_I)
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if vga_scan_dma_en2 = '0' or bufchg_flag_ack = '1' then bufchg <= '0';
bufchg_flag <= '0'; if vga_scan_dma_en2 = '0' then
elsif bufchg = '1' then pixel_cnt <= 0;
bufchg_flag <= '1'; front <= host_fb_front;
end if; elsif STB_O_scan = '1' and busout_fifo_rdy = '1' then
INT_O <= (bufchg_flag and bufchg_irq_en) if pixel_cnt /= MAX_REQUEST_CNT/2-1 then
or (blit_complete and blit_complete_inten); pixel_cnt <= pixel_cnt + 1;
end if; else
end process; pixel_cnt <= 0;
front <= host_fb_back;
proc_blit_request_flags: bufchg <= '1';
process(CLK_I)
begin
if rising_edge(CLK_I) then
if RST_I = '1' then
blit_request <= '0';
elsif blit_request_set = '1' then
blit_request <= '1';
elsif blit_dst_finish = '1' then
blit_request <= '0';
end if;
end if;
end process;
proc_blit_complete_flag:
process(CLK_I)
begin
if rising_edge(CLK_I) then
if RST_I = '1' or blit_request_set = '1' or blit_complete_ack = '1' then
blit_complete <= '0';
elsif blit_dst_finish = '1' and blit_request = '1' then
blit_complete <= '1';
end if; end if;
end if; end if;
vga_fb_front <= front;
vga_fb_back <= back;
end if;
end process; end process;
---------------------------------------------------------------------------------
inst_vga_backend : entity work.vga_backend inst_vga_backend : entity work.vga_backend
GENERIC MAP GENERIC MAP
( (
@@ -391,6 +449,7 @@ inst_vga_backend : entity work.vga_backend
color_op <= op_over; color_op <= op_over;
vga_scan_rdy <= stat_hready and stat_vready; vga_scan_rdy <= stat_hready and stat_vready;
-- SCAN line FIFO
inst_linefifo: entity work.fifo_async inst_linefifo: entity work.fifo_async
GENERIC MAP GENERIC MAP
( (
@@ -468,10 +527,13 @@ inst_busout_fifo: entity work.fifo_sync
data_w => busout_fifo_din, data_w => busout_fifo_din,
data_r => busout_fifo_dout data_r => busout_fifo_dout
); );
blit_const_color_en <= blit_cmd_func(0);
busout_fifo_rdy <= not busout_fifo_full; busout_fifo_rdy <= not busout_fifo_full;
busout_fifo_re <= not busout_fifo_empty and SRDY_I; busout_fifo_re <= not busout_fifo_empty and SRDY_I;
busout_fifo_we <= bus_cycle_en and (STB_O_scan or STB_O_blit_src or STB_O_blit_dst); busout_fifo_we <= bus_cycle_en and (STB_O_scan or STB_O_blit_src or STB_O_blit_dst);
busout_fifo_data_in <= (blitfifo_dout_1 & blitfifo_dout_0) when blit_const_color_en = '0' else (blit_const_color & blit_const_color); busout_fifo_data_in <= (blitfifo_dout_1 & blitfifo_dout_0) when blit_const_color_en = '0' else (blit_cmd_CC & blit_cmd_CC);
busout_fifo_addr_in <= ADDR_O_blit_src when CYC_O_blit_src = '1' else busout_fifo_addr_in <= ADDR_O_blit_src when CYC_O_blit_src = '1' else
ADDR_O_blit_dst when CYC_O_blit_dst = '1' else ADDR_O_blit_dst when CYC_O_blit_dst = '1' else
ADDR_O_scan; ADDR_O_scan;
@@ -480,33 +542,47 @@ inst_busout_fifo: entity work.fifo_sync
request_en <= bus_cycle_en and busout_fifo_we and busout_fifo_rdy; request_en <= bus_cycle_en and busout_fifo_we and busout_fifo_rdy;
CYC_O <= bus_cycle_en; CYC_O <= bus_cycle_en;
--------------------------------------------------------------------------------- ------------------------------------------------------------------------------------
ADDR_O_scan <= front + (to_unsigned(pixel_cnt, 29) & "000"); -- Bus request counter
------------------------------------------------------------------------------------
proc_scan_addr: proc_bus_request_counter:
process(CLK_I) process(CLK_I)
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
bufchg <= '0'; if request_cnt_rst = '1' then
if vga_scan_dma_en2 = '0' then request_cnt <= (others => '0');
pixel_cnt <= 0; elsif request_en = '1' then
front <= host_fb_front; request_cnt <= request_cnt + 1;
elsif STB_O_scan = '1' and busout_fifo_rdy = '1' then
if pixel_cnt /= MAX_REQUEST_CNT/2-1 then
pixel_cnt <= pixel_cnt + 1;
else
pixel_cnt <= 0;
front <= host_fb_back;
bufchg <= '1';
end if; end if;
end if; end if;
vga_fb_front <= front; end process;
vga_fb_back <= back;
proc_bus_read_counter:
process(CLK_I)
begin
if rising_edge(CLK_I) then
if request_cnt_rst = '1' then
read_cnt <= (others => '0');
elsif busin_fifo_dout_vld = '1' then
read_cnt <= read_cnt + 1;
end if;
end if;
end process;
proc_bus_read_finish:
process(CLK_I)
begin
if rising_edge(CLK_I) then
bus_read_fin <= '0';
if read_cnt = request_cnt then
bus_read_fin <= '1';
end if;
end if; end if;
end process; end process;
------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------
-- VGA master FSM -- VGA master FSM
------------------------------------------------------------------------------------
vga_master_next: vga_master_next:
process(CLK_I) process(CLK_I)
begin begin
@@ -619,38 +695,58 @@ vga_master:
end case; end case;
end process; end process;
------------------------------------------------------------------------------------ ---------------------------------------------------------------------------------
proc_bus_request_counter: -- BLITTER
---------------------------------------------------------------------------------
proc_blit_complete_int_flag:
process(CLK_I) process(CLK_I)
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if request_cnt_rst = '1' then if RST_I = '1' or (blit_complete_int = '1' and blit_complete_int_ack = '1') then
request_cnt <= (others => '0'); blit_complete_int <= '0';
elsif request_en = '1' then elsif blit_finish_strobe(2) = '1' or (blit_complete_int = '0' and blit_complete_int_ack = '1') then
request_cnt <= request_cnt + 1; blit_complete_int <= '1';
end if; end if;
end if; end if;
end process; end process;
proc_bus_read_counter: proc_blit_cmd_empty_int_flag:
process(CLK_I) process(CLK_I)
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if request_cnt_rst = '1' then if RST_I = '1' or (blit_cmd_empty_int = '1' and blit_cmd_empty_int_ack = '1') then
read_cnt <= (others => '0'); blit_cmd_empty_int <= '0';
elsif busin_fifo_dout_vld = '1' then elsif (blit_finish_strobe(2) = '1' and blit_cmd_avail = '0') or (blit_cmd_empty_int = '0' and blit_cmd_empty_int_ack = '1') then
read_cnt <= read_cnt + 1; blit_cmd_empty_int <= '1';
end if; end if;
end if; end if;
end process; end process;
proc_bus_read_finish: proc_irq:
process(CLK_I) process(CLK_I)
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
bus_read_fin <= '0'; if vga_scan_dma_en2 = '0' or bufchg_flag_ack = '1' then
if read_cnt = request_cnt then bufchg_flag <= '0';
bus_read_fin <= '1'; elsif bufchg = '1' then
bufchg_flag <= '1';
end if;
INT_O <= (bufchg_flag and bufchg_irq_en)
or (blit_complete_int and blit_complete_int_en)
or (blit_cmd_empty_int and blit_cmd_empty_int_en);
end if;
end process;
proc_blit_reset:
process(CLK_I)
begin
if rising_edge(CLK_I) then
if RST_I = '1' then
blit_reset <= '1';
blit_request <= '0';
else
blit_reset <= (blit_cmd_avail and not blit_request) or (blit_request and blit_finish_strobe(0));
blit_request <= blit_cmd_avail;
end if; end if;
end if; end if;
end process; end process;
@@ -672,6 +768,7 @@ proc_blit_chunk_counter:
end if; end if;
end process; end process;
-- BLIT buffer low
inst_blitfifo_src0: entity work.fifo_sync inst_blitfifo_src0: entity work.fifo_sync
GENERIC MAP GENERIC MAP
( (
@@ -696,6 +793,7 @@ inst_blitfifo_src0: entity work.fifo_sync
); );
-- BLIT buffer high
inst_blitfifo_src1: entity work.fifo_sync inst_blitfifo_src1: entity work.fifo_sync
GENERIC MAP GENERIC MAP
( (
@@ -726,10 +824,6 @@ inst_blitfifo_src1: entity work.fifo_sync
blitfifo_dout_vld <= not (blitfifo_empty(0) and blitfifo_empty(1)); blitfifo_dout_vld <= not (blitfifo_empty(0) and blitfifo_empty(1));
--------------------------------------------------------------------------------- ---------------------------------------------------------------------------------
blit_reset <= RST_I or (blit_request_set and not blit_request);
---------------------------------------------------------------------------------
blit_dst_be_gen: blit_dst_be_gen:
process(dst_dbg) process(dst_dbg)
begin begin
@@ -790,14 +884,13 @@ blitfifo_re_gen:
empty_read := (blitfifo_empty(0) and fifo_re(0)) or (blitfifo_empty(1) and fifo_re(1)); empty_read := (blitfifo_empty(0) and fifo_re(0)) or (blitfifo_empty(1) and fifo_re(1));
blitfifo_re <= fifo_re and not (empty_read & empty_read); blitfifo_re <= fifo_re and not (empty_read & empty_read);
blitfifo_empty_read <= empty_read; blitfifo_empty_read <= empty_read;
dst_dbg.re <= fifo_re;
end process; end process;
blit_dst_suspend_gen: blit_dst_suspend_gen:
process(CLK_I) process(CLK_I)
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if blit_reset = '1' or CYC_O_blit_src = '1' then if RST_I = '1' or blit_dst_finish = '1' or CYC_O_blit_src = '1' then
blit_dst_suspend <= '0'; blit_dst_suspend <= '0';
elsif blitfifo_read_en = '1' and blitfifo_empty_read = '1' then elsif blitfifo_read_en = '1' and blitfifo_empty_read = '1' then
blit_dst_suspend <= not (blitfifo_empty(0) and blitfifo_empty(1)); blit_dst_suspend <= not (blitfifo_empty(0) and blitfifo_empty(1));
@@ -807,34 +900,33 @@ blit_dst_suspend_gen:
fill_dbg.LAST <= '1' when blit_fill_cnt_x_next = '0' & X"0000_0000" or blit_fill_cnt_x_next(32) = '1' else '0'; fill_dbg.LAST <= '1' when blit_fill_cnt_x_next = '0' & X"0000_0000" or blit_fill_cnt_x_next(32) = '1' else '0';
fill_dbg.PARTIAL <= blit_fill_cnt_x_next(32); fill_dbg.PARTIAL <= blit_fill_cnt_x_next(32);
fill_dbg.N_ODD <= blit_nx(1);
blit_fill_cnt_x_next <= ('0' & blit_fill_cnt_x - 1) when fill_dbg.FIRST = '1' and fill_dbg.UNALIGNED = '1' else ('0' & blit_fill_cnt_x - 2); blit_fill_cnt_x_next <= ('0' & blit_fill_cnt_x - 1) when fill_dbg.FIRST = '1' and fill_dbg.UNALIGNED = '1' else ('0' & blit_fill_cnt_x - 2);
-- BLIT Buffer fill address generator
blitfifo_fill_src_0: blitfifo_fill_src_0:
process(CLK_I) process(CLK_I)
variable addr_next : unsigned(31 downto 0); variable addr_next : unsigned(31 downto 0);
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if blit_reset = '1' then if RST_I = '1' or blit_reset = '1' then
blit_fill_addr <= blit_addr_src_0(2) & "00"; blit_fill_addr <= blit_cmd_addr_src_0(2) & "00";
blit_fill_cnt_x <= blit_nx; blit_fill_cnt_x <= blit_cmd_nx;
blit_fill_cnt_y <= blit_ny; blit_fill_cnt_y <= blit_cmd_ny;
blit_fill_offset <= blit_dimx_src_0(2 downto 0); blit_fill_offset <= blit_cmd_dimx_src_0(2 downto 0);
blit_fill_finish <= blit_const_color_en; blit_fill_finish <= '0';
fill_dbg.FIRST <= not blit_const_color_en; fill_dbg.FIRST <= '1';
fill_dbg.UNALIGNED <= blit_addr_src_0(2); fill_dbg.UNALIGNED <= blit_cmd_addr_src_0(2);
elsif blit_request = '1' then elsif blit_request = '1' and blit_fill_finish = '0' and blit_const_color_en = '0' and blitfifo_write_en = '1' then
if blit_fill_finish = '0' and blitfifo_write_en = '1' then
fill_dbg.FIRST <= '0'; fill_dbg.FIRST <= '0';
if fill_dbg.LAST = '1' then if fill_dbg.LAST = '1' then
if blit_fill_cnt_y < X"0000_0002" then if blit_fill_cnt_y < X"0000_0002" then
blit_fill_finish <= '1'; blit_fill_finish <= '1';
else else
addr_next := (blit_addr_src_0(31 downto 2) & "00") + blit_fill_offset; addr_next := (blit_cmd_addr_src_0(31 downto 2) & "00") + blit_fill_offset;
blit_fill_addr <= addr_next(2 downto 0); blit_fill_addr <= addr_next(2 downto 0);
blit_fill_offset <= blit_fill_offset + blit_dimx_src_0(2 downto 0); blit_fill_offset <= blit_fill_offset + blit_cmd_dimx_src_0(2 downto 0);
blit_fill_cnt_x <= blit_nx; blit_fill_cnt_x <= blit_cmd_nx;
blit_fill_cnt_y <= blit_fill_cnt_y - 1; blit_fill_cnt_y <= blit_fill_cnt_y - 1;
fill_dbg.FIRST <= '1'; fill_dbg.FIRST <= '1';
fill_dbg.UNALIGNED <= addr_next(2); fill_dbg.UNALIGNED <= addr_next(2);
@@ -845,40 +937,38 @@ blitfifo_fill_src_0:
end if; end if;
end if; end if;
end if; end if;
end if;
end process; end process;
src_dbg.LAST <= '1' when blit_src_cnt_x_next = '0' & X"0000_0000" or blit_src_cnt_x_next(32) = '1' else '0'; src_dbg.LAST <= '1' when blit_src_cnt_x_next = '0' & X"0000_0000" or blit_src_cnt_x_next(32) = '1' else '0';
src_dbg.PARTIAL <= blit_src_cnt_x_next(32); src_dbg.PARTIAL <= blit_src_cnt_x_next(32);
src_dbg.N_ODD <= blit_nx(1);
blit_src_addr_next <= ADDR_O_blit_src + 8; blit_src_addr_next <= ADDR_O_blit_src + 8;
blit_src_cnt_x_next <= ('0' & blit_src_cnt_x - 1) when src_dbg.FIRST = '1' and src_dbg.UNALIGNED = '1' else ('0' & blit_src_cnt_x - 2); blit_src_cnt_x_next <= ('0' & blit_src_cnt_x - 1) when src_dbg.FIRST = '1' and src_dbg.UNALIGNED = '1' else ('0' & blit_src_cnt_x - 2);
-- BLIT Source address generator
blit_request_addr_src: blit_request_addr_src:
process(CLK_I) process(CLK_I)
variable addr_next : unsigned(31 downto 0); variable addr_next : unsigned(31 downto 0);
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if blit_reset = '1' then if RST_I = '1' or blit_reset = '1' then
ADDR_O_blit_src <= blit_addr_src_0(31 downto 2) & "00"; ADDR_O_blit_src <= blit_cmd_addr_src_0(31 downto 2) & "00";
blit_src_cnt_x <= blit_nx; blit_src_cnt_x <= blit_cmd_nx;
blit_src_cnt_y <= blit_ny; blit_src_cnt_y <= blit_cmd_ny;
blit_src_offset <= blit_dimx_src_0; blit_src_offset <= blit_cmd_dimx_src_0;
blit_src_finish <= blit_const_color_en; blit_src_finish <= '0';
src_dbg.FIRST <= not blit_const_color_en; src_dbg.FIRST <= '1';
src_dbg.UNALIGNED <= blit_addr_src_0(2); src_dbg.UNALIGNED <= blit_cmd_addr_src_0(2);
elsif blit_request = '1' then elsif blit_request = '1' and blit_src_finish = '0' and blit_const_color_en = '0' and (STB_O_blit_src = '1' and busout_fifo_rdy = '1') then
if blit_src_finish = '0' and (STB_O_blit_src = '1' and busout_fifo_rdy = '1') then
src_dbg.FIRST <= '0'; src_dbg.FIRST <= '0';
if src_dbg.LAST = '1' then if src_dbg.LAST = '1' then
if blit_src_cnt_y < X"0000_0002" then if blit_src_cnt_y < X"0000_0002" then
blit_src_finish <= '1'; blit_src_finish <= '1';
else else
addr_next := (blit_addr_src_0(31 downto 2) & "00") + blit_src_offset; addr_next := (blit_cmd_addr_src_0(31 downto 2) & "00") + blit_src_offset;
ADDR_O_blit_src <= addr_next; ADDR_O_blit_src <= addr_next;
blit_src_offset <= blit_src_offset + blit_dimx_src_0; blit_src_offset <= blit_src_offset + blit_cmd_dimx_src_0;
blit_src_cnt_x <= blit_nx; blit_src_cnt_x <= blit_cmd_nx;
blit_src_cnt_y <= blit_src_cnt_y - 1; blit_src_cnt_y <= blit_src_cnt_y - 1;
src_dbg.FIRST <= '1'; src_dbg.FIRST <= '1';
src_dbg.UNALIGNED <= addr_next(2); src_dbg.UNALIGNED <= addr_next(2);
@@ -889,41 +979,43 @@ blit_request_addr_src:
end if; end if;
end if; end if;
end if; end if;
end if;
end process; end process;
dst_dbg.LAST <= '1' when blit_dst_cnt_x_next = '0' & X"0000_0000" or blit_dst_cnt_x_next(32) = '1' else '0'; dst_dbg.LAST <= '1' when blit_dst_cnt_x_next = '0' & X"0000_0000" or blit_dst_cnt_x_next(32) = '1' else '0';
dst_dbg.PARTIAL <= blit_dst_cnt_x_next(32); dst_dbg.PARTIAL <= blit_dst_cnt_x_next(32);
dst_dbg.N_ODD <= blit_nx(1);
blit_dst_addr_next <= ADDR_O_blit_dst + 8; blit_dst_addr_next <= ADDR_O_blit_dst + 8;
blit_dst_cnt_x_next <= ('0' & blit_dst_cnt_x - 1) when dst_dbg.FIRST = '1' and dst_dbg.UNALIGNED = '1' else ('0' & blit_dst_cnt_x - 2); blit_dst_cnt_x_next <= ('0' & blit_dst_cnt_x - 1) when dst_dbg.FIRST = '1' and dst_dbg.UNALIGNED = '1' else ('0' & blit_dst_cnt_x - 2);
-- BLIT Destination address generator
blit_request_addr_dst: blit_request_addr_dst:
process(CLK_I) process(CLK_I)
variable addr_next : unsigned(31 downto 0); variable addr_next : unsigned(31 downto 0);
begin begin
if rising_edge(CLK_I) then if rising_edge(CLK_I) then
if blit_reset = '1' then blit_finish_strobe <= blit_finish_strobe(blit_finish_strobe'left-1 downto 0) & '0';
ADDR_O_blit_dst <= blit_addr_dst(31 downto 2) & "00"; if RST_I = '1' then
blit_dst_cnt_x <= blit_nx; blit_finish_strobe <= (others =>'0');
blit_dst_cnt_y <= blit_ny; elsif blit_reset = '1' then
blit_dst_offset <= blit_dimx_dst; ADDR_O_blit_dst <= blit_cmd_addr_dst(31 downto 2) & "00";
blit_dst_cnt_x <= blit_cmd_nx;
blit_dst_cnt_y <= blit_cmd_ny;
blit_dst_offset <= blit_cmd_dimx_dst;
blit_dst_finish <= '0'; blit_dst_finish <= '0';
dst_dbg.FIRST <= '1'; dst_dbg.FIRST <= '1';
dst_dbg.UNALIGNED <= blit_addr_dst(2); dst_dbg.UNALIGNED <= blit_cmd_addr_dst(2);
elsif blit_request = '1' then elsif blit_request = '1' and blit_dst_finish = '0' and (STB_O_blit_dst = '1' and busout_fifo_rdy = '1') then
if blit_dst_finish = '0' and (STB_O_blit_dst = '1' and busout_fifo_rdy = '1') then
dst_dbg.FIRST <= '0'; dst_dbg.FIRST <= '0';
if dst_dbg.LAST = '1' then if dst_dbg.LAST = '1' then
if blit_dst_cnt_y < X"0000_0002" then if blit_dst_cnt_y < X"0000_0002" then
blit_dst_finish <= '1'; blit_dst_finish <= '1';
blit_finish_strobe(0) <= '1';
else else
addr_next := (blit_addr_dst(31 downto 2) & "00") + blit_dst_offset; addr_next := (blit_cmd_addr_dst(31 downto 2) & "00") + blit_dst_offset;
ADDR_O_blit_dst <= addr_next; ADDR_O_blit_dst <= addr_next;
blit_dst_offset <= blit_dst_offset + blit_dimx_dst; blit_dst_offset <= blit_dst_offset + blit_cmd_dimx_dst;
blit_dst_cnt_x <= blit_nx; blit_dst_cnt_x <= blit_cmd_nx;
blit_dst_cnt_y <= blit_dst_cnt_y - 1; blit_dst_cnt_y <= blit_dst_cnt_y - 1;
dst_dbg.FIRST <= '1'; dst_dbg.FIRST <= '1';
dst_dbg.UNALIGNED <= addr_next(2); dst_dbg.UNALIGNED <= addr_next(2);
@@ -934,10 +1026,10 @@ blit_request_addr_dst:
end if; end if;
end if; end if;
end if; end if;
end if;
end process; end process;
---------------------------------------------------------------------------------
-- Character generator
--------------------------------------------------------------------------------- ---------------------------------------------------------------------------------
inst_char_gen : entity work.char_gen inst_char_gen : entity work.char_gen
GENERIC MAP GENERIC MAP
@@ -978,7 +1070,9 @@ inst_char_gen : entity work.char_gen
scan_rdy <= stat_hready and stat_vready; scan_rdy <= stat_hready and stat_vready;
cg_en <= stat_scan; cg_en <= stat_scan;
---------------------------------------------------------------------------------
-- JBUS registers
---------------------------------------------------------------------------------
registers_read: registers_read:
process(CLK_I) process(CLK_I)
begin begin
@@ -996,11 +1090,13 @@ registers_read:
SDAT_O(1) <= vga_scan_dma_en; SDAT_O(1) <= vga_scan_dma_en;
SDAT_O(2) <= bufchg_irq_en; SDAT_O(2) <= bufchg_irq_en;
SDAT_O(3) <= bufchg_flag; SDAT_O(3) <= bufchg_flag;
SDAT_O(8) <= blit_request; SDAT_O(8) <= blit_cmd_bsy;
SDAT_O(9) <= blit_complete; SDAT_O(9) <= blit_complete_int;
SDAT_O(10) <= blit_complete_inten; SDAT_O(10) <= blit_complete_int_en;
SDAT_O(23 downto 20) <= blit_comb_sel; SDAT_O(11) <= blit_cmd_empty_int;
SDAT_O(19 downto 16) <= blit_func_sel; SDAT_O(12) <= blit_cmd_empty_int_en;
SDAT_O(23 downto 16) <= blit_reg_func(7 downto 0);
SDAT_O(31) <= blit_request; -- RO: Blitter is active. Blit jobs avaliable in CMD-FIFO
-- sys_vga_ascii -- sys_vga_ascii
-- 0x04 -- 0x04
@@ -1040,39 +1136,42 @@ registers_read:
-- sys_blit_descr_src_0 -- sys_blit_descr_src_0
-- 0x20 -- 0x20
when "01000" => when "01000" =>
SDAT_O <= blit_addr_src_0; SDAT_O <= blit_reg_addr_src_0;
-- 0x28 -- 0x28
when "01010" => when "01010" =>
SDAT_O <= blit_dimx_src_0; SDAT_O <= blit_reg_dimx_src_0;
-- sys_blit_descr_src_1 -- sys_blit_descr_src_1
-- 0x30 -- 0x30
when "01100" => when "01100" =>
SDAT_O <= blit_addr_src_1; SDAT_O <= blit_reg_addr_src_1;
-- 0x38 -- 0x38
when "01110" => when "01110" =>
SDAT_O <= blit_dimx_src_1; SDAT_O <= blit_reg_dimx_src_1;
-- sys_blit_descr_dst -- sys_blit_descr_dst
-- 0x50 -- 0x50
when "10100" => when "10100" =>
SDAT_O <= blit_addr_dst; SDAT_O <= blit_reg_addr_dst;
when "10101" =>
SDAT_O <= blit_reg_const_color;
-- 0x58 -- 0x58
when "10110" => when "10110" =>
SDAT_O <= blit_dimx_dst; SDAT_O <= blit_reg_dimx_dst;
-- sys_blit_nx -- sys_blit_reg_nx
-- 0x60 -- 0x60
when "11000" => when "11000" =>
SDAT_O <= blit_nx; SDAT_O <= blit_reg_nx;
-- sys_blit_ny -- sys_blit_reg_ny
-- 0x64 -- 0x64
when "11001" => when "11001" =>
SDAT_O <= blit_ny; SDAT_O <= blit_reg_ny;
when others => null; when others => null;
end case; end case;
@@ -1080,7 +1179,6 @@ registers_read:
end if; end if;
end process; end process;
blit_const_color_en <= blit_func_sel(0);
registers_write: registers_write:
process(CLK_I) process(CLK_I)
@@ -1093,19 +1191,25 @@ registers_write:
cg_clr_line <= '0'; cg_clr_line <= '0';
bufchg_flag_ack <= '0'; bufchg_flag_ack <= '0';
blit_request_set <= '0'; blit_request_set <= '0';
blit_complete_ack <= '0'; blit_complete_int_ack <= '0';
blit_cmd_empty_int_ack <= '0';
if RST_I = '1' then if RST_I = '1' then
cg_din <= (others => '0'); cg_din <= (others => '0');
vga_scan_dma_en <= '0'; vga_scan_dma_en <= '0';
bufchg_irq_en <= '0'; bufchg_irq_en <= '0';
blit_complete_inten <= '0'; blit_complete_int_en <= '0';
blit_func_sel <= (others => '0'); blit_cmd_empty_int_en <= '0';
blit_comb_sel <= (others => '0'); blit_reg_func <= (others => '0');
host_fb_front <= X"40000000"; blit_reg_addr_src_0 <= (others => '0');
host_fb_back <= X"40010000"; blit_reg_addr_src_1 <= (others => '0');
blit_addr_src_0 <= X"40000000"; blit_reg_dimx_src_0 <= (others => '0');
blit_addr_src_1 <= X"40020000"; blit_reg_dimx_src_1 <= (others => '0');
blit_addr_dst <= X"40040000"; blit_reg_addr_dst <= (others => '0');
blit_reg_dimx_dst <= (others => '0');
blit_reg_nx <= (others => '0');
blit_reg_ny <= (others => '0');
host_fb_front <= (others => '0');
host_fb_back <= (others => '0');
cg_color <= (X"FF", X"FF", X"FF", X"FF"); cg_color <= (X"FF", X"FF", X"FF", X"FF");
elsif (STB_I and CYC_I and WE_I) = '1' then elsif (STB_I and CYC_I and WE_I) = '1' then
case ADDR_I(6 downto 2) is case ADDR_I(6 downto 2) is
@@ -1119,10 +1223,11 @@ registers_write:
cg_clr_screen <= SDAT_I(4); cg_clr_screen <= SDAT_I(4);
cg_clr_line <= SDAT_I(5); cg_clr_line <= SDAT_I(5);
blit_request_set <= SDAT_I(8); blit_request_set <= SDAT_I(8);
blit_complete_ack <= SDAT_I(9); blit_complete_int_ack <= SDAT_I(9);
blit_complete_inten <= SDAT_I(10); blit_complete_int_en <= SDAT_I(10);
blit_func_sel <= SDAT_I(19 downto 16); blit_cmd_empty_int_ack <= SDAT_I(11);
blit_comb_sel <= SDAT_I(23 downto 20); blit_cmd_empty_int_en <= SDAT_I(12);
blit_reg_func <= SDAT_I(23 downto 16);
-- sys_vga_ascii -- sys_vga_ascii
-- 0x04 -- 0x04
@@ -1161,44 +1266,44 @@ registers_write:
-- sys_blit_descr_src_0 -- sys_blit_descr_src_0
-- 0x20 -- 0x20
when "01000" => when "01000" =>
blit_addr_src_0 <= SDAT_I(31 downto 0); blit_reg_addr_src_0 <= SDAT_I(31 downto 0);
-- 0x28 -- 0x28
when "01010" => when "01010" =>
blit_dimx_src_0 <= SDAT_I(31 downto 3) & "000"; blit_reg_dimx_src_0 <= SDAT_I(31 downto 3) & "000";
-- sys_blit_descr_src_1 -- sys_blit_descr_src_1
-- 0x30 -- 0x30
when "01100" => when "01100" =>
blit_addr_src_1 <= SDAT_I(31 downto 0); blit_reg_addr_src_1 <= SDAT_I(31 downto 0);
-- 0x38 -- 0x38
when "01110" => when "01110" =>
blit_dimx_src_1 <= SDAT_I(31 downto 3) & "000"; blit_reg_dimx_src_1 <= SDAT_I(31 downto 3) & "000";
-- sys_blit_descr_dst -- sys_blit_descr_dst
-- 0x50 -- 0x50
when "10100" => when "10100" =>
blit_addr_dst <= SDAT_I(31 downto 0); blit_reg_addr_dst <= SDAT_I(31 downto 0);
-- sys_blit_const_color -- sys_blit_reg_const_color
-- 0x54 -- 0x54
when "10101" => when "10101" =>
blit_const_color <= SDAT_I(31 downto 0); blit_reg_const_color <= SDAT_I(31 downto 0);
-- 0x58 -- 0x58
when "10110" => when "10110" =>
blit_dimx_dst <= SDAT_I(31 downto 3) & "000"; blit_reg_dimx_dst <= SDAT_I(31 downto 3) & "000";
-- sys_blit_nx -- sys_blit_reg_nx
-- 0x60 -- 0x60
when "11000" => when "11000" =>
blit_nx <= SDAT_I; blit_reg_nx <= SDAT_I;
-- sys_blit_ny -- sys_blit_reg_ny
-- 0x64 -- 0x64
when "11001" => when "11001" =>
blit_ny <= SDAT_I; blit_reg_ny <= SDAT_I;
when others => null; when others => null;
end case; end case;