数字温度传感器DS18B20汇编程序例子.doc

;DS18B20温度传感器和7个LED数码显示程序（原创程序，请支持） ORG 0000H ;LED数码管采用动态，P0口接八个数据口，P2.0-P2.2采用3-8译码器控制七个LED TX BIT P2.3 ;DS18B20数据口接P2.3 FLAG BIT 10H TEMH EQU 50H ;整数部分 TEML EQU 51H ;小数部分 MOV SP,#60H CLR EA AJMP MAIN ORG 0200H MAIN: ;MOV R0,#10 LCALL TMP;温度传感器设置 LCALL CHANG;温度转换为十进制 STR:LCALL DISPLAY;温度显示 ;DJNZ R0,STR AJMP MAIN ;////////////////////////// TMP:;温度传感器DS18B20 LCALL RESERT MOV A,#0CCH LCALL WRITE MOV A,#44H LCALL WRITE ;LCALL DELAY750;延时750Ms LCALL RESERT MOV A,#0CCH LCALL WRITE MOV A,#0BEH LCALL WRITE LCALL READ MOV 30H,A LCALL READ MOV 31H,A RET DELAY750:;750USDELAY SETB RS0 MOV R0,#20 MS2:MOV R1,#20 MS1:MOV R2,#20 DJNZ R2,$ DJNZ R1,MS1 DJNZ R0,MS2 CLR RS0 RET ;//////////////////////////// CHANG:;温度转换为十进制 PUSH A PUSH B MOV A,31H ANL A,#07H SWAP A MOV B,A MOV A,30H ANL A,#0F0H SWAP A ADD A,B MOV TEMH,A MOV A,30H ANL A,#0FH MOV TEML,A MOV A,31H JNB ACC.3,POSI;区分正负温度 ;//////////////负温度转化 MOV A,TEML SWAP A CPL A ANL A,#0F0H ADD A,#10H SWAP A MOV 1FH,C MOV TEML,A MOV A,TEMH CPL A SUBB A,#80H MOV C,1FH ADDC A,#0 MOV 70H,#20 AJMP NEG POSI: MOV A,TEMH MOV B,#100 DIV AB MOV 70H,A MOV A,B NEG: MOV B,#10 DIV AB MOV 71H,A MOV A,B ADD A,#10 MOV 72H,A ;整数部分分离 MOV A,TEML MOV B,#5 MUL AB MOV B,#10 DIV AB MOV 76H,B MOV 75H,A MOV A,TEML MOV B,#2 MUL AB ADD A,75H MOV B,#10 DIV AB MOV 75H,B MOV 74H,A MOV A,TEML MOV B,#6 MUL AB ADDC A,74H MOV B,#10 DIV AB MOV 74H,B MOV 73H,A ;小数部分分离 POP B POP A RET ;////////////////////// DISPLAY: ;温度显示 70H---76H XXX.XXXX ;采用默认的12位，精度0.0625，-55~~+125 SETB RS0 MOV R0,#70H MOV R1,#7 MOV R2,#0 MOV DPTR,#TABLE DIS: MOV A,@R0 MOVC A,@A+DPTR MOV P2,R2 MOV P0,A INC R2 INC R0 LCALL DELAY1MS DJNZ R1,DIS CLR RS0 RET ;///////////////////////// DELAY1MS: SETB RS1 MOV R0,#100 MS:MOV R1,#20 DJNZ R1,$ DJNZ R0,MS CLR RS1 RET ;//////////////////// RESERT:;DS18B20初始化 ;SETB RS0 SETB TX NOP CLR TX MOV R0,#240 ;RST:CLR TX DJNZ R0,$;DELAY480US SETB TX MOV R1,#30;DELAY 60US DJNZ R1,$ JNB TX,RE1 CLR FLAG SETB TX RET RE1:SETB FLAG MOV R2,#200 DJNZ R2,$ ;DELAY 400us SETB TX RET