用单片机实现温度远程显示.doc

《用单片机实现温度远程显示.doc》由会员分享，可在线阅读，更多相关《用单片机实现温度远程显示.doc（28页珍藏版）》请在沃文网上搜索。

1、 用单片机实现温度远程显示摘 要：文章介绍了用AT89S8252单片机的串行接口与智能温度巡回检测仪（XJ-08S）通过RS485总线相互通讯实现热水温度远程显示的一种低成本解决方案，内容涉及RS485总线通讯、单片机驱动数码管显示、数据转换以及键盘处理软硬件设计等内容。关键词：单片机 RS485总线 数码管显示 数据转换 键盘处理Key words：chip microcomputer RS485 bus LED display Data ConversionTo deal with keyboard一、前 言目前检测温度一般采用热电偶或热敏电阻作为传感器，这种传感器至仪表之间一般都要用专用

2、的温度补偿导线，而温度补偿导线价格很贵，并且线路太长也会影响测量精度。在实际应用中往往需要对较远处（1KM左右）的温度信号进行监视。现有的解决方案有很多，例如：1、 在现场用智能仪表对温度信号进行测量，用计算机作上位机与智能仪表进行通讯来实现远程温度监测（采用这种方案要增加计算机设备及相关计算机软件）。2、 NCU+DDC实现远程温度监测。用两个DDC，一个安装在现场测量温度，另一个安装在监视地，两个DDC通过NCU进行通讯从而实现远程温度监测。但以上方案都存在成本高的问题，有没有低成本的解决方案呢？其实，在单片机应用日益广泛的今天，完全可以用单片机以极低的成本来实现远程温度监测。二、控制要求

3、及解决方案选择 1、 两个热交换站分高低区共安装有8个热交换器，正常水温在45oC至65oC之间；两个热交换站与锅炉房的距离分别为500米和600米左右。2、 要求在锅炉房能以巡回及定点两种方式显示8个热交换器的热水温度，巡回方式以3秒为周期轮流更新及显示各热交换器热水温度。定点方式时每按上键或下键一次则显示上或下一个热交换器热水温度，每3秒自动更新数据一次。3、 根据控制要求选择单片机+智能仪表的解决方案：用带通讯接口的智能仪表安装在现场测量温度，设计制作一个单片机装置完成与智能仪表的通讯及数据显示。三、通讯协议、智能仪表选择及其参数介绍因热水温度信号变化较慢，因而对通信的速度要求不高，对于

4、这种低速率远距离的通讯选用RS-485总线适宜。RS-485是EIA（美国电子工业联合会）在1983年公布的新的平衡传输标准，是工业界使用最为广泛的双向、平衡传输线标准接口，它以半双工方式通信，支持多点连接，传统驱动器允许创建多达32个节点的网络，且其具有传输距离远（最大传输距离为1200M），传输速度快（1200M时为100KBPS）等优点。其连接方法如下图所示。发送器接收器接收发送器120120为了满足现场温度检测及与单片机装置通讯的要求，必须选择至少有5个温度检测点及具有RS485通讯端口的智能仪表。经过对市场上常用的温度检测仪进行分析，选择由重庆川仪十八厂生产的XJ-08S型巡回检测仪

5、作现场测量仪表。（一）该仪表主要特点如下：1、 多量程方式，热电偶、热电阻，1-5V标准信号混合输入，可通过键盘进行设置；2、 最多8个测量通道（能测量8个温度信号）；3、 采用RS-485通讯标准，可将各通道最新数据向上位机传送。（二）XJ-08S巡回检测仪通讯协议1、通讯口设置l 通讯方式：RS-485标准电平l 同步方式：起停同步方式l 波特率：9600BPSl 通讯距离：不大于1200Ml 通讯线：二线l 数据代码：ASCII码l 数据格式：每字符10位，1个起始位，8个数据位，1个停止位2、 数据传输格式l 地址：2字节（高字节在前，低字节在后）；l 数据：按地址顺序，仪表数据传输格

6、式为十六进制2字节定点数；2字节定点数=低字节高4位（ASCII码）+低字节低4位（ASCII码）高字节高4位（ASCII码）+高字节低4位（ASCII码）若数据为负数，则采用补码方式传输；l 在传输实时测量值时，传输完2字节定点数后，紧接着又传输2字节定点数，其中高字节低4位为小数点位数。例：（50.0）10 表示为 46 34 30 31 30 30 30 31 低字节 高字节 小数位数3、 仪表通讯格式：DE帧类型帧数据CRCCRl ：通讯起始符l DE：仪表设备号（地址）l 帧类型：操作命令l 帧数据：各种操作命令所对应的命令及数据l CRC：校验字节（除外CRC之前的其他几个字节的异

