电子节拍器的设计与实现

电子节拍器的设计与实现学院:明光桥北技术学院班级:姓名:学号:班内序号:1、设计思想本实验采用自顶向下设计的方法。从整体上考虑系统的功能，划分出不同的功能模块，然后选用器件实现相应模块，反复改进、反复实践，最终完成系统的设计。在前期，我主要是进行各个模块的测试，分别测试完成之后，再通过顶层文件进行电路的连接，实现全部的设计。2、总体框图（1）系统框图选择译码器高频译码器高频分频器clkclk低频50MHZ低频50MHZ变速变速add产生节拍add产生节拍subsub切换节拍切换节拍clearclear故障及问题分析当按键按下之后，按下一次会产生多次按下的效果。问题分析与解决：由于抖动的原因，需要加上一个防抖的程序。2.速度加1加5的时钟计时时间偏小。问题分析与解决：通过实验室多次调试解决。播放自制歌曲时无法进行节拍演示。问题分析与解决：case语句需要改进。（由于此歌曲在验收实验前一天晚上才完成没有时间改进。）蜂鸣器一开始输入高低电平。问题分析与解决：后来查阅资料和同学沟通发现应该是输入不同频率的方波信号。导致数码管显示不正常。问题分析与解决：对数码管扫描频率一开始过大，应该调整为10kHz六、总结和结论好人有好报----造福学弟学妹七、源程序顶层文件libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;ENTITYjiepaiqiIS PORT ( add:INSTD_LOGIC; sub:INSTD_LOGIC; clk:INSTD_LOGIC; clear:INSTD_LOGIC; state:INSTD_LOGIC; success:instd_logic; sw:INSTD_LOGIC; -- sw1:INSTD_LOGIC; led1:OUTSTD_LOGIC; led2:OUTSTD_LOGIC; led3:OUTSTD_LOGIC; beeper0:OUTSTD_LOGIC; b:OUTSTD_LOGIC_VECTOR(6DOWNTO0); cat:OUTSTD_LOGIC_VECTOR(5DOWNTO0) );ENDjiepaiqi;ARCHITECTUREaOFjiepaiqiISCOMPONENTbeeper PORT(clk:instd_logic;clear:instd_logic;state:instd_logic;success:instd_logic;V1,V2,V3:instd_logic;show:outstd_logic );ENDCOMPONENT;COMPONENTfenpinqi PORT(clk:INSTD_LOGIC; clear:INSTD_LOGIC; S:INSTD_LOGIC_VECTOR(6DOWNTO0); speed:OUTSTD_LOGIC; ms:OUTSTD_LOGIC );ENDCOMPONENT;COMPONENTled PORT(speed:INSTD_LOGIC; clear:INSTD_LOGIC; J:INSTD_LOGIC_VECTOR(2DOWNTO0); V1:OUTSTD_LOGIC; V2:OUTSTD_LOGIC; V3:OUTSTD_LOGIC );ENDCOMPONENT;COMPONENTpace PORT(sw:INSTD_LOGIC; clear:INSTD_LOGIC; J:OUTSTD_LOGIC_VECTOR(2DOWNTO0) );ENDCOMPONENT;COMPONENTsmgymq PORT(clk:INSTD_LOGIC; clear:INSTD_LOGIC; J:INSTD_LOGIC_VECTOR(2DOWNTO0); S:INSTD_LOGIC_VECTOR(6DOWNTO0); b:OUTSTD_LOGIC_VECTOR(6DOWNTO0); cat:OUTSTD_LOGIC_VECTOR(5DOWNTO0) );ENDCOMPONENT;COMPONENTspeeder PORT(add:INSTD_LOGIC; sub:INSTD_LOGIC; clear:INSTD_LOGIC; clk:INSTD_LOGIC; S:OUTSTD_LOGIC_VECTOR(6DOWNTO0) );ENDCOMPONENT;COMPONENTfenpinqismg PORT(clk:INSTD_LOGIC; clear:INSTD_LOGIC; clkout:OUTSTD_LOGIC );ENDCOMPONENT;SIGNAL SW_0:STD_LOGIC;SIGNAL SW_1:STD_LOGIC;SIGNAL SW_2:STD_LOGIC;SIGNAL SW_10:STD_LOGIC_VECTOR(6DOWNTO0);SIGNAL SW_4:STD_LOGIC;SIGNAL SW_11:STD_LOGIC_VECTOR(2DOWNTO0);SIGNAL SW_6:STD_LOGIC;SIGNAL SW_9:STD_LOGIC;BEGINled1<=SW_0;led2<=SW_1;led3<=SW_2;u1:beeperPORTMAP(clk=>clk, clear=>clear, state=>state, success=>success, V1=>SW_0, V2=>SW_1, V3=>SW_2, show=>beeper0);u2:fenpinqiPORTMAP(clk=>clk, clear=>clear, S=>SW_10, speed=>SW_4, ms=>SW_9);u3:ledPORTMAP(speed=>SW_4, clear=>clear, J=>SW_11, V1=>SW_0, V2=>SW_1, V3=>SW_2);u4:pacePORTMAP(sw=>sw, clear=>clear, J=>SW_11);u5:smgymqPORTMAP(clk=>SW_6, clear=>clear, J=>SW_11, S=>SW_10, b=>b, cat=>cat);u6:speederPORTMAP(add=>add, sub=>sub, clear=>clear, clk=>SW_9, S=>SW_10);u7:fenpinqismgPORTMAP(clk=>clk, clear=>clear, clkout=>SW_6);ENDa;数码管分频器libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entityfenpinqismgisport(clk,clear:instd_logic;clkout:outstd_logic);endfenpinqismg;architectureaoffenpinqismgissignaltemp:integerrange0to2499;signalclk_tmp:std_logic;beginprocess(clk,clear)beginifclear='0'thentemp<=0;clk_tmp<='0';elseifclk'eventandclk='1'theniftemp=2499thentemp<=0;clk_tmp<=notclk_tmp;elsetemp<=temp+1;endif;endif;endif;clkout<=clk_tmp;endprocess;end;速度调节libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entityspeederisport(add,sub,clear,clk:instd_logic;S:outstd_logic_vector(6downto0));endspeeder;architectureaofspeederissignalS_temp:std_logic_vector(6downto0);signaltime1a:integerrange0to2000;signaltime1b:integerrange0to2000;signaltime2a:integerrange0to2000;signaltime2b:integerrange0to2000;beginprocess(clk)beginif(clk'eventandclk='1')then-----------add----------ifS_temp<"1010000"then--节奏速度小于120if(add='0')thentime1a<=0;time1b<=0;elsif(add='1'andtime1a=2000andS_temp<"1001100")then--节奏速度小于115按键1秒速度+5S_temp<=S_temp+5;time1a<=0;elsif(add='1'andtime1b=0)thenS_temp<=S_temp+1;time1b<=time1b+1;elsif(add='1'andtime1a<2000)thentime1a<=time1a+1;endif;endif;----------sub----------ifS_temp>"0000000"then--节奏速度大于40if(sub='0')thentime2a<=0;time2b<=0;elsif(sub='1'andtime2a=2000andS_temp>"0000101")then--节奏速度大于45按键1秒速度-5S_temp<=S_temp-5;time2a<=0;elsif(sub='1'andtime2b=0)thenS_temp<=S_temp-1;time2b<=time2b+1;elsif(sub='1'andtime2a<2000)thentime2a<=time2a+1;endif;endif;endif;ifclear='0'thenS_temp<="0101000";--重置按键使得初始速度定为80endif;endprocess;S<=S_temp;enda;数码管和译码器libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entitysmgymqisport(clk:instd_logic;clear:instd_logic;J:instd_logic_vector(2downto0);S:instd_logic_vector(6downto0);cat:outstd_logic_vector(5downto0);b:outstd_logic_vector(6downto0));endentitysmgymq;architectureaofsmgymqissignaltemp:STD_LOGIC_VECTOR(3downto0);signalj1,j2:STD_LOGIC_VECTOR(6downto0);signalS1,S2,S3:STD_LOGIC_VECTOR(6downto0);beginprocess(clk)beginif(clear='1')thenif(clk'eventandclk='1')thenif(temp="0101")thentemp<="0000";elsetemp<=temp+1;endif;endif;endif;endprocess;process(temp)beginif(clear='1')thencaseSiswhen"0000000"=>s1<="0000000";s2<="0110011";s3<="1111110";--40when"0000001"=>s1<="0000000";s2<="0110011";s3<="0110000";--41when"0000010"=>s1<="0000000";s2<="0110011";s3<="1101101";--42when"0000011"=>s1<="0000000";s2<="0110011";s3<="1111001";--43when"0000100"=>s1<="0000000";s2<="0110011";s3<="0110011";--44when"0000101"=>s1<="0000000";s2<="0110011";s3<="1011011";--45when"0000110"=>s1<="0000000";s2<="0110011";s3<="1011111";--46when"0000111"=>s1<="0000000";s2<="0110011";s3<="1110000";--47when"0001000"=>s1<="0000000";s2<="0110011";s3<="1111111";--48when"0001001"=>s1<="0000000";s2<="0110011";s3<="1111011";--49when"0001010"=>s1<="0000000";s2<="1011011";s3<="1111110";--50when"0001011"=>s1<="0000000";s2<="1011011";s3<="0110000";--51when"0001100"=>s1<="0000000";s2<="1011011";s3<="1101101";--52when"0001101"=>s1<="0000000";s2<="1011011";s3<="1111001";--53when"0001110"=>s1<="0000000";s2<="1011011";s3<="0110011";--54when"0001111"=>s1<="0000000";s2<="1011011";s3<="1011011";--55when"0010000"=>s1<="0000000";s2<="1011011";s3<="1011111";--56when"0010001"=>s1<="0000000";s2<="1011011";s3<="1110000";--57when"0010010"=>s1<="0000000";s2<="1011011";s3<="1111111";--58when"0010011"=>s1<="0000000";s2<="1011011";s3<="1111011";--59when"0010100"=>s1<="0000000";s2<="1011111";s3<="1111110";--60when"0010101"=>s1<="0000000";s2<="1011111";s3<="0110000";--61when"0010110"=>s1<="0000000";s2<="1011111";s3<="1101101";--62when"0010111"=>s1<="0000000";s2<="1011111";s3<="1111001";--63when"0011000"=>s1<="0000000";s2<="1011111";s3<="0110011";--64when"0011001"=>s1<="0000000";s2<="1011111";s3<="1011011";--65when"0011010"=>s1<="0000000";s2<="1011111";s3<="1011111";--66when"0011011"=>s1<="0000000";s2<="1011111";s3<="1110000";--67when"0011100"=>s1<="0000000";s2<="1011111";s3<="1111111";--68when"0011101"=>s1<="0000000";s2<="1011111";s3<="1111011";--69when"0011110"=>s1<="0000000";s2<="1110000";s3<="1111110";--70when"0011111"=>s1<="0000000";s2<="1110000";s3<="0110000";--71when"0100000"=>s1<="0000000";s2<="1110000";s3<="1101101";--72when"0100001"=>s1<="0000000";s2<="1110000";s3<="1111001";--73when"0100010"=>s1<="0000000";s2<="1110000";s3<="0110011";--74when"0100011"=>s1<="0000000";s2<="1110000";s3<="1011011";--75when"0100100"=>s1<="0000000";s2<="1110000";s3<="1011111";--76when"0100101"=>s1<="0000000";s2<="1110000";s3<="1110000";--77when"0100110"=>s1<="0000000";s2<="1110000";s3<="1111111";--78when"0100111"=>s1<="0000000";s2<="1110000";s3<="1111011";--79when"0101000"=>s1<="0000000";s2<="1111111";s3<="1111110";--80when"0101001"=>s1<="0000000";s2<="1111111";s3<="0110000";--81when"0101010"=>s1<="0000000";s2<="1111111";s3<="1101101";--82when"0101011"=>s1<="0000000";s2<="1111111";s3<="1111001";--83when"0101100"=>s1<="0000000";s2<="1111111";s3<="0110011";--84when"0101101"=>s1<="0000000";s2<="1111111";s3<="1011011";--85when"0101110"=>s1<="0000000";s2<="1111111";s3<="1011111";--86when"0101111"=>s1<="0000000";s2<="1111111";s3<="1110000";--87when"0110000"=>s1<="0000000";s2<="1111111";s3<="1111111";--88when"0110001"=>s1<="0000000";s2<="1111111";s3<="1111011";--89when"0110010"=>s1<="0000000";s2<="1111011";s3<="1111110";--90when"0110011"=>s1<="0000000";s2<="1111011";s3<="0110000";--91when"0110100"=>s1<="0000000";s2<="1111011";s3<="1101101";--92when"0110101"=>s1<="0000000";s2<="1111011";s3<="1111001";--93when"0110110"=>s1<="0000000";s2<="1111011";s3<="0110011";--94when"0110111"=>s1<="0000000";s2<="1111011";s3<="1011011";--95when"0111000"=>s1<="0000000";s2<="1111011";s3<="1011111";--96when"0111001"=>s1<="0000000";s2<="1111011";s3<="1110000";--97when"0111010"=>s1<="0000000";s2<="1111011";s3<="1111111";--98when"0111011"=>s1<="0000000";s2<="1111011";s3<="1111011";--99when"0111100"=>s1<="0110000";s2<="1111110";s3<="1111110";--100when"0111101"=>s1<="0110000";s2<="1111110";s3<="0110000";--101when"0111110"=>s1<="0110000";s2<="1111110";s3<="1101101";--102when"0111111"=>s1<="0110000";s2<="1111110";s3<="1111001";--103when"1000000"=>s1<="0110000";s2<="1111110";s3<="0110011";--104when"1000001"=>s1<="0110000";s2<="1111110";s3<="1011011";--105when"1000010"=>s1<="0110000";s2<="1111110";s3<="1011111";--106when"1000011"=>s1<="0110000";s2<="1111110";s3<="1110000";--107when"1000100"=>s1<="0110000";s2<="1111110";s3<="1111111";--108when"1000101"=>s1<="0110000";s2<="1111110";s3<="1111011";--109when"1000110"=>s1<="0110000";s2<="0110000";s3<="1111110";--110when"1000111"=>s1<="0110000";s2<="0110000";s3<="0110000";--111when"1001000"=>s1<="0110000";s2<="0110000";s3<="1101101";--112when"1001001"=>s1<="0110000";s2<="0110000";s3<="1111001";--113when"1001010"=>s1<="0110000";s2<="0110000";s3<="0110011";--114when"1001011"=>s1<="0110000";s2<="0110000";s3<="1011011";--115when"1001100"=>s1<="0110000";s2<="0110000";s3<="1011111";--116when"1001101"=>s1<="0110000";s2<="0110000";s3<="1110000";--117when"1001110"=>s1<="0110000";s2<="0110000";s3<="1111111";--118when"1001111"=>s1<="0110000";s2<="0110000";s3<="1111011";--119when"1010000"=>s1<="0110000";s2<="1101101";s3<="1111110";--120whenothers=>s1<="0000000";s2<="0000000";s3<="0000000";--nullendcase;caseJiswhen"001"=>j1<="0110000";j2<="0110011";--1/4when"010"=>j1<="1101101";j2<="0110011";--2/4when"011"=>j1<="1111001";j2<="0110011";--3/4when"100"=>j1<="0110011";j2<="0110011";--4/4when"101"=>j1<="1111001";j2<="1111111";--3/8when"110"=>j1<="1011111";j2<="1111111";--6/8whenothers=>j1<="0000000";j2<="0000000";--nullendcase;casetempiswhen"0000"=>b<=j1;--"1111110";--number0when"0001"=>b<=j2;--"0110000";--1when"0010"=>b<="0000000";--"1101101";--2when"0011"=>b<=s1;--"1111001";--3when"0100"=>b<=s2;--"0110011";--4when"0101"=>b<=s3;--"1011011";--5whenothers=>b<="0000000";endcase;elseb<="0000000";endif;endprocess;--------shumaguannumber--------process(temp)beginif(clear='1')thencasetempiswhen"0000"=>cat<="111110";when"0001"=>cat<="111101";when"0010"=>cat<="111011";when"0011"=>cat<="110111";when"0100"=>cat<="101111";when"0101"=>cat<="011111";whenothers=>cat<="111111";endcase;elsecat<="111111";endif;endprocess;enda;节奏类型计数器libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entitypaceisport(sw,clear:instd_logic;J:outstd_logic_vector(2downto0));endpace;architectureaofpaceissignalJ_tmp:std_logic_vector(2downto0);beginprocess(sw)beginifclear='0'thenJ_tmp<="001";elseif(sw'eventandsw='1')thenifJ_tmp="110"thenJ_tmp<="001";elseJ_tmp<=J_tmp+1;endif;endif;endif;endprocess;J<=J_tmp;enda;Led灯libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entityLedisport(speed,clear:instd_logic;J:instd_logic_vector(2downto0);V1,V2,V3:outstd_logic);--LEDsendLed;architectureaofLedissignals:integerrange0to23;--6/8beginprocess(speed)beginifclear='0'thenV1<='0';V2<='0';V3<='0';elsif(speed'eventandspeed='1')thencaseJiswhen"001"=>--1/4Scasesiswhen0|1=>V1<='1';V2<='0';V3<='0';whenothers=>V1<='0';V2<='0';V3<='0';endcase;ifs>=3thens<=0;elses<=s+1;endif;when"010"=>--2/4S-Wcasesiswhen0|1=>V1<='1';V2<='0';V3<='0';when4|5=>V1<='0';V2<='0';V3<='1';whenothers=>V1<='0';V2<='0';V3<='0';endcase;ifs>=8thens<=0;elses<=s+1;endif;when"011"=>--3/4S-W-Wcasesiswhen0|1=>V1<='1';V2<='0';V3<='0';when4|5|8|9=>V1<='0';V2<='0';V3<='1';whenothers=>V1<='0';V2<='0';V3<='0';endcase;ifs>=12thens<=0;elses<=s+1;endif;when"100"=>--4/4S-W-RS-Wcasesiswhen0|1=>V1<='1';V2<='0';V3<='0';when4|5|12|13=>V1<='0';V2<='0';V3<='1';when8|9=>V1<='0';V2<='1';V3<='0';whenothers=>V1<='0';V2<='0';V3<='0';endcase;ifs>=16thens<=0;elses<=s+1;endif;when"101"=>--3/8S-W-Wcasesiswhen0=>V1<='1';V2<='0';V3<='0';when2|4=>V1<='0';V2<='0';V3<='1';whenothers=>V1<='0';V2<='0';V3<='0';endcase;ifs>=6thens<=0;elses<=s+1;endif;when"110"=>--6/8S-W-WRS-W-Wcasesiswhen0=>V1<='1';V2<='0';V3<='0';when2|4|8|10=>V1<='0';V2<='0';V3<='1';when6=>V1<='0';V2<='1';V3<='0';whenothers=>V1<='0';V2<='0';V3<='0';endcase;ifs=12thens<=0;elses<=s+1;endif;whenothers=>V1<='0';V2<='0';V3<='0';endcase;endif;endprocess;enda;分频器libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entityfenpinqiisport(clk,clear:instd_logic;S:instd_logic_vector(6downto0);--81个速度，7位2进制数计数speed,ms:outstd_logic);endfenpinqi;architectureaoffenpinqiissignalclk_temp:std_logic;signalms_temp:std_logic;signals1:integerrange0to10000000;--40signalsms:integerrange0to12499;beginprocess(clk,clear)beginifclear='0'thenclk_temp<='0';ms_temp<='0';elsifclk'eventandclk='1'thenifsms=12499thensms<=0;ms_temp<=notms_temp;elsesms<=sms+1;endif;caseSiswhen"1010000"=>ifs1>=3333333then--120p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001111"=>ifs1>=3361344then--119p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001110"=>ifs1>=3389830then--118p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001101"=>ifs1>=3418803then--117p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001100"=>ifs1>=3448275then--116p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001011"=>ifs1>=3478260then--115p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001010"=>ifs1>=3508771then--114p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001001"=>ifs1>=3539823then--113p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1001000"=>ifs1>=3571428then--112p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000111"=>ifs1>=3603603then--111p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000110"=>ifs1>=3636363then--110p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000101"=>ifs1>=3669724then--109p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000100"=>ifs1>=3703703then--108p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000011"=>ifs1>=3738317then--107p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000010"=>ifs1>=3773584then--106p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000001"=>ifs1>=3809523then--105p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"1000000"=>ifs1>=3846153then--104p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111111"=>ifs1>=3883495then--103p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111110"=>ifs1>=3921568then--102p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111101"=>ifs1>=3960396then--101p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111100"=>ifs1>=4000000then--100p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111011"=>ifs1>=4040404then--99p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111010"=>ifs1>=4081632then--98p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111001"=>ifs1>=4123711then--97p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0111000"=>ifs1>=4166666then--96p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110111"=>ifs1>=4210526then--95p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110110"=>ifs1>=4255319then--94p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110101"=>ifs1>=4301075then--93p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110100"=>ifs1>=4347826then--92p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110011"=>ifs1>=4395604then--91p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110010"=>ifs1>=4444444then--90p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110001"=>ifs1>=4494382then--89p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0110000"=>ifs1>=4545454then--88p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101111"=>ifs1>=4597701then--87p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101110"=>ifs1>=4651162then--86p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101101"=>ifs1>=4705882then--85p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101100"=>ifs1>=4761904then--84p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101011"=>ifs1>=4819277then--83p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101010"=>ifs1>=4878048then--82p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101001"=>ifs1>=4938271then--81p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0101000"=>ifs1>=5000000then--80p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100111"=>ifs1>=5063291then--79p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100110"=>ifs1>=5128205then--78p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100101"=>ifs1>=5194805then--77p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100100"=>ifs1>=5263157then--76p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100011"=>ifs1>=5333333then--75p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100010"=>ifs1>=5405405then--74p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100001"=>ifs1>=5479452then--73p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif;when"0100000"=>ifs1>=5555555then--72p/ss1<=0;clk_temp<=notclk_temp;elses1<=s1+1;endif