18B20程序电子体温计

1、TX-1板验证通过TEMPER_L EQU 36HTEMPEREQU 35HTEMPER_d EQU 61H;小数位TEMPER_NUM EQU 60HFLAG1 BIT 00HDQ BIT P3.7澈据口dula bit P2.6 ;pO 口用了两个74hs535锁存，即复用p0 口。p2.6和p2.7分别为段选和位选选通口wela bit P2.7;bai_c equ 37hsh_c equ 38hg_c equ 39hMOV SP,#70HAAA:LCALL GET_TEMPERLCALLTEMPER_COVmov a,TEMPER_NUM;分开 TEMPER_NUManl a,#OfO

2、hswap amov bai_c,amov a,TEMPER_NUManl a,#0fhmov sh_c,amov g_c,TEMPER_dmov r2,#256lplp:lcall displaydjnz r2,lplpLJMP AAANOP; 读出转换后的温度值GET_TEMPER: LCALL INIT_1820;初始化程序SETB DQ ;定时入口BCD:JB FLAG1,S22LJMP BCD ; 若DS18B20不存在则返回S22:LCALL DELAY1MOV A,#0CCH ; 跳过 ROM 匹配0CCLCALL WRITE_1820MOV A,#44H ; 发出温度转换命令L

3、CALL WRITE_1820NOPLCALL DELAYLCALL DELAYCBA:LCALL INIT_1820JB FLAG1,ABCLJMP CBAABC:LCALL DELAY1MOV A,#0CCH ; 跳过 ROM 匹配LCALL WRITE_1820MOV A,#0BEH ; 发出读温度命令LCALL WRITE_1820LCALL READ_18200 ; 或者 READ_1820RET; 读DS18B20的程序，从DS18B20中读出一个字节的数据READ_1820:MOV R2,#8RE1:CLR CSETB DQNOPNOPCLR DQNOPNOPNOPSETB DQ

4、MOV R3,#7DJNZ R3,$MOV C,DQMOV R3,#23DJNZ R3,$RRC ADJNZ R2,RE1RET;写DS18B20的程序WRITE_1820:MOV R2,#8CLR CWR1:CLR DQMOV R3,#6DJNZ R3,$RRC AMOV DQ,CMOV R3,#23DJNZ R3,$SETB DQNOPDJNZ R2,WR1SETB DQRET; 读DS18B20的程序，从DS18B20中读出两个字节的温度数据READ_18200:MOV R4,#2 ; 将温度高位和低位从 DS18B20中读出MOV R1,#36H ;低位存入 36H(TEMPER_L)

5、,高位存入 35H(TEMPER_H)RE00:MOV R2,#8RE01:CLR CSETB DQNOPNOPCLR DQNOPNOPNOPSETB DQMOV R3,#7DJNZ R3,$MOV C,DQMOV R3,#23DJNZ R3,$RRC ADJNZ R2,RE01MOV R1,ADEC R1DJNZ R4,RE00RET; 将从DS18B20中读出的温度数据进行转换TEMPER_COV:MOV A,#0F0HANL A,TEMPER_L ;舍去温度低位中小数点后的四位温度数值SWAP AMOV TEMPER_NUM,AMOV A,TEMPER_LJNB ACC.3,TEMPER

6、_COV1 ;四舍五入去温度值INC TEMPER_NUMTEMPER_COV1:MOV A,TEMPER_HANL A,#07HSWAP AORL A,TEMPER_NUMMOV TEMPER_NUM,A ;保存变换后的温度数据mov a,#0fhANL A,TEMPER_Lmov TEMPER_d,aclr csubb a,#10jc jia nlomov TEMPER_d,ainc TEMPER_NUMjia nlo:LCALL BIN_BCDRET; 将16进制的温度数据转换成压缩BCD码BIN_BCD:MOV DPTR,#TEMP_TABMOV A,TEMPER_NUMMOVC A,

7、A+DPTRMOV TEMPER_NUM,ARETTEMP_TAB:DB 00H,01H,02H,03H,04H,05H,06H,07HDB 08H,09H,10H,11H,12H,13H,14H,15HDB 16H,17H,18H,19H,20H,21H,22H,23HDB 24H,25H,26H,27H,28H,29H,30H,31HDB 32H,33H,34H,35H,36H,37H,38H,39HDB 40H,41H,42H,43H,44H,45H,46H,47HDB 48H,49H,50H,51H,52H,53H,54H,55HDB 56H,57H,58H,59H,60H,61H,6

8、2H,63HDB 64H,65H,66H,67H,68H,69H,70H,71HDB 72H,73H,74H,75H,76H,77H,78H,79HDB 80H,81H,82H,83H,84H,85H,86H,87HDB 88H,89H,90H,91H,92H,93H,94H,95HDB 96H,97H,98H,99H；DS18B20 初始化程序INIT_1820:SETB DQNOPCLR DQMOV R0,#80HTSR1:DJNZ R0,TSR1 ;延时SETB DQMOV R0,#25H ;96US-25HTSR2:DJNZ R0,TSR2JNB DQ,TSR3LJMP TSR4 ;延

9、时TSR3:SETB FLAG1 ; 置标志位，表示DS1820存在LJMP TSR5TSR4:CLR FLAG1 ; 清标志位,表示DS1820不存在LJMP TSR7TSR5:MOV R0,#06BH ;200USTSR6:DJNZ R0,TSR6 ; 延时TSR7:SETB DQRET； 重新写DS18B20暂存存储器设定值RE_CONFIG:JB FLAG1,RE_CONFIG1 ; 若 DS18B20 存在，转 RE_CONFIG1RETRE_C0NFIG1:MOV A,#0CCH ; 发 SKIP ROM 命令LCALL WRITE_1820MOV A,#4EH ;发写暂存存储器命

10、令LCALL WRITE_1820MOV A,#00H ; TH（ 报警上限）中写入OOHLCALL WRITE_1820MOV A,#00H ; TL（报警下限）中写入00HLCALL WRITE_1820MOV A,#7FH ; 选择12位温度分辨率LCALL WRITE_1820RET;延时子程序DELAY:MOV R7,#2HMIN:DJNZ R7,YS500RETYS500:LCALL YS500USLJMP MINYS500US:MOV R6,#200DJNZ R6,$RETDELAY1:MOV R7,#20HDJNZ R7,$RETdisplay:;显示程序MOV DPTR,#T

11、ABLEclr dula;mov a,bai_cMOVC a,A+DPTRmov p0,a;显示百位setb dula;clr dula;clr wela;mov P0,#7eh;setb wela;clr wela;mov 50h,#5hcall delayxmsclr dula;mov a,sh_cMOVC a,A+DPTRorl a,#80h;显示小数点mov p0,a ;显示十位setb dula;clr dula;clr wela;mov P0,#7dh;setb wela;clr wela;mov 50h,#5hcall delayxmsmov a,g_cMOVC a,A+DPTRmov p0,a ;显示个位setb dula;clr dula;mov P0,#7bh;setb wela;clr wela;mov 50h,#5hcall delayxmsretdelayxms:mov 52h,#1;50