mirror of
https://github.com/hoglet67/AtomBusMon.git
synced 2025-08-15 15:27:23 +00:00
Further improvements to the clocking of the 6809 for Roland to try
Change-Id: Ida0384c65ca405f50652a3c26665d1c5adac0748
This commit is contained in:
BIN
MC6809CpuMon.bit
BIN
MC6809CpuMon.bit
Binary file not shown.
@@ -10,7 +10,7 @@
|
|||||||
* VERSION and NAME are used in the start-up message
|
* VERSION and NAME are used in the start-up message
|
||||||
********************************************************/
|
********************************************************/
|
||||||
|
|
||||||
#define VERSION "0.62"
|
#define VERSION "0.63"
|
||||||
|
|
||||||
#if (CPU == Z80)
|
#if (CPU == Z80)
|
||||||
#define NAME "ICE-T80"
|
#define NAME "ICE-T80"
|
||||||
|
@@ -293,9 +293,9 @@ begin
|
|||||||
begin
|
begin
|
||||||
if falling_edge(E) then
|
if falling_edge(E) then
|
||||||
Din <= Data;
|
Din <= Data;
|
||||||
memory_din <= Data;
|
|
||||||
end if;
|
end if;
|
||||||
end process;
|
end process;
|
||||||
|
memory_din <= Data;
|
||||||
|
|
||||||
Data <= memory_dout when TSC = '0' and E = '1' and memory_wr = '1' else
|
Data <= memory_dout when TSC = '0' and E = '1' and memory_wr = '1' else
|
||||||
Dout when TSC = '0' and E = '1' and R_W_n_int = '0' and memory_rd = '0' else
|
Dout when TSC = '0' and E = '1' and R_W_n_int = '0' and memory_rd = '0' else
|
||||||
@@ -336,7 +336,7 @@ begin
|
|||||||
|
|
||||||
-- Main clocks
|
-- Main clocks
|
||||||
cpu_clk <= Q;
|
cpu_clk <= Q;
|
||||||
busmon_clk <= not Q;
|
busmon_clk <= E;
|
||||||
|
|
||||||
-- Quadrature clock generator, unused in 6809E mode
|
-- Quadrature clock generator, unused in 6809E mode
|
||||||
quadrature_gen : process(EXTAL)
|
quadrature_gen : process(EXTAL)
|
||||||
|
Reference in New Issue
Block a user