89s52单片机显四位数码管汇编语言测温程序,,,,温度可显示范围在-20—+120度.docVIP

TEMPER_L EQU 36H TEMPER_H EQU 35H TEMPER_d EQU 61H ;小数位 TEMPER_NUM EQU 60H FLAG1 BIT 00H DQ BIT P2.2 dula bit P2.6; wela bit P2.7; bai_c equ 37h sh_c equ 38h g_c equ 39h MOV SP,#70H AAA:LCALL GET_TEMPER LCALL TEMPER_COV mov a,TEMPER_NUM ;分开 TEMPER_NUM anl a,#0f0h swap a mov bai_c,a mov a,TEMPER_NUM anl a,#0fh mov sh_c,a mov g_c,TEMPER_d mov r2,#256 lplp:lcall display djnz r2,lplp LJMP AAA NOP ;------------------读出转换后的温度值 GET_TEMPER: LCALL INIT_1820 ;初始化程序 SETB DQ ; 定时入口 BCD: JB FLAG1,S22 LJMP BCD ; 若DS18B20不存在则返回 S22:LCALL DELAY1 MOV A,#0CCH ; 跳过ROM匹配------0CC LCALL WRITE_1820 MOV A,#44H ; 发出温度转换命令 LCALL WRITE_1820 NOP LCALL DELAY LCALL DELAY CBA:LCALL INIT_1820 JB FLAG1,ABC LJMP CBA ABC:LCALL DELAY1 MOV A,#0CCH ; 跳过ROM匹配 LCALL WRITE_1820 MOV A,#0BEH ; 发出读温度命令 LCALL WRITE_1820 LCALL READ_18200 ;或者 READ_1820 RET ;------------------读DS18B20的程序,从DS18B20中读出一个字节的数据 READ_1820: MOV R2,#8 RE1: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,#7 DJNZ R3,$ MOV C,DQ MOV R3,#23 DJNZ R3,$ RRC A DJNZ R2,RE1 RET ;-------------------写DS18B20的程序 WRITE_1820: MOV R2,#8 CLR C WR1: CLR DQ MOV R3,#6 DJNZ R3,$ RRC A MOV DQ,C MOV R3,#23 DJNZ R3,$ SETB DQ NOP DJNZ R2,WR1 SETB DQ RET ;-------------------读DS18B20的程序,从DS18B20中读出两个字节的温度数据 READ_18200: MOV R4,#2 ; 将温度高位和低位从DS18B20中读出 MOV R1,#36H ; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H) RE00: MOV R2,#8 RE01: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,#7 DJNZ R3,$ MOV C,DQ MOV R3,#23 DJNZ R3,$ RRC A DJNZ R2,RE01 MOV @R1,A DEC R1 DJNZ R4,RE00 RET ;-------------------将从DS18B20中读出的温度数据进行转换 TEMPER_COV: MOV A,#0F0H ANL A,TEMPER_L ; 舍去温度低位中小数点后的四位温度数值 SWAP A MOV TEMPER_NUM,A MOV A,TEMPER_L JNB ACC.3,TEMPER_COV1 ; 四舍五入去温度值 INC TEMPER_NUM TEMPER_COV1: MOV A,TEMPER_H ANL A,#07H SWAP A ORL A,TEMPER_NUM MOV TEMPER_NUM,A ; 保存变换后的温度数据 mov a,#0fh ANL A,TEMPER_L mov TEMPER_d,a clr c subb a,#10 jc jianlo mov TEMPER_d,a inc TEMPER_NUM jianlo: LCALL BIN_BCD RET ;-------------------将16进制的温度数据转换成压缩BCD码 BIN_BCD