Subversion Repositories open8_urisc

-- Copyright (c)2006, 2011, 2012, 2013, 2015, 2019, 2020 Jeremy Seth Henry

-- Copyright (c)2006, 2011, 2012, 2013, 2015, 2019, 2020 Jeremy Seth Henry

-- All rights reserved.

-- All rights reserved.

--

--

-- Redistribution and use in source and binary forms, with or without

-- Redistribution and use in source and binary forms, with or without

-- modification, are permitted provided that the following conditions are met:

-- modification, are permitted provided that the following conditions are met:

--     * Redistributions of source code must retain the above copyright

--     * Redistributions of source code must retain the above copyright

--       notice, this list of conditions and the following disclaimer.

--       notice, this list of conditions and the following disclaimer.

--     * Redistributions in binary form must reproduce the above copyright

--     * Redistributions in binary form must reproduce the above copyright

--       notice, this list of conditions and the following disclaimer in the

--       notice, this list of conditions and the following disclaimer in the

--       documentation and/or other materials provided with the distribution,

--       documentation and/or other materials provided with the distribution,

--       where applicable (as part of a user interface, debugging port, etc.)

--       where applicable (as part of a user interface, debugging port, etc.)

--

--

-- THIS SOFTWARE IS PROVIDED BY JEREMY SETH HENRY ``AS IS'' AND ANY

-- THIS SOFTWARE IS PROVIDED BY JEREMY SETH HENRY ``AS IS'' AND ANY

-- EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

-- EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

-- WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

-- WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

-- DISCLAIMED. IN NO EVENT SHALL JEREMY SETH HENRY BE LIABLE FOR ANY

-- DISCLAIMED. IN NO EVENT SHALL JEREMY SETH HENRY BE LIABLE FOR ANY

-- DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

-- DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

