blob: 9e65929a6717489032e4ea04a84a39be91c4affc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
use std.textio.all;
library work;
use work.zpu_config.all;
use work.zpupkg.all;
use work.txt_util.all;
entity zpu_io is
generic (
log_file: string := "log.txt"
);
port(
clk : in std_logic;
areset : in std_logic;
busy : out std_logic;
writeEnable : in std_logic;
readEnable : in std_logic;
write : in std_logic_vector(wordSize-1 downto 0);
read : out std_logic_vector(wordSize-1 downto 0);
addr : in std_logic_vector(maxAddrBit downto minAddrBit)
);
end zpu_io;
architecture behave of zpu_io is
signal timer_read : std_logic_vector(7 downto 0);
--signal timer_write : std_logic_vector(7 downto 0);
signal timer_we : std_logic;
signal serving : std_logic;
file l_file : TEXT open write_mode is log_file;
begin
timerinst: timer port map (
clk => clk,
areset => areset,
we => timer_we,
din => write(7 downto 0),
adr => addr(4 downto 2),
dout => timer_read);
busy <= writeEnable or readEnable;
timer_we <= writeEnable and addr(12);
process(areset, clk)
begin
if (areset = '1') then
-- timer_we <= '0';
elsif (clk'event and clk = '1') then
-- timer_we <= '0';
if writeEnable = '1' then
-- external interface (fixed address)
--<JK> extend compare to avoid waring messages
if ("000" & addr)=x"2028003" then
-- Write to UART
-- report "" & character'image(conv_integer(memBint)) severity note;
print(l_file, character'val(to_integer(unsigned(write))));
elsif addr(12)='1' then
-- report "xxx" severity failure;
-- timer_we <= '1';
else
print(l_file, character'val(to_integer(unsigned(write))));
-- report "Illegal IO write" severity warning;
end if;
end if;
read <= (others => '0');
if (readEnable = '1') then
--<JK> extend compare to avoid waring messages
if ("000" & addr)=x"0001001" then
read <= (0=>'1', others => '0'); -- recieve empty
elsif addr(12)='1' then
read(7 downto 0) <= timer_read;
elsif addr(11)='1' then
read(7 downto 0) <= ZPU_Frequency;
--<JK> extend compare to avoid waring messages
elsif ("000" & addr)=x"2028003" then
read <= (others => '0');
else
read <= (others => '0');
read(8) <= '1';
-- report "Illegal IO read" severity warning;
end if;
end if;
end if;
end process;
end behave;
|