Subversion Repositories cpu65c02_true_cycle

LIBRARY ieee;

USE ieee.std_logic_1164.all;

USE ieee.std_logic_arith.all;

entity core is

   port(

      clk_clk_i   : in     std_logic;

      d_i         : in     std_logic_vector (7 downto 0);

      irq_n_i     : in     std_logic;

      nmi_n_i     : in     std_logic;

      rdy_i       : in     std_logic;

      rst_rst_n_i : in     std_logic;

      so_n_i      : in     std_logic;

      a_o         : out    std_logic_vector (15 downto 0);

      d_o         : out    std_logic_vector (7 downto 0);

      rd_o        : out    std_logic;

      sync_o      : out    std_logic;

      wr_n_o      : out    std_logic;

      wr_o        : out    std_logic

   );

-- Declarations

end core ;

-- (C) 2008 - 2021 Jens Gutschmidt

-- (email: opencores@vivare-services.com)

-- 

-- Versions:

-- Revision 1.10  2021/01/22 13:26:00  jens

-- Production Release

-- 

-- Revision 1.9  2021/01/10 17:40:00  jens

-- - Performance improvements

-- 

-- Revision 1.8  2013/08/01 11:00:00  jens

-- - Change Block names to lower case

-- - Bug Fix RMB, SMB Bug - Bit position decoded wrong. Adding a priority encoder.

-- 

-- Revision 1.7  2013/07/21 11:11:00  jens

-- - Changing the title block and internal revision history

-- 

-- Revision 1.6  2009/01/04 10:20:47  eda

-- Changes for cosmetic issues only

-- 

-- Revision 1.5  2009/01/04 09:23:10  eda

-- - Delete unused nets and blocks (same as R6502_TC)

-- - Rename blocks

-- 

-- Revision 1.4  2009/01/03 16:53:02  eda

-- - Unused nets and blocks deleted

-- - Renamed blocks

-- 

-- Revision 1.3  2009/01/03 16:42:02  eda

-- - Unused nets and blocks deleted

-- - Renamed blocks

-- 

-- Revision 1.2  2008/12/31 19:31:24  eda

-- Production Release

--  

-- 

--

-- r65c02_tc.core.struct

--

-- Date:    22.01.2021

-- Time:    13:26:27

-- By:        VIVARE GmbH, Switzerland

--

-- COPYRIGHT (C) 2008 - 2021 by Jens Gutschmidt

-- 

-- This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or any later version.

-- 

-- This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

-- 

-- You should have received a copy of the GNU General Public License along with this program.  If not, see <http://www.gnu.org/licenses/>.

-- 

-- 

LIBRARY ieee;

USE ieee.std_logic_1164.all;

USE ieee.std_logic_arith.all;

library r65c02_tc;

