【導(dǎo)讀】西安航空職業(yè)技術(shù)學(xué)院溫度控制系統(tǒng)

　　

【正文】 *** KEY: MOV P1,0E7H KEY0:JB , KEE 。設(shè)置 MOV 75H,01H CALL D10MS JNB ,$ KKK: MOV A,79H 。上限 MOV A,0FH MOV B,0AH ANL A,B MOV 79H,A MOV 73H,A MOV A,78H MOV B,10 DIV AB MOV 72H,A MOV 71H,B MOV A,00H ANL A,0FH MOV 70H,A LCALL DISP1 LCALL KEY1 JB ,KKK MOV 75H,01H CALL D10MS JNB ,$ KYY: MOV A,77H 。下限 ANL A,0FH MOV 73H,A MOV A,76H MOV B,10 DIV AB MOV 72H,A MOV A,B MOV 71H,A MOV A,00H ANL A,0FH MOV 70H,A LCALL DISP1 LCALL KEEY1 LCALL QH JB ,KYY MOV 75H,01H CALL D10MS JNB ,$ KEE: MOV P1,00H RET QH11:LJMP QH1 。上限加減 KEY1:JB ,KEY2 。加 CALL D10MS JNB ,$ CLR C MOV 75H,01H MOV A,78H ADDC A,75H MOV 78H,A JNC LS 西安航空職業(yè)技術(shù)學(xué)院 溫度控制系統(tǒng) 4 MOV A,79H ADDC A,00H MOV 79H,A LS: JMP KYKK KEY2:JB ,KYKK 。減 CALL D10MS JNB ,$ CLR C MOV 75H,01H MOV A,78H SUBB A,75H MOV 75H,A CJNE A,0H,LSAS MOV A,75H MOV A,09H ORL A,09H LSAS:MOV 78H,A JNC LSS MOV A,79H SUBB A,00H DA A MOV 79H,A LSS: JMP KYKK KYKK:RET 。下限加減 KEEY1: JB ,KEEY2 。 減 CALL D10MS JNB ,$ CLR C MOV 98H,00H MOV 75H,01H MOV A,76H ADDC A,75H MOV 76H,A JNC LS1 MOV A,77H ADDC A,00H MOV 77H,A LS1: JMP KYKK KEEY2: JB ,KYKKK 。加 CALL D10MS JNB ,$ MOV 98H,00H MOV 75H,01H MOV A,76H SUBB A,75H MOV 76H,A CJNE A,00H,LSAS1 MOV A,09H ORL A,09H LSAS1: MOV 76H,A JNC LSS1 MOV A,77H SUBB A,00H DA A MOV 77H,A LSS1:JMP KYKKK KYKKK: RET 。正數(shù)下限 QH: JB ,KEEY2 CALL D10MS JNB ,$ MOV 98H,02H QH1: MOV A,79H MOV A,0FH MOV B,0AH ANL A,B MOV 79H,A 西安航空職業(yè)技術(shù)學(xué)院 溫度控制系統(tǒng) 5 MOV 73H,A MOV A,74H MOV B,10 DIV AB MOV 72H,A MOV 71H,B MOV A,00H ANL A,0FH MOV 70H,A LCALL DISP1 LCALL KEEY11 JB ,KYY11 MOV 75H,01H CALL D10MS JNB ,$ JMP KEE11 KYY11: JB ,QH1 。 CALL D10MS JNB ,$ KEE11: RET 。正數(shù)下限加減 KEEY11: JB ,KEY22 。加 CALL D10MS JNB ,$ CLR C MOV 75H,01H MOV A,74H ADDC A,75H MOV 74H,A JNC LS11 MOV A,79H ADDC A,00H MOV 79H,A LS11:JMP KYKK11 KEY22: JB ,KYKK11 。減 CALL D10MS JNB ,$ CLR C MOV 75H,01H MOV A,74H SUBB A,75H MOV 75H,A CJNE A,0H,LSAS11 MOV A,75H MOV A,09H ORL A,09H LSAS11: MOV 74H,A JNC LSS11 MOV A,79H SUBB A,00H DA A MOV 79H,A LSS11: JMP KYKK11 KYKK11: RET DEL50MS:MOV R5,50 D11MS: MOV R4,249 DL11: NOP NOP DJNZ R4,DL11 DJNZ R5,D11MS RET 。 子程序區(qū) 。*************************** 。 RESET DS18B20 。*************************** INITDS1820:SETB TEMPDIN NOP NOP 西安航空職業(yè)技術(shù)學(xué)院 溫度控制系統(tǒng) 6 CLR TEMPDIN MOV R6,0A0H DJNZ R6,$ MOV R6,0A0H DJNZ R6,$ SETB TEMPDIN MOV R6,32H DJNZ R6,$ MOV R6,3CH LOOP1820: MOV C,TEMPDIN JC INITDS1820OUT DJNZ R6,LOOP1820 MOV R6,64H DJNZ R6,$ SJMP INITDS1820 RET INITDS1820OUT: SETB TEMPDIN RET 。******************************** 。讀 DS18B20的程序 ,從 DS18B20中讀出一個(gè)字節(jié)的數(shù)據(jù) 。********************************** READDS1820:MOV R7,08H SETB TEMPDIN NOP NOP READDS1820LOOP: CLR TEMPDIN NOP NOP NOP SETB TEMPDIN MOV R6,07H DJNZ R6,$ MOV C,TEMPDIN MOV R6,3CH DJNZ R6,$ RRC A SETB TEMPDIN DJNZ R7,READDS1820LOOP MOV R6,3CH DJNZ R6,$ RET 。************************************** 。寫(xiě) DS1820的程序 ,從 DS18B20中寫(xiě)一個(gè)字節(jié)的數(shù)據(jù) 。************************************** WRITEDS1820: MOV R7,08H SETB TEMPDIN NOP NOP WRITEDS1820LOP: CLR TEMPDIN MOV R6,07H DJNZ R6,$ RRC A MOV TEMPDIN, C MOV R6,34H DJNZ R6,$ SETB TEMPDIN DJNZ R7,WRITEDS1820LOP RET 。*********************************************** 。 READ TEMP 。*********************************************** 西安航空職業(yè)技術(shù)學(xué)院 溫度控制系統(tǒng) 7 READTEMP: LCALL INITDS1820 MOV A,0CCH LCALL WRITEDS1820 MOV R6,34H DJNZ R6,$ MOV A,44H LCALL WRITEDS1820 MOV R6,34H DJNZ R6,$ RET READTEMP1: LCALL INITDS1820 MOV A,0CCH LCALL WRITEDS1820 MOV R6,34H DJNZ R6,$ MOV A,0BEH LCALL WRITEDS1820 MOV R6,34H DJNZ R6,$ MOV R5,09H MOV R0,TEMPHEAD MOV B,00H READTEMP2: LCALL READDS1820 MOV @R0,A INC R0