7、或值）l CR：结束符（回车符）4、应用中用到的命令及数据格式：l 读仪表全部动态数据命令帧 DE RD CRC CRl 命令回送帧正确DE RD 帧数据 CRC CR错误DE * * CRC CR例：读28号仪表的全部动态数据命令：1CRD64,0D(ASCII码40 31 43 52 44 36 34 0d)错误返回码1C*72,0D(ASCII码40 31 43 2A 2A 37 32 0D)正确返回数据 1C RD XXXX XXXX XXXX XXXX XXXX XXXX第0通道 第1通道第2通道XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX第3通道第

8、4通道第5通道第6通道XXXX XXXX XX,0D第7通道校验四、单片机选择及硬件电路设计1、 选用ATMEL公司生产的AT89S8252-24PC单片机，其主要参数及特点如下：l 与MCS-51产品兼容（其引脚图见原理图）l 具有8K字节可擦写的FLASH内部程序存储器，可擦写1000次；2K字节EEPROM，可擦写100，000次，SPI口（用PC机的并口连接条线即可通过SPI口下载程序，下载软件可从网上下载，这样可节省购买编程器的费用；）。l 256字节RAM，32根可编程I/O线，可编程串行口，内置看门狗。与看门狗有关的特殊功能寄存器WMCON 地址= 96H，与看门狗有关的控制位为

9、96h第0、1、5、6、7位，第5、6、7位用于设置看门狗定时时间（具体见第5页表格），本应用中第5、6、7位均置1，设置看门狗溢出时间为2048ms，第0位为看门狗使能控制位，该位置1将使能看门狗，其第1位为复用位，向第1位写1将复位看门狗定时器，具体操作如下：a,使能看门狗，并将其溢出时间设定为2048ms：ORL 96H, #0E1H;b,看门狗定时器清0：ORL 96H, #2 2、按键设计：为方便使用，设计了三个按键，分别为巡回/定点切换键、上键、下键。切换键用于巡检与定点模式的切换，上键向上切换通道，下键向下切换通道；其中巡检/定点切换键通过外部中断1以中断方式工作，中断程序将巡回

10、/定点标志取反后直接跳到主程序中巡回/定点标志判断程序前运行，由判断程序完成巡回/定点的切换。按键信号由单片机P3.3，P3.4，P3.5引脚输入。3、显示电路设计为方便观察，选用三个二位共阳级8段数码显示管（TOD5201AE）动态显示，一位显示仪表地址（从A至F），一位显示通道号（从0至7通道），其余四位用来显示实时温度值；用单片机P1口驱动一片74HC244以吸收电流的方式控制段码，用单片机P0.0至P0.5引脚驱动六个三极管（9012）控制位选。4、电源选用5V/1A市售成品开关电源。5、 根据智能仪表通讯协议的要求，串行口定义为方式1工作，一帧10位：1个起始位、8个数据位、一个停止

11、位；用一片75176完成数据的发送与接收，由于RS-485为半双工，故用单片机P3.2引脚控制发送与接收的切换；两个智能仪表处于RS-485总线的两个端点，为提高可靠性，在RS-485总线的两个端点上分别并联一个120、1/4W终端电阻。l 系统方框图如右示：l 单片机装置电原理图见下页：巡回/定点下仪表地址通道号实时温度巡回/定点下仪表地址通道号实时温度ABGnd上热水温度远程显示器A B Gnd120XJ-08S 巡回检测仪AA B Gnd120XJ-08S 巡回检测仪B765定时值00016ms00132ms01064ms011128ms100256ms101512ms1101024ms

12、1112048ms看门狗溢出时间表五、单片机软件设计说明及程序流程图为方便调试，采用模块化编程，共分1个主模块及5个子模块，各模块功能说明及流程图如下（源程序见附录）：1、 主模块（rand_main.a51）上电后程序显示初始化标志并等待3秒，然后进入巡回模式，自动检测地址为A（10）至F（15）的智能仪表，对在线的仪表及已使用通道以3秒为周期自动巡回读取实时温度并送数码管显示，仪表未在线或未用通道则自动跳过；定点模式时根据上、下按键情况自动向前或向后移动一个通道后等待下一次按键（向上至最高通道号时跳到上一个仪表的最低在用通道，向下至最低通道号时跳到下一个仪表的最高在用通道）；等待期间以3秒

