單片機的高壓靜電除塵器的設計方案

年4月19日單片機的高壓靜電除塵器的設計方案文檔僅供參考XX學院《單片機原理與應用》課程論文課程論文題目基于單片機的空氣凈化機的設計院系名稱專業(yè)<班級）計算機科學與技術(shù)專業(yè)姓名<學號）指導教師5月日一．緒論1.引言空氣凈化器具有濾去塵埃、消除異味及有害氣體、雙重滅菌、釋放負離子等功能。它經(jīng)過電機使室內(nèi)空氣循環(huán)流動，被污染的空氣經(jīng)過機內(nèi)的空氣過濾器后將各種污染物清除或吸附，然后經(jīng)過裝在出風口的負離子發(fā)生器，將空氣不斷電離，產(chǎn)生大量負離子，被微風送出，形成負離子氣流，達到清潔、凈化空氣的目的。當前，國內(nèi)外空氣凈化器產(chǎn)品普遍采用的凈化技術(shù)主要有：紫外線凈化、光觸媒凈化、等離子體凈化、過濾凈化<HEPA）、靜電集塵、吸附凈化、負離子凈化、臭氧凈化、分子絡合、HIMOP快速凈化等方法。2.設計任務與要求高壓靜電除塵是根據(jù)靜電荷的異性相吸、同性相斥的原理，利用靜電力將空氣中帶電粉塵吸附沉降下來，以達到除塵的目的。經(jīng)過該原理設計一款空氣凈化機從而取代物理除塵和臭氧除塵。二．原理1.高壓靜電除塵的原理高壓靜電除塵是根據(jù)靜電荷的異性相吸、同性相斥的原理，利用靜電力將空氣中帶電粉塵吸附沉降下來，以達到除塵的目的。

