JH5001二次开发实验指导书(老师)／供综合设计参考.docVIP

JH5001二次开发参考程序 （以下所有程序均调试通过，可作为编程参考） 二OO三年一月  可变分频器的实验 TITLE Counter; SUBDESIGN Counter ( %pcm input% FSX_PCM,BCLKT,DT_PCM :INPUT; %m sequence% m_Sequence :INPUT; %SW input% SW[7..0] :INPUT; %control mode% Error_SEL[1..0] :INPUT; %MUX output% MUX_DT :OUTPUT; MUX_CLK :INPUT; Error_ind :OUTPUT; %Test m sequence% m_SEL[1..0] :INPUT; m_test :OUTPUT; Frame_Ind :OUTPUT; ) VARIABLE Main_CLK :LCELL; Counter[7..0] :DFF; Mode[1..0] :LCELL; Counter_Out :LCELL; %students pust defined variables at here% Counter_Reset :LCELL; Counter_Out_Buff :DFF; BEGIN Main_CLK=MUX_CLK; Mode[]=M_SEL[]; % INPUT: Main_CLK: input 256KHz clock Mode[1..0]: Control counter mode Counter_Out: Counter output function: if Mode[]=0: Counter_Out=Main_CLK/213; if Mode[]=1: Counter_Out=Main_CLK/187; if Mode[]=2: Counter_Out=Main_CLK/156; if Mode[]=3: Counter_Out=Main_CLK/15; % --students put his program inhere CASE Mode[] IS WHEN 0 = Counter_Reset=(Counter[]==212); WHEN 1 = Counter_Reset=(Counter[]==186); WHEN 2 = Counter_Reset=(Counter[]==155); WHEN 3 = Counter_Reset=(Counter[]==14); END CASE; Counter[].clk=Main_CLK; CASE (Counter_Reset) IS WHEN 0 = Counter[].d=Counter[]+1; WHEN 1 = Counter[].d=0; END CASE; Counter_Out_Buff.clk=!Main_CLK; CASE Mode[] IS WHEN 0 = Counter_Out_Buff.d=(Counter[]106); WHEN 1 = Counter_Out_Buff.d=(Counter[]93); WHEN 2 = Counter_Out_Buff.d=(Counter[]78); WHEN 3 = Counter_Out_Buff.d=(Counter[]7); END CASE; Counter_Out=Counter_Out_Buff; --fellowing program cant be rewriteable m_test=Counter_Out; --not used pin MUX_DT=(FSX_PCM,BCLKT,DT_PCM,m_Sequence,SW[7..0],Error_SEL[1..0],MUX_CLK)==0; (Error_ind,Frame_Ind)=0; END;  m序列的产生实验 TITLE m generating sequence; SUBDESIGN m ( %pcm input% FSX_PCM,BCLKT,DT_PCM :INPUT; %m sequence% m_Sequence :INPUT; %SW input% SW[7..0] :