modified: interfaces according to SP operation
[calu.git] / cpu / src / extension_pkg.vhd
index daa23061e03396faad20922c138bcb5e33e2a1ce..5d3eb12d55f2744a6d250888884a68282c415f19 100644 (file)
@@ -4,19 +4,19 @@ use IEEE.std_logic_1164.all;
 use IEEE.numeric_std.all;
 
 use work.common_pkg.all;
-use work.alu_pkg.all;
+--use work.alu_pkg.all;
 --use work.gpm_pkg.all;
 
 package extension_pkg is
 
 constant EXTWORDL : integer := log2c(4);
 constant BYTEADDR : integer := log2c(4);
-constant PCOUNT   : integer := log2c(4);
+constant PCOUNT   : integer := 3;
 constant EXTWORDS : integer := EXTWORDL + BYTEADDR;
 
 subtype ext_addrid_t  is std_logic_vector(gp_register_t'high - EXTWORDS downto 0);
 subtype ext_addr_t    is std_logic_vector((gp_register_t'high-BYTEADDR) downto 0);    
-subtype pointer_count is std_logic_vector(PCOUNT-1 downto 0);   
+subtype paddr_t is std_logic_vector(log2c(PCOUNT)-1 downto 0);   
 
         type extmod_rec is record
                 sel   : std_logic;
@@ -27,7 +27,12 @@ subtype pointer_count is std_logic_vector(PCOUNT-1 downto 0);
         end record; 
 
 
-
+type status_rec is record
+               zero : std_logic;
+               oflo : std_logic;
+               sign : std_logic;
+               carry : std_logic;
+end record;
 
 constant EXT_7SEG_ADDR:   ext_addrid_t := x"FFFFFFA";
 constant EXT_EXTMEM_ADDR: ext_addrid_t := x"FFFFFFB";
@@ -48,17 +53,15 @@ constant EXT_GPMP_ADDR:    ext_addrid_t := x"FFFFFFF";
                        reset : in std_logic;
                -- general extension interface                  
                        ext_reg  : in extmod_rec;
-                       data_out : out gp_register_t;
+                        data_out : out gp_register_t;
                -- Input
-                       alu_nxt : in alu_result_rec;
+                       psw_nxt : in status_rec;
                        paddr   : in paddr_t;
                        pinc    : in std_logic;
                        pwr_en  : in std_logic;
                -- Ouput
                         psw     : out status_rec;
                         pval    : out gp_register_t
-
-                       
                );
  end component extension_gpm;