单片机的高压静电除尘器的设计方案

/XX学院《单片机原理与应用》课程论文课程论文题目基于单片机的空气净化机的设计院系名称专业<班级）计算机科学与技术专业姓名<学号）指导教师201８年5月日一．绪论1。引言空气净化器具有滤去尘埃、消除异味及有害气体、双重灭菌、释放负离子等功能.它通过电机使室内空气循环流动，被污染的空气通过机内的空气过滤器后将各种污染物清除或吸附，然后经过装在出风口的负离子发生器,将空气不断电离,产生大量负离子,被微风送出,形成负离子气流,达到清洁、净化空气的目的。目前，国内外空气净化器产品普遍采用的净化技术主要有:紫外线净化、光触媒净化、等离子体净化、过滤净化〈HＥPA）、静电集尘、吸附净化、负离子净化、臭氧净化、分子络合、HIMOＰ快速净化等方法。2.设计任务与要求高压静电除尘是根据静电荷的异性相吸、同性相斥的原理，利用静电力将空气中带电粉尘吸附沉降下来,以达到除尘的目的.通过该原理设计一款空气净化机从而取代物理除尘和臭氧除尘.二．原理１。高压静电除尘的原理高压静电除尘是根据静电荷的异性相吸、同性相斥的原理，利用静电力将空气中带电粉尘吸附沉降下来,以达到除尘的目的。ﻫ含有粉尘颗粒的气体,在接有高压直流电源的阴极线(又称电晕极〉和接地的阳极板之问所形成的高压电场通过时，由于阴极发生电晕放电、气体被电离，此时，带负电的气体离子，在电场力的作用下，向阳极板运动，在运动中与粉尘颗粒相碰，则使尘粒荷以负电,荷电后的尘粒在电场力的作用下,亦向阳极运动,到达阳极后，放出所带的电子,尘粒则沉积于阳极板上，从而得到净化的气体。该技术只对颗粒物等大粒子气体有效果，主要用于除尘。图1－1静电除尘器的工作原理图三．硬件设计1。温度控制系统的硬件设计显示器显示器键盘时钟电路复位电路电源AT89S51单片机A/D转换器放大电路外部控制电路传感器采集信号图3-1主电路图框图２。信号采集电路的设计如图３－２所示是设计中热敏电阻测量原理电路，由电源、电阻电桥、运放和输出四部分组成.电源部分包括R4、R6、Ｃ1、U1B。R4、R6为分压电路，C1主要滤除Vｃc中的纹波,Ｕ1B为LＭ324运算放大器，工作于电压更随方式,其特点是输入阻抗高、输出阻抗低，为后级电桥提供稳定的电流。电桥由Ｒ１、Ｒ２、R3、Ｒ13组成，当外界温度发生变化时，通过调节R13使电路产生补偿电压,属于电位补偿。运放电路由R７、Ｒ8、R9、R1０及Ｕ１A组成，这是一种灵敏度较高的电桥放大电路，放大倍数由R９/R８得到.输出电阻由Ｒ４、R１2、R1４、D1组成,调节R1４可以调整输出电压幅度。D1主要用于防止输出负电压，保护后级A／D电路。图3—2信号采集电路3．复位电路如何进行复位呢？只要在单片机的RST引脚上加上高电平,就可以了，复位时间不少于5ms。为了达到这个要求，需要在外部设计复位电路。复位电路的实现可以用多种方法，但是从功能上一般分为两种:一种是电源复位，即外部的复位电路在系统通上电源之后直接使单片机工作,单片机的起停通过电源控制。另一种方法是在复位电路中设计按键开关,通过按键开关触发复位电平控制单片机的复位。从原理上说，一般采用高电复位电路。这种复位电路的工作原理是：通电时,电容两端相当于短路,于是RＳT引脚上为高电平，然后电源通过电阻对电容充电,RST端电压慢慢下降，降到一定程序,即为低电平，单片机开始正常工作。图3—3单片机的复位电路4。显示与键盘电路的设计＜１)显示选用的是共阴极七段码LＥD数码管显示。图3－4共阴极七段码ＬED数码管芯片引脚在该设计中采用的LＥＤ数码管用的是共阴极接法，其中LＥD的1～8号引脚分别接芯片74LS１６４的A～H引脚,用ＬＥD数码管实现数字显示.图３—５单片机的显示和键盘连接图＜２）用ＡT8９Ｓ51单片机芯片串行口的方式0的输出方式，在串行口外接移位寄存器74LＳ164,构成键盘和显示器接口，其硬件接口如图3-5〈图中只画出三位LED静态显示和16个按键，根据需要可以扩展）。采用静态显示，软件设计比较简单,节约ＣPU的资源.5.单片机的选择1。AT８9Ｓ５单片机芯片引脚功能说明<1)主电源引脚Vss和Vcc①Vsｓ接地。②Vcc正常操作时为＋５伏电源。图3—6ＡT89S51芯片引脚图〈2)控制或与其它电源复用引脚RSＴ/VＰD，ALE/PＲOG和EA/Vｐp。①RST/ＶPD当振荡器运行时,在此引脚上出现两个机器周期的高电平〈由低到高跳变)，将使单片机复位.在Ｖcｃ掉电期间，此引脚可接上备用电源，由VPD向内部提供备用电源,以保持内部RAM中的数据。②ALE/ＰROＧ正常操作时ALE的功能是＜允许地址锁存)提供并把地址的低字节锁存到外部锁存器，AＬE引脚以不变的频率<振荡器的频率）周期性地发出正脉冲信号.因此，它可用作对外输出的时钟，或用于定时目的。但要注意,每当访问外部数据存储器时,将跳过一个AＬE脉冲，AＬE端可以驱动＜吸收或输出电流)八个LSTＴＬ电路。对于ＥＰROＭ型单片机，在EPROM编程期间，此引脚接收编程脉冲＜功能）。③外部程序存储器读选通信号输出端,在从外部程序存储取指令<或数据)期间，在每个机器周期内两次有效。同样可以驱动八LSTＴL输入。④EＡ／Vpp为内部程序存储器和外部程序存储器选择端。当ＥA/Vpｐ为高电平时,访问内部程序存储器,当ＥＡ/Vpｐ为低电平时,则访问外部程序存储器。对于EPROM型单片机，在EＰROM编程期间,此引脚上加ＥＰROM编程电源12V〈Ｖpp).6.A／D转换电路设计<１)Ａ／D转换器芯片ADＣ0８０9简介.8路模拟信号的分时采集,片内有８路模拟选通开关，以及相应的通道抵制锁存用译码电路,其转换时间为1０0μs左右。ADC0８0９的引脚图如图3-７所示.图3—7ADC０80９引脚图图中多路开关可选通8个模拟通道,允许８路模拟量分时输入，共用一个A/D转换器进行转换,这是一种经济的多路数据采集方法。地址锁存与译码电路完成表３－１通道选择表CBA被选择的通道000ＩN00０1IN１010IN201１ＩN31０0IN4101ＩN５１10IN６111ＩＮ7对A、B、Ｃ3个地址位进行锁存和译码，其译码输出用于通道选择,其转换结果通过三态输出锁存器存放、输出，因此可以直接与系统数据总线相连.ADDBADDBADDCADDAVCCGNDIN0IN4IN2IN6IN1IN7IN3IN5ALE8位模拟开关地址锁存与译码EOCOEA/D转换器DOD1D2D3D4D7D6D5三态输出锁存缓冲器图3-8ADC0809内部逻辑结构CLKSCTAR〈２).信号引脚ＡDC０８09芯片为2８引脚为双列直插式封装,其引脚排列见图３—9所示.对ADC08０９主要信号引脚的功能说明如下:IN7~IN０-模拟量输入通道.ALE—地址锁存允许信号。对应ALE上跳沿,A、Ｂ、C地址状态送入地址锁存器中。ＳTAＲT—转换启动信号。SＴARＴ上升沿时,复位ＡＤC08０9；ＳTARＴ下降沿时启动芯片，开始进行A/Ｄ转换；在A/D转换期间,SＴART应保持低电平.本信号有时简写为SＴ。图３—9ADC0８09引脚图A、B、Ｃ—地址线。通道端口选择线，Ａ为低地址，C为高地址,引脚图中为ＡＤDA,ADDB和ADDC。其地址状态与通道对应关系见表3-1.ＣLK—时钟信号。DC０809的内部没有时钟电路，所需时钟信号由外界提供，因此有时钟信号引脚.通常使用频率为５00ＫHz的时钟信号。ＥOＣ—转换结束信号。EＯC=0,正在进行转换；EＯC=１，转换结束。使用中该状态信号即可作为查询的状态标志，又可作为中断请求信号使用.D7~D０—数据输出线.为三态缓冲输出形式,可以和单片机的数据线直接相连。D0为最低位，D7为最高.ＯE—输出允许信号。用于控制三态输出锁存器向单片机输出转换得到的数据。OE=0，输出数据线呈高阻；ＯＥ=1，输出转换得到的数据.Vcc-电源。Ｖref—参考电源参考电压用来与输入的模拟信号进行比较，作为逐次逼近的基准。其典型值为＋5V（Vref(＋〉=+５V，Vref(－〉=-5V>。〈3）、AT8９Ｓ51单片机与AＤC0809的接口电路连接主要涉及两个问题。一是8路模拟信号通道的选择,二是A/Ｄ转换完成后转换数据的传送。如图3—11所示模拟通道选择信号Ａ、B、C分别接最低三位地址A０、A1、A2即<P0。０、P0。1、P0。2）,而地址锁存允许信号ALE由P2。0控制,则8路模拟通道的地址为０FEF8H~0FEFFＨ.此外,通道地址选择以作写选通信号，这一部分电路连接如图3-1２所示。ALEALEAT89S51INTWRP2.0RD&≥A0～A7IN1IN2IN3IN4IN5IN6IN7IN0CLKABCD0︱D7EOCADC0809STALEOE74LS373图3-10ADC0809与AT89S51的连接从图中可以看到，把ＡLＥ信号与ＳTARＴ信号接在一起了，这样连接使得在信号的前沿写入〈锁存）通道地址，紧接着在其后沿就启动转换。启动Ａ/Ｄ转换只需要一条MOVX指令.在此之前，要将Ｐ2．0清零并将最低三位与所选择的通道好像对应的口地址送入数据指针DPTR中。例如要选择IＮ０通道时,可采用如下两条指令，即可启动A/D转换：ＭOＶDPTR，＃ＦE０0H；送入0８０９的口地址MＯVX＠DPTR，A;启动A/Ｄ转换<IN0）注意：此处的A与A/D转换无关,可为任意值。AA0A1A2P2.0&ABCALESTART图3-11ADC0809的驱动ALEALESTARTA/D启动地址锁存寄存器清“0”图3-12信号的时间配合7．控制电路及控制方法3—7－1设计中所选择的控制电机转速的方法在设计中使用的是调节电机的转速来控制燃料的进给量，从而控制燃料产生的烟尘的温度，使得静电除尘器所在环境的温度达到控制，从而可以使静电除尘器在合适的温度下工作,也提高了工作的效率.在设计中使用的电机转速调节的方法为转子电路串电阻调速法。设计中的控制方法使用的是PID控制方法。3—７-2电机的调速方法<1）普通三相鼠笼式。这种电机只能通过变频器改变电源频率和电压调速<Ｆ/U〉。〈２)三相绕线式电机,可以通过改变串接在转子线圈上的电阻改变电机的机械特性达到调速的目的。这种方式常用在吊车上。长时间工作大功率的绕线式电机调速不用电阻串接,因为电阻会消耗大量的电能。通常是串可控硅，通过控制可控硅的导通角控制电流.相当于改变回路中的电阻达到同上效果。转子的电能经可控硅组整流后，再逆变送回电网。这种方式称为串级调速.配上好的调速控制柜，据说可以和直流电机调速相比美。<3)多极电机。这种电机有一组或多组绕组。通过改变接在接线合中的绕组引线接法，改变电机极数调速。最常见的４/2极电机用<角/双Y>接。<4）三相整流子电机。这是一种很老式的调速电机，现在很用了。这种电机结构复杂，它的转子和直流电机转子差不多,也有换向器，和电刷。通过机械机构改变电刷相对位置,改变转子组绕组的电动势改变电流而调速。这种电机用的是三相流电,但是，严格上来说，其实它是直流机.原理是有点象串砺直流机。图3-13电机的调速电路<5）滑差调速器。这种方式其实不是改变电机转速.而是改变和是电机轴相连的滑差离合器的离合度，改变离合器输出轴的转速来调速的.还有如，硅油离合器,磁粉离合器，等等,一此离合机械装置和三相电机配套，用来调速的方式.严格上来说不算是三相电机的调还方式。但是很多教材常常把它们算作调速方式和一种。四．软件系统的设计1。设计思想软件采用模块化结构。软件主要完成如下任务：扫描键盘并按要求调出设定值或输入新的设定值，并判断是否启动，启动时控制电机的电阻的开关处于闭合状态，然后监视温度的变化，当温度超出设定温度值10℃时，断开控制电机电阻的开关让电机的转速减慢，当温度低于设定温度10℃时，闭合控制电机电阻的开关。主程序的框图如图4-１所示2．键盘显示子程序在设计中的键盘显示使用的方式是静态显示方式。OＲG 100０H ＤＳＰＳER: SEＴB Ｐ3。3ﻩﻩ。开放显示输出 MＯVﻩR7，#03H 。送出的显示段码个数ﻩ ＭOVﻩR0,#7FHﻩ。7FH~７ＤH为显示缓冲区DSPS1:ﻩMOVﻩA,＠R0 .取出要显示的数据 ﻩADD A,＃0DHﻩﻩ。加上偏移量 ﻩMOVC Ａ,@A+PC 。查段码表TＡB1ﻩﻩMOＶSBUF，A ﻩ。经过串行口将段码送出DSPS2:ﻩJNBTＩ，DSＰS2 .数据发送完？ ﻩCLRTI ﻩ DEＣR0ﻩ .指向下一个数据单元ﻩ DJNZR７,DＳPＳ1.三个显示器是否全部显示？ﻩ CLＲP3。3。三个数据显示完，关闭送显示数据通道ﻩﻩRETﻩKEYS1： MOV A，#00H ＭOＶﻩSBＵＦ,Ａﻩ .扫描键盘全部输出0KSY0： ＪNB TI，ＫSY０ﻩ.数据发送完?ﻩﻩCLＲﻩＴIﻩPKS１： ＡＣALLﻩＤEＬＡY1ﻩ。调用延时２0mｓ子程序，键盘去抖ﻩﻩJNBﻩP3.3,PKS2ﻩﻩ。有键闭合吗？ＰＫＳ2:ﻩMOＶ Ｒ７，＃08Hﻩ 。不是抖动引起的ﻩMOVﻩR6，＃0FEHﻩ。判断是哪个键按下？ﻩMOＶﻩR3，#00H NNNNNNNYYY开始设堆栈指针工作区清零，送常数开中断调显示子程序减少键？加十处理减十处理置静电除尘器环境温度显示标志正常工作键？以为标志调响应显示子程序静电除尘器的环境温度？温度设置键？增加键？图4-1主程序框图调键盘分析程序MOＶﻩＡ,R6ﻩKSY2: MOＶ SBUＦ,AﻩＫSY3： JＮBﻩTI，KSY3ﻩ 。等待串行口发送完ﻩﻩCLR TI ﻩJＮＢﻩP2.4，PKOＮＥ .是第一行的某键按下？ﻩ MOV Ｒ4，＃00H ﻩ。第一行有键按下ﻩﻩAJMPﻩPKＳ３ DELY１:ＭOVＲ３,＃228MOVR2，＃２53MＯVR１,＃21９LOOP1：ＤINZR１，＄DＩNZR2,LOOP1DINZR3，LOＯP1ＮOPRET３.PID控制子程序设计中所使用的控制方式是PID控制，图4-2所示的是PIＤ控制的流程程序图。PＩＤ：MOＶR2，25H。设定值U送Ｒ２MOＶR3，24H。采样平均值R送Ｒ３LCALLCPＬ1ＬCALＬSUM.求偏差ei(K〉，存放于Ｒ2中MOV29H,Ｒ２。本次偏差ei(K>送29HMOVR3,27H。Kｉ送R3ＬCALLSＭUL。求得ＰiMOV３0H，R4。Ｐi的高字节送30HＭOV31H,R５。Pｉ的低字节送3１HMOVR2，29H。eｉ(K>送R2ＭＯVＲ3，２AＨ.上次偏差ei(Ｋ-1>送R3ＬCALＬCＰL1LＣALLＳUＭ。求得ｅi(K〉-ei（K－1＞,存放于R2中ＭOＶR3,26Ｈ。Kｐ送Ｒ3ＬCAＬLSＭUL。求得Pp,高字节存Ｒ4,低字节存R５ＭOＶR２,30H。Pｉ送R2Ｒ3MOＶR3,31HＬＣALLDSUM.求得Pi+PPMOＶ30H，Ｒ4。结果高字节送30HＭOＶ31H,R５。结果低字节送３１HMOVR2,2９H.本次偏差ei（K〉送R2MＯVR3，２BH。上上次偏差ei（K—2＞送Ｒ3LCALLSUM。求得ei（K〉+eｉ(K－2〉，存放于R2中ＭOVR3,2AH。上次偏差eｉ（K－１>送R３LCＡLLCPL1。eiＫ-1＞取补码LＣＡＬLSUM。求得ei(Ｋ>+ei(K—2〉—ei(Ｋ-１>,存放于R2中LCALLSUM。求得ei(Ｋ〉＋ｅｉ（K-2〉-２ｅi(Ｋ—1〉，存放于R2中MOVR3，28H。Kd送R3ＬCALLSMＵL。求得Pd，高字节存R4，低字节存R5MOVＲ２,３0Ｈ。取Pi+PpMOVR3,31HLＣAＬLDSUＭ。求得Pｉ+Pp+Pd，高字节存R4，低字节存R5MOVR2，2ＣH。取上次计算的P（K—1〉MOＶR３,2DHLCALLDSUＭ。求得本次Ｐ（K>=Pi＋Pp＋Pd+Ｐ(Ｋ-1〉MＯV2ＣH,R4。结果高字节存2CHMOV2DH,R5.结果低字节送2DＨＭOＶ２BH,2AＨ。E（Ｋ-1>送Ｅ（Ｋ-2＞MOＶ2ＡH，29H。ｅｉ（K〉送ei(K—１>RＥＴ计算△计算△ei(k>,△ui(k>更行△ui<k－1）计算△2ui(k>更行△ui<k－1）计算ui<k）更新ui<k－1）返回图4-2PID控制框图初始化五．硬件系统与软件系统的调试1。软件调试应用Ｋeil软件调试步骤如下:〈1)在Keil软件中点击Projeｃ中的ＮewProｊeｃt新建一个工程文件＜2)在工程的子目录中建一个文件,名为Texｔ１。asｍ注:在Kｅil软件中一定要建一个ａｓm类型的文件,此时Kｅｉl才能识别程序.〈３）输入程序，调试。附录源程序ORG0００0HLＪMPMAINＯRG0０0BHLJMPT０0ORＧ00１BHLJＭＰT100ORG00３0HＭAIN：ＭOVR0，＃7ＦＨＭＡIN１：MOV@R0,＃0０HＤJNZＲ0，MAＩN1ＭOＶＳP，#６0HＭOV08H，#3２HMOV0FH，＃２0HＭOＶ10Ｈ，＃20HMOVTMOD,＃１1HMOVTH0，#０FCHＭOVTＬ0,＃18HSETBTR0ＳETＢET0SＥＴＢIT0SETBEX0SETBEAＳETB２FH。4BEＧIＮ：ＤIS00：MOVA，09HMOＶB，＃64ＨDIＶABＭOＶ3５Ｈ，ＡMOVＡ，BMOＶB,＃0ＡＨＤIＶABMOV36H，AMOV３7H,ＢMOVA,43HCJNEA,＃3aH，OUT01ＭOVＡ，4２ＨCJNEA，#98H，OUＴ01ＭOV42H，＃0０HMＯV43Ｈ，#０0HLCAＬＬSAMPSETＢ2FH。1OUT0１：JＮB2FH。1，OUT０2LCALLＦIＬTERCLＲ2FH.1SEＴB2FH。2ＭＯVR2，25HＭＯVＲ3，24HLCALLCPＬ1ＬCＡLＬSUＭMOVA，R2ＣJNEA,＃01ＡＨ，ＯUＴ04LJMPＯＵT05OUT0４:JCOＵT0５SETBＰ1.2LJＭPOUT06OUＴ0５：ＭOV2６Ｈ,#１2ＨMOV27Ｈ，#1HMOV2８H，＃1HLCALLPIDMOＶTH1，2CＨMOVTL1，２DHSＥＴBTR1ＳETＢET１LJMPOUT06OUT０2:MＯVA，4５ＨCJＮEA，#0３H,OUT06ＭOVＡ，4４ＨＣJNEA,#0E8H，OUT06MOV44H，#0０ＨMOV４5H,＃00ＨMOVTH１，２ＣHMＯＶＴL1,2DＨＳETBTR１SETBET1OUT06:JＢ2FH.4，ＯUＴ０7JNB２FH.2，BEGBEG:LJMＰBＥJINＯUT０7：。MＯV２4H,#56ＨMＯＶＲ０,24HＬCAＬLTＲＡNSFMOV32Ｈ，R0ＭOV33H，R１MOV３４H,R2MOV２5H,＃0ＦＦHMOVR０,25ＨLCALLTRANＳFMOＶ35H,Ｒ0MＯＶ36Ｈ，R１MOV37Ｈ,R2ＣＬR2FH.2CLR2FH.4ＬJMPＢEＧINＴ10０:CLRET1PＵSHACＣＰUSＨＢPＵSHPＳＷPUSHＤPHＰUSHDPLＣLRＰ１．2PＯPＤPLPOPDPHＰOPPSＷPOPＢPOＰACCＳETBET１ＲＥTIKＥY１：MOＶ3０Ｈ，＃０1HＭOVA，＃０1HADDＡ,09HMOV０9H，AＭOVA，＃０0HＡDＤCＡ,13HＭOV１3H,ＡＲETKEY２:MOV3０H，＃0２HMOＶA,＃０AＨMOＶB,０9ＨＭULABSWＡＰＡADDA，BSＷAPAMOV09H,ARＥTKＥY3:ＭＯV3０H，＃03HCLRCMOＶA,#０1HXCHA，０9HSUBBA，09HMOＶ09H，ARＥＴKEＹ4:MＯＶ30Ｈ，＃0４HMOＶ09H，#００HRETT0０：ＣLREAPＵSHACCPUSHBPUSHPSWPUＳHDPHPＵSＨDPLCLRRS1SETBＲS0MOVTＨ0,＃0ＦCＨＭOＶTＬ0，＃2５ＨMOVDPTR,#７FFＦHMOVA，#０0HMOVX＠ＤPＴＲ,AＭOVDPTＲ,＃9FＦFHMＯVA，＃０FFＨMOVX@DPTＲ，AMＯＶA，@R0MOＶＤＰＴR,#TＡＢMOVCA,@Ａ+DPTRＭOVＤPTR，#9FＦFHＭＯＶX@DPTＲ,AＭOVDPTＲ,＃７FＦFHMOVA，Ｒ７MＯVＸ＠DＰTＲ,AIＮCR0RRAMOVＲ７，ACJＮER0，#3８Ｈ，scanＭOVＲ0，＃32HMＯVR7,#2０Ｈｓcａn：MOVA,42HADＤA，＃0１ＨMOV42H，ＡMＯＶA,4３ＨADDＣA,＃00HＭＯV４3H，AMOVA，44HADDＡ，＃01HＭOV44H,AMＯVＡ,4５ＨADDCA,＃０0HMOＶ4５H,AKEY01:MOVＤPTR，＃1FFFHMOＶA，＃０FEHMＯＶX@DPTR,ＡJBP1。7，KEY0２INC4ａＨMOVＡ,4aHCJNEＡ,＃０AH,KEＹ02ＭOV4aH，＃00HMOVＡ，46HＣＪＮEA，#0０Ｈ,KＥY02LＣALＬKEY2INＣ4６ＨＫEY02：ＪＮＢP1．7，BECK1ＭOＶ４６H,#0０ＨBECK１：MＯVA，#０DFＨﻩMOＶX@ＤPTR,ANOＰNOPJＢP1．7，ＫEY0３ＩNＣR2ＩNC4bHMOVA，4bHCＪNEA，＃0FFH,LOＯP0２MOV４bH,＃00HINＣ4ｃＨＭOVＡ,4cHSUBBA，#０8HＪNCLOＯP03LOOP０2：CJNER2，＃０ＡＨ,KEY03MOＶR2,＃００HMOVA,4７HCJＮEＡ，＃0０Ｈ，KＥＹ03LOOP０3:LCALＬKEY１INC47HKＥY０3:ＪNBP１.７,ＢＥCK2MOV4bＨ，#０0HMOV4cＨ，#０0HMOＶ４７H，#0０HBECK2:MOVA,＃０ＢＦHMOVX@ＤPTＲ，ＡNＯPＮＯPＪBP1．7,KEY04ＩNCR３INCR5CJNＥR5,＃０FFH,LOOP００ＭOＶＲ5,#0０HINCＲ６MＯVA，R6SＵBＢA,#０8HJNCLＯOP01LOOＰ00：ＣＪNER3，#08H,KEY0４MOVR3,＃0０HMOVＡ，48ＨＣJNEＡ，#0０Ｈ,ＫＥY04LOＯＰ０1：ＬCALLＫEY3INC48ＨＫＥＹ0４：ＪNBP１．７,BEＣK3MＯVR５,#00ＨＭOVR6，#０0HMＯV48H,#00HBECK3:MOVA,#7FHMOVX＠DPＴR，ＡNＯPＮＯＰＪＢP1.７,Ｔ1０１INCR４CJNER4,#0AH，Ｔ101ＭOVR4，#00ＨＭOVA，49HCJＮEA,＃00H,T101ＬＣALLＫEＹ４ＩNC49HＴ101:MOV41Ｈ,＃00HNOＰPOＰDPLPOPDPＨＰOPＰＳWＰOＰＢＰOＰAＣCSETBEＡRETIＳAMP:MOＶR0,#20HMOVR2,＃04HMＯVDPTＲ，#５FFaHＳAＭ１：MOVX@ＤPTR，ANOPWAIT：JBP3.2,ＷAIＴMOVXA，＠ＤPTRMOV＠R0，AIＮCR0ＤJＮＺR2，SAＭ1RETFＩLTＥR:MOVR0,＃2０HMOVR６,＃0０ＨMＯVR7，＃00HMOVＲ2,#04HSUM1０：MＯＶＡ,R７ADDＡ，＠R0ＭOVR７，AＭOVA,R６ＡＤDCA,#00HMOVR6，AINCＲ0ＤJNZＲ2,SUM1０MOVR２，＃02HSUM12：MOＶA，R6ＣＬRＣＲRCＡMOVR6，AMＯVＡ，R7ＲRCAMOVＲ７，ADJNZR2，SUＭ１2MＯＶ24H,R7RＥTPID:ＭＯVR２,25HＭOVR３，2４HＬCAＬLCPL１LCALLSUＭMＯV２9H,Ｒ2MOＶR3，27HＬCＡLLSMULMＯＶ30H，Ｒ4ＭOV3１H,R5ＭOVR２，2９HMOVＲ３,2AHLCALＬCPＬ1LCAＬLSUMMOVR3,2６HLCAＬLSMＵLＭＯVＲ2，30HMOVR3,３1HLCＡＬLＤＳＵMMOV３0H,R4MＯV31H,R５MOVR2,29HMOVＲ3,2BHLＣAＬＬSUMＭOVR3,２AＨLCＡLLCＰL1LCALLSUMＬCALLSUMMOVＲ3,２8HLCＡLLSMＵLＭＯＶR2,30HMＯVＲ3,31HLCALLDＳUMＭＯVR２，2ＣHＭＯVR3,2DHＬCALLＤＳUMMOV2ＣH，Ｒ4MOV2ＤH,R5MＯV２BH，2AＨMＯV2AＨ,29HRＥTCＰＬ1：MOVA,R3CPＬAAＤＤＡ，＃01HMＯVＲ３,ARETSＵM：MOＶＡ,R２ADDA，R３ＭOVR2，ＡＲETSＭUL：ＮOPSBIＴBＩT2EH．０SBＩT1BIT2EＨ。1ＳBIT2BIT２EH.２MＯVA,R2RLＣAMOVSＢIT１,CMOVA，R３ＲLCＡMOVＳBIT２,CAＮLＣ,/SBＩT1MOVSBIT,ＣMOVC，ＳBIT１ＡNＬC,／ＳBＩＴ2ＯRLC，SBIＴMOVSBIT，ＣMOＶA，R2JNBＳＢIT1,ＮCH1CＰLAIＮCANCＨ1：ＭOVB,ＡMＯVＡ,R3JNBＳBIT2，NＣH2ＣPＬAAＤDA,#01HNＣＨ2：MULAＢJNＢSBＩT,NCH3CPLAＡDＤA,＃01HNCH3:MOVＲ5，AMOVA,BJNＢSＢIT,NCH4CPLAADＤCＡ，#00HＮＣH４:MOVＲ４，AＲETDSUM：MOVA，Ｒ5ADDA,R3MOVＲ5，ＡMOＶA,Ｒ4AＤＤＣA，R2MOVＲ4，ARETSＵM00:CPL2EH.3JB2EH.３,ＳＵM01MOVA,24HADＤＡ，＃０2HMＯV2４H,ARETSUM０1：MＯＶA，24ＨAＤDA，＃03HMOＶ24Ｈ,ARＥＴSUBB00:CPL２EH.3JB2EH。３，SＵＢ01MＯＶA，24HCＬRCSUBBA,＃0３ＨMOV２4H，ARETSＵB01:MOVA,24HCＬRCSUBBA，＃02HMOV24H，ＡRＥTTＲANＳF:MＯVＡ，#64HMOVＢ,R0MULABMOVR５，AMOVR4,BＭOVＲ7，＃0FFHD4５7:CＬＲﻩC MOV A,R4 ＳUBB Ａ，R7ﻩJC ＤV5０ﻩSＥTBﻩＯVﻩRETDV５０：MOＶR６,#8ﻩDV51:MOＶA，R5ﻩRＬCﻩA MOVﻩＲ5,A MOV Ａ，R4 RLCﻩAﻩＭOＶ R4，A MＯVﻩＦ０,CﻩCLＲ C SUBBﻩA,R7ﻩAＮＬ C,/F0 JＣ DV5２ MOV R4，ADV52:CPLCﻩＭOV A，R3 RＬCﻩA ＭOV R3，A DJNZﻩR６,DV51ﻩMＯV Ａ,R4ﻩﻩAＤD Ａ，R4ﻩJCﻩDV5３ SUBBﻩA，R7ﻩJC DV54DＶ53:IＮＣR3DV5４：CLROVMOVA，Ｒ3MOＶＢ，＃64HDＩVＡBＭOVR0，ＡMＯVA，ＢMＯVB,＃0AHDIＶＡBMOVＲ1,AＭＯVR２，ＢRETTAＢ：DB０C0H,0Ｆ9H,０Ａ4H，0B0Ｈ，99H，92H，8２H，0F8H，８0H,90HDB88H，83Ｈ，0C6H,0A１H,86H,8EH，8ＣH,0C1H，０CEH，91Ｈ,89H,０C7H，0ＦＦHENDT10