Subversion Repositories rise

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