-- (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

-- (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

-- LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

-- LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

-- ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

-- ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

-- THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

-- THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

--

--

-- VHDL Units :  o8_cpu

-- VHDL Units :  o8_cpu

-- Description:  VHDL model of a RISC 8-bit processor core loosely based on the

-- Description:  VHDL model of a RISC 8-bit processor core loosely based on the

--            :   V8/ARC uRISC instruction set. Requires Open8_pkg.vhd

--            :   V8/ARC uRISC instruction set. Requires Open8_pkg.vhd

--            :

--            :

-- Notes      :  Generic definitions

-- Notes      :  Generic definitions

--            :

--            :

--            :  Program_Start_Addr sets the initial value of the program

--            :  Program_Start_Addr sets the initial value of the program

--            :   counter.

--            :   counter.

--            :

--            :

--            :  ISR_Start_Addr sets the location of the interrupt service

--            :  ISR_Start_Addr sets the location of the interrupt service

--            :   vector table. There are 8 service vectors, or 16 bytes, which

--            :   vector table. There are 8 service vectors, or 16 bytes, which

--            :   must be allocated to either ROM or RAM.

--            :   must be allocated to either ROM or RAM.

--            :

--            :

--            :  Stack_Start_Address sets the initial (reset) value of the

--            :  Stack_Start_Address sets the initial (reset) value of the

--            :   stack pointer. Also used for the RSP instruction if

--            :   stack pointer. Also used for the RSP instruction if

--            :   Allow_Stack_Address_Move is false.

--            :   Allow_Stack_Address_Move is false.

--            :

--            :

--            :  Allow_Stack_Address_Move, when set true, allows the RSP to be

--            :  Allow_Stack_Address_Move, when set true, allows the RSP to be

--            :   programmed via thet RSP instruction. If enabled, the

--            :   programmed via thet RSP instruction. If enabled, the

--            :   instruction changes into TSX or TXS based on the flag

--            :   instruction changes into TSX or TXS based on the flag

--            :   specified by Stack_Xfer_Flag. If the flag is '0', RSP will

--            :   specified by Stack_Xfer_Flag. If the flag is '0', RSP will

--            :   copy the current stack pointer to R1:R0 (TSX). If the flag

--            :   copy the current stack pointer to R1:R0 (TSX). If the flag

--            :   is '1', RSP will copy R1:R0 to the stack pointer (TXS). This

--            :   is '1', RSP will copy R1:R0 to the stack pointer (TXS). This

--            :   allows the processor to backup and restore stack pointers

--            :   allows the processor to backup and restore stack pointers

--            :   in a multi-process environment. Note that no flags are

--            :   in a multi-process environment. Note that no flags are

--            :   modified by either form of this instruction.

--            :   modified by either form of this instruction.

--            :

--            :

--            :  Stack_Xfer_Flag instructs the core to use the specified ALU

--            :  Stack_Xfer_Flag instructs the core to use the specified ALU

--            :   flag to alter the behavior of the RSP instruction when

--            :   flag to alter the behavior of the RSP instruction when

--            :   Allow_Stack_Address_Move is set TRUE, otherwise it is ignored.

--            :   Allow_Stack_Address_Move is set TRUE, otherwise it is ignored.

--            :   While technically any of the status bits may be used, the

--            :   While technically any of the status bits may be used, the

--            :   intent was to use FL_GP[1,2,3,4], as these are not modified

--            :   intent was to use FL_GP[1,2,3,4], as these are not modified

--            :   by ordinary ALU operations.

--            :   by ordinary ALU operations.

--            :

--            :

--            :  The Enable_Auto_Increment generic can be used to modify the

--            :  The Enable_Auto_Increment generic can be used to modify the

--            :   indexed instructions such that specifying an odd register

--            :   indexed instructions such that specifying an odd register

--            :   will use the next lower register pair, post-incrementing the

--            :   will use the next lower register pair, post-incrementing the

--            :   value in that pair. IOW, specifying STX R1 will instead

--            :   value in that pair. IOW, specifying STX R1 will instead

--            :   result in STX R0++, or R0 = {R1:R0}; {R1:R0} + 1

--            :   result in STX R0++, or R0 = {R1:R0}; {R1:R0} + 1

--            :

--            :

--            :  BRK_Implements_WAI modifies the BRK instruction such that it

--            :  BRK_Implements_WAI modifies the BRK instruction such that it

--            :   triggers the wait for interrupt state, but without triggering

--            :   triggers the wait for interrupt state, but without triggering

--            :   a soft interrupt in lieu of its normal behavior, which is to

--            :   a soft interrupt in lieu of its normal behavior, which is to

--            :   insert several dead clock cycles - essentially a long NOP

--            :   insert several dead clock cycles - essentially a long NOP

--            :

--            :

--            :  Enable_NMI overrides the mask bit for interrupt 0, creating a

--            :  Enable_NMI overrides the mask bit for interrupt 0, creating a

--            :   non-maskable interrupt at the highest priority. To remain

--            :   non-maskable interrupt at the highest priority. To remain

--            :   true to the original core, this should be set false.

--            :   true to the original core, this should be set false.

--            :

--            :

--            :  RTI_Ignores_GP_Flags alters the set of flag bits restored

--            :  RTI_Ignores_GP_Flags alters the set of flag bits restored

--            :   after an interrupt. By default, all of the flag bits are put

--            :   after an interrupt. By default, all of the flag bits are put

--            :   back to their original state. If this flag is set true, only

--            :   back to their original state. If this flag is set true, only

--            :   the lower four bits are restored, allowing ISR code to alter

--            :   the lower four bits are restored, allowing ISR code to alter

--            :   the GP flags persistently.

--            :   the GP flags persistently.

--            :

--            :

--            :  Default_Interrupt_Mask sets the intial/reset value of the

--            :  Default_Interrupt_Mask sets the intial/reset value of the

--            :   interrupt mask. To remain true to the original core, which

--            :   interrupt mask. To remain true to the original core, which

--            :   had no interrupt mask, this should be set to x"FF". Otherwise

--            :   had no interrupt mask, this should be set to x"FF". Otherwise

--            :   it can be initialized to any value. Note that Enable_NMI

--            :   it can be initialized to any value. Note that Enable_NMI

--            :   will logically force the LSB high.

--            :   will logically force the LSB high.

--            :

--            :

--            :  Reset_Level determines whether the processor registers reset

--            :  Reset_Level determines whether the processor registers reset

--            :   on a high or low level from higher logic.

--            :   on a high or low level from higher logic.

--            :

--            :

--            : Architecture notes

--            : Architecture notes

--            :  This model deviates from the original ISA in a few important

--            :  This model deviates from the original ISA in a few important

--            :   ways.

--            :   ways.

--            :

--            :

--            :  First, there is only one set of registers. Interrupt service

--            :  First, there is only one set of registers. Interrupt service

--            :   routines must explicitely preserve context since the the

--            :   routines must explicitely preserve context since the the

--            :   hardware doesn't. This was done to decrease size and code

--            :   hardware doesn't. This was done to decrease size and code

--            :   complexity. Older code that assumes this behavior will not

--            :   complexity. Older code that assumes this behavior will not

--            :   execute correctly on this processor model.

--            :   execute correctly on this processor model.

--            :

--            :

--            :  Second, this model adds an additional pipeline stage between

--            :  Second, this model adds an additional pipeline stage between

--            :   the instruction decoder and the ALU. Unfortunately, this

--            :   the instruction decoder and the ALU. Unfortunately, this

--            :   means that the instruction stream has to be restarted after

--            :   means that the instruction stream has to be restarted after

--            :   any math instruction is executed, implying that any ALU

--            :   any math instruction is executed, implying that any ALU

--            :   instruction now has a latency of 2 instead of 0. The

--            :   instruction now has a latency of 2 instead of 0. The

--            :   advantage is that the maximum frequency has gone up

--            :   advantage is that the maximum frequency has gone up

--            :   significantly, as the ALU code is vastly more efficient.

--            :   significantly, as the ALU code is vastly more efficient.

--            :   As an aside, this now means that all math instructions,

--            :   As an aside, this now means that all math instructions,

--            :   including MUL (see below) and UPP have the same instruction

--            :   including MUL (see below) and UPP have the same instruction

--            :   latency.

--            :   latency.

--            :

--            :

--            :  Third, the original ISA, also a soft core, had two reserved

--            :  Third, the original ISA, also a soft core, had two reserved

--            :   instructions, USR and USR2. These have been implemented as

--            :   instructions, USR and USR2. These have been implemented as

--            :   DBNZ, and MUL respectively.

--            :   DBNZ, and MUL respectively.

--            :

--            :

--            :  DBNZ decrements the specified register and branches if the

--            :  DBNZ decrements the specified register and branches if the

--            :   result is non-zero. The instruction effectively executes a

--            :   result is non-zero. The instruction effectively executes a

--            :   DEC Rn instruction prior to branching, so the same flags will

--            :   DEC Rn instruction prior to branching, so the same flags will

--            :   be set.

--            :   be set.

--            :

--            :

--            :  MUL places the result of R0 * Rn into R1:R0. Instruction

--            :  MUL places the result of R0 * Rn into R1:R0. Instruction

--            :   latency is identical to other ALU instructions. Only the Z

--            :   latency is identical to other ALU instructions. Only the Z

--            :   flag is set, since there is no defined overflow or "negative

--            :   flag is set, since there is no defined overflow or "negative

--            :   16-bit values"

--            :   16-bit values"

--            :

--            :

--            :  Fourth, indexed load/store instructions now have an (optional)

--            :  Fourth, indexed load/store instructions now have an (optional)

--            :   ability to post-increment their index registers. If enabled,

--            :   ability to post-increment their index registers. If enabled,

--            :   using an odd operand for LDO,LDX, STO, STX will cause the

--            :   using an odd operand for LDO,LDX, STO, STX will cause the

--            :   register pair to be incremented after the storage access.

--            :   register pair to be incremented after the storage access.

--            :

--            :

--            :  Fifth, the RSP instruction has been (optionally) altered to

--            :  Fifth, the RSP instruction has been (optionally) altered to

--            :   allow the stack pointer to be sourced from R1:R0.

--            :   allow the stack pointer to be sourced from R1:R0.

--            :

--            :

--            :  Sixth, the BRK instruction can optionally implement a WAI,

--            :  Sixth, the BRK instruction can optionally implement a WAI,

--            :   which is the same as the INT instruction without the soft

--            :   which is the same as the INT instruction without the soft

--            :   interrupt, as a way to put the processor to "sleep" until the

--            :   interrupt, as a way to put the processor to "sleep" until the

--            :   next external interrupt.

--            :   next external interrupt.

--            :

--            :

--            :  Seventh, the original CPU model had 8 non-maskable interrupts

--            :  Seventh, the original CPU model had 8 non-maskable interrupts

--            :   with priority. This model has the same 8 interrupts, but

--            :   with priority. This model has the same 8 interrupts, but

--            :   allows software to mask them (with an additional option to

--            :   allows software to mask them (with an additional option to

--            :   override the highest priority interrupt, making it the NMI.)

--            :   override the highest priority interrupt, making it the NMI.)

--            :

--            :

--            :  Lastly, previous unmapped instructions in the OP_STK opcode

--            :  Lastly, previous unmapped instructions in the OP_STK opcode

--            :   were repurposed to support a new interrupt mask.

--            :   were repurposed to support a new interrupt mask.

--            :   SMSK and GMSK transfer the contents of R0 (accumulator)

--            :   SMSK and GMSK transfer the contents of R0 (accumulator)

--            :   to/from the interrupt mask register. SMSK is immediate, while

--            :   to/from the interrupt mask register. SMSK is immediate, while

--            :   GMSK has the same overhead as a math instruction.

--            :   GMSK has the same overhead as a math instruction.

--

--

-- Revision History

-- Revision History

-- Author          Date     Change

-- Author          Date     Change

------------------ -------- ---------------------------------------------------

------------------ -------- ---------------------------------------------------

-- Seth Henry      07/19/06 Design Start

-- Seth Henry      07/19/06 Design Start

-- Seth Henry      01/18/11 Fixed BTT instruction to match V8

-- Seth Henry      01/18/11 Fixed BTT instruction to match V8

-- Seth Henry      07/22/11 Fixed interrupt transition logic to avoid data

-- Seth Henry      07/22/11 Fixed interrupt transition logic to avoid data

--                           corruption issues.

--                           corruption issues.

-- Seth Henry      07/26/11 Optimized logic in ALU, stack pointer, and data

-- Seth Henry      07/26/11 Optimized logic in ALU, stack pointer, and data

--                           path sections.

--                           path sections.

-- Seth Henry      07/27/11 Optimized logic for timing, merged blocks into

-- Seth Henry      07/27/11 Optimized logic for timing, merged blocks into

--                           single entity.

--                           single entity.

-- Seth Henry      09/20/11 Added BRK_Implements_WAI option, allowing the

-- Seth Henry      09/20/11 Added BRK_Implements_WAI option, allowing the

--                           processor to wait for an interrupt instead of the

--                           processor to wait for an interrupt instead of the

--                           normal BRK behavior.

--                           normal BRK behavior.

-- Seth Henry      12/20/11 Modified core to allow WAI_Cx state to idle

-- Seth Henry      12/20/11 Modified core to allow WAI_Cx state to idle

--                           the bus entirely (Rd_Enable is low)

--                           the bus entirely (Rd_Enable is low)

-- Seth Henry      02/03/12 Replaced complex interrupt controller with simpler,

-- Seth Henry      02/03/12 Replaced complex interrupt controller with simpler,

--                           faster logic that simply does priority encoding.

--                           faster logic that simply does priority encoding.

-- Seth Henry      08/06/13 Removed HALT functionality

-- Seth Henry      08/06/13 Removed HALT functionality

-- Seth Henry      10/29/15 Fixed inverted carry logic in CMP and SBC instrs

-- Seth Henry      10/29/15 Fixed inverted carry logic in CMP and SBC instrs

-- Seth Henry      12/19/19 Renamed to o8_cpu to fit "theme"

-- Seth Henry      12/19/19 Renamed to o8_cpu to fit "theme"

-- Seth Henry      03/09/20 Modified RSP instruction to work with a CPU flag

-- Seth Henry      03/09/20 Modified RSP instruction to work with a CPU flag

--                           allowing true backup/restore of the stack pointer

--                           allowing true backup/restore of the stack pointer

-- Seth Henry      03/11/20 Split the address logic from the main state machine

-- Seth Henry      03/11/20 Split the address logic from the main state machine

--                           in order to simplify things and eliminate

--                           in order to simplify things and eliminate

--                           redundancies. Came across and fixed a problem with

--                           redundancies. Came across and fixed a problem with

--                           the STO instruction when Enable_Auto_Increment is

--                           the STO instruction when Enable_Auto_Increment is

--                           NOT set.

--                           NOT set.

-- Seth Henry      03/12/20 Rationalized the naming of the CPU flags to match

-- Seth Henry      03/12/20 Rationalized the naming of the CPU flags to match

--                           the assembler names. Also fixed an issue where

--                           the assembler names. Also fixed an issue where

--                           the I bit wasn't being cleared after interrupts.

--                           the I bit wasn't being cleared after interrupts.

--                          Simplified the program counter logic to only use

--                          Simplified the program counter logic to only use

--                           the offset for increments, redefining the

--                           the offset for increments, redefining the

--                           original modes as fixed offset values.

--                           original modes as fixed offset values.

--                          Modified the ALU section with a new ALU operation

--                          Modified the ALU section with a new ALU operation

--                           for GMSK. This allowed the .data field to be

--                           for GMSK. This allowed the .data field to be

--                           removed and Operand1 used in its place, which

--                           removed and Operand1 used in its place, which

--                           simplified the logic a great deal.

--                           simplified the logic a great deal.

-- Seth Henry      03/16/20 Added CPU_Halt input back, only now as an input to

-- Seth Henry      03/16/20 Added CPU_Halt input back, only now as an input to

--                           the instruction decode state, where it acts as a

--                           the instruction decode state, where it acts as a

--                           modified form of the BRK instruction that holds

--                           modified form of the BRK instruction that holds

--                           state until CPU_Halt is deasserted. This has a

--                           state until CPU_Halt is deasserted. This has a

--                           much smaller impact on Fmax/complexity than the

--                           much smaller impact on Fmax/complexity than the

--                           original clock enable, but imposes a mild impact

--                           original clock enable, but imposes a mild impact

--                           due to the need to reset the instruction pipeline

--                           due to the need to reset the instruction pipeline

-- Seth Henry      03/17/20 Added generic to control whether RTI full restores

-- Seth Henry      03/17/20 Added generic to control whether RTI full restores

--                           the flags, including the general purpose ones, or

--                           the flags, including the general purpose ones, or

--                           only the core ALU flags (Z, N, and C). Also

--                           only the core ALU flags (Z, N, and C). Also

--                           brought out copies of the GP flags for external

--                           brought out copies of the GP flags for external

--                           connection.

--                           connection.

-- Seth Henry      04/09/20 Added a compile time setting to block interrupts

-- Seth Henry      04/09/20 Added a compile time setting to block interrupts

--                           while the I bit is set to avoid reentering ISRs

--                           while the I bit is set to avoid reentering ISRs

--                           This may slightly affect timing, as this will

--                           This may slightly affect timing, as this will

--                           potentially block higher priority interrupts

--                           potentially block higher priority interrupts

--                           until the lower priority ISR returns or clears

--                           until the lower priority ISR returns or clears

--                           the I bit.

--                           the I bit.

--                          Also added the I bit to the exported flags for

--                          Also added the I bit to the exported flags for

--                           use in memory protection schemes.

--                           use in memory protection schemes.

-- Seth Henry      04/16/20 Modified to use new Open8 bus record. Also added

-- Seth Henry      04/16/20 Modified to use new Open8 bus record. Also added

--                           reset and usec_tick logic to drive utility

--                           reset and usec_tick logic to drive utility

--                           signals. Also added Halt_Ack output.

--                           signals. Also added Halt_Ack output.

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_unsigned.all;

  use ieee.std_logic_arith.all;

  use ieee.std_logic_arith.all;

  use ieee.std_logic_misc.all;

  use ieee.std_logic_misc.all;

library work;

library work;

use work.Open8_pkg.all;

  use work.Open8_pkg.all;

entity o8_cpu is

entity o8_cpu is

  generic(

  generic(

    Program_Start_Addr       : ADDRESS_TYPE := x"0000"; -- Initial PC location

    Program_Start_Addr       : ADDRESS_TYPE := x"0000"; -- Initial PC location

    ISR_Start_Addr           : ADDRESS_TYPE := x"FFF0"; -- Bottom of ISR vec's

    ISR_Start_Addr           : ADDRESS_TYPE := x"FFF0"; -- Bottom of ISR vec's

    Stack_Start_Addr         : ADDRESS_TYPE := x"03FF"; -- Top of Stack

    Stack_Start_Addr         : ADDRESS_TYPE := x"03FF"; -- Top of Stack

    Allow_Stack_Address_Move : boolean      := false;   -- Use Normal v8 RSP

    Allow_Stack_Address_Move : boolean      := false;   -- Use Normal v8 RSP

    Stack_Xfer_Flag          : integer      := PSR_GP4; -- GP4 modifies RSP

    Stack_Xfer_Flag          : integer      := PSR_GP4; -- GP4 modifies RSP

    Enable_Auto_Increment    : boolean      := false;   -- Modify indexed instr

    Enable_Auto_Increment    : boolean      := false;   -- Modify indexed instr

    BRK_Implements_WAI       : boolean      := false;   -- BRK -> Wait for Int

    BRK_Implements_WAI       : boolean      := false;   -- BRK -> Wait for Int

    Enable_NMI               : boolean      := true;    -- Force INTR0 enabled

    Enable_NMI               : boolean      := true;    -- Force INTR0 enabled

    Sequential_Interrupts    : boolean      := false;   -- Interruptable ISRs

    Sequential_Interrupts    : boolean      := false;   -- Interruptable ISRs

    RTI_Ignores_GP_Flags     : boolean      := false;   -- RTI sets all flags

    RTI_Ignores_GP_Flags     : boolean      := false;   -- RTI sets all flags

    Default_Interrupt_Mask   : DATA_TYPE    := x"FF";   -- Enable all Ints

    Default_Interrupt_Mask   : DATA_TYPE    := x"FF";   -- Enable all Ints

    Clock_Frequency          : real                     -- Clock Frequency

    Clock_Frequency          : real                     -- Clock Frequency

);

);

  port(

  port(

    Clock                    : in  std_logic;

    Clock                    : in  std_logic;

    PLL_Locked               : in  std_logic;

    PLL_Locked               : in  std_logic;

    --

    --

    Halt_Req                 : in  std_logic := '0';

    Halt_Req                 : in  std_logic := '0';

    Halt_Ack                 : out std_logic;

    Halt_Ack                 : out std_logic;

    --

    --

    Open8_Bus                : out OPEN8_BUS_TYPE;

    Open8_Bus                : out OPEN8_BUS_TYPE;

    Rd_Data                  : in  DATA_TYPE;

    Rd_Data                  : in  DATA_TYPE;

    Interrupts               : in  INTERRUPT_BUNDLE := x"00"

    Interrupts               : in  INTERRUPT_BUNDLE := x"00"

);

);

end entity;

end entity;

architecture behave of o8_cpu is

architecture behave of o8_cpu is

  signal Reset_q             : std_logic := Reset_Level;

  signal Reset_q             : std_logic := Reset_Level;

  signal Reset               : std_logic := Reset_Level;

  signal Reset               : std_logic := Reset_Level;

  constant USEC_VAL          : integer := integer(Clock_Frequency / 1000000.0);

  constant USEC_VAL          : integer := integer(Clock_Frequency / 1000000.0);

  constant USEC_WDT          : integer := ceil_log2(USEC_VAL - 1);

  constant USEC_WDT          : integer := ceil_log2(USEC_VAL - 1);

  constant USEC_DLY          : std_logic_vector :=

  constant USEC_DLY          : std_logic_vector :=

                                conv_std_logic_vector(USEC_VAL - 1, USEC_WDT);

                                conv_std_logic_vector(USEC_VAL - 1, USEC_WDT);

  signal uSec_Cntr           : std_logic_vector( USEC_WDT - 1 downto 0 );

  signal uSec_Cntr           : std_logic_vector( USEC_WDT - 1 downto 0 );

  signal uSec_Tick           : std_logic;

  signal uSec_Tick           : std_logic;

  constant INT_VECTOR_0      : ADDRESS_TYPE := ISR_Start_Addr;

  constant INT_VECTOR_0      : ADDRESS_TYPE := ISR_Start_Addr;

  constant INT_VECTOR_1      : ADDRESS_TYPE := ISR_Start_Addr+2;

  constant INT_VECTOR_1      : ADDRESS_TYPE := ISR_Start_Addr+2;

  constant INT_VECTOR_2      : ADDRESS_TYPE := ISR_Start_Addr+4;

  constant INT_VECTOR_2      : ADDRESS_TYPE := ISR_Start_Addr+4;

  constant INT_VECTOR_3      : ADDRESS_TYPE := ISR_Start_Addr+6;

  constant INT_VECTOR_3      : ADDRESS_TYPE := ISR_Start_Addr+6;

  constant INT_VECTOR_4      : ADDRESS_TYPE := ISR_Start_Addr+8;

  constant INT_VECTOR_4      : ADDRESS_TYPE := ISR_Start_Addr+8;

  constant INT_VECTOR_5      : ADDRESS_TYPE := ISR_Start_Addr+10;

  constant INT_VECTOR_5      : ADDRESS_TYPE := ISR_Start_Addr+10;

  constant INT_VECTOR_6      : ADDRESS_TYPE := ISR_Start_Addr+12;

  constant INT_VECTOR_6      : ADDRESS_TYPE := ISR_Start_Addr+12;

  constant INT_VECTOR_7      : ADDRESS_TYPE := ISR_Start_Addr+14;

  constant INT_VECTOR_7      : ADDRESS_TYPE := ISR_Start_Addr+14;

  signal CPU_Next_State      : CPU_STATES := IPF_C0;

  signal CPU_Next_State      : CPU_STATES := IPF_C0;

  signal CPU_State           : CPU_STATES := IPF_C0;

  signal CPU_State           : CPU_STATES := IPF_C0;

  signal CPU_Halt_Req        : std_logic := '0';

  signal CPU_Halt_Req        : std_logic := '0';

  signal CPU_Halt_Ack        : std_logic := '0';

  signal CPU_Halt_Ack        : std_logic := '0';

  signal Cache_Ctrl          : CACHE_MODES := CACHE_IDLE;

  signal Cache_Ctrl          : CACHE_MODES := CACHE_IDLE;

  signal Opcode              : OPCODE_TYPE := (others => '0');

  signal Opcode              : OPCODE_TYPE := (others => '0');

  signal SubOp, SubOp_p1     : SUBOP_TYPE  := (others => '0');

  signal SubOp, SubOp_p1     : SUBOP_TYPE  := (others => '0');

  signal Prefetch            : DATA_TYPE   := x"00";

  signal Prefetch            : DATA_TYPE   := x"00";

  signal Operand1, Operand2  : DATA_TYPE   := x"00";

  signal Operand1, Operand2  : DATA_TYPE   := x"00";

  signal Instr_Prefetch      : std_logic   := '0';

  signal Instr_Prefetch      : std_logic   := '0';

  signal PC_Ctrl             : PC_CTRL_TYPE;

  signal PC_Ctrl             : PC_CTRL_TYPE;

  signal Program_Ctr         : ADDRESS_TYPE := x"0000";

  signal Program_Ctr         : ADDRESS_TYPE := x"0000";

  signal ALU_Ctrl            : ALU_CTRL_TYPE;

  signal ALU_Ctrl            : ALU_CTRL_TYPE;

  signal Regfile             : REGFILE_TYPE;

  signal Regfile             : REGFILE_TYPE;

  signal Flags               : FLAG_TYPE;

  signal Flags               : FLAG_TYPE;

  signal Mult                : ADDRESS_TYPE := x"0000";

  signal Mult                : ADDRESS_TYPE := x"0000";

  signal SP_Ctrl             : SP_CTRL_TYPE;

  signal SP_Ctrl             : SP_CTRL_TYPE;

  signal Stack_Ptr           : ADDRESS_TYPE := x"0000";

  signal Stack_Ptr           : ADDRESS_TYPE := x"0000";

  signal DP_Ctrl             : DATA_CTRL_TYPE;

  signal DP_Ctrl             : DATA_CTRL_TYPE;

  signal INT_Ctrl            : INT_CTRL_TYPE;

  signal INT_Ctrl            : INT_CTRL_TYPE;

  signal Ack_D, Ack_Q, Ack_Q1: std_logic   := '0';

  signal Ack_D, Ack_Q, Ack_Q1: std_logic   := '0';

  signal Int_Req, Int_Ack    : std_logic   := '0';

  signal Int_Req, Int_Ack    : std_logic   := '0';

  signal Int_Mask            : DATA_TYPE   := x"00";

  signal Int_Mask            : DATA_TYPE   := x"00";

  signal ISR_Addr            : ADDRESS_TYPE := x"0000";

  signal ISR_Addr            : ADDRESS_TYPE := x"0000";

  signal i_Ints              : INTERRUPT_BUNDLE := x"00";

  signal i_Ints              : INTERRUPT_BUNDLE := x"00";

  signal Pending             : INTERRUPT_BUNDLE := x"00";

  signal Pending             : INTERRUPT_BUNDLE := x"00";

  signal Wait_for_FSM        : std_logic := '0';

  signal Wait_for_FSM        : std_logic := '0';

  signal Wait_for_ISR        : std_logic := '0';

  signal Wait_for_ISR        : std_logic := '0';

begin

begin

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

-- Reset & uSec Tick

-- Reset & uSec Tick

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

  CPU_Reset_Sync: process( Clock, PLL_Locked )

  CPU_Reset_Sync: process( Clock, PLL_Locked )

  begin

  begin

    if( PLL_Locked = '0' )then

    if( PLL_Locked = '0' )then

      Reset_q                <= Reset_Level;

      Reset_q                <= Reset_Level;

      Reset                  <= Reset_Level;

      Reset                  <= Reset_Level;

    elsif( rising_edge(Clock) )then

    elsif( rising_edge(Clock) )then

      Reset_q                <= not Reset_Level;

      Reset_q                <= not Reset_Level;

      Reset                  <= Reset_q;

      Reset                  <= Reset_q;

    end if;

    end if;

  end process;

  end process;

  uSec_Tick_proc: process( Clock, Reset )

  uSec_Tick_proc: process( Clock, Reset )

  begin

  begin

    if( Reset = Reset_Level )then

    if( Reset = Reset_Level )then

      uSec_Cntr              <= USEC_DLY;

      uSec_Cntr              <= USEC_DLY;

      uSec_Tick              <= '0';

      uSec_Tick              <= '0';

    elsif( rising_edge( Clock ) )then

    elsif( rising_edge( Clock ) )then

      uSec_Cntr              <= uSec_Cntr - 1;

      uSec_Cntr              <= uSec_Cntr - 1;

      if( or_reduce(uSec_Cntr) = '0' )then

      if( or_reduce(uSec_Cntr) = '0' )then

        uSec_Cntr            <= USEC_DLY;

        uSec_Cntr            <= USEC_DLY;

      end if;

      end if;

      uSec_Tick              <= nor_reduce(uSec_Cntr);

      uSec_Tick              <= nor_reduce(uSec_Cntr);

    end if;

    end if;

  end process;

  end process;

  Open8_Bus.Clock            <= Clock;

  Open8_Bus.Clock            <= Clock;

  Open8_Bus.Reset            <= Reset;

  Open8_Bus.Reset            <= Reset;

  Open8_Bus.uSec_Tick        <= uSec_Tick;

  Open8_Bus.uSec_Tick        <= uSec_Tick;

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

-- Address bus selection/generation logic

-- Address bus selection/generation logic

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

  Address_Logic: process(CPU_State, Regfile, SubOp, SubOp_p1, Operand1,

  Address_Logic: process(CPU_State, Regfile, SubOp, SubOp_p1, Operand1,

                         Operand2, Program_Ctr, Stack_Ptr, ISR_Addr )

                         Operand2, Program_Ctr, Stack_Ptr, ISR_Addr )

    variable Reg, Reg_1      : integer range 0 to 7 := 0;

    variable Reg, Reg_1      : integer range 0 to 7 := 0;

    variable Offset_SX       : ADDRESS_TYPE;

    variable Offset_SX       : ADDRESS_TYPE;

  begin

  begin

    if( Enable_Auto_Increment )then

    if( Enable_Auto_Increment )then

      Reg                    := conv_integer(SubOp(2 downto 1) & '0');

      Reg                    := conv_integer(SubOp(2 downto 1) & '0');

      Reg_1                  := conv_integer(SubOp(2 downto 1) & '1');

      Reg_1                  := conv_integer(SubOp(2 downto 1) & '1');

    else

    else

      Reg                    := conv_integer(SubOp);

      Reg                    := conv_integer(SubOp);

      Reg_1                  := conv_integer(SubOp_p1);

      Reg_1                  := conv_integer(SubOp_p1);

    end if;

    end if;

    Offset_SX(15 downto 0)   := (others => Operand1(7));

    Offset_SX(15 downto 0)   := (others => Operand1(7));

    Offset_SX(7 downto 0)    := Operand1;

    Offset_SX(7 downto 0)    := Operand1;

    case( CPU_State )is

    case( CPU_State )is

      when LDA_C2 | STA_C2 =>

      when LDA_C2 | STA_C2 =>

        Open8_Bus.Address    <= Operand2 & Operand1;

        Open8_Bus.Address    <= Operand2 & Operand1;

      when LDX_C1 | STX_C1 =>

      when LDX_C1 | STX_C1 =>

        Open8_Bus.Address    <= (Regfile(Reg_1) & Regfile(Reg));

        Open8_Bus.Address    <= (Regfile(Reg_1) & Regfile(Reg));

      when LDO_C1 | STO_C1 =>

      when LDO_C1 | STO_C1 =>

        Open8_Bus.Address    <= (Regfile(Reg_1) & Regfile(Reg)) + Offset_SX;

        Open8_Bus.Address    <= (Regfile(Reg_1) & Regfile(Reg)) + Offset_SX;

      when ISR_C1 | ISR_C2 =>

      when ISR_C1 | ISR_C2 =>

        Open8_Bus.Address    <= ISR_Addr;

        Open8_Bus.Address    <= ISR_Addr;

      when PSH_C1 | POP_C1 | ISR_C3 | JSR_C1 | JSR_C2 | RTS_C1 | RTS_C2 | RTS_C3 =>

      when PSH_C1 | POP_C1 | ISR_C3 | JSR_C1 | JSR_C2 | RTS_C1 | RTS_C2 | RTS_C3 =>

        Open8_Bus.Address    <= Stack_Ptr;

        Open8_Bus.Address    <= Stack_Ptr;

      when others =>

      when others =>

        Open8_Bus.Address    <= Program_Ctr;

        Open8_Bus.Address    <= Program_Ctr;

    end case;

    end case;

  end process;

  end process;

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

-- Combinatorial portion of CPU finite state machine

-- Combinatorial portion of CPU finite state machine

-- State Logic / Instruction Decoding & Execution

-- State Logic / Instruction Decoding & Execution

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

  State_Logic: process(CPU_State, Flags, Int_Mask, CPU_Halt_Req, Opcode,

  State_Logic: process(CPU_State, Flags, Int_Mask, CPU_Halt_Req, Opcode,

                       SubOp , SubOp_p1, Operand1, Operand2, Int_Req )

                       SubOp , SubOp_p1, Operand1, Operand2, Int_Req )

    variable Reg             : integer range 0 to 7 := 0;

    variable Reg             : integer range 0 to 7 := 0;

  begin

  begin

    CPU_Next_State           <= CPU_State;

    CPU_Next_State           <= CPU_State;

    Cache_Ctrl               <= CACHE_IDLE;

    Cache_Ctrl               <= CACHE_IDLE;

    --

    --

    PC_Ctrl.Oper             <= PC_INCR;

    PC_Ctrl.Oper             <= PC_INCR;

    PC_Ctrl.Offset           <= PC_IDLE;

    PC_Ctrl.Offset           <= PC_IDLE;

    --

    --

    ALU_Ctrl.Oper            <= ALU_IDLE;

    ALU_Ctrl.Oper            <= ALU_IDLE;

    ALU_Ctrl.Reg             <= ACCUM;

    ALU_Ctrl.Reg             <= ACCUM;

    --

    --

    SP_Ctrl.Oper             <= SP_IDLE;

    SP_Ctrl.Oper             <= SP_IDLE;

    --

    --

    DP_Ctrl.Src              <= DATA_RD_MEM;

    DP_Ctrl.Src              <= DATA_RD_MEM;

    DP_Ctrl.Reg              <= ACCUM;

    DP_Ctrl.Reg              <= ACCUM;

    --

    --

    INT_Ctrl.Mask_Set        <= '0';

    INT_Ctrl.Mask_Set        <= '0';

    INT_Ctrl.Soft_Ints       <= x"00";

    INT_Ctrl.Soft_Ints       <= x"00";

    INT_Ctrl.Incr_ISR        <= '0';

    INT_Ctrl.Incr_ISR        <= '0';

    Ack_D                    <= '0';

    Ack_D                    <= '0';

    --

    --

    Reg                     := conv_integer(SubOp);

    Reg                     := conv_integer(SubOp);

    --

    --

    CPU_Halt_Ack             <= '0';

    CPU_Halt_Ack             <= '0';

    case CPU_State is

    case CPU_State is

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

-- Initial Instruction fetch & decode

-- Initial Instruction fetch & decode

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

      when IPF_C0 =>

      when IPF_C0 =>

        CPU_Next_State       <= IPF_C1;

        CPU_Next_State       <= IPF_C1;

        PC_Ctrl.Offset       <= PC_NEXT;

        PC_Ctrl.Offset       <= PC_NEXT;

      when IPF_C1 =>

      when IPF_C1 =>

        CPU_Next_State       <= IPF_C2;

        CPU_Next_State       <= IPF_C2;

        PC_Ctrl.Offset       <= PC_NEXT;

        PC_Ctrl.Offset       <= PC_NEXT;

      when IPF_C2 =>

      when IPF_C2 =>

        CPU_Next_State       <= IDC_C0;

        CPU_Next_State       <= IDC_C0;

        Cache_Ctrl           <= CACHE_INSTR;

        Cache_Ctrl           <= CACHE_INSTR;

        PC_Ctrl.Offset       <= PC_NEXT;

        PC_Ctrl.Offset       <= PC_NEXT;

      when IDC_C0 =>

      when IDC_C0 =>

        CPU_Next_State       <= IDC_C0;

        CPU_Next_State       <= IDC_C0;

        Cache_Ctrl           <= CACHE_INSTR;

        Cache_Ctrl           <= CACHE_INSTR;

        case Opcode is

        case Opcode is

          when OP_PSH =>

          when OP_PSH =>

            CPU_Next_State   <= PSH_C1;

            CPU_Next_State   <= PSH_C1;

            Cache_Ctrl       <= CACHE_PREFETCH;

            Cache_Ctrl       <= CACHE_PREFETCH;

            PC_Ctrl.Offset   <= PC_REV1;

            PC_Ctrl.Offset   <= PC_REV1;

            DP_Ctrl.Src      <= DATA_WR_REG;

            DP_Ctrl.Src      <= DATA_WR_REG;

            DP_Ctrl.Reg      <= SubOp;

            DP_Ctrl.Reg      <= SubOp;

          when OP_POP =>

          when OP_POP =>

            CPU_Next_State   <= POP_C1;

            CPU_Next_State   <= POP_C1;

            Cache_Ctrl       <= CACHE_PREFETCH;

            Cache_Ctrl       <= CACHE_PREFETCH;

            PC_Ctrl.Offset   <= PC_REV2;

            PC_Ctrl.Offset   <= PC_REV2;

            SP_Ctrl.Oper     <= SP_POP;

            SP_Ctrl.Oper     <= SP_POP;

          when OP_BR0 | OP_BR1 =>

          when OP_BR0 | OP_BR1 =>

            CPU_Next_State   <= BRN_C1;

            CPU_Next_State   <= BRN_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

            PC_Ctrl.Offset   <= PC_NEXT;

            PC_Ctrl.Offset   <= PC_NEXT;

          when OP_DBNZ =>

          when OP_DBNZ =>

            CPU_Next_State   <= DBNZ_C1;

            CPU_Next_State   <= DBNZ_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

            PC_Ctrl.Offset   <= PC_NEXT;

            PC_Ctrl.Offset   <= PC_NEXT;

            ALU_Ctrl.Oper    <= ALU_DEC;

            ALU_Ctrl.Oper    <= ALU_DEC;

            ALU_Ctrl.Reg     <= SubOp;

            ALU_Ctrl.Reg     <= SubOp;

          when OP_INT =>

          when OP_INT =>

            PC_Ctrl.Offset   <= PC_NEXT;

            PC_Ctrl.Offset   <= PC_NEXT;

            -- Make sure the requested interrupt is actually enabled first.

            -- Make sure the requested interrupt is actually enabled first.

            --  Also, unlike CPU_Halt, the INT instruction is actually being

            --  Also, unlike CPU_Halt, the INT instruction is actually being

            --  executed, so go ahead and increment the program counter before

            --  executed, so go ahead and increment the program counter before

            --  pausing so the CPU restarts on the next instruction.

            --  pausing so the CPU restarts on the next instruction.

            if( Int_Mask(Reg) = '1' )then

            if( Int_Mask(Reg) = '1' )then

              CPU_Next_State <= WAI_Cx;

              CPU_Next_State <= WAI_Cx;

              INT_Ctrl.Soft_Ints(Reg) <= '1';

              INT_Ctrl.Soft_Ints(Reg) <= '1';

            end if;

            end if;

          when OP_STK =>

          when OP_STK =>

            case SubOp is

            case SubOp is

              when SOP_RSP  =>

              when SOP_RSP  =>

                PC_Ctrl.Offset <= PC_NEXT;

                PC_Ctrl.Offset <= PC_NEXT;

                if( not Allow_Stack_Address_Move )then

                if( not Allow_Stack_Address_Move )then

                  -- The default behavior for this instruction is to simply

                  -- The default behavior for this instruction is to simply

                  --  repoint the SP to the HDL default

                  --  repoint the SP to the HDL default

                  SP_Ctrl.Oper    <= SP_CLR;

                  SP_Ctrl.Oper    <= SP_CLR;

                end if;

                end if;

                if( Allow_Stack_Address_Move and

                if( Allow_Stack_Address_Move and

                    Flags(Stack_Xfer_Flag) = '1' )then

                    Flags(Stack_Xfer_Flag) = '1' )then

                  -- If RSP is set to allow SP moves, and the specified flag

                  -- If RSP is set to allow SP moves, and the specified flag

                  --  is true, then signal the stack pointer logic to load

                  --  is true, then signal the stack pointer logic to load

                  --  from R1:R0

                  --  from R1:R0

                  SP_Ctrl.Oper    <= SP_SET;

                  SP_Ctrl.Oper    <= SP_SET;

                end if;

                end if;

                if( Allow_Stack_Address_Move and

                if( Allow_Stack_Address_Move and

                    Flags(Stack_Xfer_Flag) = '0')then

                    Flags(Stack_Xfer_Flag) = '0')then

                  -- If RSP is set to allow SP moves, and the specified flag

                  -- If RSP is set to allow SP moves, and the specified flag

                  --  is false, then signal the ALU to copy the stack pointer

                  --  is false, then signal the ALU to copy the stack pointer

                  --  to R1:R0

                  --  to R1:R0

                  ALU_Ctrl.Oper   <= ALU_RSP;

                  ALU_Ctrl.Oper   <= ALU_RSP;

                end if;

                end if;

              when SOP_RTS | SOP_RTI =>

              when SOP_RTS | SOP_RTI =>

                CPU_Next_State    <= RTS_C1;

                CPU_Next_State    <= RTS_C1;

                Cache_Ctrl        <= CACHE_IDLE;

                Cache_Ctrl        <= CACHE_IDLE;

                SP_Ctrl.Oper      <= SP_POP;

                SP_Ctrl.Oper      <= SP_POP;

              when SOP_BRK  =>

              when SOP_BRK  =>

                if( BRK_Implements_WAI )then

                if( BRK_Implements_WAI )then

                  -- If BRK_Implements_WAI, then jump to the WAI_Cx and

                  -- If BRK_Implements_WAI, then jump to the WAI_Cx and

                  --  increment the PC similar to an ISR flow.

                  --  increment the PC similar to an ISR flow.

                  CPU_Next_State  <= WAI_Cx;

                  CPU_Next_State  <= WAI_Cx;

                  PC_Ctrl.Offset  <= PC_NEXT;

                  PC_Ctrl.Offset  <= PC_NEXT;

                else

                else

                -- If Break is implemented normally, back the PC up by

                -- If Break is implemented normally, back the PC up by

                --  2 and return through IPF_C0 in order to execute a 5

                --  2 and return through IPF_C0 in order to execute a 5

                --  clock cycle delay

                --  clock cycle delay

                  CPU_Next_State  <= BRK_C1;

                  CPU_Next_State  <= BRK_C1;

                  PC_Ctrl.Offset  <= PC_REV2;

                  PC_Ctrl.Offset  <= PC_REV2;

                end if;

                end if;

              when SOP_JMP  =>

              when SOP_JMP  =>

                CPU_Next_State    <= JMP_C1;

                CPU_Next_State    <= JMP_C1;

                Cache_Ctrl        <= CACHE_OPER1;

                Cache_Ctrl        <= CACHE_OPER1;

              when SOP_SMSK =>

              when SOP_SMSK =>

                PC_Ctrl.Offset    <= PC_NEXT;

                PC_Ctrl.Offset    <= PC_NEXT;

                INT_Ctrl.Mask_Set <= '1';

                INT_Ctrl.Mask_Set <= '1';

              when SOP_GMSK =>

              when SOP_GMSK =>

                PC_Ctrl.Offset    <= PC_NEXT;

                PC_Ctrl.Offset    <= PC_NEXT;

                ALU_Ctrl.Oper     <= ALU_GMSK;

                ALU_Ctrl.Oper     <= ALU_GMSK;

              when SOP_JSR =>

              when SOP_JSR =>

                CPU_Next_State <= JSR_C1;

                CPU_Next_State <= JSR_C1;

                Cache_Ctrl        <= CACHE_OPER1;

                Cache_Ctrl        <= CACHE_OPER1;

                DP_Ctrl.Src       <= DATA_WR_PC;

                DP_Ctrl.Src       <= DATA_WR_PC;

                DP_Ctrl.Reg       <= PC_MSB;

                DP_Ctrl.Reg       <= PC_MSB;

              when others => null;

              when others => null;

            end case;

            end case;

          when OP_MUL =>

          when OP_MUL =>

            CPU_Next_State   <= MUL_C1;

            CPU_Next_State   <= MUL_C1;

            -- Multiplication requires a single clock cycle to calculate PRIOR

            -- Multiplication requires a single clock cycle to calculate PRIOR

            --  to the ALU writing the result to registers. As a result, this

            --  to the ALU writing the result to registers. As a result, this

            --  state needs to idle the ALU initially, and back the PC up by 1

            --  state needs to idle the ALU initially, and back the PC up by 1

            -- We can get away with only 1 extra clock by pre-fetching the

            -- We can get away with only 1 extra clock by pre-fetching the

            --  next instruction, though.

            --  next instruction, though.

            Cache_Ctrl       <= CACHE_PREFETCH;

            Cache_Ctrl       <= CACHE_PREFETCH;

            PC_Ctrl.Offset   <= PC_REV1;

            PC_Ctrl.Offset   <= PC_REV1;

            -- Note that both the multiply process AND ALU process need the

            -- Note that both the multiply process AND ALU process need the

            --  source register for Rn (R1:R0 = R0 * Rn). Assert ALU_Ctrl.reg

            --  source register for Rn (R1:R0 = R0 * Rn). Assert ALU_Ctrl.reg

            --  now, but hold off on the ALU command until the next state.

            --  now, but hold off on the ALU command until the next state.

            ALU_Ctrl.Oper    <= ALU_IDLE;

            ALU_Ctrl.Oper    <= ALU_IDLE;

            ALU_Ctrl.Reg     <= SubOp;

            ALU_Ctrl.Reg     <= SubOp;

          when OP_UPP =>

          when OP_UPP =>

            CPU_Next_State   <= UPP_C1;

            CPU_Next_State   <= UPP_C1;

            Cache_Ctrl       <= CACHE_PREFETCH;

            Cache_Ctrl       <= CACHE_PREFETCH;

            PC_Ctrl.Offset   <= PC_REV1;

            PC_Ctrl.Offset   <= PC_REV1;

            ALU_Ctrl.Oper    <= Opcode;

            ALU_Ctrl.Oper    <= Opcode;

            ALU_Ctrl.Reg     <= SubOp;

            ALU_Ctrl.Reg     <= SubOp;

          when OP_LDA =>

          when OP_LDA =>

            CPU_Next_State   <= LDA_C1;

            CPU_Next_State   <= LDA_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

          when OP_LDI =>

          when OP_LDI =>

            CPU_Next_State   <= LDI_C1;

            CPU_Next_State   <= LDI_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

            PC_Ctrl.Offset   <= PC_NEXT;

            PC_Ctrl.Offset   <= PC_NEXT;

          when OP_LDO =>

          when OP_LDO =>

            CPU_Next_State   <= LDO_C1;

            CPU_Next_State   <= LDO_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

            PC_Ctrl.Offset   <= PC_REV2;

            PC_Ctrl.Offset   <= PC_REV2;

          when OP_LDX =>

          when OP_LDX =>

            CPU_Next_State   <= LDX_C1;

            CPU_Next_State   <= LDX_C1;

            Cache_Ctrl       <= CACHE_PREFETCH;

            Cache_Ctrl       <= CACHE_PREFETCH;

            PC_Ctrl.Offset   <= PC_REV2;

            PC_Ctrl.Offset   <= PC_REV2;

          when OP_STA =>

          when OP_STA =>

            CPU_Next_State   <= STA_C1;

            CPU_Next_State   <= STA_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

          when OP_STO =>

          when OP_STO =>

            CPU_Next_State   <= STO_C1;

            CPU_Next_State   <= STO_C1;

            Cache_Ctrl       <= CACHE_OPER1;

            Cache_Ctrl       <= CACHE_OPER1;

            PC_Ctrl.Offset   <= PC_REV2;

            PC_Ctrl.Offset   <= PC_REV2;

            DP_Ctrl.Src      <= DATA_WR_REG;

            DP_Ctrl.Src      <= DATA_WR_REG;

            DP_Ctrl.Reg      <= ACCUM;

            DP_Ctrl.Reg      <= ACCUM;

          when OP_STX =>

          when OP_STX =>

            CPU_Next_State   <= STX_C1;

            CPU_Next_State   <= STX_C1;

            Cache_Ctrl       <= CACHE_PREFETCH;

            Cache_Ctrl       <= CACHE_PREFETCH;

            PC_Ctrl.Offset   <= PC_REV2;

            PC_Ctrl.Offset   <= PC_REV2;

            DP_Ctrl.Src      <= DATA_WR_REG;

            DP_Ctrl.Src      <= DATA_WR_REG;

            DP_Ctrl.Reg      <= ACCUM;

            DP_Ctrl.Reg      <= ACCUM;

          when others =>

          when others =>

            PC_Ctrl.Offset   <= PC_NEXT;

            PC_Ctrl.Offset   <= PC_NEXT;

            ALU_Ctrl.Oper    <= Opcode;

            ALU_Ctrl.Oper    <= Opcode;

            ALU_Ctrl.Reg     <= SubOp;

            ALU_Ctrl.Reg     <= SubOp;

        end case;

        end case;