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;

  -- RISE OPCODES --

  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_SUB_IMM, OPCODE_NEG, OPCODE_ARS, OPCODE_ALS, OPCODE_AND, OPCODE_NOT,

                    OPCODE_EOR, OPCODE_LS, OPCODE_RS, OPCODE_JMP, OPCODE_TST, OPCODE_NOP);

  -- CONDITIONALS --

  type COND_T is (COND_UNCONDITIONAL, COND_NOT_ZERO, COND_ZERO, COND_CARRY, COND_NEGATIVE,

                  COND_OVERFLOW, 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 result : OPCODE_T;

    variable v_tmp : CONST_OPCODE_T;

  begin  -- svector2opcode

    v_tmp := v;

    case v_tmp is

      when CONST_OPCODE_LD_IMM          => result := OPCODE_LD_IMM;

      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_MS      => result := OPCODE_LD_DISP_MS;

      when CONST_OPCODE_LD_REG          => result := OPCODE_LD_REG;

      when CONST_OPCODE_ST_DISP         => result := OPCODE_ST_DISP;

      when CONST_OPCODE_ADD             => result := OPCODE_ADD;

      when CONST_OPCODE_ADD_IMM         => result := OPCODE_ADD_IMM;

      when CONST_OPCODE_SUB             => result := OPCODE_SUB;

      when CONST_OPCODE_SUB_IMM         => result := OPCODE_SUB_IMM;

      when CONST_OPCODE_NEG             => result := OPCODE_NEG;

      when CONST_OPCODE_ARS             => result := OPCODE_ARS;

      when CONST_OPCODE_ALS             => result := OPCODE_ALS;

      when CONST_OPCODE_AND             => result := OPCODE_AND;

      when CONST_OPCODE_NOT             => result := OPCODE_NOT;

      when CONST_OPCODE_EOR             => result := OPCODE_EOR;

      when CONST_OPCODE_LS              => result := OPCODE_LS;

      when CONST_OPCODE_RS              => result := OPCODE_RS;

      when CONST_OPCODE_JMP             => result := OPCODE_JMP;

      when CONST_OPCODE_TST             => result := OPCODE_TST;

      when CONST_OPCODE_NOP             => result := OPCODE_NOP;

      when others                       => result := OPCODE_NOP;

    end case;

    return result;

  end svector2opcode;

-- purpose: converts std_logic_vector to enum type

  function svector2cond (v : std_logic_vector) return COND_T is

    variable result : COND_T;

    variable v_tmp : CONST_COND_T;

  begin  -- svector2cond

    v_tmp := v;

    case v_tmp is

      when CONST_COND_UNCONDITIONAL     => result := COND_UNCONDITIONAL;

      when CONST_COND_NOT_ZERO          => result := COND_NOT_ZERO;

      when CONST_COND_ZERO              => result := COND_ZERO;

      when CONST_COND_CARRY             => result := COND_CARRY;

      when CONST_COND_NEGATIVE          => result := COND_NEGATIVE;

      when CONST_COND_OVERFLOW          => result := COND_OVERFLOW;

      when CONST_COND_ZERO_NEGATIVE     => result := COND_ZERO_NEGATIVE;

      when others                       => result := COND_UNCONDITIONAL;

    end case;

    return result;

  end svector2cond;

end RISE_PACK_SPECIFIC;