13、为周期读取当前仪表当前通道实时温度并送数码管显示，另外，为了区分巡回、定点工作模式，定点工作模式时最低位数码管以约0.5Hz的频率闪烁显示。当检测到巡回/定点切换键按下时自动在巡回及定点模式间转换，当检测到温度值低于199.9度时显示-199.9度。YD_N100=仪表地址TD_N=通道号YN开始上电初始化置SP巡回/定点标志=1? #0ah=yd_n100,#0=td_n清闪烁、调用命令发送模块接收正确吗?调用数据转换程序 正常吗?YN送显示并延时3秒Td_n+1=td_nTd_n=8?YN0=Td_nNYYd_n100+1=yd_n100Yd_n100=10h?0ah=yd_n100sta

14、rtTd_n=0?开外部中断1并置最低位闪烁清软硬看门狗2秒定时到？下键？上键？NNNYYY调用命令发送程序调用数据转换程序正确吗？正确吗？送显示YNNY7=td_nYd_n100-1=yd_100Yd_n100=9?0fh=yd_100NNYYTd_n-1=td_n调用命令发送程序正确吗？正确吗？调用数据转换程序NYYN送显示、置2S定时初值上键处理流程与下键相似，此处从略。NY主模块流程图见下页：2、数据转换子模块（rand_data.a51）功能：本模块先将ASCII码转换成BIN码，然后将BIN码转换成BCD码并将数据转换成可直接显示的格式入口：a=通道号出口:r1=个位,r2=十位,

15、r3=百位,r4=千位（显示数据）a=非0表示该通道未用注：本子模块中直接将小数点信息加到相应位数据上，如需在某位显示小数点，则将该位数据加10H，显示子模块根据此信息显示小数点。各子程序功能介绍：l bcd2_bcd1：将r3,r4中的4位bcd码由低至高分别存入r1,r2,r3,r4中；l ascii4_bcd3：将(r0)为首地址的字节ascii码转换成bcd码并将bcd码由低至高依次存放在r3,r4,r5中，r3,r4中各存放2位bcd码，r5中存放一位bcd码；l bin_bcd：将r1,r2中的bin码转换成bcd码并将bcd码由低至高依次存放在r3,r4,r5中，r3,r4中各存

