|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？注册
×
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity XC2S15 is
Port (
CP : IN STD_LOGIC ; --CLK
A : IN STD_LOGIC_VECTOR(10 DOWNTO 0); --A0-A10 ADD ISA总线的11位地址线
IOR : IN STD_LOGIC ; --Read Signal
IOW : IN STD_LOGIC ; --Writ Signal
AEN : IN STD_LOGIC ; --Add Free
IO16 : OUT STD_LOGIC; --16IO
CP5:OUT STD_LOGIC;--
PLUSE: OUT STD_LOGIC;
I: INOUT STD_LOGIC_VECTOR(15 DOWNTO 0) --D0-D15
);
end XC2S15;
architecture Behavioral of XC2S15 is
SIGNAL BUF2:STD_LOGIC_VECTOR (15 DOWNTO 0);
SIGNAL Y7,Y8,Y9:STD_LOGIC;
SIGNAL ADD : STD_LOGIC_VECTOR (13 DOWNTO 0); --ADD+IOR+IOW+AED
SIGNAL OUTPUT : STD_LOGIC_VECTOR (4 DOWNTO 0); --OUTPUT CONECL
SIGNAL BUFX2: STD_LOGIC_VECTOR (13 DOWNTO 0);
SIGNAL STAGESBUF:STD_LOGIC_VECTOR (13 DOWNTO 0);
SIGNAL ORDER:STD_LOGIC_VECTOR (13 DOWNTO 0);
SIGNAL QN :STD_LOGIC_VECTOR (3 DOWNTO 0);
SIGNAL CP1,CP2,CP4,RST:STD_LOGIC;
SIGNAL COUNTER :STD_LOGIC_VECTOR (15 DOWNTO 0);
SIGNAL DLY :STD_LOGIC;
SIGNAL SINX:STD_LOGIC;
SIGNAL XAXA:STD_LOGIC;
begin
ADD(13)<=A(10); -- \
ADD(12)<=A(9); -- |
ADD(11)<=A(8); -- |
ADD(10)<=A(7); -- |
ADD(9)<=A(6); -- |
ADD(8)<=A(5); -- |
ADD(7)<=A(4); -- > ADD
ADD(6)<=A(3); -- |
ADD(5)<=A(2); -- |
ADD(4)<=A(1); -- |
ADD(3)<=A(0); -- |
ADD(2)<=IOR; -- |
ADD(1)<=IOW; -- |
ADD(0)<=AEN; -- /
OUTPUT<="00010" WHEN ADD="01100000000010" ELSE --0X300 --read BUFX status
"00100" WHEN ADD="01100000010100" ELSE --0X302 --write stages
"01000" WHEN ADD="01100001010100" ELSE --0X30A
"00001" ;
Y9<=OUTPUT(3); --写脉冲数
Y8<=OUTPUT(2); --写分频数
Y7<=OUTPUT(1); --读状态
IO16<=OUTPUT(0); --ISA总线16位数据选择信号，0有效
PROCESS(Y7)
BEGIN
IF Y7='1' THEN--BUF2为BUFX2空与满的标志，I是ISA16位数据总线
I<=BUF2;
ELSE
I<="ZZZZZZZZZZZZZZZZ";
END IF;
END PROCESS;
PROCESS(Y9,CP2,CP)
VARIABLE BUFX2 :STD_LOGIC_VECTOR(15 DOWNTO 0);
BEGIN
IF Y9='1' THEN --写脉冲数BUFX2减一次，XAXA翻转一次，BUFX2减两次，PLUSE输出一个脉冲
BUFY2:=I;
ELSIF BUFX2/="0000000000000000" THEN
IF CP2' EVENT AND CP2='1' THEN --根据任意分频数分出的频率CP2进行
BUFX2:=BUFX2-1;
XAXA<=NOT XAXA;
END IF;
SINX<='1';
ELSE
SINX<='0';
END IF;
IF BUFX2="0000000000000000" THEN
BUF2<="1010101010101010";
ELSE
BUF2<="0000000000000000";
END IF;
END PROCESS;
PROCESS(Y8)
BEGIN
IF Y8='1' THEN
STAGESBUF<=I;
END IF;
END PROCESS;
PROCESS(CP,RST) --10分频 CP=10M CP1=1M
BEGIN
IF RST='1'THEN
QN<="0000";
ELSIF CP' EVENT AND CP='1' THEN
QN<=QN+1;
END IF;
END PROCESS;
RST<='1' WHEN QN=10 ELSE
'0';
CP1<=QN(2);
PROCESS(CP1) --根据STAGESBUF任意分频 CP2=CP1 * (STAGESBUF/32767)
BEGIN
IF CP1' EVENT AND CP1='1' THEN
DLY<=COUNTER(15);
COUNTER<=COUNTER+STAGESBUF;
END IF;
CP2<=(COUNTER(15) XOR DLY) AND NOT CP1;
CP5<=CP1;
END PROCESS;
PLUSE<=XAXA WHEN SINY='1' ELSE --PLUSE为输出的脉冲
'0';
end Behavioral;
通过ISA总线读0X300，假如为0XAAAA，表示BUFX2为空，通过0X302写入STAGESBUF，通过0X30A写入BUFX2
就可以看到PLUSE输出口有以CP2的频率输出BUFX2/2个等宽脉冲。
我每次以2K的频率来读0X300，频率不高，我的CP被自动指定为全局时钟，我用IBUFG+BUFG。
运行一次或几百次都没有问题，但连续运行几个小时就要出现脉冲数不准的现相。没有规律，不知道是为什么
？？？
我用ISE6.1 进行综合、布线，有没有问题？？？是不是因为XST的综合出问题？？
|
|
/1 
eetop公众号
创芯大讲堂
创芯人才网
IP卡
狗仔卡
发表于 2004-6-3 09:36:40
提升卡
沉默卡
喧嚣卡
变色卡
发表于 2004-6-4 16:29:19
创芯人才网