Apple-2-HW/AppleIISd
1
0
Fork 1
mirror of https://github.com/freitz85/AppleIISd.git synced 2024-06-26 01:29:31 +00:00
Code Issues Projects Releases Wiki Activity

More VDHL tests added

Browse Source
This commit is contained in:
freitz85 2017-10-15 20:58:33 +02:00
parent f20a1d529d
commit 70def47cf2
3 changed files with 61 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VHDL/AppleIISd.jed
View File

@ -1,5 +1,5 @@
Programmer Jedec Bit Map Programmer Jedec Bit Map
Date Extracted: Fri Oct 13 23:00:44 2017 Date Extracted: Sun Oct 15 20:52:38 2017
QF46656* QF46656*
QP44* QP44*

4
VHDL/AppleIISd.vhd
View File

@ -55,7 +55,8 @@ Port (
-- synthesis translate_off -- synthesis translate_off
; ;
data_dbg : out std_logic_vector (7 downto 0); data_dbg : out std_logic_vector (7 downto 0);
add_dbg : out std_logic_vector (1 downto 0) add_dbg : out std_logic_vector (1 downto 0);
data_en_dbg : out std_logic
-- synthesis translate_on -- synthesis translate_on
); );
@ -161,6 +162,7 @@ begin
-- synthesis translate_off -- synthesis translate_off
data_dbg <= data_in; data_dbg <= data_in;
add_dbg <= addr_low_int; add_dbg <= addr_low_int;
data_en_dbg <= data_en;
-- synthesis translate_on -- synthesis translate_on
data_latch: process(CLK) data_latch: process(CLK)

61
VHDL/AppleIISd_Test.vhd
View File

@ -63,7 +63,8 @@ ARCHITECTURE behavior OF AppleIISd_Test IS
WP : IN std_logic; WP : IN std_logic;
data_dbg : out std_logic_vector (7 downto 0); data_dbg : out std_logic_vector (7 downto 0);
add_dbg : out std_logic_vector (1 downto 0) add_dbg : out std_logic_vector (1 downto 0);
data_en_dbg : out std_logic
); );
END COMPONENT; END COMPONENT;
@ -96,6 +97,7 @@ ARCHITECTURE behavior OF AppleIISd_Test IS
signal data_dbg : std_logic_vector (7 downto 0); signal data_dbg : std_logic_vector (7 downto 0);
signal add_dbg : std_logic_vector (1 downto 0); signal add_dbg : std_logic_vector (1 downto 0);
signal data_en_dbg : std_logic;
-- Clock period definitions -- Clock period definitions
constant CLK_period : time := 142 ns; constant CLK_period : time := 142 ns;
@ -136,7 +138,8 @@ BEGIN
WP => WP, WP => WP,
data_dbg => data_dbg, data_dbg => data_dbg,
add_dbg => add_dbg add_dbg => add_dbg,
data_en_dbg => data_en_dbg
); );
-- Clock process definitions -- Clock process definitions
@ -197,7 +200,7 @@ BEGIN
NDEV_SEL <= '0'; NDEV_SEL <= '0';
DATA <= (others => 'Z'); DATA <= (others => 'Z');
wait for DATA_valid; wait for DATA_valid;
DATA <= (others => '0'); DATA <= X"AA";
wait until falling_edge(PHI0); wait until falling_edge(PHI0);
NDEV_SEL <= '1'; NDEV_SEL <= '1';
wait for ADD_hold; wait for ADD_hold;
@ -236,7 +239,7 @@ BEGIN
NDEV_SEL <= '0'; NDEV_SEL <= '0';
DATA <= (others => 'Z'); DATA <= (others => 'Z');
wait for DATA_valid; wait for DATA_valid;
DATA <= (others => '0'); DATA <= X"AA";
wait until falling_edge(PHI0); wait until falling_edge(PHI0);
NDEV_SEL <= '1'; NDEV_SEL <= '1';
wait for ADD_hold; wait for ADD_hold;
@ -245,6 +248,56 @@ BEGIN
RNW <= '1'; RNW <= '1';
DATA <= (others => 'Z'); DATA <= (others => 'Z');
-- read eprom low
wait for 3 us;
wait until falling_edge(PHI0);
wait for ADD_valid;
ADD_LOW <= (others => '0');
ADD_HIGH <= (others => '0');
RNW <= '1';
DATA <= (others => 'U');
wait until rising_edge(PHI0);
NIO_SEL <= '0';
DATA <= (others => 'Z');
wait until falling_edge(PHI0);
NIO_SEL <= '1';
wait for ADD_hold;
ADD_LOW <= (others => 'U');
ADD_HIGH <= (others => 'U');
-- read $CFFF
wait until falling_edge(PHI0);
wait for ADD_valid;
ADD_LOW <= (others => '1');
ADD_HIGH <= (others => '1');
RNW <= '1';
DATA <= (others => 'U');
wait until rising_edge(PHI0);
NIO_STB <= '0';
DATA <= (others => 'Z');
wait until falling_edge(PHI0);
NIO_STB <= '1';
wait for ADD_hold;
ADD_LOW <= (others => 'U');
ADD_HIGH <= (others => 'U');
-- read eprom high
wait until falling_edge(PHI0);
wait for ADD_valid;
ADD_LOW <= (others => '0');
ADD_HIGH <= "101";
RNW <= '1';
DATA <= (others => 'U');
wait until rising_edge(PHI0);
NIO_SEL <= '0';
DATA <= (others => 'Z');
wait until falling_edge(PHI0);
NIO_SEL <= '1';
wait for ADD_hold;
ADD_LOW <= (others => 'U');
ADD_HIGH <= (others => 'U');
wait; wait;
end process; end process;