6502/AtomBusMon
1
0
Fork 0
mirror of https://github.com/hoglet67/AtomBusMon.git synced 2025-08-15 15:27:23 +00:00
Code Issues Projects Releases Wiki Activity

Corrected the function of EXTAL and XTAL; version now 0.53

Browse Source 
Change-Id: Ib9c329b06827a83c8d9d307db12f16a91e2cb977
This commit is contained in:
David Banks
2015-07-04 17:50:03 +01:00
parent 3afc09c07d
commit 2677a945aa
3 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
MC6809CpuMon.bit
View File

Binary file not shown.

2
firmware/AtomBusMon.c
View File

@@ -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.52" #define VERSION "0.53"
#if (CPU == Z80) #if (CPU == Z80)
#define NAME "ICE-T80" #define NAME "ICE-T80"

16
src/MC6809ECpuMon.vhd
View File

@@ -29,13 +29,13 @@ entity MC6809ECpuMon is
clock49 : in std_logic; clock49 : in std_logic;
-- A locally generated test clock -- A locally generated test clock
-- 1.8457 MHz in E Mode (6809E) so it can drive E (PIN34) -- 1.8457 MHz in E Mode (6809E) so it can drive E (PIN34)
-- 7.3728 MHz in Normal Mode (6809) so it can drive XTAL (PIN39) -- 7.3728 MHz in Normal Mode (6809) so it can drive EXTAL (PIN38)
clock_test : out std_logic; clock_test : out std_logic;
-- 6809/6809E mode selection -- 6809/6809E mode selection
-- Jumper is between pins B1 and D1 -- Jumper is between pins B1 and D1
-- Jumper off is 6809 mode, where a 4x clock should be fed into XTAL (PIN39) -- Jumper off is 6809 mode, where a 4x clock should be fed into EXTAL (PIN38)
-- Jumper on is 6909E mode, where a 1x clock should be fed into E (PIN34) -- Jumper on is 6909E mode, where a 1x clock should be fed into E (PIN34)
EMode_n : in std_logic; EMode_n : in std_logic;
@@ -319,14 +319,14 @@ begin
MRDY <= '1' when EMode_n = '0' else PIN36; MRDY <= '1' when EMode_n = '0' else PIN36;
PIN38 <= LIC when EMode_n = '0' else 'Z'; PIN38 <= LIC when EMode_n = '0' else 'Z';
EXTAL <= PIN38 when EMode_n = '0' else '0'; EXTAL <= '0' when EMode_n = '0' else PIN38;
TSC <= PIN39 when EMode_n = '0' else '0'; TSC <= PIN39 when EMode_n = '0' else '0';
XTAL <= '0' when EMode_n = '0' else PIN39; XTAL <= '0' when EMode_n = '0' else PIN39;
-- A locally generated test clock -- A locally generated test clock
-- 1.8457 MHz in E Mode (6809E) so it can drive E (PIN34) -- 1.8457 MHz in E Mode (6809E) so it can drive E (PIN34)
-- 7.3728 MHz in Normal Mode (6809) so it can drive XTAL (PIN39) -- 7.3728 MHz in Normal Mode (6809) so it can drive EXTAL (PIN38)
clock_test <= clk_count(1) when EMode_n = '0' else clock7_3728; clock_test <= clk_count(1) when EMode_n = '0' else clock7_3728;
-- Main clocks -- Main clocks
@@ -334,9 +334,9 @@ begin
busmon_clk <= E; busmon_clk <= E;
-- Quadrature clock generator, unused in 6809E mode -- Quadrature clock generator, unused in 6809E mode
quadrature_gen : process(XTAL) quadrature_gen : process(EXTAL)
begin begin
if rising_edge(XTAL) then if rising_edge(EXTAL) then
if (MRDY = '1') then if (MRDY = '1') then
if (quadrature = "00") then if (quadrature = "00") then
quadrature <= "01"; quadrature <= "01";