发表于
2008-4-25 12:23:22
/*------------------------------------------------------------------
在Study-2812增强版上改写CPLD增加键盘测试功能
1.改压KEY1~KEY8时LED1~LED8亮为8位键盘测试,LED位单独控制
读0x5f00为读键盘
写0x5f00为写LED
2.增加CPLD版本号测试功能,按INT1键时LCD显示"CPLD可键盘测试"
菜农HotPower@126.com 2008.4.25 于西安大雁塔菜地
--------------------------------------------------------------------*/
//2006-06-15 还有5个输入信号未分配管脚，分别是PWM7,PWM8,PWM9,PWM10,CANRX0,CANTX,此芯片内部资源不足。
module DEV2812(EXINT5,A,D,INT1,CS1,NMI,SE,ME,IOPE6,IOPE5,CS_6963,SPICS,K1,L1,K2,L2,K3,L3,K4,L4,K5,PWM7,PWM8,PWM9,PWM10,CANRX0,CANTX,L5,K6,L6,K7,L7,K8,L8,NMI1,NMI2,EXINT1,EXINT2,EXINT3,EXINT4,WR,RD,DIR,OUT1,OUT2,OUT3,OUT4,OUT5,OUT6,OUT7,OUT8,IN1,IN2,IN3,IN4,IN5,IN6,IN7,IN8,OE485,SICLK,SIDIN,ACICS,CS1581,RS1581,CANTX0,CANRX);
output INT1,NMI,SE,ME,IOPE6,IOPE5,CS_6963,SPICS,L1,L2,L3,L4,L5,L6,L7,L8,DIR,OUT1,OUT2,OUT3,OUT4,OUT5,OUT6,OUT7,OUT8,OE485,SICLK,SIDIN,ACICS,CS1581,RS1581,CANTX0,CANRX;
input EXINT5,CS1,K1,K2,K3,K4,K5,K6,K7,K8,NMI1,NMI2,IN1,IN2,IN3,IN4,IN5,IN6,IN7,IN8,EXINT1,EXINT2,EXINT3,EXINT4,WR,RD,CANRX0,CANTX,PWM7,PWM8,PWM9,PWM10;
input [5:0] A;
inout [7:0] D;
reg [7:0] D_reg;
reg [7:0] Int_Data_reg;
reg Int_WR_reg;
reg RD_reg;
reg [7:0] OUT_reg;
reg INT1_reg,NMI_reg;
reg L1_reg,L2_reg,L3_reg,L4_reg,L5_reg,L6_reg,L7_reg,L8_reg;
reg CS1581_reg,RS1581_reg,CS_6963_reg,DIR_reg,IOPE5_reg;//SE_reg,ME_reg,IOPE6_reg,RD_reg,WR_reg;
reg SICLK_reg,SIDIN_reg,ACICS_reg;
//reg CS_DA_reg,LOAD_DA_reg;
reg OE485_reg,SPICS_reg;
reg [7:0] LED_Data_reg;
reg CANTX0_reg;
reg CANRX_reg;
initial//初始化模块好像无?
begin
CS1581_reg=1; //上电时1581不片选
RS1581_reg=1;//1581上电后不处于复位状态
Int_Data_reg=0;
RD_reg=0;
Int_WR_reg=0;
OUT_reg=0;
SICLK_reg=1;
SIDIN_reg=1;
ACICS_reg=1;
CS_6963_reg=1;
IOPE5_reg=1;
DIR_reg=1;
//LED_Data_reg=8'b11111111;
LED_Data_reg=8'h00;//开机LED全灭
end
always @ ( CS1)
begin
if(CS1==1'b0)
if(A==6'b010111)
CS1581_reg=0; //片选1581，地址为0x5700,读写地址相同。
else
CS1581_reg=1;
else
CS1581_reg=1;
end
always @ ( negedge RD )
begin
if(CS1==1'b0)
begin
if( A==6'b011110) //1581复位低地址为0x5e00，读操作；
RS1581_reg=0;
else if(A==6'b011101) //1581复位高地址为0x5d00，读操作。
RS1581_reg=1;
else if(A==6'b011100) //外部中断读地址为0x5c00,读操作。
begin
RD_reg=1;
D_reg=Int_Data_reg;
end
else if(A==6'b011011)//8路开关量输入，地址为0x5b00,读操作。
begin
RD_reg=1;
D_reg={IN8,IN7,IN6,IN5,IN4,IN3,IN2,IN1};
end
/*-------------------------------------------------------------
在此加入键盘测试功能,//8个按键地址,0x5f00
--------------------------------------------------------------*/
else if(A==6'b011111)
begin
RD_reg=1;
D_reg={K8,K7,K6,K5,K4,K3,K2,K1};
end
/*-------------------------------------------------------------
在此加入CPLD芯片接入测试功能
--------------------------------------------------------------*/
else if(A==6'b010101) //CPLD自检地址0x5500
begin
RD_reg=1;
D_reg=8'h5a;
end
else
RD_reg=0;
end
end
always @ ( posedge WR ) //写信号要用上升沿，否则数据可能不稳
begin
if(CS1==1'b0)
begin
if(A==6'b011100) //外部中断标志位写地址为0x5c00,写操作。
Int_WR_reg=1;
else if(A==6'b011011) //8路开半量输出，地址为0x5b00,写操作。
begin
OUT_reg=D;
end
else if(A==6'b011010) //AIC芯片模拟SPI口各信号选通，写操作,地址0x5a00
begin
// LOAD_DA_reg=D[4];
// CS_DA_reg=D[7];
ACICS_reg=D[2];
SIDIN_reg=D[1];
SICLK_reg=D[0];
end
else if(A==6'b010001) //LCM命令写低，地址0x5100
begin
IOPE5_reg=0;
CS_6963_reg=0;
end
else if(A==6'b010010) //LCM命令写高，地址0x5200
begin
IOPE5_reg=0;
CS_6963_reg=1;
end
else if(A==6'b010011) //LCM数据写低，地址0x5300
begin
IOPE5_reg=1;
CS_6963_reg=0;
end
else if(A==6'b010100) //LCM数据写高，地址0x5400
begin
IOPE5_reg=1;
CS_6963_reg=1;
end
else if(A==6'b010101) //SPI片选信号，地址0x5500
begin
SPICS_reg=D[0];
end
else if(A==6'b010110) //485片选信号，地址0x5600
begin
OE485_reg=D[0];
end
else if(A==6'b011111) //8个发光二极管地址,0x5f00
begin
LED_Data_reg=D;
end
else
Int_WR_reg=0;
end
end
always @( EXINT1 or EXINT2 or EXINT3 or EXINT4 or EXINT5 or NMI1 or NMI2 )
begin
INT1_reg=EXINT1 & EXINT2 & EXINT3 & EXINT4 & EXINT5;
NMI_reg=NMI1 & NMI2;
Int_Data_reg = (Int_WR_reg ==1) ? 0:Int_Data_reg;//此模块应顺序执行，但目前这样写也能正常工作
if( ~(INT1_reg & NMI_reg) )
Int_Data_reg={ 1'b0,~EXINT5 ,~EXINT4 ,~EXINT3, ~EXINT2, ~EXINT1,~NMI2, ~NMI1};
end
always //8个按键任按下一个时，对应的二极管发光，也可由DSP程序控制二极管发光，写相应位为1时发光
begin
/*---------------------------------------
//去除按键LED灯亮的不好功能
L1_reg=K1 & ~LED_Data_reg[0];
L2_reg=K2 & ~LED_Data_reg[1];
L3_reg=K3 & ~LED_Data_reg[2];
L4_reg=K4 & ~LED_Data_reg[3];
L5_reg=K5 & ~LED_Data_reg[4];
L6_reg=K6 & ~LED_Data_reg[5];
L7_reg=K7 & ~LED_Data_reg[6];
L8_reg=K8 & ~LED_Data_reg[7];
---------------------------------------*/
L1_reg=~LED_Data_reg[0];
L2_reg=~LED_Data_reg[1];
L3_reg=~LED_Data_reg[2];
L4_reg=~LED_Data_reg[3];
L5_reg=~LED_Data_reg[4];
L6_reg=~LED_Data_reg[5];
L7_reg=~LED_Data_reg[6];
L8_reg=~LED_Data_reg[7];
end
always begin
CANTX0_reg=CANTX;
CANRX_reg=CANRX0;
end
assign L1=L1_reg;
assign L2=L2_reg;
assign L3=L3_reg;
assign L4=L4_reg;
assign L5=L5_reg;
assign L6=L6_reg;
assign L7=L7_reg;
assign L8=L8_reg;
assign CS1581=CS1581_reg;
assign INT1=INT1_reg;
assign NMI="1";
assign SE="1";
assign ME="1";
assign IOPE6=0;//LCM读写控制线，暂只提供写功能，故一直为低
assign IOPE5=IOPE5_reg;
assign CS_6963=CS_6963_reg;
assign SPICS="SPICS"_reg;
assign DIR="1" ;//暂只提供写操作，故方向控制一直为高，即数据线只从左到右
assign SICLK="SICLK"_reg;
assign SIDIN="SIDIN"_reg;
assign ACICS="ACICS"_reg;
assign RS1581=RS1581_reg;
assign CANTX0=CANTX0_reg;
assign CANRX="CANRX"_reg;
assign OE485 = OE485_reg;
assign D = (RD_reg == 1 && RD==1'b0) ? D_reg :8'hz;
assign {OUT8,OUT7,OUT6,OUT5,OUT4,OUT3,OUT2,OUT1}=OUT_reg;
endmodule