architecture struct of core is

   -- Architecture declarations

   -- Internal signal declarations

   signal adr_nxt_pc_o_i     : std_logic_vector(15 downto 0);

   signal adr_o_i            : std_logic_vector(15 downto 0);

   signal adr_pc_o_i         : std_logic_vector(15 downto 0);

   signal adr_sp_o_i         : std_logic_vector(15 downto 0);

   signal ch_a_o_i           : std_logic_vector(7 downto 0);

   signal ch_b_o_i           : std_logic_vector(7 downto 0);

   signal d_alu_n_o_i        : std_logic;

   signal d_alu_o_i          : std_logic_vector(7 downto 0);

   signal d_alu_or_o_i       : std_logic;

   signal d_alu_prio_o_i     : std_logic_vector(7 downto 0);

   signal d_regs_in_o_i      : std_logic_vector(7 downto 0);

   signal d_regs_out_o_i     : std_logic_vector(7 downto 0);

   signal ld_o_i             : std_logic_vector(1 downto 0);

   signal ld_pc_o_i          : std_logic;

   signal ld_sp_o_i          : std_logic;

   signal load_regs_o_i      : std_logic;

   signal nmi_o_i            : std_logic;

   signal offset_o_i         : std_logic_vector(15 downto 0);

   signal q_a_o_i            : std_logic_vector(7 downto 0);

   signal q_x_o_i            : std_logic_vector(7 downto 0);

   signal q_y_o_i            : std_logic_vector(7 downto 0);

   signal reg_0flag_o_i      : std_logic;

   signal reg_1flag_o_i      : std_logic;

   signal reg_7flag_o_i      : std_logic;

   signal rst_nmi_o_i        : std_logic;

   signal sel_pc_in_o_i      : std_logic;

   signal sel_pc_val_o_i     : std_logic_vector(1 downto 0);

   signal sel_rb_in_o_i      : std_logic_vector(1 downto 0);

   signal sel_rb_out_o_i     : std_logic_vector(1 downto 0);

   signal sel_reg_o_i        : std_logic_vector(1 downto 0);

   signal sel_sp_as_o_i      : std_logic;

   signal sel_sp_in_o_i      : std_logic;

   signal var_shift_data_o_i : std_logic_vector(7 downto 0);

   -- Component Declarations

   component fsm_execution_unit

   port (

      adr_nxt_pc_i : in     std_logic_vector (15 downto 0);

      adr_pc_i     : in     std_logic_vector (15 downto 0);

      adr_sp_i     : in     std_logic_vector (15 downto 0);

      clk_clk_i    : in     std_logic ;

      d_alu_i      : in     std_logic_vector ( 7 downto 0 );

      d_alu_prio_i : in     std_logic_vector (7 downto 0);

      d_i          : in     std_logic_vector ( 7 downto 0 );

      d_regs_out_i : in     std_logic_vector ( 7 downto 0 );

      irq_n_i      : in     std_logic ;

      nmi_i        : in     std_logic ;

      q_a_i        : in     std_logic_vector ( 7 downto 0 );

      q_x_i        : in     std_logic_vector ( 7 downto 0 );

      q_y_i        : in     std_logic_vector ( 7 downto 0 );

      rdy_i        : in     std_logic ;

      reg_0flag_i  : in     std_logic ;

      reg_1flag_i  : in     std_logic ;

      reg_7flag_i  : in     std_logic ;

      rst_rst_n_i  : in     std_logic ;

      so_n_i       : in     std_logic ;

      a_o          : out    std_logic_vector (15 downto 0);

      adr_o        : out    std_logic_vector (15 downto 0);

      ch_a_o       : out    std_logic_vector ( 7 downto 0 );

      ch_b_o       : out    std_logic_vector ( 7 downto 0 );

      d_o          : out    std_logic_vector ( 7 downto 0 );

      d_regs_in_o  : out    std_logic_vector ( 7 downto 0 );

      ld_o         : out    std_logic_vector ( 1 downto 0 );

      ld_pc_o      : out    std_logic ;

      ld_sp_o      : out    std_logic ;

      load_regs_o  : out    std_logic ;

      offset_o     : out    std_logic_vector ( 15 downto 0 );

      rd_o         : out    std_logic ;

      rst_nmi_o    : out    std_logic ;

      sel_pc_in_o  : out    std_logic ;

      sel_pc_val_o : out    std_logic_vector ( 1 downto 0 );

      sel_rb_in_o  : out    std_logic_vector ( 1 downto 0 );

      sel_rb_out_o : out    std_logic_vector ( 1 downto 0 );

      sel_reg_o    : out    std_logic_vector ( 1 downto 0 );

      sel_sp_as_o  : out    std_logic ;

      sel_sp_in_o  : out    std_logic ;

      sync_o       : out    std_logic ;

      wr_n_o       : out    std_logic ;

      wr_o         : out    std_logic

   );

   end component;

   component fsm_intnmi

   port (

      clk_clk_i   : in     std_logic ;

      nmi_n_i     : in     std_logic ;

      rst_nmi_i   : in     std_logic ;

      rst_rst_n_i : in     std_logic ;

      nmi_o       : out    std_logic

   );

   end component;

   component reg_pc

   port (

      adr_i        : in     std_logic_vector (15 downto 0);

      clk_clk_i    : in     std_logic ;

      ld_i         : in     std_logic_vector (1 downto 0);

      ld_pc_i      : in     std_logic ;

      offset_i     : in     std_logic_vector (15 downto 0);

      rst_rst_n_i  : in     std_logic ;

      sel_pc_in_i  : in     std_logic ;

      sel_pc_val_i : in     std_logic_vector (1 downto 0);

      adr_nxt_pc_o : out    std_logic_vector (15 downto 0);

      adr_pc_o     : out    std_logic_vector (15 downto 0)

   );

   end component;

   component reg_sp

   port (

      adr_low_i   : in     std_logic_vector (7 downto 0);

      clk_clk_i   : in     std_logic ;

      ld_low_i    : in     std_logic ;

      ld_sp_i     : in     std_logic ;

      rst_rst_n_i : in     std_logic ;

      sel_sp_as_i : in     std_logic ;

      sel_sp_in_i : in     std_logic ;

      adr_sp_o    : out    std_logic_vector (15 downto 0)

   );

   end component;

   component regbank_axy

   port (

      clk_clk_i    : in     std_logic ;

      d_regs_in_i  : in     std_logic_vector (7 downto 0);

      load_regs_i  : in     std_logic ;

      rst_rst_n_i  : in     std_logic ;

      sel_rb_in_i  : in     std_logic_vector (1 downto 0);

      sel_rb_out_i : in     std_logic_vector (1 downto 0);

      sel_reg_i    : in     std_logic_vector (1 downto 0);

      d_regs_out_o : out    std_logic_vector (7 downto 0);

      q_a_o        : out    std_logic_vector (7 downto 0);

      q_x_o        : out    std_logic_vector (7 downto 0);

      q_y_o        : out    std_logic_vector (7 downto 0)

   );

   end component;

   -- Optional embedded configurations

   -- pragma synthesis_off

   for all : fsm_execution_unit use entity r65c02_tc.fsm_execution_unit;

   for all : fsm_intnmi use entity r65c02_tc.fsm_intnmi;

   for all : reg_pc use entity r65c02_tc.reg_pc;

   for all : reg_sp use entity r65c02_tc.reg_sp;

   for all : regbank_axy use entity r65c02_tc.regbank_axy;

   -- pragma synthesis_on

