t8.tdf

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

SUBDESIGN t8
(
    clk,reset,model[1..0]: INPUT;
    daout[7..0]: OUTPUT;
)

VARIABLE
    count[7..0],subadd	:DFF;
--    subadd		:NODE;
BEGIN
    count[].clk=clk;
	count[].clrn=reset;
	subadd.clk=clk;
	subadd.clrn=reset;
    daout[]=count[].q;
--	sa[]=subadd[].q;
    CASE model[] IS
      WHEN 0 => 
             	count[].d=count[].q+1;
      WHEN 1 => 
             	count[].d=count[].q-1;
      WHEN 2 => 
                IF(subadd.q==GND) THEN
                   count[].d=count[].q+1;
				   IF(count[].q == 254) THEN
       				  subadd.d=VCC;
				   ELSE	
       				  subadd.d=GND;
				   END IF;
                ELSE
                   count[].d=count[].q-1;
				   IF(count[].q <= 1) THEN
       				  subadd.d=GND;
				   ELSE
       				  subadd.d=VCC;
				   END IF;
 				END IF; 
      WHEN 3 => 
             	count[].d=count[].q+H"20";
      END CASE;
END;