含有粉塵顆粒的氣體，在接有高壓直流電源的陰極線(又稱電暈極>和接地的陽極板之問所形成的高壓電場經(jīng)過時，由于陰極發(fā)生電暈放電、氣體被電離，此時，帶負電的氣體離子，在電場力的作用下，向陽極板運動，在運動中與粉塵顆粒相碰，則使塵粒荷以負電，荷電后的塵粒在電場力的作用下，亦向陽極運動，到達陽極后，放出所帶的電子，塵粒則沉積于陽極板上，從而得到凈化的氣體。該技術(shù)只對顆粒物等大粒子氣體有效果，主要用于除塵。圖1-1靜電除塵器的工作原理圖三．硬件設計1.溫度控制系統(tǒng)的硬件設計顯示器顯示器鍵盤時鐘電路復位電路電源AT89S51單片機A/D轉(zhuǎn)換器放大電路外部控制電路傳感器采集信號圖3-1主電路圖框圖2.信號采集電路的設計如圖3-2所示是設計中熱敏電阻測量原理電路，由電源、電阻電橋、運放和輸出四部分組成。電源部分包括R4、R6、C1、U1B。R4、R6為分壓電路，C1主要濾除Vcc中的紋波，U1B為LM324運算放大器，工作于電壓更隨方式，其特點是輸入阻抗高、輸出阻抗低，為后級電橋提供穩(wěn)定的電流。電橋由R1、R2、R3、R13組成，當外界溫度發(fā)生變化時，經(jīng)過調(diào)節(jié)R13使電路產(chǎn)生補償電壓，屬于電位補償。運放電路由R7、R8、R9、R10及U1A組成，這是一種靈敏度較高的電橋放大電路，放大倍數(shù)由R9/R8得到。輸出電阻由R4、R12、R14、D1組成，調(diào)節(jié)R14能夠調(diào)整輸出電壓幅度。D1主要用于防止輸出負電壓，保護后級A/D電路。圖3-2信號采集電路3.復位電路如何進行復位呢？只要在單片機的RST引腳上加上高電平，就能夠了，復位時間不少于5ms。為了達到這個要求，需要在外部設計復位電路。復位電路的實現(xiàn)能夠用多種方法，可是從功能上一般分為兩種：一種是電源復位，即外部的復位電路在系統(tǒng)通上電源之后直接使單片機工作，單片機的起停經(jīng)過電源控制。另一種方法是在復位電路中設計按鍵開關(guān)，經(jīng)過按鍵開關(guān)觸發(fā)復位電平控制單片機的復位。從原理上說，一般采用高電復位電路。這種復位電路的工作原理是：通電時，電容兩端相當于短路，于是RST引腳上為高電平，然后電源經(jīng)過電阻對電容充電，RST端電壓慢慢下降，降到一定程序，即為低電平，單片機開始正常工作。圖3-3單片機的復位電路4.顯示與鍵盤電路的設計<1）顯示選用的是共陰極七段碼LED數(shù)碼管顯示。圖3-4共陰極七段碼LED數(shù)碼管芯片引腳在該設計中采用的LED數(shù)碼管用的是共陰極接法，其中LED的1～8號引腳分別接芯片74LS164的A～H引腳，用LED數(shù)碼管實現(xiàn)數(shù)字顯示。圖3-5單片機的顯示和鍵盤連接圖<2）用AT89S51單片機芯片串行口的方式0的輸出方式，在串行口外接移位寄存器74LS164，構(gòu)成鍵盤和顯示器接口，其硬件接口如圖3-5<圖中只畫出三位LED靜態(tài)顯示和16個按鍵，根據(jù)需要能夠擴展）。采用靜態(tài)顯示，軟件設計比較簡單，節(jié)約CPU的資源。5.單片機的選擇1．AT89S5單片機芯片引腳功能說明<1）主電源引腳Vss和Vcc①Vss接地。②Vcc正常操作時為+5伏電源。圖3-6AT89S51芯片引腳圖<2）控制或與其它電源復用引腳RST/VPD，ALE/PROG和EA/Vpp。①RST/VPD當振蕩器運行時，在此引腳上出現(xiàn)兩個機器周期的高電平<由低到高跳變），將使單片機復位。在Vcc掉電期間，此引腳可接上備用電源，由VPD向內(nèi)部提供備用電源，以保持內(nèi)部RAM中的數(shù)據(jù)。②ALE/PROG正常操作時ALE的功能是<允許地址鎖存）提供并把地址的低字節(jié)鎖存到外部鎖存器，ALE引腳以不變的頻率<振蕩器的頻率）周期性地發(fā)出正脈沖信號。因此，它可用作對外輸出的時鐘，或用于定時目的。但要注意，每當訪問外部數(shù)據(jù)存儲器時，將跳過一個ALE脈沖，ALE端能夠驅(qū)動<吸收或輸出電流）八個LSTTL電路。對于EPROM型單片機，在EPROM編程期間，此引腳接收編程脈沖<功能）。③外部程序存儲器讀選通信號輸出端，在從外部程序存儲取指令<或數(shù)據(jù)）期間，在每個機器周期內(nèi)兩次有效。同樣能夠驅(qū)動八LSTTL輸入。④EA/Vpp為內(nèi)部程序存儲器和外部程序存儲器選擇端。當EA/Vpp為高電平時，訪問內(nèi)部程序存儲器，當EA/Vpp為低電平時，則訪問外部程序存儲器。對于EPROM型單片機，在EPROM編程期間，此引腳上加EPROM編程電源12V<Vpp）。6.A/D轉(zhuǎn)換電路設計<1）A/D轉(zhuǎn)換器芯片ADC0809簡介。8路模擬信號的分時采集，片內(nèi)有8路模擬選通開關(guān)，以及相應的通道抵制鎖存用譯碼電路，其轉(zhuǎn)換時間為100μs左右。ADC0809的引腳圖如圖3-7所示。圖3-7ADC0809引腳圖圖中多路開關(guān)可選通8個模擬通道，允許8路模擬量分時輸入，共用一個A/D轉(zhuǎn)換器進行轉(zhuǎn)換，這是一種經(jīng)濟的多路數(shù)據(jù)采集方法。地址鎖存與譯碼電路完成表3-1通道選擇表CBA被選擇的通道000IN0001IN1010IN2011IN3100IN4101IN5110IN6111IN7對A、B、C3個地址位進行鎖存和譯碼，其譯碼輸出用于通道選擇，其轉(zhuǎn)換結(jié)果經(jīng)過三態(tài)輸出鎖存器存放、輸出，因此能夠直接與系統(tǒng)數(shù)據(jù)總線相連。ADDBADDBADDCADDAVCCGNDIN0IN4IN2IN6IN1IN7IN3IN5ALE8位模擬開關(guān)地址鎖存與譯碼EOCOEA/D轉(zhuǎn)換器DOD1D2D3D4D7D6D5三態(tài)輸出鎖存緩沖器圖3-8ADC0809內(nèi)部邏輯結(jié)構(gòu)CLKSCTAR<2）.信號引腳ADC0809芯片為28引腳為雙列直插式封裝，其引腳排列見圖3-9所示。對ADC0809主要信號引腳的功能說明如下：IN7～IN0—模擬量輸入通道。ALE—地址鎖存允許信號。對應ALE上跳沿，A、B、C地址狀態(tài)送入地址鎖存器中。START—轉(zhuǎn)換啟動信號。START上升沿時，復位ADC0809；START下降沿時啟動芯片，開始進行A/D轉(zhuǎn)換；在A/D轉(zhuǎn)換期間，START應保持低電平。本信號有時簡寫為ST。圖3-9ADC0809引腳圖A、B、C—地址線。通道端口選擇線，A為低地址，C為高地址，引腳圖中為ADDA，ADDB和ADDC。其地址狀態(tài)與通道對應關(guān)系見表3-1。CLK—時鐘信號。DC0809的內(nèi)部沒有時鐘電路，所需時鐘信號由外界提供，因此有時鐘信號引腳。一般使用頻率為500KHz的時鐘信號。EOC—轉(zhuǎn)換結(jié)束信號。EOC=0,正在進行轉(zhuǎn)換；EOC=1,轉(zhuǎn)換結(jié)束。使用中該狀態(tài)信號即可作為查詢的狀態(tài)標志，又可作為中斷請求信號使用。D7～D0—數(shù)據(jù)輸出線。為三態(tài)緩沖輸出形式，能夠和單片機的數(shù)據(jù)線直接相連。D0為最低位，D7為最高。OE—輸出允許信號。用于控制三態(tài)輸出鎖存器向單片機輸出轉(zhuǎn)換得到的數(shù)據(jù)。OE=0，輸出數(shù)據(jù)線呈高阻；OE=1，輸出轉(zhuǎn)換得到的數(shù)據(jù)。Vcc—電源。Vref—參考電源參考電壓用來與輸入的模擬信號進行比較，作為逐次逼近的基準。其典型值為+5V(Vref(+>=+5V,Vref(->=-5V>。<3）、AT89S51單片機與ADC0809的接口電路連接主要涉及兩個問題。一是8路模擬信號通道的選擇，二是A/D轉(zhuǎn)換完成后轉(zhuǎn)換數(shù)據(jù)的傳送。如圖3-11所示模擬通道選擇信號A、B、C分別接最低三位地址A0、A1、A2即<P0.0、P0.1、P0.2），而地址鎖存允許信號ALE由P2.0控制，則8路模擬通道的地址為0FEF8H～0FEFFH.另外，通道地址選擇以作寫選通信號，這一部分電路連接如圖3-12所示。ALEALEAT89S51INTWRP2.0RD&≥A0～A7IN1IN2IN3IN4IN5IN6IN7IN0CLKABCD0︱D7EOCADC0809STALEOE74LS373圖3-10ADC0809與AT89S51的連接從圖中能夠看到，把ALE信號與START信號接在一起了，這樣連接使得在信號的前沿寫入<鎖存）通道地址，緊接著在其后沿就啟動轉(zhuǎn)換。啟動A/D轉(zhuǎn)換只需要一條MOVX指令。在此之前，要將P2.0清零并將最低三位與所選擇的通道仿佛對應的口地址送入數(shù)據(jù)指針DPTR中。例如要選擇IN0通道時，可采用如下兩條指令，即可啟動A/D轉(zhuǎn)換：MOVDPTR,#FE00H；送入0809的口地址MOVX@DPTR,A；啟動A/D轉(zhuǎn)換<IN0）注意：此處的A與A/D轉(zhuǎn)換無關(guān)，可為任意值。AA0A1A2P2.0&ABCALESTART圖3-11ADC0809的驅(qū)動ALEALESTARTA/D啟動地址鎖存寄存器清“0”圖3-12信號的時間配合7.控制電路及控制方法3-7-1設計中所選擇的控制電機轉(zhuǎn)速的方法在設計中使用的是調(diào)節(jié)電機的轉(zhuǎn)速來控制燃料的進給量，從而控制燃料產(chǎn)生的煙塵的溫度，使得靜電除塵器所在環(huán)境的溫度達到控制，從而能夠使靜電除塵器在合適的溫度下工作，也提高了工作的效率。在設計中使用的電機轉(zhuǎn)速調(diào)節(jié)的方法為轉(zhuǎn)子電路串電阻調(diào)速法。設計中的控制方法使用的是PID控制方法。3-7-2電機的調(diào)速方法<1）普通三相鼠籠式。這種電機只能經(jīng)過變頻器改變電源頻率和電壓調(diào)速<F/U>。<2）三相繞線式電機，能夠經(jīng)過改變串接在轉(zhuǎn)子線圈上的電阻改變電機的機械特性達到調(diào)速的目的。這種方式常用在吊車上。長時間工作大功率的繞線式電機調(diào)速不用電阻串接，因為電阻會消耗大量的電能。一般是串可控硅，經(jīng)過控制可控硅的導通角控制電流。相當于改變回路中的電阻達到同上效果。轉(zhuǎn)子的電能經(jīng)可控硅組整流后，再逆變送回電網(wǎng)。這種方式稱為串級調(diào)速。配上好的調(diào)速控制柜，據(jù)說能夠和直流電機調(diào)速相比美。<3）多極電機。這種電機有一組或多組繞組。經(jīng)過改變接在接線合中的繞組引線接法，改變電機極數(shù)調(diào)速。最常見的4/2極電機用<角/雙Y>接。<4）三相整流子電機。這是一種很老式的調(diào)速電機，現(xiàn)在很用了。這種電機結(jié)構(gòu)復雜，它的轉(zhuǎn)子和直流電機轉(zhuǎn)子差不多，也有換向器，和電刷。經(jīng)過機械機構(gòu)改變電刷相對位置，改變轉(zhuǎn)子組繞組的電動勢改變電流而調(diào)速。這種電機用的是三相流電，可是，嚴格上來說，其實它是直流機。原理是有點象串礪直流機。圖3-13電機的調(diào)速電路<5）滑差調(diào)速器。這種方式其實不是改變電機轉(zhuǎn)速。而是改變和是電機軸相連的滑差離合器的離合度，改變離合器輸出軸的轉(zhuǎn)速來調(diào)速的。還有如，硅油離合器，磁粉離合器，等等，一此離合機械裝置和三相電機配套，用來調(diào)速的方式。嚴格上來說不算是三相電機的調(diào)還方式?？墒呛芏嘟滩某３０阉鼈兯阕髡{(diào)速方式和一種。四．軟件系統(tǒng)的設計1.設計思想軟件采用模塊化結(jié)構(gòu)。軟件主要完成如下任務：掃描鍵盤并按要求調(diào)出設定值或輸入新的設定值，并判斷是否啟動，啟動時控制電機的電阻的開關(guān)處于閉合狀態(tài)，然后監(jiān)視溫度的變化，當溫度超出設定溫度值10℃時，斷開控制電機電阻的開關(guān)讓電機的轉(zhuǎn)速減慢，當溫度低于設定溫度10℃時，閉合控制電機電阻的開關(guān)。主程序的框圖如圖4-1所示2．鍵盤顯示子程序在設計中的鍵盤顯示使用的方式是靜態(tài)顯示方式。ORG 1000H DSPSER: SETB P3.3 。開放顯示輸出 MOV R7,#03H 。送出的顯示段碼個數(shù) MOV R0,#7FH 。7FH～7DH為顯示緩沖區(qū)DSPS1: MOV A,@R0 。取出要顯示的數(shù)據(jù) ADD A,#0DH 。加上偏移量 MOVC A,@A+PC 。查段碼表TAB1 MOVSBUF,A 。經(jīng)過串行口將段碼送出DSPS2: JNBTI,DSPS2 。數(shù)據(jù)發(fā)送完？ CLRTI DECR0 。指向下一個數(shù)據(jù)單元 DJNZR7,DSPS1。三個顯示器是否全部顯示？ CLRP3.3。三個數(shù)據(jù)顯示完，關(guān)閉送顯示數(shù)據(jù)通道 RET KEYS1: MOV A，#00H MOV SBUF,A 。掃描鍵盤全部輸出0KSY0: JNB TI,KSY0 。數(shù)據(jù)發(fā)送完？ CLR TI PKS1: ACALL DELAY1 。調(diào)用延時20ms子程序，鍵盤去抖 JNB P3.3,PKS2 。有鍵閉合嗎？PKS2: MOV R7,#08H 。不是抖動引起的 MOV R6,#0FEH 。判斷是哪個鍵按下？ MOV R3,#00H NNNNNNNYYY開始設堆棧指針工作區(qū)清零，送常數(shù)開中斷調(diào)顯示子程序減少鍵？加十處理減十處理置靜電除塵器環(huán)境溫度顯示標志正常工作鍵？以為標志調(diào)響應顯示子程序靜電除塵器的環(huán)境溫度？溫度設置鍵？增加鍵？圖4-1主程序框圖調(diào)鍵盤分析程序MOV A,R6 KSY2: MOV SBUF,A KSY3: JNB TI,KSY3 。等待串行口發(fā)送完 CLR TI JNB P2.4,PKONE 。是第一行的某鍵按下？ MOV R4,#00H 。第一行有鍵按下 AJMP PKS3 DELY1:MOVR3,#228MOVR2,#253MOVR1,#219LOOP1:DINZR1,$DINZR2,LOOP1DINZR3,LOOP1NOPRET3.PID控制子程序設計中所使用的控制方式是PID控制，圖4-2所示的是PID控制的流程程序圖。PID:MOVR2,25H。設定值U送R2MOVR3,24H。采樣平均值R送R3LCALLCPL1LCALLSUM。求偏差ei(K>,存放于R2中MOV29H,R2。本次偏差ei(K>送29HMOVR3,27H。Ki送R3LCALLSMUL。求得PiMOV30H,R4。Pi的高字節(jié)送30HMOV31H,R5。Pi的低字節(jié)送31HMOVR2,29H。ei(K>送R2MOVR3,2AH。上次偏差ei(K-1>送R3LCALLCPL1LCALLSUM。求得ei(K>-ei(K-1>,存放于R2中MOVR3,26H。Kp送R3LCALLSMUL。求得Pp,高字節(jié)存R4，低字節(jié)存R5MOVR2,30H。Pi送R2R3MOVR3,31HLCALLDSUM。求得Pi+PPMOV30H,R4。結(jié)果高字節(jié)送30HMOV31H,R5。結(jié)果低字節(jié)送31HMOVR2,29H。本次偏差ei(K>送R2MOVR3,2BH。上上次偏差ei(K-2>送R3LCALLSUM。求得ei(K>+ei(K-2>,存放于R2中MOVR3,2AH。上次偏差ei(K-1>送R3LCALLCPL1。eiK-1>取補碼LCALLSUM。求得ei(K>+ei(K-2>-ei(K-1>,存放于R2中LCALLSUM。求得ei(K>+ei(K-2>-2ei(K-1>,存放于R2中MOVR3,28H。Kd送R3LCALLSMUL。求得Pd,高字節(jié)存R4，低字節(jié)存R5MOVR2,30H。取Pi+PpMOVR3,31HLCALLDSUM。求得Pi+Pp+Pd,高字節(jié)存R4，低字節(jié)存R5MOVR2,2CH。取上次計算的P(K-1>MOVR3,2DHLCALLDSUM。求得本次P(K>=Pi+Pp+Pd+P(K-1>MOV2CH,R4。結(jié)果高字節(jié)存2CHMOV2DH,R5。結(jié)果低字節(jié)送2DHMOV2BH,2AH。E(K-1>送E(K-2>MOV2AH,29H。ei(K>送ei(K-1>RET計算△計算△ei(k>,△ui(k>更行△ui<k－1）計算△2ui(k>更行△ui<k－1）計算ui<k）更新ui<k－1）返回圖4-2PID控制框圖初始化五．硬件系統(tǒng)與軟件系統(tǒng)的調(diào)試1.軟件調(diào)試應用Keil軟件調(diào)試步驟如下：<1）在Keil軟件中點擊Projec中的NewProject新建一個工程文件<2）在工程的子目錄中建一個文件，名為Text1.asm注：在Keil軟件中一定要建一個asm類型的文件，此時Keil才能識別程序。<3）輸入程序，調(diào)試。附錄源程序ORG0000HLJMPMAINORG000BHLJMPT00ORG001BHLJMPT100ORG0030HMAIN:MOVR0,#7FHMAIN1:MOV@R0,#00HDJNZR0,MAIN1MOVSP,#60HMOV08H,#32HMOV0FH,#20HMOV10H,#20HMOVTMOD,#11HMOVTH0,#0FCHMOVTL0,#18HSETBTR0SETBET0SETBIT0SETBEX0SETBEASETB2FH.4BEGIN:DIS00:MOVA,09HMOVB,#64HDIVABMOV35H,AMOVA,BMOVB,#0AHDIVABMOV36H,AMOV37H,BMOVA,43HCJNEA,#3aH,OUT01MOVA,42HCJNEA,#98H,OUT01MOV42H,#00HMOV43H,#00HLCALLSAMPSETB2FH.1OUT01:JNB2FH.1,OUT02LCALLFILTERCLR2FH.1SETB2FH.2MOVR2,25HMOVR3,24HLCALLCPL1LCALLSUMMOVA,R2CJNEA,#01AH,OUT04LJMPOUT05OUT04:JCOUT05SETBP1.2LJMPOUT06OUT05:MOV26H,#12HMOV27H,#1HMOV28H,#1HLCALLPIDMOVTH1,2CHMOVTL1,2DHSETBTR1SETBET1LJMPOUT06OUT02:MOVA,45HCJNEA,#03H,OUT06MOVA,44HCJNEA,#0E8H,OUT06MOV44H,#00HMOV45H,#00HMOVTH1,2CHMOVTL1,2DHSETBTR1SETBET1OUT06:JB2FH.4,OUT07JNB2FH.2,BEGBEG:LJMPBEJINOUT07:。MOV24H,#56HMOVR0,24HLCALLTRANSFMOV32H,R0MOV33H,R1MOV34H,R2MOV25H,#0FFHMOVR0,25HLCALLTRANSFMOV35H,R0MOV36H,R1MOV37H,R2CLR2FH.2CLR2FH.4LJMPBEGINT100:CLRET1PUSHACCPUSHBPUSHPSWPUSHDPHPUSHDPLCLRP1.2POPDPLPOPDPHPOPPSWPOPBPOPACCSETBET1RETIKEY1:MOV30H,#01HMOVA,#01HADDA,09HMOV09H,AMOVA,#00HADDCA,13HMOV13H,ARETKEY2:MOV30H,#02HMOVA,#0AHMOVB,09HMULABSWAPAADDA,BSWAPAMOV09H,ARETKEY3:MOV30H,#03HCLRCMOVA,#01HXCHA,09HSUBBA,09HMOV09H,ARETKEY4:MOV30H,#04HMOV09H,#00HRETT00:CLREAPUSHACCPUSHBPUSHPSWPUSHDPHPUSHDPLCLRRS1SETBRS0MOVTH0,#0FCHMOVTL0,#25HMOVDPTR,#7FFFHMOVA,#00HMOVX@DPTR,AMOVDPTR,#9FFFHMOVA,#0FFHMOVX@DPTR,AMOVA,@R0MOVDPTR,#TABMOVCA,@A+DPTRMOVDPTR,#9FFFHMOVX@DPTR,AMOVDPTR,#7FFFHMOVA,R7MOVX@DPTR,AINCR0RRAMOVR7,ACJNER0,#38H,scanMOVR0,#32HMOVR7,#20Hscan:MOVA,42HADDA,#01HMOV42H,AMOVA,43HADDCA,#00HMOV43H,AMOVA,44HADDA,#01HMOV44H,AMOVA,45HADDCA,#00HMOV45H,AKEY01:MOVDPTR,#1FFFHMOVA,#0FEHMOVX@DPTR,AJBP1.7,KEY02INC4aHMOVA,4aHCJNEA,#0AH,KEY02MOV4aH,#00HMOVA,46HCJNEA,#00H,KEY02LCALLKEY2INC46HKEY02:JNBP1.7,BECK1MOV46H,#00HBECK1:MOVA,#0DFH MOVX@DPTR,ANOPNOPJBP1.7,KEY03INCR2INC4bHMOVA,4bHCJNEA,#0FFH,LOOP02MOV4bH,#00HINC4cHMOVA,4cHSUBBA,#08HJNCLOOP03LOOP02:CJNER2,#0AH,KEY03MOVR2,#00HMOVA,47HCJNEA,#00H,KEY03LOOP03:LCALLKEY1INC47HKEY03:JNBP1.7,BECK2MOV4bH,#00HMOV4cH,#00HMOV47H,#00HBECK2:MOVA,#0BFHMOVX@DPTR,ANOPNOPJBP1.7,KEY04INCR3INCR5CJNER5,#0FFH,LOOP00MOVR5,#00HINCR6MOVA,R6SUBBA,#08HJNCLOOP01LOOP00:CJNER3,#08H,KEY04MOVR3,#00HMOVA,48HCJNEA,#00H,KEY04LOOP01:LCALLKEY3INC48HKEY04:JNBP1.7,BECK3MOVR5,#00HMOVR6,#00HMOV48H,#00HBECK3:MOVA,#7FHMOVX@DPTR,ANOPNOPJBP1.7,T101INCR4CJNER4,#0AH,T101MOVR4,#00HMOVA,49HCJNEA,#00H,T101LCALLKEY4INC49HT101:MOV41H,#00HNOPPOPDPLPOPDPHPOPPSWPOPBPOPACCSETBEARETISAMP:MOVR0,#20HMOVR2,#04HMOVDPTR,#5FFaHSAM1:MOVX@DPTR,ANOPWAIT:JBP3.2,WAITMOVXA,@DPTRMOV@R0,AINCR0DJNZR2,SAM1RETFILTER:MOVR0,#20HMOVR6,#00HMOVR7,#00HMOVR2,#04HSUM10:MOVA,R7ADDA,@R0MOVR7,AMOVA,R6ADDCA,#00HMOVR6,AINCR0DJNZR2,SUM10MOVR2,#02HSUM12:MOVA,R6CLRCRRCAMOVR6,AMOVA,R7RRCAMOVR7,ADJNZR2,SUM12MOV24H,R7RETPID:MOVR2,25HMOVR3,24HLCALLCPL1LCALLSUMMOV29H,R2MOVR3,27HLCALLSMULMOV30H,R4MOV31H,R5MOVR2,29HMOVR3,2AHLCALLCPL1LCALLSUMMOVR3,26HLCALLSMULMOVR2,30HMOVR3,31HLCALLDSUMMOV30H,R4MOV31H,R5MOVR2,29HMOVR3,2BHLCALLSUMMOVR3,2AHLCALLCPL1LCALLSUMLCALLSUMMOVR3,28HLCALLSMULMOVR2,30HMOVR3,31HLCALLDSUMMOVR2,2CHMOVR3,2DHLCALLDSUMMOV2CH,R4MOV2DH,R5MOV2BH,2AHMOV2AH,29HRETCPL1:MOVA,R3CPLAADDA,#01HMOVR3,ARETSUM:MOVA,R2ADDA,R3MOVR2,ARETSMUL:NOPSBITBIT2EH.0SBIT1BIT2EH.1SBIT2BIT2EH.2MOVA,R2RLCAMOVSBIT1,CMOVA,R3RLCAMOVSBIT2,CANLC,/SBIT1MOVSBIT,CMOVC,SBIT1ANLC,/SBIT2ORLC,SBITMOVSBIT,CMOVA,R2JNBSBIT1,NCH1CPLAINCANCH1:MOVB,AMOVA,R3JNBSBIT2,NCH2CPLAADDA,#01HNCH2:MULABJNBSBIT,NCH3CPLAADDA,#01HNCH3:MOVR5,AMOVA,BJNBSBIT,NCH4CPLAADDCA,#00HNCH4:MOVR4,ARETDSUM:MOVA,R5ADDA,R3MOVR5,AMOVA,R4ADDCA,R2MOVR4,ARETSUM00:CPL2EH.3JB2EH.3,SUM01MOVA,24HADDA,#02HMOV24H,ARETSUM01:MOVA,24HADDA,#03HMOV24H,ARETSUBB00:CPL2EH.3JB2EH.3,SUB01MOVA,24HCLRCSUBBA,#03HMOV24H,ARETSUB01:MOVA,24HCLRCSUBBA,#02HMOV24H,ARETTRANSF:MOVA,#64HMOVB,R0MULABMOVR5,AMOVR4,BMOVR7,#0FFHD457:CLR C MOV A,R4 SUBB A,R7 JC DV50 SETB OV RETDV50:MOVR6,#8 DV51:MOVA,R5 RLC A MOV R5,A MOV A,R4 RLC A MOV R4,A MOV F0,C CLR C SUBB A,R7 ANL C,/F0 JC DV52 MOV R4,ADV52:CPLC MOV A,R3 RLC A MOV R3,A DJNZ R6,DV51 MOV A,R4 ADD A,R4 JC DV53 SUBB A,R7 JC DV54DV53:INCR3DV54:CLROVMOVA,R3MOVB,#64HDIVABMOVR0,AMOVA,BMOVB,#0AHDIVABMOVR1,AMOVR2,BRETTAB:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90HDB88H,83H,0C6H,0A1H,86H,8EH,8CH,0C1H,0CEH,91H,89H,0C7H,0FFH