expander.tdf

来自「基于fpga的屏幕测试程序」· TDF 代码 · 共 68 行

TITLE "EPLD for FTV2.x project";
--expander.tdf
--software for expander core to make a franpatg for the Cyclic.
--	
--
--Eric Funke
--I2C core provided by Frank Budzelaar, Philips Research
--2nd of november 2004


INCLUDE "i2cSlave.inc";
INCLUDE "i2cregin.inc";
INCLUDE "i2cregout.inc";

SUBDESIGN expander
(

sda							: 	BIDIR;  -- the sda pin for PW164
scl							: 	BIDIR;  -- the scl pin	for P164
expander_data_out[7..0]					:	OUTPUT;
clk1							:	INPUT; 	-- pin 55

)

VARIABLE

I2Cslavecore_one	: 	i2cSlave  WITH (SUBADDRESSBITS=8);
expander_data		:	i2cregout WITH (SUBADDRESS=0,SUBADDRESSBITS=8,OUTBITS=8,INITIALVALUE=124,RW="NO"); 
klok_div_8[3..0]	:	JKFF;
sysClk			:	NODE;
clock			:	NODE;

BEGIN

-- input section
----------------------------------------------------------------------
clock = GLOBAL(clk1);

--i2c section
klok_div_8[].J = VCC;					--clock divider for I2C core
klok_div_8[].K = VCC;
klok_div_8[3].clk = klok_div_8[2].q;
klok_div_8[2].clk = klok_div_8[1].q;
klok_div_8[1].clk = klok_div_8[0].q;
klok_div_8[0].clk = clock;

sysClk=global(klok_div_8[2].q);		--I have to divide the clock for the I2C core
							--because it cannot handle the full clock speed


--<<SLAVE CORE1>>--

I2Cslavecore_one.clk=sysClk;
scl=I2Cslavecore_one.scl;
sda=I2Cslavecore_one.sda;

I2Cslavecore_one.slaveAddress[]=b"0110111";		--address 6E 
expander_data.i2cBusIn[]=I2Cslavecore_one.i2cBusOut[];
I2Cslavecore_one.i2cBusIn[]=expander_data.i2cBusOut[];

expander_data_out[7..0] = expander_data.out[7..0];


END;