程序复件.docVIP

程序清单： ORG 0000H SJMP MAIN ORG 0030H MAIN : MOV SP, #29H MAIN1 : LOOP00: LCALL READ_TEMP ；读取温度 LCALL FLI LCALL BCD CJNE R5,#4,LOOP0 ；判断温度是否超过50摄氏度 LCALL CLEAR LOOP01: MOV C, P1.3 ；判断红外辐射是否异常 JC LOOP1 LOOP02: MOV C, P1.4 ；判断烟雾是否异常 JC LOOP2 LOOP03: LJMP MAIN1 LOOP0 : JC LOOP01 LCALL CLEAR MOV C, P1.3 ；当温度大于50摄氏度时，进一步判断是否有红外辐射。如果有，发出报警 JC BAOJING MOV C, P1.4 ；如果无红外辐射，判断烟雾是否常 JC BAOJING SJMP LOOP01 LOOP1: ；当有红外辐射时，进一部判断是否温度超过50摄氏度或是否烟雾异常 LCALL READ_TEMP LCALL FLI LCALL BCD CJNE R5, #4, Q2 LCALL CLEAR f2 : MOV C, P1.4 JC BAOJING LJMP LOOP02 Q2: JC f2 LCALL CLEAR LJMP BAOJING LOOP2: LCALL READ_TEMP ； 当烟雾异常时进一部判断是否温度超过50氏度或是否有红外辐射 LCALL LOOP0 LCALL BCD CJNE R5, #4, Q3 LCALL CLEAR ； f3 : MOV C, P1.3 JC BAOJING LJMP LOOP03 Q3: JC f3 LCALL CLEAR LJMP BAOJING BAOJING: MOV R1, #08H ；声光报警 MOV A, #55H MOV P1.6, A LCALL LOAD LCALL DLY1 Q1: MOV A,P1.6 RRC A MOV P1.6, A LCALL LOAD LCALL DLY1 MOV C, P1.3 JC LOOP1 MOV C, P1.4 JC LOOP2 DJNZ R0, F1 LJMP MAIN1 **************************************************************** 功能：从DS18B20中提取温度，并把高字节放在R6中，低字节放在R7 中 其中R7中的高四位放整数部分的低四位，R6中的低四位放整数部分 的高四位，R7的低四位为小数部分。 输出：R6、R7 **************************************************************** READ_TEMP: CLR EA ；使用DS18B20一定要禁止任何中断产生 LCALL RST ；调用初使化子程序 MOV A, #0CCH