-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
-- File: rise_pack.vhd
|
-- File: rise_pack.vhd
|
-- Author: Jakob Lechner, Urban Stadler, Harald Trinkl, Christian Walter
|
-- Author: Jakob Lechner, Urban Stadler, Harald Trinkl, Christian Walter
|
-- Created: 2006-11-29
|
-- Created: 2006-11-29
|
-- Last updated: 2006-11-29
|
-- Last updated: 2006-11-29
|
|
|
-- Description:
|
-- Description:
|
-- Package for RISE project.
|
-- Package for RISE project.
|
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
|
|
|
|
library IEEE;
|
library IEEE;
|
use IEEE.STD_LOGIC_1164.all;
|
use IEEE.STD_LOGIC_1164.all;
|
use IEEE.STD_LOGIC_ARITH.all;
|
use IEEE.STD_LOGIC_ARITH.all;
|
use work.RISE_CONST_PACK.all;
|
use work.RISE_CONST_PACK.all;
|
|
|
package RISE_PACK_SPECIFIC is
|
package RISE_PACK_SPECIFIC is
|
|
|
constant OPCODE_WIDTH : integer := CONST_OPCODE_WIDTH;
|
constant OPCODE_WIDTH : integer := CONST_OPCODE_WIDTH;
|
constant COND_WIDTH : integer := CONST_COND_WIDTH;
|
constant COND_WIDTH : integer := CONST_COND_WIDTH;
|
|
|
-- RISE OPCODES --
|
-- RISE OPCODES --
|
type OPCODE_T is (OPCODE_LD_IMM, OPCODE_LD_IMM_HB, OPCODE_LD_DISP, OPCODE_LD_DISP_MS,
|
type OPCODE_T is (OPCODE_LD_IMM, OPCODE_LD_IMM_HB, OPCODE_LD_DISP, OPCODE_LD_DISP_MS,
|
OPCODE_LD_REG, OPCODE_ST_DISP, OPCODE_ADD, OPCODE_ADD_IMM, OPCODE_SUB,
|
OPCODE_LD_REG, OPCODE_ST_DISP, OPCODE_ADD, OPCODE_ADD_IMM, OPCODE_SUB,
|
OPCODE_SUB_IMM, OPCODE_NEG, OPCODE_ARS, OPCODE_ALS, OPCODE_AND, OPCODE_NOT,
|
OPCODE_SUB_IMM, OPCODE_NEG, OPCODE_ARS, OPCODE_ALS, OPCODE_AND, OPCODE_NOT,
|
OPCODE_EOR, OPCODE_LS, OPCODE_RS, OPCODE_JMP, OPCODE_TST, OPCODE_NOP);
|
OPCODE_EOR, OPCODE_LS, OPCODE_RS, OPCODE_JMP, OPCODE_TST, OPCODE_NOP);
|
|
|
-- CONDITIONALS --
|
-- CONDITIONALS --
|
type COND_T is (COND_UNCONDITIONAL, COND_NOT_ZERO, COND_ZERO, COND_CARRY, COND_NEGATIVE,
|
type COND_T is (COND_UNCONDITIONAL, COND_NOT_ZERO, COND_ZERO, COND_CARRY, COND_NEGATIVE,
|
COND_OVERFLOW, COND_ZERO_NEGATIVE);
|
COND_OVERFLOW, COND_ZERO_NEGATIVE);
|
|
|
function svector2opcode (v : std_logic_vector) return OPCODE_T;
|
function svector2opcode (v : std_logic_vector) return OPCODE_T;
|
function svector2cond (v : std_logic_vector) return COND_T;
|
function svector2cond (v : std_logic_vector) return COND_T;
|
end RISE_PACK_SPECIFIC;
|
end RISE_PACK_SPECIFIC;
|
|
|
package body RISE_PACK_SPECIFIC is
|
package body RISE_PACK_SPECIFIC is
|
|
|
-- purpose: converts std_logic_vector to enum type
|
-- purpose: converts std_logic_vector to enum type
|
function svector2opcode (v : std_logic_vector) return OPCODE_T is
|
function svector2opcode (v : std_logic_vector) return OPCODE_T is
|
variable result : OPCODE_T;
|
variable result : OPCODE_T;
|
variable v_tmp : CONST_OPCODE_T;
|
variable v_tmp : CONST_OPCODE_T;
|
begin -- svector2opcode
|
begin -- svector2opcode
|
v_tmp := v;
|
v_tmp := v;
|
case v_tmp is
|
case v_tmp is
|
when CONST_OPCODE_LD_IMM => result := OPCODE_LD_IMM;
|
when CONST_OPCODE_LD_IMM => result := OPCODE_LD_IMM;
|
when CONST_OPCODE_LD_IMM_HB => result := OPCODE_LD_IMM_HB;
|
when CONST_OPCODE_LD_IMM_HB => result := OPCODE_LD_IMM_HB;
|
when CONST_OPCODE_LD_DISP => result := OPCODE_LD_DISP;
|
when CONST_OPCODE_LD_DISP => result := OPCODE_LD_DISP;
|
when CONST_OPCODE_LD_DISP_MS => result := OPCODE_LD_DISP_MS;
|
when CONST_OPCODE_LD_DISP_MS => result := OPCODE_LD_DISP_MS;
|
when CONST_OPCODE_LD_REG => result := OPCODE_LD_REG;
|
when CONST_OPCODE_LD_REG => result := OPCODE_LD_REG;
|
when CONST_OPCODE_ST_DISP => result := OPCODE_ST_DISP;
|
when CONST_OPCODE_ST_DISP => result := OPCODE_ST_DISP;
|
when CONST_OPCODE_ADD => result := OPCODE_ADD;
|
when CONST_OPCODE_ADD => result := OPCODE_ADD;
|
when CONST_OPCODE_ADD_IMM => result := OPCODE_ADD_IMM;
|
when CONST_OPCODE_ADD_IMM => result := OPCODE_ADD_IMM;
|
when CONST_OPCODE_SUB => result := OPCODE_SUB;
|
when CONST_OPCODE_SUB => result := OPCODE_SUB;
|
when CONST_OPCODE_SUB_IMM => result := OPCODE_SUB_IMM;
|
when CONST_OPCODE_SUB_IMM => result := OPCODE_SUB_IMM;
|
when CONST_OPCODE_NEG => result := OPCODE_NEG;
|
when CONST_OPCODE_NEG => result := OPCODE_NEG;
|
when CONST_OPCODE_ARS => result := OPCODE_ARS;
|
when CONST_OPCODE_ARS => result := OPCODE_ARS;
|
when CONST_OPCODE_ALS => result := OPCODE_ALS;
|
when CONST_OPCODE_ALS => result := OPCODE_ALS;
|
when CONST_OPCODE_AND => result := OPCODE_AND;
|
when CONST_OPCODE_AND => result := OPCODE_AND;
|
when CONST_OPCODE_NOT => result := OPCODE_NOT;
|
when CONST_OPCODE_NOT => result := OPCODE_NOT;
|
when CONST_OPCODE_EOR => result := OPCODE_EOR;
|
when CONST_OPCODE_EOR => result := OPCODE_EOR;
|
when CONST_OPCODE_LS => result := OPCODE_LS;
|
when CONST_OPCODE_LS => result := OPCODE_LS;
|
when CONST_OPCODE_RS => result := OPCODE_RS;
|
when CONST_OPCODE_RS => result := OPCODE_RS;
|
when CONST_OPCODE_JMP => result := OPCODE_JMP;
|
when CONST_OPCODE_JMP => result := OPCODE_JMP;
|
when CONST_OPCODE_TST => result := OPCODE_TST;
|
when CONST_OPCODE_TST => result := OPCODE_TST;
|
when CONST_OPCODE_NOP => result := OPCODE_NOP;
|
when CONST_OPCODE_NOP => result := OPCODE_NOP;
|
when others => result := OPCODE_NOP;
|
when others => result := OPCODE_NOP;
|
end case;
|
end case;
|
return result;
|
return result;
|
end svector2opcode;
|
end svector2opcode;
|
|
|
-- purpose: converts std_logic_vector to enum type
|
-- purpose: converts std_logic_vector to enum type
|
function svector2cond (v : std_logic_vector) return COND_T is
|
function svector2cond (v : std_logic_vector) return COND_T is
|
variable result : COND_T;
|
variable result : COND_T;
|
variable v_tmp : CONST_COND_T;
|
variable v_tmp : CONST_COND_T;
|
begin -- svector2cond
|
begin -- svector2cond
|
v_tmp := v;
|
v_tmp := v;
|
case v_tmp is
|
case v_tmp is
|
when CONST_COND_UNCONDITIONAL => result := COND_UNCONDITIONAL;
|
when CONST_COND_UNCONDITIONAL => result := COND_UNCONDITIONAL;
|
when CONST_COND_NOT_ZERO => result := COND_NOT_ZERO;
|
when CONST_COND_NOT_ZERO => result := COND_NOT_ZERO;
|
when CONST_COND_ZERO => result := COND_ZERO;
|
when CONST_COND_ZERO => result := COND_ZERO;
|
when CONST_COND_CARRY => result := COND_CARRY;
|
when CONST_COND_CARRY => result := COND_CARRY;
|
when CONST_COND_NEGATIVE => result := COND_NEGATIVE;
|
when CONST_COND_NEGATIVE => result := COND_NEGATIVE;
|
when CONST_COND_OVERFLOW => result := COND_OVERFLOW;
|
when CONST_COND_OVERFLOW => result := COND_OVERFLOW;
|
when CONST_COND_ZERO_NEGATIVE => result := COND_ZERO_NEGATIVE;
|
when CONST_COND_ZERO_NEGATIVE => result := COND_ZERO_NEGATIVE;
|
when others => result := COND_UNCONDITIONAL;
|
when others => result := COND_UNCONDITIONAL;
|
end case;
|
end case;
|
return result;
|
return result;
|
end svector2cond;
|
end svector2cond;
|
|
|
end RISE_PACK_SPECIFIC;
|
end RISE_PACK_SPECIFIC;
|
|
|
|
|