16、放2位bcd码，r5中存放一位bcd码；l ascii4_bin2：将(r0)为首地址的字节ascii码转换成2位bin码存放在r1（低字节）,r2(高字节）中；注：（r0）指r0中内容l ascii_bin：将（r0）为地址的一位ascii码转换成bin码存中。（高级子程序调用低级子程序以实现更强的功能，源程序中对各子程序有较详细的注释，故此处仅画出主流程图）3、显示、软件看门狗、20ms定时器子程序（rand_disp.a51）功能：通过定时器0以1MS为周期动态显示缓冲区中的内容；同时完成20ms定时器及软件看门狗计数；当软件看门狗定时器溢出时自动复位。入口:以disp_buf为首地址依

17、次存放从个位至十万位待显示数据，以disp_wc为首地址（位地址）依次存放个位至千位闪烁控制位信息，为0常亮,为1闪烁.开始计算通道数据首地址调用数据转换程序还原小数位数存R6BCD码超过5位吗？ 该通道数据为0X0ffff吗？返回该通道未用信息YYNN退出转换成可显示数据存R1-R4有效位前的零消除处理返回数据正确信息负数处理，当数据小于-199.9时显示-199.9出口:wdt中存放软件看门狗计数值，time_20ms中存放20ms的计数值。Wdt溢出时跳至程序存储器0000单元T0中断入口保护现场显示码表地址=dptrDisp_s_c取反Disp_c+1=disp_cDisp_c=R0D

18、isp_s-1=disp_s,Disp_s=0?YN个位数据及闪烁信息=A,Ca闪闪烁 NR0=1?Y十位数据及闪烁信息=A,Ca闪闪烁 百位数据及闪烁信息=A,Ca闪闪烁 千位数据及闪烁信息=A,Ca闪闪烁 万位数据=A a闪闪烁 十万位数据=A a闪闪烁 百万位数据=A （未用）a闪闪烁 千万位数据=A （未用）a闪闪烁 NR0=2?YNR0=3?YNR0=4?YNR0=5?YNR0=6?YNR0=7?YNR0=8?Yl 将定时器0设定为模式1定时工作，每ms产生一次中断，即显示一位，每10ms 6位数据轮流显示1ms；为进一步提高可靠性，在该模块中设计了软件看门狗，实现方法见源程序。模块

19、流程图如本页所示：输出处理a闪闪烁 Disp_c=10?NY0=disp_c20ms计数处理软看门狗计数溢出YN跳至0000Ha闪闪烁 恢复现场闪闪烁 T0中断返回、命令发送及接收控制子模块（rand_send.a51）功能：发送命令缓冲区中命令并等待接收完毕,然后检查接收到的数据,接收错误则重发命令,达到设定的次数仍错则存入错误码后退出.入口:A=仪表地址开始清除命令及接收缓冲区设置允许错误次数计算仪表命令偏移地址，取出命令及送入命令缓冲区校验通过？YN发送命令在80ms内检测到正在接收标志？YN在200ms内检测到接收结束标志？YN接收到命令错信息？ YN返回命令错信息允许错误次数-1允许

20、错误次数=0？YN缓冲区结束标志符正确？YN清正在接收标志返回错误信息校验接收缓冲区中数据返回正确信息退出返回校验错信息出口:A=0 表示接收正确 1 表示校验错 *表示命令错N表示无模块流程图如下：、串行接收子模块（rand_rec.a51）功能：串行接收模块通过中断自动执行，程序检测到时置ri_f标志并开始接收，检测到回车符时清ri_f后退出,接收到的数据存放在以rec_buf为首地址的缓冲区中。串行中断（rand_rec.a51）流程图巡回/定点键中断(rand_key.a51)流程图、巡回定点转换检测模块（rand_key.a51）功能：模块通过外部中断自动执行，检测到巡回定点按键后先

21、延时去抖动，并等待按键释放后将巡回定点标志位取反，然后自动跳至主模块中start处外部中断1入口断按键释放？NY延时40ms去抖延时40ms去抖清看门狗定时器关中断巡回/定点标志取反跳至主程序start处断串行中断入口断接收中断？接收缓冲区首地址=rec_buf_zYRI_F：正在接收标志REC_BUF_Z：接收指针中断返回断返NRI_F=0?接收到?1=RI_F数据存入接收缓冲区接收到0dh?YYYNNN0=RI_F接收缓冲区溢出？YN0=RI_F保护现场恢复现场清RI。六、调测及运行1、 调试步骤：l 硬件连接：将各芯片插在面包板上并用导线按原理图连接l 软件开发环境：Keil uVisi

22、on2 for Windows ，该软件的模拟调试器支持C语言及汇编语言源代码调试，其汇编程序支持宏汇编及模块化编程，使用方便。l 首先在模拟调试器中调试各子模块，各子模块调试正常后再将各子模块及主模块全部汇编连接成目标文件，最后将目标代码下载到单片机中并连接智能仪表进行统调。2、 该系统软件部分除报警子模块外已全部开发完成并实际测试通过，测试时用一对长度约1100M的0.5mm2 普通电话线作为单片机装置与两个智能仪表的通讯线进行检验。七、结束语用单片机+智能仪表构成的温度远程显示系统较造价比较低，其硬件及软件的设计、制作都较简单，有一定的电子及单片机知识便可完成。同时对该装置软件稍加修改即

23、可与其他带有RS-485通讯端口的仪器仪表通讯（如变频器、电路传感器等），实现远程测量、监视及控制。与发达国家相比，我国单片机应用的普及程度较低。通过该实例说明，我们完全可以把我们学到的单片机知识应用到实际工作中，直接创造经济效益。八、参考资料微型计算机原理与应用西安电子科技大学出版社 王永山 杨宏五 杨婵娟 编著单片机高级语言C51Windows环境编程与应用电子工业出版社徐爱钧彭秀华编著ATMEL89系列Flash单片机原理与应用电子工业出版社余永权主编标准集成电路数据手册高速CMOS电路电子工业出版社ATMEL AT89S8252数据手册ATMEL公司XJ-08H(S)巡回检测仪使用说明

24、书重庆川仪十八厂工业控制计算机组成原理清华大学出版社孙廷才 王杰 孙中健 编著九、附录（源程序）、主模块（rand_main.a51）;-1-rand_main.a51-name rand_mainEXTRN CODE(I_T0,send_order,rec_si,ascii_bcd,key)extrn data (DISP_buf,disp_wc,time_20ms,wdt)extrn idata (rec_buf)public TH0_H,TL0_L,START,ri_f,wdt_time,key_work,key_fprog SEGMENT CODE;定义代码段byte_buff seg

25、ment data;定义字节数据段1byte_buffI segment idata ;定义字节数据段2bit_buff segment data bitaddressable;定义位数据段bit_flag segment bitstack segment idata;定义堆栈数据段 rseg stack;为堆栈保留20个字节ds 20 CSEG AT 00H;定义绝对代码段USING 0;选择工作寄存器组第0组lJMP rand;复位时程序执行执行点CSEG AT 03H;外部中断0RETICSEG AT 0BH;定时器0中断lJMP I_T0CSEG AT 13H;外部中断1ljmp ke

26、yRETICSEG AT 1BH;定时器1中断RETICSEG AT 23H;串行中断ljmp rec_siRSEG BYTE_BUFFtd_temp: ds 1TD_n: DS 1;通道号YD_n100: ds 1;仪表地址;-rseg bit_flagkey_work:dbit 1ri_f: dbit 1;串行口正在接收标志;-主程序RSEG prog;-符号定义key_f equ p3.3key_up equ p3.4key_down equ p3.5wdt_time equ 100;软件看门狗定时器计数值scon_c equ 01010000b;串行口设置为10位UART,允许接收th

27、1_h equ 0fdh;晶振为11.0592M,波特率为9600时初值tmod_n equ 21h;设置定时器（T1作为波特率发生器工作在模式2，T0为模式1）ie_n equ 82h;设置串行,定时器0中断ip_n equ 12h;设置串行,定时器0中断为高级中断TH0_H EQU 0FCHTL0_L EQU 06BH;设定定时器0为1MS中断初值;-初始化代码clear_wdt macro;清硬看门狗宏定义orl 96h,#2ENDM rand:ORL 96H,#0E1H;启动硬件看门狗mov p0,#0ffhmov r0,#20hmov a,#0start_300:mov r0,ain

28、c r0cjne r0,#128,start_300setb key_work;置巡回定点标志mov p3,#0ffhmov p2,#0ffhmov disp_wc,#0;初始化闪烁控制位mov ip,#ip_n;设置串行,定时器0中断为高级中断mov scon,#scon_cMOV TMOD,#tmod_nMOV TH0,#TH0_H;设定定时器初值MOV TL0,#TL0_Lmov th1,#th1_hmov tl1,#th1_hmov ie,#ie_nmov pcon,#0SETB tr1SETB TR0;-显示初始化提示acall chuhaoCLEAR_WDTstart:clr ea

29、mov sp,#stack-1setb eaclr ri_f;清接收中标志clr p3.2;置75176为接收状态jnb key_work,db_work;-setb ex1mov yd_n100,#0ahmov td_n,#0s_0:anl disp_wc,#0f0hmov wdt,#0;清看门狗定时器clear_wdtmov a,yd_n100lcall send_orderJNZ s_1mov disp_buf+5,yd_n100mov a,td_nlcall ascii_bcdjnz s_2mov disp_buf+4,td_nacall mov_to_dispmov wdt,#0cl

30、ear_wdtmov a,#75add a,time_20mscjne a,time_20ms,$mov wdt,#0clear_wdtmov a,#75add a,time_20mscjne a,time_20ms,$s_2:inc td_nmov a,td_ncjne a,#8,s_0mov td_n,#0s_1:inc yd_n100MOV A,YD_N100cjne a,#10h,s_0mov yd_n100,#0ahajmp s_0;-db_work:setb ex1orl disp_wc,#01hd_3:mov wdt,#0;清看门狗定时器clear_wdtjb key_up,d_

31、4mov a,#2add a,time_20mscjne a,time_20ms,$jb key_up,d_4d_5:mov wdt,#0clear_wdtjnb key_up,d_5;等待向上键松开;-d_53:mov a,td_ncjne a,#7,d_50mov td_n,#0d_52:inc yd_n100mov a,yd_n100cjne a,#10h,d_51mov yd_n100,#0ahajmp d_51d_50:inc td_nd_51:mov a,yd_n100lcall send_orderJNZ d_52mov disp_buf+5,yd_n100mov a,td_nl

32、call ascii_bcdjnz d_53mov disp_buf+4,td_nacall mov_to_dispmov a,#100;2秒钟定时设定add a,time_20msajmp d_3;-d_4:jb key_down,d_10mov a,#2add a,time_20mscjne a,time_20ms,$jb key_down,d_3d_6:mov wdt,#0clear_wdtjnb key_down,d_6;等待向下键松开;-d_43:mov a,td_ncjne a,#0,d_40mov td_n,#7d_42:dec yd_n100mov a,yd_n100cjne

33、a,#9h,d_41mov yd_n100,#0fhajmp d_41d_40:dec td_nd_41:mov a,yd_n100lcall send_orderJNZ d_42mov disp_buf+5,yd_n100mov a,td_nlcall ascii_bcdjnz d_43mov disp_buf+4,td_nacall mov_to_dispmov a,#100;2秒钟定时设定add a,time_20msajmp d_3;-d_10:cjne a,time_20ms,d_30mov a,yd_n100lcall send_orderjnz d_30mov a,td_nlca

34、ll ascii_bcdjnz d_30acall mov_to_dispmov a,#100add a,time_20msd_30:ajmp d_3;-mov_to_disp:mov disp_buf,r1mov disp_buf+1,r2mov disp_buf+2,r3mov disp_buf+3,r4retchuhao:mov r1,#1eh;初始化等待提示mov r2,#22hmov r3,#21hmov r4,#1fhmov disp_buf+4,#21hmov disp_buf+5,#20hacall mov_to_dispmov a,#75add a,time_20mscjne

35、 a,time_20ms,$mov wdt,#0clear_wdtmov a,#75add a,time_20mscjne a,time_20ms,$retend、数据转换子模块（rand_data.a51）;-2-rand_data.a51-name rand_dataextrn idata (rec_buf)public ascii_bcdprog SEGMENT CODE;定义代码段byte_buff segment data;定义字节数据段1byte_buffI segment idata ;定义字节数据段2bit_buff segment data bitaddressable;定义

36、位寻址区字节数据段rseg progusing 0;-ASCII_BCD:mov b,#8;计算该通道数据偏移首地址mul abadd a,#5mov r0,#rec_bufadd a,r0mov b,amov r0,aacall ascii4_bcd3mov a,b;还原小数位数add a,#7mov r0,aacall ascii_binmov r6,a;小数位数暂存在R6中mov a,r5jz asc_oKmov a,dplcpl aclr cinc amov dpl,amov a,dphcpl aaddc a,#0mov dph,ajnz asc_basc_0:mov a,dpldec

37、 ajnz asc_bmov r1,#0fhmov r2,#0fhmov r3,#0fhmov r4,#0fhmov a,#0fhajmp asc_outasc_b:mov r1,dpl;为负数处理mov r2,dphacall bin_bcdmov a,b;还原小数位数add a,#7mov r0,aacall ascii_binmov r6,a;小数位数暂存r6acall bcd2_bcd1mov a,r4dec ajnz asc_100;数据小于-199.9时显示-199.9mov r4,#23hajmp asc_swasc_100:mov r4,#23hmov r3,#9mov r2,

38、#19hmov r1,#9ajmp asc_sw_1asc_ok:acall bcd2_bcd1;正常数据处理程序asc_sw:mov a,r4;清除有效位前面的0jnz asc_sw_1mov r4,#1chmov a,r3jnz asc_sw_1mov r3,#1chasc_sw_1:clr aasc_out:ret;-每字节两位BCD码转换为每字节一位BCD码子程序;入口：r3=个位及十位BCD码,r4=百位及千位BCD码,r6=小数位数;出口：r1=个位BCD码,r2=十位BCD码,r3=百位BCD码,r4=千位BCD码bcd2_bcd1:mov a,r3;个位及十位BCD数处理anl

39、 a,#0fhmov r1,amov a,r3anl a,#0f0hswap amov r2,amov a,r4 ;百位及千位BCD数处理anl a,#0fhmov r3,amov a,r4anl a,#0f0hswap amov r4,amov a,r6;加入小数点信息jz bcd2_outadd a,#ar1mov r0,amov a,r0add a,#10hmov r0,abcd2_out:ret;-ASCii4_BCD3转换子程序;入口：r0=四字节ASCII码首地址;出口：r5,r4,r3从高至低依次存放BCD码（r3,r4各存2位，r5存1位）ascii4_bcd3:acall ascii4_bin2mov dpl,r1mov dph,r2acall bin_bcdret;-BIN_BCD转换子程序;入口：r1=BIN低字节,r2=BIN高字节 共2字节;出口：r3=低2位BCD码，r4=高2位BCD码,r5=可能的最高位BCD码bin_bcd:PUSH ACCPUSH PSWmov r3,#0;BCD单元清0mov r4,#0mov r5,#0mov r6,#16;设置二进制数位数clr cbin_0:mov a,r1rlc amov r1,amov a,r2rlc amov r2,amov