水箱的恒溫控制系統(tǒng)-資料下載頁
2025-08-18 19:41本頁面
【正文】 SETB TR0 AJMP ZD3 ZD1:CLR ZD3:AJMP ZD2 ZHSF: SETB CLR TR0 JB MARK, PD3 CLR SHUCHU PD3: LCALL READ MOV R6,2 MOV R0,29H MOV R1,30H ZH: MOV A,@R0 ANL A,0FH LCALL ASCII MOV @R1,A INC R1 MOV A,@R0 SWAP A ANL A,0fh LCALL ASCII MOV @R1,A DEC R0 INC R1 DJNZ R6,ZH MOV R1,30H CLR TI MOV R6,4TRAN: MOV A,@R1 MOV SBUF,A JNB TI,$ CLR TI INC R1 DJNZ R6,TRANRECEIVE:JNB RI,$ MOV B,SBUF 。高位 CLR RI JNB RI,$ MOV A,SBUF 。低位 CLR RI CLR MARK LCALL DIGTAL MOV 35H,A MOV A,B LCALL DIGTAL MOV B,16 MUL AB ADD A,35H CJNE A,00H,PD1 MOV R7,200 CLR SHUCHU SJMP ENDPPD1: CJNE A,0FFH,PD2 MOV R7,200 SETB SHUCHU SETB MARK SJMP ENDPPD2: MOV R7,A SETB SHUCHU ENDP: MOV R6,00H LCALL INIT_18B20 LCALL RE_CONFIG LCALL GET_TEMPER MOV TH0,0D8H MOV TL0,0EFH SETB MARK1 RETIPWM: MOV TH0,0D8H MOV TL0,0EFH INC R6 DJNZ R7,ENDP1 CLR MOV A,200 CLR C SUBB A,R7 MOV R7,A ENDP1: CJNE R6,199,ENDP2 CLR MARK1 ENDP2:RETI。**********DS18B20復(fù)位程序*****************INIT_18B20: SETB DQ NOP CLR DQ MOV R0,0FBH TSR1: DJNZ R0,TSR1 。延時(shí) SETB DQ MOV R0,25H TSR2: JNB DQ ,TSR3 DJNZ R0,TSR2 TSR3: SETB FLAG1 。置標(biāo)志位，表明DS18B20存在 CLR 。二極管指示 AJMP TSR5 TSR4: CLR FLAG1 LJMP TSR7 TSR5: MOV R0,06BH TSR6: DJNZ R0,TSR6 TSR7:SETB DQ 。表明不存在 RET。********************設(shè)定DS18B20暫存器設(shè)定值**************RE_CONFIG: JB FLAG1,RE_CONFIG1 RETRE_CONFIG1: MOV A,0CCH 。放跳過ROM命令 LCALL WRITE_18B20 MOV A,4EH LCALL WRITE_18B20 。寫暫存器命令 MOV A,00H 。報(bào)警上限中寫入00H LCALL WRITE_18B20 MOV A,00H 。報(bào)警下限中寫入00H LCALL WRITE_18B20 MOV A,7FH 。選擇12溫度分辨率 LCALL WRITE_18B20 RET。*****************發(fā)出溫度轉(zhuǎn)換命令***********GET_TEMPER: SETB DQ LCALL INIT_18B20 JB FLAG1,TSS2 RET 。若不存在則返回 TSS2: MOV A,0CCH 。跳過ROM LCALL WRITE_18B20 MOV A,44H 。發(fā)出溫度轉(zhuǎn)換命令 LCALL WRITE_18B20 RET 。**********************讀出溫度轉(zhuǎn)換值**************************READ: LCALL INIT_18B20 MOV A,0CCH 。跳過ROM LCALL WRITE_18B20 MOV A,0BEH 。發(fā)出讀溫度換命令 LCALL WRITE_18B20 LCALL READ2_18B20 。讀兩個(gè)字節(jié)的溫度 RET 。***************寫DS18B20程序************ WRITE_18B20: 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 。***********讀18B20程序，讀出兩個(gè)字節(jié)的溫度********* READ2_18B20: MOV R4,2 。低位存在29 H,高位存在28H MOV R1,29H RE00: MOV R2,8 RE01: CLR C SETB C 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 ASCII:MOV DPTR,TAB1 。將四位二進(jìn)制數(shù)所對(duì)應(yīng)數(shù)轉(zhuǎn)化成其ascii碼 MOVC A,@A+DPTR RETDIGTAL: CLR C 。ASCII轉(zhuǎn)十六進(jìn)制數(shù) SUBB A,30H MOV R0,A SUBB A,10 JC MOV A,R0 SUBB A,07H SJMP JIESHU : MOV A,R0 JIESHU: RET DELAY:MOV R5,33 。延遲1s LOOP3: MOV R6,100 LOOP2: MOV R7,100 LOOP1: NOP DJNZ R7,LOOP1 DJNZ R6,LOOP2 DJNZ R5,LOOP3 RETTAB1: DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H DB 41H,42H,43H,44H,45H,46H End附錄2 電路原理圖
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1