CPLD被STM32读写VHDL程序
--本程序用来测试STM32对CPLD的读写操作
--测试功能如下：
--向0x05地址写入0x01,LED灯停止闪烁，写入其他数据闪烁继续
--0x03,0x04寄存器为定值，可以通过STM32读取然后使用串口输出看看是否一致
--文件名：AD.vhd
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity AD is
port(
-- 系统信号线
CLK: in std_logic;
LED: out std_logic;
-- ARM相连的信号线
Adr_L: in std_logic_vector(7 downto 0); --A7...A0,只使用了低八位地址线
D: inout std_logic_vector(7 downto 0); --只使用了低八位数据线
FSMC_NE4: in std_logic;
FSMC_NOE: in std_logic;
FSMC_NWE: in std_logic
);
end AD;
architecture art of AD is
--设置存储数据的寄存器
signal AD0_H_data,AD0_L_data,AD1_H_data,AD1_L_data,LED_ctrl: std_logic_vector(7 downto 0);
--数据缓冲寄存器
signal data_buf: std_logic_vector(7 downto 0);
--数据输出控制
signal data_outctl: std_logic;
signal datacnt:integer range 0 to 4000000;--分频计数
--LED闪烁使能
signal LED_flag: std_logic;
--统一编址，地址线数据线为八位，每个地址数据宽度8位
--"00000001" AD0_H_data 0x01
--"00000010" AD0_L_data 0x02
--"00000011" AD1_H_data 0x03
--"00000100" AD1_L_data 0x04
--"00000101" LED_ctrl 0x05
begin
AD1_H_data <="10100001";
AD1_L_data <="00010001";
--LED 闪烁，用作CPLD运行指示
process(LED_ctrl) is
begin
if(LED_ctrl="00000001") then
LED_flag <= '0';
else
LED_flag <= '1';
end if;
end process;
process(CLK)is
begin
if(CLK'event and CLK='1') then
if(LED_flag='1') then
datacnt<=datacnt+1;
if (datacnt>2000000) then
LED <= '1';
end if;
if (datacnt>=4000000) then
LED <='0';
datacnt <=0;
end if;
end if;
end if;
end process;
--当读取CPLD数据时用来判断何时向总线上输出数据
data_outctl <= (not FSMC_NE4) and (not FSMC_NOE) and (FSMC_NWE);
D <= data_buf when (data_outctl='1') else "ZZZZZZZZ";--向数据线输出数据，否则保持为高阻态
-- 写操作,模式1,时序图在数据手册P331
process(FSMC_NE4,FSMC_NWE,Adr_L,FSMC_NOE) is --,FSMC_NBL,D,RESET
begin
if(FSMC_NWE'event and FSMC_NWE='1') then
if((FSMC_NOE and (not FSMC_NE4))='1') then
case (Adr_L) is
when "00000001" =>
AD0_H_data<= D; --0x01
when "00000010" =>
AD0_L_data<= D; --0x02
when "00000101" =>
LED_ctrl<= D; --0x05
when others =>
AD0_H_data<= AD0_H_data;
AD0_L_data<= AD0_L_data;
end case;
end if;
end if;
end process;
--读操作,模式1,P331
process(FSMC_NE4,FSMC_NWE,Adr_L,FSMC_NOE) is
begin
if(FSMC_NOE='0' and FSMC_NOE'event) then --直接在NOE的下降沿更新数据
case (Adr_L) is
when "00000001" =>
data_buf <= AD0_H_data; --0x01
when "00000010" =>
data_buf <= AD0_L_data; --0x02
when "00000011" =>
data_buf <= AD1_H_data; --0x03
when "00000100" =>
data_buf <= AD1_L_data; --0x04
when others => data_buf <= "ZZZZZZZZ";
end case;
end if;
end process;
end;