6502/AtomBusMon
1
0
Fork 0
mirror of https://github.com/hoglet67/AtomBusMon.git synced 2024-06-26 15:29:47 +00:00
Code Issues Projects Releases Wiki Activity

In ICE-T65 fixed the timing of ICE initiated read/write cycles to give them a whole cycle

Browse Source 
Change-Id: I6bfdf624ad4340a219096f231334ec8a9bbfc5af
This commit is contained in:
David Banks 2015-10-26 12:54:17 +00:00
parent aa91a4826c
commit 9c4b9aa944
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
AtomCpuMon.bit
View File

Binary file not shown.

25
src/AtomCpuMon.vhd
View File

@ -94,8 +94,11 @@ architecture behavioral of AtomCpuMon is
signal Regs : std_logic_vector(63 downto 0);
signal Regs1 : std_logic_vector(255 downto 0);
signal memory_rd : std_logic;
signal memory_rd1 : std_logic;
signal memory_wr : std_logic;
signal memory_wr1 : std_logic;
signal memory_addr : std_logic_vector(15 downto 0);
signal memory_addr1 : std_logic_vector(15 downto 0);
signal memory_dout : std_logic_vector(7 downto 0);
signal memory_din : std_logic_vector(7 downto 0);
signal memory_done : std_logic;
@ -196,9 +199,21 @@ begin
IRQ_n_sync <= IRQ_n;
end if;
end process;
-- this block delays memory_rd, memory_wr, memory_addr until the start of the next cpu clk cycle
-- necessary because the cpu mon block is clocked of the opposite edge of the clock
-- this allows a full cpu clk cycle for cpu mon reads and writes
mem_gen : process(cpu_clk)
begin
if rising_edge(cpu_clk) then
memory_rd1 <= memory_rd;
memory_wr1 <= memory_wr;
memory_addr1 <= memory_addr;
end if;
end process;
R_W_n <= '1' when memory_rd = '1' else '0' when memory_wr = '1' else R_W_n_int;
Addr <= memory_addr when (memory_rd = '1' or memory_wr = '1') else Addr_int;
R_W_n <= '1' when memory_rd1 = '1' else '0' when memory_wr1 = '1' else R_W_n_int;
Addr <= memory_addr1 when (memory_rd1 = '1' or memory_wr1 = '1') else Addr_int;
Sync <= Sync_int;
data_latch : process(Phi0)
@ -213,11 +228,11 @@ begin
end if;
end process;
Data <= memory_dout when Phi0_c = '1' and memory_wr = '1' else
Dout when Phi0_c = '1' and R_W_n_int = '0' and memory_rd = '0' else
Data <= memory_dout when Phi0_c = '1' and memory_wr1 = '1' else
Dout when Phi0_c = '1' and R_W_n_int = '0' and memory_rd1 = '0' else
(others => 'Z');
memory_done <= memory_rd or memory_wr;
memory_done <= memory_rd1 or memory_wr1;
clk_gen : process(clock49)
begin