begin

   -- Architecture concurrent statements

   -- HDL Embedded Text Block 1 eb1

   -- eb1 1

   var_shift_data_o_i <= x"01";

   -- ModuleWare code(v1.12) for instance 'U_11' of 'add'

   u_11combo_proc: process (ch_a_o_i, ch_b_o_i)

   variable temp_din0 : std_logic_vector(8 downto 0);

   variable temp_din1 : std_logic_vector(8 downto 0);

   variable temp_sum : unsigned(8 downto 0);

   variable temp_carry : std_logic;

   begin

      temp_din0 := '0' & ch_a_o_i;

      temp_din1 := '0' & ch_b_o_i;

      temp_carry := '0';

      temp_sum := unsigned(temp_din0) + unsigned(temp_din1) + temp_carry;

      d_alu_o_i <= conv_std_logic_vector(temp_sum(7 downto 0),8);

      reg_0flag_o_i <= temp_sum(8) ;

   end process u_11combo_proc;

   -- ModuleWare code(v1.12) for instance 'U_8' of 'inv'

   reg_1flag_o_i <= not(d_alu_or_o_i);

   -- ModuleWare code(v1.12) for instance 'U_9' of 'inv'

   reg_7flag_o_i <= not(d_alu_n_o_i);

   -- ModuleWare code(v1.12) for instance 'U_10' of 'inv'

   d_alu_n_o_i <= not(d_alu_o_i(7));

   -- ModuleWare code(v1.12) for instance 'U_5' of 'lshift'

   u_5combo_proc : process (var_shift_data_o_i, ch_a_o_i)

   variable temp_shift : std_logic_vector (3 downto 0);

   variable temp_dout : std_logic_vector (7 downto 0);

   variable temp_din : std_logic_vector (7 downto 0);

   begin

      temp_din := (others=> 'X');

      temp_shift := ch_a_o_i(3 downto 0);

      temp_din := var_shift_data_o_i;

      for i in 0 to 3 loop

         if (i < 3) then

            if (temp_shift(i) = '1') then

               temp_dout := (others => '0');

               temp_dout(7 downto 2**i) := temp_din(7 - 2**i downto 0);

            elsif (temp_shift(i) = '0') then

               temp_dout := temp_din;

            else

               temp_dout := (others => 'X');

            end if;

         else

            if (temp_shift(i) = '1') then

               temp_dout := (others => '0');

            elsif (temp_shift(i) = '0') then

               temp_dout := temp_din;

            else

               temp_dout := (others => 'X');

            end if;

         end if;

         temp_din := temp_dout;

      end loop;

      d_alu_prio_o_i <= temp_dout;

   end process u_5combo_proc;

   -- ModuleWare code(v1.12) for instance 'U_7' of 'por'

   d_alu_or_o_i <= d_alu_o_i(0) or  d_alu_o_i(1) or  d_alu_o_i(2) or  d_alu_o_i(3) or  d_alu_o_i(4) or  d_alu_o_i(5) or  d_alu_o_i(6) or  d_alu_o_i(7);

   -- Instance port mappings.

   U_4 : fsm_execution_unit

      port map (

         adr_nxt_pc_i => adr_nxt_pc_o_i,

         adr_pc_i     => adr_pc_o_i,

         adr_sp_i     => adr_sp_o_i,

         clk_clk_i    => clk_clk_i,

         d_alu_i      => d_alu_o_i,

         d_alu_prio_i => d_alu_prio_o_i,

         d_i          => d_i,

         d_regs_out_i => d_regs_out_o_i,

         irq_n_i      => irq_n_i,

         nmi_i        => nmi_o_i,

         q_a_i        => q_a_o_i,

         q_x_i        => q_x_o_i,

         q_y_i        => q_y_o_i,

         rdy_i        => rdy_i,

         reg_0flag_i  => reg_0flag_o_i,

         reg_1flag_i  => reg_1flag_o_i,

         reg_7flag_i  => reg_7flag_o_i,

         rst_rst_n_i  => rst_rst_n_i,

         so_n_i       => so_n_i,

         a_o          => a_o,

         adr_o        => adr_o_i,

         ch_a_o       => ch_a_o_i,

         ch_b_o       => ch_b_o_i,

         d_o          => d_o,

         d_regs_in_o  => d_regs_in_o_i,

         ld_o         => ld_o_i,

         ld_pc_o      => ld_pc_o_i,

         ld_sp_o      => ld_sp_o_i,

         load_regs_o  => load_regs_o_i,

         offset_o     => offset_o_i,

         rd_o         => rd_o,

         rst_nmi_o    => rst_nmi_o_i,

         sel_pc_in_o  => sel_pc_in_o_i,

         sel_pc_val_o => sel_pc_val_o_i,

         sel_rb_in_o  => sel_rb_in_o_i,

         sel_rb_out_o => sel_rb_out_o_i,

         sel_reg_o    => sel_reg_o_i,

         sel_sp_as_o  => sel_sp_as_o_i,

         sel_sp_in_o  => sel_sp_in_o_i,

         sync_o       => sync_o,

         wr_n_o       => wr_n_o,

         wr_o         => wr_o

      );

   U_3 : fsm_intnmi

      port map (

         clk_clk_i   => clk_clk_i,

         nmi_n_i     => nmi_n_i,

         rst_nmi_i   => rst_nmi_o_i,

         rst_rst_n_i => rst_rst_n_i,

         nmi_o       => nmi_o_i

      );

   U_0 : reg_pc

      port map (

         adr_i        => adr_o_i,

         clk_clk_i    => clk_clk_i,

         ld_i         => ld_o_i,

         ld_pc_i      => ld_pc_o_i,

         offset_i     => offset_o_i,

         rst_rst_n_i  => rst_rst_n_i,

         sel_pc_in_i  => sel_pc_in_o_i,

         sel_pc_val_i => sel_pc_val_o_i,

         adr_nxt_pc_o => adr_nxt_pc_o_i,

         adr_pc_o     => adr_pc_o_i

      );

   U_1 : reg_sp

      port map (

         adr_low_i   => adr_o_i(7 DOWNTO 0),

         clk_clk_i   => clk_clk_i,

         ld_low_i    => ld_o_i(0),

         ld_sp_i     => ld_sp_o_i,

         rst_rst_n_i => rst_rst_n_i,

         sel_sp_as_i => sel_sp_as_o_i,

         sel_sp_in_i => sel_sp_in_o_i,

         adr_sp_o    => adr_sp_o_i

      );

   U_2 : regbank_axy

      port map (

         clk_clk_i    => clk_clk_i,

         d_regs_in_i  => d_regs_in_o_i,

         load_regs_i  => load_regs_o_i,

         rst_rst_n_i  => rst_rst_n_i,

         sel_rb_in_i  => sel_rb_in_o_i,

         sel_rb_out_i => sel_rb_out_o_i,

         sel_reg_i    => sel_reg_o_i,

         d_regs_out_o => d_regs_out_o_i,

         q_a_o        => q_a_o_i,

         q_x_o        => q_x_o_i,

         q_y_o        => q_y_o_i

      );

end struct;