Subversion Repositories pcie_ds_dma

-------------------------------------------------------------------------------
--
-- Title       : root_memory_pkg
-- Author      : Dmitry Smekhov
-- Company     : Instrumental Systems
-- E-mail      : dsmv@insys.ru
--
-- Version     : 1.0
--
-------------------------------------------------------------------------------
--
-- Description : 
--
-------------------------------------------------------------------------------
 
library IEEE;
use IEEE.STD_LOGIC_1164.all;
use ieee.std_logic_arith.all;	  
use ieee.std_logic_unsigned.all;	 
use ieee.std_logic_textio.all;
 
use std.textio.all;
use std.textio;
 
 
package	root_memory_pkg is		  
 
type type_root_mem32 is array (natural range<>) of integer;	
 
shared variable root_mem_0x10	: type_root_mem32( 16383 downto 0 );  	-- адреса 0x100000 - 0x10FFFF;
shared variable root_mem_0x80	: type_root_mem32( 16383 downto 0 );	-- адреса 0x800000 - 0x80FFFF;
 
--! Размер пакета COMPLETION в 32-х разрядных словах 
shared variable	memory_request_completion_size	:integer:=16;
 
--! тип одного запроса к памяти 
type type_memory_request_item is record
 
	tag				: std_logic_vector( 7 downto 0 );  		--! идентификатор запроса 
	adr_low			: std_logic_vector( 31 downto 0 ); 		--! младшие разряды адреса 
	adr_high		: std_logic_vector( 31 downto 0 ); 		--! старшие разряды адреса
	size			: integer;                         		--! размер 
	requester_id	: std_logic_vector( 15 downto 0 ); 		--! идентификатор отправителя запроса
 
end record;	
 
 
 
signal			mem64r_request			: std_logic:='0';	--! событие запроса 
 
 
--! запись запроса в очередь
procedure	memory_request_write
	(
		req_item		: in type_memory_request_item	--! запрос
	);
 
--! извлечение запроса из очереди 	
procedure	memory_request_read
	(						 
		req_ready		: out integer;						--! 1 - есть запрос
		req_item		: out type_memory_request_item		--! запрос 
	);
 
 
--! запись данных в память 
procedure	memory_write
	(						 
		adr_high		: in std_logic_vector( 31 downto 0 );	--! 1 - старшие разряды адреса
		adr_low			: in std_logic_vector( 31 downto 0 );	--! 1 - старшие разряды адреса
		data			: std_logic_vector( 31 downto 0 )		--! данные для записи в память
	);
 
 
 
end package;	
 
package body root_memory_pkg is
 
 
constant	memory_request_size			: integer:=64;	--! размер очереди запросов
--! типа очереди запросов на чтение 
type type_memory_request_array is array( memory_request_size-1 downto 0 ) of type_memory_request_item;
 
-- Очередь запросов 
shared variable	memory_request_array	: type_memory_request_array;	--! данные запроса 
shared variable memory_request_index_wr	: integer:=-1;					--! индекс записи в память запросов 
shared variable memory_request_index_rd	: integer:=-1;					--! индекс чтения из памяти запросов
 
 
--! переход к следующему элементу 	
function next_index( index : in integer ) return integer is
 
	variable	ret		: integer;
 
begin
 
	ret := index + 1;
	if( ret=memory_request_size ) then
		ret:=0;
	end if;
 
	return ret;
 
end next_index;
 
--! запись запроса в очередь
procedure	memory_request_write
	(
		req_item		: in type_memory_request_item	--! запрос
	) is
 
variable	n	: integer;
 
begin
 
	n:=next_index( memory_request_index_wr );
 
	memory_request_array( n ) := req_item;
 
	memory_request_index_wr:=n;
 
 
end memory_request_write;
 
--! извлечение запроса из очереди 	
procedure	memory_request_read
	(						 
		req_ready		: out integer;						--! 1 - есть запрос
		req_item		: out type_memory_request_item		--! запрос 
	) is
 
variable	n		: integer;	
variable	ret		: type_memory_request_array;
 
begin			   
 
	if( memory_request_index_wr=memory_request_index_rd ) then
		req_ready := 0;
	else
		n:=next_index( memory_request_index_rd );
		req_item:=memory_request_array( n );
		req_ready := 1;
		memory_request_index_rd :=n;
	end if;
 
end memory_request_read;	
 
 
--! запись данных в память 
procedure	memory_write
	(						 
		adr_high		: in std_logic_vector( 31 downto 0 );	--! 1 - старшие разряды адреса
		adr_low			: in std_logic_vector( 31 downto 0 );	--! 1 - старшие разряды адреса
		data			: std_logic_vector( 31 downto 0 )		--! данные для записи в память
	) is
 
variable	adr_h		: integer;
variable	adr_l		: integer;
variable	datai		: integer;
variable	index		: integer;
variable 	str 	: LINE;		-- pointer to string
begin
 
	adr_h :=  conv_integer( adr_high );
	adr_l := conv_integer( adr_low );
 
	if( adr_h=0 ) then
		if( adr_l>=16#100000# and adr_l<=16#10FFFF# ) then
			index:=adr_l-16#100000#;
			index:=index/4;
			root_mem_0x10(index):= conv_integer( data );
 
		write( str, string'("adr_l: " )); hwrite( str, adr_low ); write( str, string'(" index: " )); write( str, index ); write( str, string'(" : " ));  hwrite( str, data ); writeline( output, str );
 
		elsif( adr_l>=16#800000# and adr_l<=16#80FFFF# ) then
			index:=adr_l-16#800000#;
			index:=index/4;
			root_mem_0x80(index):= conv_integer( data );
		end if;		
	end if;
 
 
end memory_write;
 
 
end package body;