sequ.tdf

来自「各种VHDL的开发资料」· TDF 代码 · 共 49 行

SUBDESIGN sequ
(
   clk,reset,data[7..0]		:INPUT;
   rdn,d0,hout[7..0],lout[7..0]	:OUTPUT;
)

VARIABLE
   count[2..0],d0:	DFF;
   hout[7..0],lout[7..0],rdn:				DFF;
BEGIN
   count[].clk=clk;
   count[].clrn=reset;
   d0.clk=clk;
   d0.clrn=reset;
   rdn.clk=clk;
   rdn.prn=reset;
   lout[].d=data[];
   hout[].d=data[];

   IF(count[].q<6) THEN
      count[].d=count[].q+1;
   ELSE
      count[].d=7;
   END IF;
   CASE count[].q IS
     WHEN 0 => 	d0.d=GND;
  				rdn.d=GND;
				hout[].clk=VCC;
     WHEN 1 => 	rdn.d=GND;
				hout[].clk=GND;
     WHEN 2 =>  rdn.d=VCC;
				d0.d=VCC;
				hout[].clk=VCC;
     WHEN 3 => 	d0.d=VCC;
				rdn.d=GND;
				hout[].clk=VCC;
     WHEN 4 => 	d0.d=VCC;
				rdn.d=GND;
				hout[].clk=VCC;
				lout[].clk=GND;
     WHEN 5 => 	d0.d=VCC;
				hout[].clk=VCC;
				rdn.d=VCC;
				lout[].clk=VCC;
     WHEN OTHERS =>  rdn=VCC;
				hout[].clk=VCC;
   END CASE;
END;