基于5单片机的超声波测距仪

PAGEPAGE12机电信息工程学院单片机系统课程设计报告系别：电子工程系专业：通信工程班级:０51班设计题目:超声波测距学生姓名:王权于建坤指导教师:董玉华李厚杰杨亚宁李婷完成日期：２008年０3月19日PAGEi目录TＯC\*ＭEＲＧEFＯRMAＴ一、 设计任务和性能指标ﻩＰAＧEＲEF_Tｏｃ1９6６577４2＼h1二、设计方案ﻩPＡGEREF_Toｃ19６6577４3＼h1三、系统硬件设计ﻩPAGＥＲＥＦ＿Toc19６６５77４４＼h3四、系统软件设计ﻩＰAGＥＲEF＿Ｔoｃ１966５７745\ｈ5五、调试及性能分析ﻩＰAＧEREＦ＿Toc1９665774６\h８六、心得体会ﻩPAGEREF＿Tｏｃ１96657７４７＼h10参考文献ﻩPAGERＥF_Ｔoｃ1９66５7７４8＼ｈ1１附录1系统硬件电路图ﻩＰAＧEＲEF＿Tｏc19665７749\ｈ12附录２程序清单ﻩPAGＥREF＿Ｔｏc19６６57７５0\ｈ1３大连民族学院2005级通信工程专业微机系统课程设计报告设计任务和性能指标1。1设计任务设计一个超声波测距器,可应用在汽车倒车、建筑施工工地以及一些工业现场的位置测控，也可用于如液位、井深、管道长度的测量等场合。要求用ＡltiumDｅsｉgnｅｒ6画出系统的电路原理图(要求以最少组件，实现系统设计所要求的功能），印刷电路板（要求布局合理，线路清晰），绘出程序流程图,并给出程序清单(要求思路清晰,尽量简洁，主程序和子程序分开,使程序有较强的可读性）。1。２性能指标1、测量范围10—8０ｃm;２、测量精度1cm；3、测量时与被测物体无直接接触，能够清晰稳定地显示测量结果；4、测量范围扩展为１0ｃm—4m，提高测量精度。二、设计方案超声波测距仪是利用超声波发射器向某一方向发射超声波，在发射时刻的同时开始计时,超声波在空气中传播,途中碰到障碍物就立即返回来,超声波接收器收到反射波就立即停止计时。超声波在空气中的传播速度为340ｍ/s,根据计时器记录的时间t，就可以计算出发射点距障碍物的距离（s），即:s=34０t/2

。超声波测距主要应用于倒车雷达、建筑施工工地以及一些工业现场，例如:液位、井深、管道长度等场合.目前国内一般使用专用集成电路设计超声波测距仪,但是专用集成电路的成本很高,并且没有显示，操作使用很不方便。超声波指向性强，穿透能力强,能量消耗缓慢，在介质中传播的距离较远,因而超声波经常用于距离的测量。如测距仪和物位测量仪等都可以通过超声波来实现。但由于超声波传感器的成本较高,所以一般运用于专业领域，民用产品中运用较少.考虑到一般情况下对测距的要求较低，可在一定程度上牺牲其精确度和测距范围，从而降低成本，使其运用范围大大扩展。超声波测距系统主要由声波发射电路、回波接收电路以及信号采集电路、温度补偿电路等组成。２.1硬件方案选择(１）超声波发射电路总体上讲,超声波发生器可以分为两大类:一类是用电气方式产生超声波,一类是用机械方式产生超声波。电气方式包括压电型、磁致伸缩型和电动型等；机械方式有加尔统笛、液哨和气流旋笛等。它们所产生的超声波的频率、功率和声波特性各不相同，因而用途也各不相同。目前较为常用的是压电式超声波发生器。

压电式超声波发生器实际上是利用压电晶体的谐振来工作的.超声波发生器内部主要由两个压电晶片和一个共振板组成.当它的两极外加脉冲信号，其频率等于压电晶片的固有振荡频率时,压电晶片将会发生共振，并带动共振板振动,便产生超声波。反之,如果两电极间未外加电压，当共振板接收到超声波时，将压迫压电晶片作振动,将机械能转换为电信号,这时它就成为超声波接收器了。这种压电式超声波传感器是利用内藏的压电晶体的压电效应。压电晶体在外电场作用下会产生机械变形，或者使压电晶体变形也会产生电压，前者称为逆压电效应，后者称为正压电效应。利用压电晶体的逆压电效应，电路的高频电压会转换为高频机械振动，以产生超声波,作为超声波发生探头，利用压电晶体的正压电效应可将接收的超声波振动转换成电信号,作为超声波接收探头。（2)超声波接收电路超声波接收电路的作用是对接收的超声波信号进行放大,并将放大后的信号处理成系统可以处理的电平信号。（３）温度补偿电路超声波是一种声波,其声速ｃ与温度有关。如果测距精度要求很高时，则应通过温度补偿的方法加以校正.温度测量可以使用数字温度传感器DＳ1８B２0。（４)超声波测距器的算法设计超声波测距的原理即超声波发生器在某一时刻发出一个超声波信号,当这个超声波遇到被测物体后发射回来,就被超声波接收器所接收到。这样只要计算出从发出超声波信号到返回信号所用的时间，就可以算出超声波发生器与反射物体的距离.距离的计算公式为：其中d为被测物体与测距器的距离，s为声波来回的路程，c为声速,t为声波来回所用的时间。(５)系统硬件框图如图1所示。图１系统硬件框图2.2超声波测距器的软件系统软件主要由主程序、超声波发射子程序、超声波接收中断程序及显示子程序组成，如图2所示。图2系统程序结构框图超声波测距器主程序利用外部中断检测返回超声波信号，一旦接收到返回的超声波信号，立即进入中断程序。三、系统硬件设计主要由单片机系统及显示电路、超声波发射电路和超声波检测接收电路三部分组成.采用STC89C5５来实现对CX20１０6A红外接收芯片和TCT４０-10系列超声波转换模块的控制。单片机通过P1．0引脚经反相器来控制超声波的发送，然后单片机不停的检测INT０引脚，当INT0引脚的电平由高电平变为低电平时就认为超声波已经返回.计数器所计的数据就是超声波所经历的时间,通过换算就可以得到传感器与障碍物之间的距离.图3超声波测距原理框图3.１单片机系统及显示电路单片机采用SＴC8９C55。采用1１。0５9２MHz高精度的晶振，以获得较稳定的时钟频率,减小测量误差。单片机用P１.０端口输出超声波转化器所需的40KHｚ方波信号，利用外中断0口检测超声波接受电路输出的返回信号.显示电路采用简单实用的ＬCD１６02液晶显示电路,用Ｐ０做为数据口。单片机系统及显示电路如图4所示。图４单片机及显示电路原理图3．２超声波发射电路超声波发射电路原理图如图5所示。图５超声波发射电路原理图压电超声波转换器的功能:利用压电晶体谐振工作.内部结构图6所示，它有两个压电晶片和一个共振板。当它的两极外加脉冲信号，其频率等于压电晶片的固有振荡频率时，压电晶片将会发生共振，并带动共振板振动产生超声波，这时它就是一超声波发生器；如没加电压，当共振板接受到超声波时，将压迫压电振荡器作振动，将机械能转换为电信号,这时它就成为超声波接受转换器.超声波发射转换器与接收转换器其结构稍有不同。图６超声波转换原理图图６超声波转换原理图３．3超声波检测接收电路超声波检测接收电路采用集成电路CＸ２0106A，如图７所示,这是一款红外线检波接收的专用芯片，常用于电视机红外遥控接收器。考虑到红外遥控常用的载波频率38ＫＨz与测距超声波频率４0ＫＨｚ较为接近,可以利用它作为超声波检测电路。实验证明其具有很高的灵敏度和较强的抗干扰能力。适当改变Ｃ４的大小，可改变接收电路的灵敏度和抗干扰能力。图7超声波接收电路图四、系统软件设计超声波测距软件设计主要由主程序,超声波发射子程序,超声波接受中断程序、温度补偿及显示子程序和距离测量及显示子程序组成。下面对超声波测距器的算法,主程序,超声波发射子程序和超声波接收中断程序逐一介绍.4.1超声波测距器的算法设计下图示意了超声波测距的原理,即超声波发生器在某一时刻发出的一个超声波信号，当超声波遇到被测物体后反射回来,就被超声波接收器所接受。这样只要计算出发生信号到接受返回信号所用的时间,就可算出超声波发生器与反射物体的距离。距离计算公式：其中d为被测物与测距器的距离，s为声波的来回路程,c为声速，t为声波来回所用的时间。程序框图如图８所示。图8距离计算子程序声速c与温度有关，如温度变化不大，则可认为声速是基本不变的。如果测距精度要求很高,则应通过温度补偿的方法加以校正.声速确定后，只要测得超声波往返时间,即可求得距离。在系统加入温度传感器来监测环境温度,可进行温度被偿.这里可以用DS18Ｂ20测量环境温度，根据不同的环境温度确定声速提高测距的稳定性。为了增强系统的可靠性，应在软硬件上采用抗干扰措施。图8距离计算子程序不同温度下的超声波声速表温度(摄氏度）－３０-２0—100１02０30１０0声速(m/s)３1３31９3２5３23338３443493８64。２主程序主程序首先对系统环境初始化,设置定时器T0工作模式为16位的定时计数器模式,置位总中断允许位EA并给显示端口P0和P2清０。然后调用超声波发生子程序送出一个超声波脉冲，为避免超声波从发射器直接传送到接收器引起的直接波触发，需延迟0。1ｍs（这也就是测距器会有一个最小可测距离的原因）后,才打开外中断0接收返回的超声波信号。由于采用1１。0５９2MHｚ的晶振，机器周期为1ｕs,当主程序检测到接收成功的标志位后，将计数器T０中的数(即超声波来回所用的时间)按下式计算即可测得被测物体与测距仪之间的距离,以2０℃时的声速为3４4

m/ｓ为例，则有：图9主程序框图d=（C＊Ｔ0）／2

＝１７２*T0／1０000ｃm（其中T0为计图9主程序框图数器Ｔ０的计数值)测出距离后结果将以十进制ＢＣD码方式显示,然后再发超声波脉冲重复测量过程。主程序框图如图9所示。４。3超声波发生子程序和超声波接收中断程序超声波发生子程序的作用是通过P1．0端口发送５个左右的超声波信号频率约4０ＫＨz的方波，脉冲宽度为1２ｕs左右，同时把计数器T０打开进行计时。超声波测距器主程序利用外中断0检测返回超声波信号，一旦接收到返回超声波信号(IＮＴ0引脚出现低电平）,立即进入中断程序.进入该中断后就立即关闭计时器T0停止计时，并将测距成功标志字赋值1.如果当计时器溢出时还未检测到超声波返回信号,则定时器Ｔ0溢出中断将外中断0关闭，并将测距成功标志字赋值０以表示此次测距不成功.中断程序的框图如图１0所示。图10计数器T0中断程序（左)、计数器T1中断程序（中）外部IＮT0中断程序(右）4．４温度补偿子程序和温度显示子程序温度补偿子程序的作用是将当前实验环境的实际温度值准确测量、转换并存储,用以确定此时声波的速度值。本程序采用DＳ１8B2０的1２位转换精度,温度寄存器里的值是以０.062５为步进的，即温度寄存器里的二进制值乘以0．0６25，就是实际的十进制温度值。温度处理子程序判断温度值的“+”和“-”并将转换好的温度整数位和小数位存入显示缓存区50H～5３H中，５0H为最高位，５３H为最低位。温度显示子程序用来判断高位是否有灭零需要，以及符号位的选择和显示。程序框图如图1１所示。图11温度显示子程序（左上)、温度处理子程序（左下)温度转换子程序(右)五、调试及性能分析5.1调试步骤首先要做的就是检查检测硬件电路是否有短路、断路、虚焊等.具体步骤及测试结果如下：(1)检查电源与地线是否全部连接上，用万用表对照电路原理图测试各导线是否完全连接；测试结果所有连接线都已准确连接好；（2）检验单片机的晶振是否起振，用示波器观察波形；测试结果波形都符合正常工作波形；(3）检查各芯片工作是否正常，检测按键的导通情况；测试结果正常。然后将软硬件结合在一起进行调试，把整个超声波测距系统按照实现功能分为各个子模块进行调试。具体步骤如下：(1)显示模块调试。由于受实验器材和实验台的限制,此部分电路及其程序没能做到事先进行测试，所以在调试这个部分时遇到了很多问题，开始是发现硬件电路设计有问题,接的７4LS3７3锁存器几乎就不起作用，然后改线将锁存器去掉了；接着是程序有错误，显示不正确,通过仔细阅读液晶资料，发现其工作时序没有配合好,经改动后在电路板上终于调试通过了；(2）温度补偿模块调试。因为之前在实验台上已经调试通过，所以将程序下载到单片机后就正确了。但在实验台上调试时也曾出现过很严重的问题，原因就是没有彻底弄明白ＤS18B２0的工作工作时序，只有将时序配合好,芯片才呢个正常工作。（3）超声波发射与接收模块的调试。这部分是整个系统的核心，也是最易出现问题的部分，而且之前并没有实际测试过，因此在这个模块的调试过程中很困难。由于发射和接收不能独立调试，所以要同时考虑这两个部分的工作情况,只有两个部分都正常工作了才能得到正确的实验结果。将调试程序下载后,发现没能得到正确的实验现象，接着便开始进行分步调试，发射部分我们通过示波器观察波形，发现波形的频率与实际需要值略有偏差,经改正程序后符合了实际需要的频率和幅度,但还是没有正确的实验现象.确定发射没有问题后便开始进行接收部分的调试,反复进行电路连接检查和程序结构的改进后，依然没有调试成功。正要在困难面前退缩的时候，突然想起来,在分发电容时有一个电容在没有确定容值的情况下就发下来了，我这才想起来去检查我的器件型号规格是否有问题,果然,发现了那个误发的电容，其标称值比我们所需要的大了１０0倍，此时的我非常懊悔,恨自己一时疏忽没有做好调试前最基本的工作，把电容换了后调试成功了，又做了一点调整，系统能稳定的工作了.５．2性能分析超声波测距系统是现代生活一种很方便的测距仪器,它能够准确快速的测量出距离,给人们的生活带来很大方便。当系统上电时,显示器上将显示“Wｅlｃoｍe”的字样，很快系统开始工作，随着探头的移动,显示器上将实时显示当前所对准的物体的距离，而且会一并显示当前测量环境的温度值。由于系统的驱动问题以及软件上的缺陷,实际测量值范围最好控制在3ｍ内，距离值误差≤1cm，温度值误差≤0。５℃.本系统尚有不足，一是缺少电源开关控制按键，二是缺少报警机制，三是测量条件改变时的纠错能力差,另外液晶显示也没有达到理想的稳定状态。希望在进一步的设计过程中解决这些问题，并有所完善和再创新。六、心得体会这次课程设计是对我们学习单片机原理与应用和印刷电路板设计课程的检验及实际应用能力的一次提高。我们所设计的是超声波测距系统.可以测量的距离范围是5cｍ～3m,精确到1cm。由于声波在不同的温度下的速度值变化很大,为了减少测量误差，我们采用DS１８Ｂ2０温度传感器进行温度补偿设计，它具有体积小、适用电压宽等特点,其测量范围为－５5℃~+１25℃。与传统的热敏电阻相比,它能够直接读出被测量温度并且可根据实际要求通过简单的编程实现９~1２位的数字值读数方式。本次实验中选择其1２位转换精度.由于DS１8B２0读出或写入的信息仅需要一根口线完成，这样就需要准确的读写时序,刚开始由于时序没有配合好，调试很久都没出现正确的结果，后来通过对其时序的再一次了解和把握终于测出了准确的温度值。但读出来的温度值只是整个系统的一个辅助部分,我们主要是为了得到与当前环境下的温度值对应的声速值，此部分转换通过软件设计中温度的比较及查表来完成。显示部分选择了LＣD160２液晶显示,但由于实验台的限制，软件调试过程中采用动态数码管显示。原理图设计时我们使用了印刷电路板设计课上学过的AlｔiｕmＤesiｇner６制图工具，由于一些实际的器件在器件库中无法找到，我们只有自己制作，在这个过程中我们学到了很多的知识和方法。在制作PＣＢ板图的时候，很多器件的封装与实际尺寸存在很大的差别,为了获得准确的封装，我们实际测量了所给器件的大小与规格，找到了与之匹配的封装库。当然我们也走过弯路，在考虑产品外型设计时,由于探头位置的需要，我们曾想过要将两个探头与主板分开单置出来，经老师分析，考虑到单开一块板的成本及安装困难的问题,提议将探头引脚弯曲便可.这个问题让我感受颇深,虽然只有这么小小的变动但却解决了实际问题.而自己却把简单的问题复杂化，因此我们在看问题时，一定要多角度考虑。程序编写过程也给了我们很大的收获。在编写程序之前,我们查阅了大量的相关资料,力求做到简洁规范清晰。在把握了整体的思路后,我们先从程序流程图着手，将整个程序分成若干模块，分开编写,一边发现问题一边解决问题，并在实验板上检验程序测试情况，根据现象不断修改。由于实验板的种种限制,我们不得不针对实验台来进行软件设计与调试。在这个过程中我们体会到编程的技巧,设置子程序的合理性,同时对单片机最小系统的设计有了整体的理解和深刻的体会，使我们的思维的锻炼与能力培养有了很大的提高和进步。本次课程设计时间虽短，但收获却很大.我们对应用单片机最小系统来设计产品有了整体的把握,对程序编写的合理与规范性有了深刻的理解，建立起程序设计的一般思路,以及ＡlｔiuｍDesigner６的使用方法,其强大的功能给我们提供了很大的帮助,通过原理图的设计，使我们认识到了这个软件的重要性，提高了我们运用的熟练性，我们会以此为契机，在日后的学习中会继续使用它,使其发挥更大的功能。经过三个星期的课程设计，我们得到了充分的锻炼，不仅对单片机的学习有了深刻的理解，同时也增强了我们的毅力和处理突发问题的能力。学习是要付出一定的艰辛与努力的,做事情一定要有不怕困难的吃苦精神，唯有坚持不懈,发扬团队协作才能够克服困难,取得最后的胜利。相信本次课程设计对我们以后的学习将会有很大的影响,我们一定会积极地总结经验与教训，改进不足，争取在日后做得更好。当然要感谢老师和同学们的帮助，在我们束手无策，陷入困境的时候给予热情的帮助,使我们顺利渡过难关.课程设计是一次很好的实践动手机会,通过实践，我们的知识得到了应用，真正实现了知识的学以致用,理论联系实际，我们会更加注重实践能力的锻炼，注重动手能力的培养。参考文献［1]徐维祥，刘旭敏。单片微型机原理及应用。大连:大连理工大学出版社，1996［２］何立民.单片机实验与实践教程(一）.北京：北京航空航天大学出版社，２003[3］楼然苗，李光飞。单片机课程设计指导。北京：北京航空航天大学出版社,2007[4］李群芳,黄建.单片机微型计算机与接口技术。北京：电子工业出版社，200１［5]汪道辉.单片机系统设计与实践。北京：电子工业出版社，20０6附录1系统硬件电路图附录2程序清单;**＊＊＊＊**＊*＊***＊**＊**＊＊*＊＊＊＊＊＊****＊＊＊＊＊*＊*＊*＊**＊＊**＊＊＊*＊＊＊＊＊＊＊；系统初始化定义；＊＊＊＊*＊＊＊*＊**＊＊＊**＊*＊*＊＊*＊*＊＊＊＊**＊*＊＊*＊*＊＊＊＊*＊*＊＊*＊＊＊＊＊***＊＊＊＊TEMPER_VＬＤAＴＡ２０Ｈ；温度值（取整后）存储区TEMPER＿VＨＤAＴA21HＴEＭPLDＡTA２６HTＥＭPHDＡTA２７H;测得温度值存储区TEMPHＣDATA2８HTEMＰLCDATA２9HＴEMPHEAＤＥQＵ3６Ｈ;温度值缓存区TEMPER_NＵMEQU3９Ｈ；处理温度值缓存区VＯUTEQUＰ1。0;超声波脉冲输出端口ＴEMPDINＢITP2.４；DS18B20温度输入端口RSEQＵP2.6RＷEQUP2。５ＥＥQＵP2.７;*＊＊*＊＊*＊＊*＊*＊＊**＊＊＊***＊＊＊*＊**＊＊**＊**＊＊*＊***＊;中断入口程序；＊＊***＊**＊*＊*＊*＊＊＊****＊＊＊＊＊＊＊＊**＊**＊**＊＊＊＊＊＊*ORG0000HLJMPBEＧIＮＯＲG０003ＨＬＪＭPPIＮT0；外部0中断ORＧ００0BHLＪＭPINＴT0;计数器T0中断ＯＲG００13HﻩﻩＲEＴIORＧ0０１BHﻩﻩLJMPＩＮＴＴ１；定时器T1中断ORG0023ＨﻩﻩＲＥＴIＯRＧ002ＢＨ RＥＴI；**＊＊＊**＊＊＊＊*＊***＊＊*＊**＊*＊＊*＊＊**＊*＊*＊*＊＊＊＊***;主程序;*＊*＊＊*＊*＊**＊*＊**＊**＊*＊＊＊＊＊**＊＊*＊＊＊**＊*＊＊＊＊**ORＧ０1０0HBEGＩN:MOVSP,＃4FＨMOVR0,＃40H;4０H—43H为显示距离存放单元MOＶＲ7,＃３0H;６0Ｈ—6３H为显示温度存放单元CＬEAＲDIＳＰ：MＯV@R０，＃30HINCＲ0ＤＪＮZR7,CLEＡＲDIＳPMＯV23H，＃00HMＯVTMOD,#21H;T1为８位自动重装，T0为16位定时器MＯＶTＨ0,#0０Ｈ；65毫秒初值ＭOVＴＬ0，＃00HMＯＶＴH１，＃０F４H；40KHz初值MOVTＬ1，＃０F4HﻩﻩMOVP0，#0ＦFHMOVＰ1，#0FＦＨMOVＰ2,#０ＦFHMOVP３，#0FFＨMＯVR4，#０AH；超声波肪冲个数控制（为赋值的一半)ﻩLＣAＬLLCDON;开机显示ＳETＢPＸ0ＳEＴBET０ＳETＢEAＢEGＩＮ1:LCALLRＥAＤTＥＭＰＬＣALLREADTEMＰ1；读出温度值子程序ﻩﻩＬCAＬLCＯNＶTEＭＰ ﻩＬCAＬLDIＳＰBCDﻩﻩＳETBTR０;开启测距定时器ＡＢEGIN：LCＡLLDISPＬAＹJＮB２3H,ABEＧIN；收到回波时置标志位CLREAﻩ ＣLR23H ＬCALLＷORK;计算距离子程序ﻩﻩSETＢEAﻩﻩMOVTＨ0,＃０0H；６5毫秒初值MOVＴL0，＃０0HﻩﻩSETBＴR0；重新开启测距定时器 ﻩＭOＶR2，#02ＨＬＯOＰ:LＣＡLＬＤＩSPＬAYDＪNZR2，LＯOＰﻩﻩSＪMＰBEGＩＮ１；*＊＊*＊**＊＊＊＊＊＊****＊＊*＊＊*＊＊*＊**＊**＊*＊*＊＊＊＊＊**＊*＊＊＊＊＊＊*;中断服务子程序；＊＊*＊＊*＊*＊＊**＊＊＊＊*＊***＊＊＊*＊＊＊*＊＊＊*＊**＊*＊＊＊＊＊＊＊*＊＊**＊＊；Ｔ0中断,６5mＳ中断一次INTT0：CLＲEＡCLRＴＲ0MOVＴH０，＃00HＭOＶTL0,#00HＳＥTＢET１SＥTBEＡSＥTＢＴR０；启动计数T0,用以计算超声来回时间ＳETBＴＲ１;开启定时器Ｔ１，用以发超声波ﻩ NOPSETBEX０OUＴ:RＥTI；T1中断,发送超声波IＮTT1：CPLVOＵTDJＮZR4,ＲETIＯUTCLRTＲ１；超声波发送完毕,关T１CLRET1MＯＶR４,＃0AＨRETIOUT：ＲEＴＩ；外部中断0检测回波ＰINT０:ＣＬRTR0;关计数器ＣLRＴＲ1ﻩ CLRET１CＬREACLRＥX０MOＶ4５Ｈ,TL0；将计数值移入处理单元MOV４6Ｈ，TH0SETB2３Ｈ；接收成功标志ＲEＴI;**＊**＊＊*****＊*＊**＊*＊*＊＊*＊＊*＊＊*＊***＊＊＊＊*＊＊＊＊***＊*＊***;距离计算程序(=计数值＊１7２/10００0cｍ）;*＊**＊＊＊*＊＊＊**＊＊*＊＊＊**＊＊＊＊＊*＊***＊*＊＊＊*＊****＊*＊*＊＊＊**＊WORK:ＰUＳHACCPＵＳＨPSＷPUSHBＭＯVＲ3，4６HMOVR２，４５ＨＭOVR1，#0０DMOVDＰTR，＃TＥMPＲＬCALLＤIFFEＲ；将温度值转换为对应的速度值ＭＯVCA,＠A＋ＤPＴRMＯVＲ0,AＬCALＬＭUＬ2BY２MOVR3，＃03HMOＶR２,＃0E8HLCＡLLＤIV4BY2MOVR3，#27HＭOVR2，＃10HＬＣALLDIV4BY2MOVA，R4ADDA,＃30HMOV４０H，AＭＯVＡ，R4JNＺＪJ0MOV4０Ｈ，#３ＣH；最高位为零，不显示JJ0:MOVA,Ｒ０MOVR4，AMOＶA，R1MＯVＲ５，AMOVＲ3，＃03HMOＶR２,＃0Ｅ8ＨＬCALＬDIV4ＢＹ2MOVA，R4ADDA，#30HMOV４1H，AMＯVA，R４JNＺＪJ1ＭOＶA,40H；次高位为零，先判断最高位是否为不显示SUＢBA,#３ＣHJＮZJJ１MOＶ4１H,＃3ＣH;最高位不显示，次高位也不显示JＪ１:MOＶA，R0MOVR4,AＭＯVＡ,R1ＭＯVＲ５,ＡMOVR3，#00DMOVR2，＃10０DLCALＬDＩV4BY2MOVＡ，R４ADＤA,#30HＭＯＶ４2Ｈ，ＡMＯＶA，R4JNＺJJ2MOVＡ，4１H；次次高位为零，先判断次高位是否为不显示SUＢBA，＃3ＣHＪNＺJＪ2ＭOＶ42Ｈ,＃３CH;次高位不显示，次次高位也不显示JJ２:MOVA，R０MＯVＲ4,AMＯVA,Ｒ1MOVR5,AMOVR3，#00ＤMOVＲ2，#10DＬＣALLDIＶ4BＹ2MOVA，R4ＡDDA，#３0HＭOＶ4３Ｈ，AMOVA，Ｒ４JNZJJ3MOVA，４２H；次次高位为零，先判断次高位是否为不显示ＳUBBＡ,#３CHＪNZJJ3MＯＶ４３H,＃３CH；次高位不显示,次次高位也不显示JJ３:ＭOVA,R0JNBＡＣＣ．３，CLEAＲMOＶＢ，43ＨIＮＣBＭＯV４3Ｈ，BCLEＡＲ：MＯＶＲ０，＃0０HPOＰＢPＯPPＳWPOPACCＲET;温度与速度对应表(—3０℃~9１℃）ＴEＭPR：DB９ＤH,9ＤH，９DH,9ＥＨ,9EＨ，9EH,９ＥＨ,9ＦＨ，9FＨ，9FH,0A0H,0A０HＤＢ0A0Ｈ，0Ａ１H,０Ａ1H,0A1H，０Ａ1H,０Ａ２H,０A2H，0A2H，0A3H，０Ａ3HDＢ0A3H，0Ａ４Ｈ，0A4Ｈ，０Ａ4H,0A4H，0A5Ｈ，0Ａ５H，0A5Ｈ，0A6H,0A6HDB0A6Ｈ,０Ａ７H，０A７H，0A7H，０Ａ8Ｈ，0A8H,0A8Ｈ,０A8Ｈ,0Ａ9H,0Ａ９HDＢ0A9Ｈ，0AAH，0AＡH,０ＡAH,0AＢＨ,０ABH，0ABH，０ABH，0ACH，0AＣHＤＢ0AＣH，0ＡDH，0ADH,0ADH,0AEH,0AEH，0ＡEH,0AFH，0AFＨ，0AＦＨDB0AＦH，０B0H，０B０Ｈ，0B0H，０B1Ｈ，0Ｂ1Ｈ，0B1H,0B２H,0B2H,0Ｂ２ＨＤB0B2Ｈ，０B３H，0B3H,0B３H,0Ｂ4Ｈ,0B４H，０Ｂ4Ｈ,0B５H，0B5Ｈ,0B5HDＢ0B5Ｈ，0Ｂ6H，0B６H，０Ｂ6Ｈ，0Ｂ7H，0Ｂ7H，０Ｂ７H，０Ｂ8H，0B8H,０B８HDＢ0B9H，０B9H，0B9H，0B９H,０BＡH,0BAH，０BＡH,0BBH，０BＢＨ,0BBHＤB0ＢCＨ，0ＢCH，0ＢCＨ，０BCH，0BDH，0BDH,0BDＨ，0ＢEＨ,０ＢＥH，0ＢEHＤB0ＢＦH，０BFH,0BＦH，０BFＨ,0C0H，0C0H，0Ｃ０Ｈ，0C1H，０C1Ｈ，0Ｃ1Ｈ；＊*＊＊＊＊＊*＊**＊*＊＊*＊＊＊＊*＊**＊*＊＊*＊＊***＊*＊**＊*＊＊＊*＊*＊＊＊＊＊；两字节无符号数乘法程序；＊＊＊＊＊*＊**＊*＊＊＊＊*＊*＊*＊*＊＊＊＊＊＊*＊*＊＊＊＊＊＊＊＊*******＊＊**＊＊;R７Ｒ６R5R４<=R3R2*Ｒ１Ｒ0MUL２ＢY2:ＣLRAＭOVR7，AMOＶR6,AMＯVR5，ＡＭOVR４,ＡＭOＶ46H,＃10HMUＬLOＯP1:CLＲCMOVA,R4ＲLＣＡMOVＲ4,AＭＯVＡ，R5RLCＡMOVR５,AMOVA，R6RLCＡMOＶR6,AMOＶA，R7RLCAＭOVＲ7，AＭOVA，R0RLCAＭOVR0，AMOVA,Ｒ1ＲLCAMOVＲ１，AJNCMＵLＬOOP2ＭOVA，R4AＤDA,Ｒ２ＭOVR４,ＡMOＶA,Ｒ5AＤDCA,Ｒ３MＯVR5,AＭＯVA，Ｒ6ＡDDCA，#00HMOVR６,AMOVＡ，R７ADDCA,＃０0ＨMOVR７，AMULLOＯＰ２:DJNZ46H，MUＬLOＯP1ＲET;*＊＊＊＊*＊***＊*＊*＊＊*＊＊＊＊**＊*＊***＊＊＊**＊＊＊*＊＊＊***＊＊*＊***＊；四字节/两字节无符号数除法程序；**＊＊＊**＊＊**＊＊＊*＊*＊＊＊＊*＊＊＊＊＊＊＊＊＊＊***＊**＊****＊＊＊*＊＊*＊*;R7R6Ｒ５R４／R3R2＝R7R6R5Ｒ4(商).。.R1Ｒ0(余数)DＩV4ＢY２:MＯV46H，＃２０ＨMOVR０，＃００ＨＭOVＲ１，＃００HDIVLOOＰ1:MOVA,R4RLＣＡMＯVR４，ＡＭＯＶA，Ｒ5RＬＣAMOVＲ5，AMOＶA,R６RLＣＡＭＯＶＲ6,AＭＯＶA，Ｒ7RLCAＭOVR7,ＡMＯVA，Ｒ0RＬCＡMOＶＲ０，AMOＶA，R１RLCAMＯVR１，ＡCLRＣMOVA，R０SUBＢA,Ｒ２MＯVB,ＡMOVA，R１SUBＢＡ，R３JCDIＶLOOP２MＯVR0,ＢＭOVＲ1,ADIVLOOP２:CPLCDJNＺ46Ｈ,DIVLＯＯP１MOＶＡ，R４RLCＡＭOVＲ4，ＡＭOＶA，Ｒ5ＲLCAＭOVR5,AＭOVA,R６RＬCAMOＶR6，ＡMＯVＡ，R７ＲLCＡＭＯＶＲ7，AＲET;＊＊＊*＊＊＊**＊**＊＊＊*＊＊*＊*＊*＊*＊＊＊**＊＊＊***＊＊＊＊*＊＊＊＊*＊*＊＊**＊＊＊*＊*；DS1８Ｂ20温度补偿子程序区；*＊＊*＊*＊*＊＊＊＊*****＊*＊*＊*＊*＊＊＊＊＊＊＊＊***＊**＊＊**＊*＊*＊*＊**＊＊＊＊**；复位DS18B20；*＊**＊＊**＊＊*＊＊***＊＊******＊*＊**＊*******＊＊＊＊＊*＊＊＊****＊＊＊**＊*＊INITDS1８20:ﻩSEＴＢﻩTEMPＤＩNﻩ NＯPﻩﻩ NOP ﻩCLRﻩTＥMPＤＩNﻩ ＭOVﻩＲ６,#７８Hﻩ ;延时480uｓﻩﻩDJNＺﻩR6,＄ＭOV R６，#78HＤJNZﻩR6，＄ﻩﻩSETBﻩTEMPDIＮﻩﻩMOVﻩR6，#23Hﻩﻩ；延时70usﻩﻩＤJNZﻩＲ6，＄ＭOVR6,#3CHＬOOP１820:MOＶﻩC,ＴＥMPＤＩNﻩﻩJCINＩTDS1８2０OＵＴDＪNZＲ6，LＯOP1８2０MOVＲ6，#６4Hﻩﻩ；延时200uｓﻩﻩDJＮZﻩＲ６，＄ﻩﻩＳＪMＰﻩINIＴＤＳ18２０ﻩﻩ RETﻩＩNITＤS1８20ＯUT：ＳＥＴB ＴEMPDＩＮﻩﻩＲET;**＊＊＊＊****＊****＊*＊***＊＊＊＊＊＊＊*＊*＊＊＊**＊＊*＊＊＊＊＊*＊＊＊******＊**＊;读ＤＳ１8B20的程序,从DS1８Ｂ20中读出一个字节的数据；＊＊＊＊*＊＊*＊＊＊＊＊*＊*＊*＊＊＊＊＊*＊＊*＊*＊****＊***＊*＊＊＊＊*＊＊＊＊＊＊＊＊＊***＊READDＳ1820：MOVﻩＲ7，＃0８Hﻩ SＥＴＢ TEＭPＤIN ﻩＮOＰ ﻩＮOPＲＥAＤDS1８2０LＯＯP:CLRﻩＴＥMＰDINﻩﻩNOPﻩ ＮOP ﻩＮＯPﻩ SＥＴBﻩTＥMPDINﻩﻩMＯVＲ6，＃０7Hﻩﻩ；延时1５ｕｓﻩﻩDJNZR６，$MOＶＣ,TＥMPDIＮ ﻩＭＯVﻩR6,＃３ＣHﻩﻩ；延时１２０usﻩﻩDJNＺＲ6，$ﻩ RＲCﻩASETB TEMPDIＮ DＪNZR7,REＡDDS１820LOOＰ ﻩMＯＶﻩＲ６，#3ＣHﻩﻩ；延时1２０usﻩﻩDJＮZ R６，$ﻩﻩRＥT；**＊*＊**＊**＊**＊*＊＊**＊＊＊＊＊**＊＊＊＊＊＊＊＊＊****＊*＊**＊＊***＊＊**＊＊***;写ＤS1８B2０的程序,从DS18B2０中写一个字节的数据；*＊＊＊＊＊*＊＊**＊＊*＊***＊＊＊＊***＊*＊*＊＊＊*＊＊*＊＊**＊＊＊*＊***＊*＊＊＊＊*＊＊*WRＩTEＤS18２0:MOVﻩＲ7,#0８Ｈ ﻩＳＥTBﻩTEＭPDIＮ ﻩNOPﻩ NOPWRＩTEDS１820LOP:CLＲﻩTEＭPＤＩN MOＶR6,#0７H ﻩ；延时15usﻩﻩDＪNZＲ６,$RＲC AMＯVTＥMＰDIＮ，CMＯVﻩＲ6，＃34Hﻩ ;延时104ｕｓDＪＮＺﻩR６，＄ＳＥＴBﻩTＥMPＤINＤJNZR7,ＷRIＴEＤS1８20LOP RＥＴ；*＊＊*＊＊*＊＊＊*＊＊***＊＊＊**＊＊*＊*＊**＊***＊*＊＊＊＊＊**＊＊＊＊＊＊*＊**＊＊*＊＊*；读TＥMP;**＊＊＊*＊＊*＊＊＊＊＊*＊＊**＊**＊＊*＊＊＊***＊*＊＊＊＊＊＊＊＊*＊*＊＊＊*＊＊*＊******RＥAＤTEＭＰ：LCＡLLﻩINITDＳ182０ﻩﻩＭOＶﻩA，＃0CCHﻩﻩLＣALＬﻩWRＩＴEDＳ18２0 ；跳过ＲOMﻩﻩＭOＶﻩR6，＃34Hﻩ ；延时104ｕsﻩﻩDJNＺﻩR6,$ﻩﻩＭOVﻩA,#44Ｈ ﻩLＣALＬﻩWRＩTＥＤS1８20ﻩ;启动一次温度转换ﻩﻩMOVﻩR6,#34Hﻩﻩ;延时1０4ｕsﻩﻩＤJＮZﻩR6,＄ﻩﻩRETREADTＥMP1:LCALL INITDS1８２０ﻩ MOVﻩA,#０CCHﻩﻩLCALLﻩWＲIＴＥDＳ１8２0ﻩ；跳过RＯＭﻩﻩMＯVＲ6,＃34H ﻩ;延时1０4usﻩﻩDJNZ R6,＄ﻩﻩMOＶﻩＡ，＃0BＥH ﻩLCＡLL WRIＴEＤS1８20ﻩ；读取暂存器内容ﻩﻩMOVﻩR6,＃3４Hﻩﻩ；延时104usﻩﻩDJＮZﻩR６,＄ﻩﻩMＯV R5,＃09Hﻩ MＯV Ｒ0，＃TEＭPＨEＡDＭOＶＢ，#０0ＨＲEＡDＴＥMＰ2：LCＡLL ＲEADDS1820ﻩﻩMOＶﻩ＠R0,AﻩﻩINＣ Ｒ0ＲＥＡＤTEMＰ21：DJNZﻩR5，ＲEＡDＴEMP2 ﻩMOVﻩＡ，TEMPＨEＡＤ+0ﻩﻩＭOVﻩTEＭPＬ，Aﻩ MＯVTEMＰER_ＶL,AﻩﻩＭＯＶﻩA，TＥＭＰHEAＤ+1 ﻩＭＯV TEＭPH,AﻩﻩMＯVTEＭPＥR_VH，AＲET；*****＊****＊＊＊＊＊＊＊*＊＊*＊***＊＊*＊**＊＊**＊*****＊*＊*＊＊＊＊***＊＊＊＊＊＊； 处理温度BＣD码子程序；***＊＊*＊*＊*＊***＊＊＊＊*＊＊**＊***＊*＊＊＊＊*＊＊＊＊*＊*＊**＊＊＊＊*＊**＊**＊**CＯNVＴEMP:MOVﻩA,TＥMPHＡNＬﻩA,#80HＪZﻩTＥMＰC１ＣLRﻩCﻩﻩMＯVﻩA，ＴEＭPLﻩﻩCPLﻩAﻩﻩADＤﻩA，＃0１HﻩﻩMOＶﻩTEＭPL,Aﻩ MOV A,TEMPHﻩﻩ;“-”ﻩﻩＣPＬﻩAﻩﻩAＤＤCﻩA，#0０ＨﻩﻩＭOVﻩTEMPH，Ａﻩﻩ；TEMＰHCＨI=符号位ﻩﻩMOVﻩTＥMPHC，＃0ＣH；显示负号ﻩﻩSJMPﻩＴEMPＣ11TＥＭＰC１：ﻩﻩMOＶﻩTEMPＨC，＃0BH;“＋”,显示正号TEMＰC11：ＭＯVA，TＥＭPHCＳWAPAMOＶTＥＭPHC，AMOＶﻩA，TＥＭＰLﻩﻩANLﻩA，＃0FH ﻩ;乘0.0625ﻩﻩMＯＶ DPTR，＃TＥＭＰＤOTＴAＢﻩ ＭＯVCﻩＡ，@Ａ+DＰTＲﻩﻩMOＶﻩTＥMPＬC,Ａﻩﻩ;TEMPLＣLOW=小数部分BCDﻩﻩMＯVﻩA,TＥＭPLﻩ ;整数部分 ﻩＡＮLﻩA,＃０F0Hﻩ ＳWAPﻩA ﻩMOＶﻩＴEMPＬ,Aﻩ MOＶﻩA，TＥＭＰHﻩﻩＡＮLﻩＡ,＃0FHﻩﻩＳＷＡＰﻩＡﻩﻩＯRLﻩＡ，ＴＥＭPL ﻩLCALＬ HEX２BCD1ﻩﻩＭOＶﻩＴEMPL，ＡﻩﻩANLﻩA,＃0Ｆ０Ｈ SＷAPﻩA ﻩORLﻩA，TEＭPＨCﻩ ；ＴEＭPHＣＬOW＝十位数BＣDﻩﻩMOVﻩＴEMPHC,AﻩﻩMOV Ａ,TEMPLﻩﻩANＬ Ａ，＃0FＨﻩ SWＡPﻩA ﻩﻩ;TEMＰLＣHＩ=个位数BCD ﻩＯRLﻩA,ＴEMPＬCﻩﻩMOVﻩＴEＭＰLC，A MOVﻩA，R7ﻩﻩJZ ＴEＭPＣ１２ ﻩＡNL A，＃0ＦＨ ﻩＳＷＡPﻩA ﻩMOVﻩR7，Ａ MOＶﻩA,TEMPＨCﻩ ；TEMPHCHＩ＝百位数BＣＤ ＡNLﻩＡ，＃0FＨﻩ ＯＲＬﻩＡ，R7ﻩﻩＭOVﻩＴEMPHC,ＡTＥMPC1２：RET；*＊*＊＊*＊＊**＊＊*＊＊＊＊*＊**＊*＊＊*＊**＊*＊*＊*****＊＊＊＊＊＊＊＊＊＊*＊***＊＊＊＊；ﻩ小数部分码表;*＊*＊＊＊＊*＊*＊＊***＊＊**＊**＊*＊*＊＊**＊＊＊*＊＊*＊＊*＊＊＊*＊*＊＊＊＊****＊＊*＊TＥMPDOTＴAB：ﻩDＢﻩ00H，0１H，01H,0２H，0３H，03H，０4H，0４H,0５H，０6HDＢﻩ06H,07H，08H，０8H，09H，09ＨRET;*＊＊*＊*＊****＊＊＊＊＊＊＊*＊＊＊*******＊*＊*＊＊＊＊＊＊*＊**＊*＊＊**＊＊＊*＊＊＊**；ﻩ显示区BCD码温度值刷新子程序；＊＊＊＊*＊＊＊＊＊＊*＊＊*＊*＊***＊***＊＊＊*＊＊＊*＊＊＊＊*＊*＊*＊＊＊＊*＊＊＊*＊＊*＊*＊＊ＤIＳPBCD：MOVﻩＡ，TEＭPLＣﻩﻩＡＮＬﻩA,＃０FＨﻩﻩADＤA，#3０Hﻩ ＭOVﻩ63Ｈ，AﻩﻩＭOＶﻩA，TＥMPLCﻩ SＷＡＰ A ﻩANLﻩA，#０FHﻩﻩＡDDA，#3０HﻩﻩMOVﻩ62Ｈ，AﻩﻩMOV Ａ，TEMPHＣﻩ ANＬﻩA，＃0ＦＨﻩﻩADDA，#30HﻩﻩＭOV 6１H，A ＭＯVﻩA，TEMPHC ＳＷAＰﻩAﻩ ＡNＬﻩＡ，＃0ＦＨﻩﻩＡＤDA,＃3０H ﻩMOＶ 6０H,ＡﻩﻩMOＶﻩＡ,ＴＥMPＨＣﻩﻩANLﻩA,＃0F0H ﻩCJNＥ Ａ,＃０1０H，DISＰBＣD０ﻩﻩＳJMPﻩDISＰＢＣD2ＤISPBCD０:MＯVﻩA,ＴEMPHＣﻩ ＡＮL A，#0FHﻩﻩJNZﻩＤISPＢCＤ2ﻩﻩ;十位数是零 MOVﻩＡ,ＴEＭPHＣﻩﻩSＷＡＰﻩAﻩ ＡＮＬﻩA,＃0ＦH ﻩMOVﻩ60H,＃20H；符号位不显示ﻩﻩMOVﻩ6１H，Ａ；十位数显示符号ＤIＳPBCD2：REＴ；*＊＊**＊**＊＊＊*＊*＊*＊*＊*＊＊＊＊**＊＊＊*＊*＊＊*＊＊*＊＊**＊*＊***＊＊＊＊；温度值取整处理程序；＊＊*＊＊*＊***＊***＊****＊＊＊＊*＊*＊＊***＊＊＊*****＊******＊＊＊*＊*ＤIFFEＲ：ＰUSＨPSＷCLRＣＭOVA，#０F０ＨＡNLA，TＥMPEＲ＿ＶL;舍去温度低位中小数点后的四位温度数值SWAPＡＭＯVＴEMPER_ＮUM，ＡＭＯVA，TEＭPＥR＿VＬJＮBAＣC．3，ＴEＭPER＿ＣOV;四舍五入去温度值ＩNCTEMＰER＿NUＭTEMPER＿CＯV:ＭOVＡ，TＥMＰER_VHＡＮLＡ，#07HＳWAＰAＯRＬＡ,TEMPEＲ_ＮＵMMＯＶTＥＭPEＲ_ＮＵM,A;保存变换后的温度数据MOＶＡ，TEMPＥR_VＨＪNBACC．３，POSＳIＶEMOVＡ，TＥMＰＥR＿NＵＭSＵBBA,1EHPOSSIVＥ：ＭOVＡ，ＴEＭPＥR_ＮＵMAＤＤＡ，1EＨPOPＰSWRET；＊*＊**＊*＊＊*＊＊＊*＊＊****＊*＊＊＊＊＊＊＊＊＊＊***＊＊*＊＊*＊＊＊*＊*＊*＊*＊＊＊＊***；ﻩ单字节16进制转BＣD;*＊***＊**＊*＊＊＊＊*＊＊＊***＊＊＊***＊**＊*＊**＊＊＊****＊*＊＊＊＊＊＊＊****＊＊*HＥX2BＣD１:MOV B，＃064Hﻩﻩ;16进制—〉BCＤﻩ DＩＶﻩAＢ;B=A／１00ﻩ ＭＯVﻩR7,Ａﻩﻩﻩ；R７＝百位数ﻩﻩMOVﻩＡ,＃0AH XＣＨ Ａ,Bﻩ DIＶﻩAB；B＝A／ＢﻩﻩSＷAPﻩAﻩﻩORL A,BﻩﻩRET;＊＊＊＊＊＊＊＊＊＊*＊***＊*＊＊＊*＊＊＊＊*＊＊*＊＊＊＊*＊＊＊＊**＊＊***＊＊*****；LＣD显示程序;＊＊＊＊＊＊*＊＊＊*＊＊＊*＊＊＊＊＊＊＊＊**＊＊**＊＊＊＊***＊*＊*＊＊＊**＊*＊*＊＊*;距离值在40H为最高位，43H为最低位；温度值在6０Ｈ为最高位，63H为最低位LCDＯN：MOVP０,＃０１HＬCAＬLＥNABLE０MOVP0,＃０1HLＣALLENABＬE0MＯＶP0，＃3８HＬＣALLENABLE０MOＶＰ0,＃0CＨＬCALＬENＡBＬE0MOVＰ0,#06HＬCAＬLＥNABLＥ0MＯVＰ0,#8０ＨＬCAＬＬＥNＡBLE0ＳＴＡRT1０0:MOVＤPＴR，#ＷＯRＤ1LCAＬLWRIＴE1MＯＶP０,#0C0ＨLＣALLENAＢLＥ０ＭＯＶDＰTＲ，＃WORD2ＬＣAＬＬWRＩTE1MOVP0，#０C2ＨＬCALLENABLE０LCAＬLDＥLAＹ2MOVP０，＃02HＬＣＡLＬENABＬE０ＬＣAＬLDＥLAＹ３LCALLDEＬAＹ３ＲETERＲOR:MＯVP０，＃01HＬCＡLＬENAＢLE1MＯVP0，＃0１HＬCAＬLENAＢＬE1ＭＯＶP0,#３8HLCＡＬLENAＢLE1MOVP0,#0ＣHLCALLENABLE1MＯVP0,＃０6HLＣＡＬLＥＮABLE１MＯVP０，＃8０HLCALLENABLＥ1ＳTＡＲT1０1：MOVDPTR,#WORD5LＣALLWRＩTＥ1MOVＰ0，#０C０ＨＬCALLＥNAＢLＥ１LCALLDELAY2MOVP0，#０２ＨLCALLＥNABLE１ＭOＶＤPTR，＃WORＤ5ＬCALLＷRIＴＥ1MOVP０，＃0C0HLCALLENABＬＥ1LＣALLDELＡY2ＭOVP０，＃０2HＬＣＡＬＬEＮABLE１ＲEＴDＩSＰLAＹ：MＯVＰ0,＃０1HＬＣＡLＬENABLＥ1MOVP0，＃０1HＬCALＬEＮAＢＬE1MＯVP0，#３8HＬCＡＬＬＥNＡBＬE1ＭＯVＰ０,＃０CHＬCALLENABLE1ＭOVP0,#0６HLCＡＬLENABLＥ１ＭOVP0,＃80HLＣALLENAＢLE1MＯVDＰTR，#WORD4LCALLWＲＩTE4MOＶP0,＃０C0ＨLCALLＥNABLE1LCＡＬLDELAY2MOVＤPＴＲ,＃WORD3LＣＡＬLＷＲIＴＥ3ＭＯVP0,#0C２HLＣＡLＬENＡＢLＥ１LCALＬDＥLAY２ＬCＡＬLDELAＹ3LＣALＬDELAＹ3ＭOＶP０,＃０2ＨLＣALLENABLE1RETＷRITE1:MOVR１，#00HMOＶR5，＃10HＡ1:MＯVA，R1ＭOVCA,@A＋DPTＲLCALLWＲITE1２INCＲ１DＪNZR5,A１REＴWRITE１2：MＯVＰ０,AＳETＢＲSCLRRWＣLREＬＣALLDELAY3SEＴBＥREＴＷＲIＴＥ2：ＭOVP0，ＡＳETBRＳCLRＲWCLRＥLCAＬＬＤEＬAY２SETBＥＲEＴWRIＴE３:MＯVR１，＃０0HMOVA,Ｒ1MOVCA，＠Ａ＋ＤPTＲLCALLWRITE２IＮCR1MOVA，Ｒ１MOＶＣA，＠A+ＤPTRＬCＡLLWRITＥ2INCR1MＯＶA，R1MＯVCA，＠Ａ+DPＴＲＬCALＬWＲITE2ＩNCR1MＯVA,R１MＯVＣA,＠Ａ＋DPＴRLCAＬLＷＲIＴＥ2INCR1MOVＡ，R1MOVCＡ,