cos2.tdf

来自「实现QAM调制功能和QAM解调功能的代码.」· TDF 代码 · 共 29 行

SUBDESIGN cos2 
( 
  ena,D3,D2,D1,D0:INPUT; 
  Q7,Q6,Q5,Q4,Q3,Q2,Q1,Q0:OUTPUT;
) 
BEGIN 
IF ena THEN 
   TABLE 
  D3,D2,D1,D0=>Q7,Q6,Q5,Q4,Q3,Q2,Q1,Q0; 
  0,0,0,0=>1,0,0,1,1,0,1,0; 
  0,0,0,1=>1,0,0,1,1,0,0,0; 
  0,0,1,0=>1,0,0,1,0,0,1,0;
  0,0,1,1=>1,0,0,0,1,0,1,0; 
  0,1,0,0=>1,0,0,0,0,0,0,0; 
  0,1,0,1=>0,1,1,1,0,1,1,0; 
  0,1,1,0=>0,1,1,0,1,1,1,0; 
  0,1,1,1=>0,1,1,0,1,0,0,0; 
  1,0,0,0=>0,1,1,0,0,1,1,0;
  1,0,0,1=>0,1,1,0,1,0,0,0; 
  1,0,1,0=>0,1,1,0,1,1,1,0; 
  1,0,1,1=>0,1,1,1,0,1,1,0; 
  1,1,0,0=>1,0,0,0,0,0,0,0; 
  1,1,0,1=>1,0,0,0,1,0,1,0; 
  1,1,1,0=>1,0,0,1,0,0,1,0; 
  1,1,1,1=>1,0,0,1,1,0,0,0; 
END TABLE;
ELSE Q[7..0]=B"00000000"; 
END IF; 
END;