单片机热水器3设计程序3.docVIP

DAT BIT P3.0 ;数据通信口 WDLSB DATA 30H ;读出的温度低字节 WDMSB DATA 31H ;读出的温度高字节 ;*************************************************************** ORG 0000H LJMP MAIN ORG 000BH SJMP TIMER0 ;定时显示 ;**************************************************************** ;定时显示子程序，采用循环扫描方式 ;显示缓冲区40H~47H ORG 0080H TIMER0: MOV P0,40H ;最后一位值送p0 ORL P0,#70H ; 点亮最后一位 CALL T1MS MOV P0,41H ORL P0,#60H CALL T1MS MOV P0,42H ORL P0,#50H CALL T1MS MOV P0,43H ORL P0,#40H MOV TH0,#LOW(65536-10000) ;定时器10MS中断 MOV TL0,#HIGH(65536-10000) RETI T1MS: mov r5,#00h ;延时子程序 tt: mov r6,#9 djnz r6,$ djnz r5,tt ret ;********************************************************* ;主程序: MAIN: MOV SP,#60H MOV P2,#0FFH MOV R2,#8 MOV R0,#40H ; OVER: MOV @R0,#00H INC R0 DJNZ R2,OVER MOV TMOD,#01H MOV TH0,#LOW(65536-10000) MOV TL0,#HIGH(65536-10000) SETB EA SETB ET0 SETB TR0 LOOP: LCALL DSWD ;调用读出DS18B20温度程序 SJMP LOOP ; 读出DS18B20温度程序 DSWD: CLR EA LCALL RST JNB F0,KEND ;如果没有应答，返回主程序 MOV R0,#0CCH LCALL SEND_BYTE ;跳过ROM匹配 MOV R0,#44H ;发出温度转换命令 LCALL SEND_BYTE SETB EA MOV P1, MOV 48H,#1 ;廷时75ms以上准备读 SS2: MOV 49H,#255 SS1: MOV 4AH,#255 SS0: DJNZ 4AH,SS0 DJNZ 49H,SS1 DJNZ 48H,SS2 MOV P1, CLR EA LCALL RST JNB F0,KEND MOV R0,#0CCH ;跳过ROM匹配 LCALL SEND_BYTE MOV R0,#0BEH ;发出读温度命令 LCALL SEND_BYTE LCALL READ_BYTE MOV WDLSB,A LCALL READ_BYTE MOV WDMSB,A LCALL TRANS12 ad_cs equ P3.6 ad_wr equ P2.0 ad_rd equ P3.7 ad_input_port equ p1 org 0600h ajmp main1 org 0800h main1: lcall adc_demo cjne a,#0ffh,bq2 dlv: mov 70h,#08h ;1kz持续时间 dlv1: mov 71h,#0fah dlv2: cpl p3.3 ;输出1khz方波 lcall d1ms ;调用延时程序1 djnz 71h,dlv2 ;持续1秒 djnz 70h,dlv1 mov 70h,#10h ;2khz持续时间 dlv3: mov 71h,#0fah dlv4: cpl p3.3 ;输出2khz方波 lcall d25ms ;调用延时程序2 djnz 71h,dlv4 djnz 70h,dlv3 sjmp dlv ;反复循环 d1ms: mov 73h,#0ffh