Форум РадиоКот

Код: Выделить всё

SUBDESIGN dac4
(
	SCK		: INPUT;
	MOSI	: INPUT;
	MISO	: OUTPUT;
	RST		: INPUT;
	CS		: INPUT;
	IOW		: INPUT;
	IOR		: INPUT;
	A[4..0]	: INPUT;
	DAT[7..0]: BIDIR;
	TFSA 	: OUTPUT;
 	TFSB 	: OUTPUT;
	TFSC 	: OUTPUT; 
	TFSD 	: OUTPUT;
	TCLK	: OUTPUT;
	DTAO	: OUTPUT;
	DTAI	: INPUT;
	SS		: INPUT;
)
VARIABLE
	ECHO,SER_ENA, ASEL, BSEL, CSEL, DSEL : DFFE;
	D[7..0] : NODE;
BEGIN
	ECHO.CLRN = RST;
	SER_ENA.CLRN = RST;
	ASEL.CLRN = RST;
	BSEL.CLRN = RST;
	CSEL.CLRN = RST; 
	DSEL.CLRN = RST;
	
	ECHO.CLK = !IOW;
	SER_ENA.CLK = !IOW;
	ASEL.CLK = !IOW;
	BSEL.CLK = !IOW;
	CSEL.CLK = !IOW; 
	DSEL.CLK = !IOW;
	
	ECHO.ENA = !CS&(A[4..0]==8);
	SER_ENA.ENA = !CS&(A[4..0]==8);
	ASEL.ENA = !CS&(A[4..0]==8);
	BSEL.ENA = !CS&(A[4..0]==8);
	CSEL.ENA = !CS&(A[4..0]==8); 
	DSEL.ENA = !CS&(A[4..0]==8);

	ECHO.D = DAT1;
	SER_ENA.D = DAT0;
	ASEL.D = DAT2;
	BSEL.D = DAT3;
	CSEL.D = DAT4; 
	DSEL.D = DAT5;

	DTAO = MOSI;
	TCLK = SCK;
	TFSA = !(ASEL&SER_ENA);
 	TFSB = !(BSEL&SER_ENA);
	TFSC = !(CSEL&SER_ENA); 
	TFSD = !(DSEL&SER_ENA);
	MISO = TRI(DTAI,SER_ENA&ECHO);

 D[] =  (H"60"&(A[4..0]==0)) #
		(H"28"&(A[4..0]==1))#
		(H"04"&(A[4..0]==2)) #
		(H"00"&(A[4..0]==3)) #
		(H"00"&(A[4..0]==4)) #
		(H"08"&(A[4..0]==5)) #
		(H"00"&(A[4..0]==6)) #
		(H"00"&(A[4..0]==7)) #
--- main part
		((GND,GND,DSEL,CSEL,BSEL,ASEL,ECHO,SER_ENA)&(A[4..0]==8));

	DAT0 = TRI(D0,!CS&!IOR);
	DAT1 = TRI(D1,!CS&!IOR);
	DAT2 = TRI(D2,!CS&!IOR);
	DAT3 = TRI(D3,!CS&!IOR);
	DAT4 = TRI(D4,!CS&!IOR);
	DAT5 = TRI(D5,!CS&!IOR);
	DAT6 = TRI(D6,!CS&!IOR);
	DAT7 = TRI(D7,!CS&!IOR);
 END;