--! @file
|
--! @file
|
--! @brief 2:1 CPU global Definitions
|
--! @brief 2:1 CPU global Definitions
|
|
|
--! @mainpage
|
--! @mainpage
|
--! <H1>Main document of the OpenCPU32 project</H1>\n
|
--! <H1>Main document of the OpenCPU32 project</H1>\n
|
--! <H2>Features</H2>
|
--! <H2>Features</H2>
|
|
|
--! Use standard library
|
--! Use standard library
|
library IEEE;
|
library ieee;
|
use IEEE.STD_LOGIC_1164.all;
|
use ieee.STD_LOGIC_1164.all;
|
|
use ieee.std_logic_unsigned.all;
|
|
use ieee.std_logic_arith.all;
|
|
|
package pkgOpenCPU32 is
|
package pkgOpenCPU32 is
|
|
|
--! Declare constants, enums, functions used by the design
|
--! Declare constants, enums, functions used by the design
|
constant nBits : integer := 32;
|
constant nBits : integer := 32;
|
|
constant instructionSize : integer := nBits;
|
|
|
--! Number of general registers (r0..r15)
|
--! Number of general registers (r0..r15)
|
constant numGenRegs : integer := 16;
|
constant numGenRegs : integer := 16;
|
|
|
type aluOps is (alu_pass, alu_passB, alu_sum, alu_sub, alu_inc, alu_dec, alu_mul, alu_or, alu_and,
|
type aluOps is (alu_pass, alu_passB, alu_sum, alu_sub, alu_inc, alu_dec, alu_mul, alu_or, alu_and,
|
alu_xor, alu_not, alu_shfLt, alu_shfRt, alu_roLt, alu_roRt);
|
alu_xor, alu_not, alu_shfLt, alu_shfRt, alu_roLt, alu_roRt);
|
type typeEnDis is (enable, disable);
|
type typeEnDis is (enable, disable);
|
type generalRegisters is (r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15);
|
type generalRegisters is (r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15);
|
type dpMuxInputs is (fromMemory, fromImediate, fromRegFileA, fromRegFileB, fromAlu);
|
type dpMuxInputs is (fromMemory, fromImediate, fromRegFileA, fromRegFileB, fromAlu);
|
|
type controlUnitStates is (initial, fetch, decode, execute, executing);
|
|
|
function reg2Num (a: generalRegisters) return integer;
|
function reg2Num (a: generalRegisters) return integer;
|
function Num2reg (a: integer) return generalRegisters;
|
function Num2reg (a: integer) return generalRegisters;
|
function muxPos( a: dpMuxInputs) return std_logic_vector;
|
function muxPos( a: dpMuxInputs) return std_logic_vector;
|
|
|
|
-- Opcodes
|
|
subtype opcodes is std_logic_vector(5 downto 0);
|
|
|
|
-- Each instruction will take 32 bits
|
|
-- Tutorial on using records.. (http://vhdlguru.blogspot.com.br/2010/02/arrays-and-records-in-vhdl.html)
|
|
type instructionType is record
|
|
opcode : std_logic_vector(5 downto 0);
|
|
reg1 : std_logic_vector(3 downto 0);
|
|
reg2 : std_logic_vector(3 downto 0);
|
|
imm : std_logic_vector(15 downto 0); -- Max imediate value (16 bits)
|
|
end record;
|
|
|
|
|
|
-- Data movement
|
|
constant mov_reg : opcodes := conv_std_logic_vector(0,6); -- Move data between registers
|
|
constant mov_val : opcodes := conv_std_logic_vector(1,6); -- Move data from imediate value to a register
|
|
constant stom_reg : opcodes := conv_std_logic_vector(2,6); -- Store a value in memory coming from a register
|
|
constant stom_val : opcodes := conv_std_logic_vector(3,6); -- Store a value in memory coming from imediate
|
|
constant ld_reg : opcodes := conv_std_logic_vector(4,6); -- Load a value from memory into a register
|
|
constant ld_val : opcodes := conv_std_logic_vector(5,6); -- Load a value from memoru into another address in memory
|
|
|
|
-- Jump instructions
|
|
constant jmp_val : opcodes := conv_std_logic_vector(6,6); -- Jump (PC <= Val)
|
|
constant jmpr_val : opcodes := conv_std_logic_vector(7,6); -- Jump relative (PC <= PC + Val)
|
|
constant jz_val : opcodes := conv_std_logic_vector(8,6); -- Jump if zero
|
|
constant jzr_val : opcodes := conv_std_logic_vector(9,6); -- Jump if zero relative
|
|
constant jnz_val : opcodes := conv_std_logic_vector(10,6); -- Jump if not zero
|
|
constant jnzr_val : opcodes := conv_std_logic_vector(11,6); -- Jump if not zero relative
|
|
constant call_reg : opcodes := conv_std_logic_vector(12,6); -- Jump to address (Save return value on the stack
|
|
constant ret_reg : opcodes := conv_std_logic_vector(13,6); -- Pop return value from the stack and jump to it
|
|
|
|
-- Logical instructions
|
|
constant and_reg : opcodes := conv_std_logic_vector(14,6); -- And between to registers
|
|
constant and_val : opcodes := conv_std_logic_vector(15,6); -- And between register and imediate
|
|
constant or_reg : opcodes := conv_std_logic_vector(16,6); -- Or between to registers
|
|
constant or_val : opcodes := conv_std_logic_vector(17,6); -- Or between register and imediate
|
|
constant xor_reg : opcodes := conv_std_logic_vector(18,6); -- Xor between to registers
|
|
constant xor_val : opcodes := conv_std_logic_vector(19,6); -- Xor between register and imediate
|
|
constant not_reg : opcodes := conv_std_logic_vector(20,6); -- Not on register
|
|
constant shl_reg : opcodes := conv_std_logic_vector(21,6); -- Shift left register (one shift)
|
|
constant shr_reg : opcodes := conv_std_logic_vector(22,6); -- Shift right register (one shift)
|
|
constant rol_reg : opcodes := conv_std_logic_vector(23,6); -- Rotate left register (one rotation)
|
|
constant ror_reg : opcodes := conv_std_logic_vector(24,6); -- Rotate right register (one rotation)
|
|
constant sbit_reg : opcodes := conv_std_logic_vector(25,6); -- Set bit pointed by register
|
|
constant cbit_reg : opcodes := conv_std_logic_vector(26,6); -- Clear bit pointed by register
|
|
|
|
-- Math operations instructions (unsigned)
|
|
constant add_reg : opcodes := conv_std_logic_vector(27,6); -- Add to registers
|
|
constant add_val : opcodes := conv_std_logic_vector(28,6); -- Add register and a imediate value
|
|
constant sub_reg : opcodes := conv_std_logic_vector(29,6); -- Subtract to registers
|
|
constant sub_val : opcodes := conv_std_logic_vector(30,6); -- Subtract register and a imediate value
|
|
constant inc_reg : opcodes := conv_std_logic_vector(31,6); -- Increment register
|
|
constant dec_reg : opcodes := conv_std_logic_vector(32,6); -- Decrement register
|
|
|
|
-- Control opcodes
|
|
constant nop : opcodes := conv_std_logic_vector(31,6); -- Nop...
|
|
constant halt : opcodes := conv_std_logic_vector(32,6); -- Halt processor
|
|
|
end pkgOpenCPU32;
|
end pkgOpenCPU32;
|
|
|
--! Define functions or procedures
|
--! Define functions or procedures
|
package body pkgOpenCPU32 is
|
package body pkgOpenCPU32 is
|
|
|
function muxPos( a: dpMuxInputs) return std_logic_vector is
|
function muxPos( a: dpMuxInputs) return std_logic_vector is
|
variable valRet : std_logic_vector(2 downto 0);
|
variable valRet : std_logic_vector(2 downto 0);
|
begin
|
begin
|
case a is
|
case a is
|
when fromMemory => valRet := "000";
|
when fromMemory => valRet := "000";
|
when fromImediate => valRet := "001";
|
when fromImediate => valRet := "001";
|
when fromRegFileA => valRet := "010";
|
when fromRegFileA => valRet := "010";
|
when fromRegFileB => valRet := "011";
|
when fromRegFileB => valRet := "011";
|
when fromAlu => valRet := "100";
|
when fromAlu => valRet := "100";
|
end case;
|
end case;
|
return valRet;
|
return valRet;
|
end muxPos;
|
end muxPos;
|
|
|
function reg2Num (a: generalRegisters) return integer is
|
function reg2Num (a: generalRegisters) return integer is
|
variable valRet : integer;
|
variable valRet : integer;
|
begin
|
begin
|
case a is
|
case a is
|
when r0 => valRet := 0;
|
when r0 => valRet := 0;
|
when r1 => valRet := 1;
|
when r1 => valRet := 1;
|
when r2 => valRet := 2;
|
when r2 => valRet := 2;
|
when r3 => valRet := 3;
|
when r3 => valRet := 3;
|
when r4 => valRet := 4;
|
when r4 => valRet := 4;
|
when r5 => valRet := 5;
|
when r5 => valRet := 5;
|
when r6 => valRet := 6;
|
when r6 => valRet := 6;
|
when r7 => valRet := 7;
|
when r7 => valRet := 7;
|
when r8 => valRet := 8;
|
when r8 => valRet := 8;
|
when r9 => valRet := 9;
|
when r9 => valRet := 9;
|
when r10 => valRet := 10;
|
when r10 => valRet := 10;
|
when r11 => valRet := 11;
|
when r11 => valRet := 11;
|
when r12 => valRet := 12;
|
when r12 => valRet := 12;
|
when r13 => valRet := 13;
|
when r13 => valRet := 13;
|
when r14 => valRet := 14;
|
when r14 => valRet := 14;
|
when r15 => valRet := 15;
|
when r15 => valRet := 15;
|
end case;
|
end case;
|
return valRet;
|
return valRet;
|
end reg2Num;
|
end reg2Num;
|
|
|
function Num2reg (a: integer) return generalRegisters is
|
function Num2reg (a: integer) return generalRegisters is
|
variable valRet : generalRegisters;
|
variable valRet : generalRegisters;
|
begin
|
begin
|
case a is
|
case a is
|
when 0 => valRet := r0;
|
when 0 => valRet := r0;
|
when 1 => valRet := r1;
|
when 1 => valRet := r1;
|
when 2 => valRet := r2;
|
when 2 => valRet := r2;
|
when 3 => valRet := r3;
|
when 3 => valRet := r3;
|
when 4 => valRet := r4;
|
when 4 => valRet := r4;
|
when 5 => valRet := r5;
|
when 5 => valRet := r5;
|
when 6 => valRet := r6;
|
when 6 => valRet := r6;
|
when 7 => valRet := r7;
|
when 7 => valRet := r7;
|
when 8 => valRet := r8;
|
when 8 => valRet := r8;
|
when 9 => valRet := r9;
|
when 9 => valRet := r9;
|
when 10 => valRet := r10;
|
when 10 => valRet := r10;
|
when 11 => valRet := r11;
|
when 11 => valRet := r11;
|
when 12 => valRet := r12;
|
when 12 => valRet := r12;
|
when 13 => valRet := r13;
|
when 13 => valRet := r13;
|
when 14 => valRet := r14;
|
when 14 => valRet := r14;
|
when 15 => valRet := r15;
|
when 15 => valRet := r15;
|
when others => valRet := r0;
|
when others => valRet := r0;
|
end case;
|
end case;
|
return valRet;
|
return valRet;
|
end Num2reg;
|
end Num2reg;
|
|
|
end pkgOpenCPU32;
|
end pkgOpenCPU32;
|
|
|
