【正文】 圖 顯示電路 P7187 紅外傳感電路 如圖 是紅外熱釋傳感器的工作電路圖，該電路有放大和濾波功能。 （ 4） 觀察現(xiàn)象。 19 5 源程序 TEMP_ZH DATA 24H TEMPL DATA 25H TEMPH DATA 26H TEMP_TH DATA 27H TEMP_TL DATA 28H TEMPHC DATA 29H TEMPLC DATA 2AH k0 EQU K1 EQU K2 EQU K3 EQU K4 EQU DATE_SDO DATE_CS DATE_CLK BEEP EQU LCD_X EQU 2FH LCD_RS EQU LCD_RW EQU LCD_EN EQU flag1 equ KEY_UD EQU date_line equ ORG 0000H JMP MAIN MAIN: MOV SP,60H MOV A,00H MOV R0,20H MOV R1,10H CLEAR: MOV R0,A INC R0 DJNZ R1,CLEAR CALL SET_LCD CALL RE_18B20 20 START: CALL RESET JNB FLAG1,START1 CALL MENU_OK CALL READ_E2 CALL TEMP_BJ JMP START2 START1: CALL MENU_ERROR CALL TEMP_BJ JMP $ START2: CALL RESET JNB FLAG1,START1 MOV A,0CCH CALL WRITE MOV A,44H CALL WRITE CALL RESET MOV A,0CCH CALL WRITE MOV A,0BEH CALL WRITE CALL READ call CONVTEMP Call DISPBCD CALL CONV CALL TEMP_COMP CALL PROC_KEY SJMP START2 PROC_KEY:JB K1,PROC_K1 CALL BEEP_BL JNB K1,$ MOV DPTR,M_ALAX1 MOV A,1 CALL LCD_PRINT CALL LOOK_ALARM JB K3,$ 21 CALL BEEP_BL JMP PROC_K2 PROC_K1: JB K2,PROC_END CALL BEEP_BL JNB K2,$ MOV DPTR,RESET_A1 MOV A,1 CALL LCD_PRINT CALL SET_ALARM CALL RE_18B20 CALL WRITE_E2 PROC_K2:CALL MENU_OK CALL TEMP_BJ PROC_END:RET SET_ALARM: CALL RESET_ALARM CALL LOOK_ALARM AS0: JB K1,AS00 CALL BEEP_BL JNB K1,$ CPL AS00: JB ,ASZ01 JMP ASJ01 ASZ01: JB K2,ASZ02 CALL BEEP_BL INC TEMP_TH MOV A,TEMP_TH CJNE A,120,ASZ011 MOV TEMP_TH,0 ASZ011: CALL LOOK_ALARM MOV R5,10 CALL DELAY JMP ASZ01 ASZ02: JB K3,ASZ03 CALL BEEP_BL INC TEMP_TL 22 MOV A,TEMP_TL CJNE A,99,ASZ021 MOV TEMP_TL,00H ASZ021: CALL LOOK_ALARM MOV R5,10 CALL DELAY JMP ASZ02 ASZ03: JB K4,AS0 CALL BEEP_BL JNB K4,$ RET ASJ01: JB K2,ASJ02 CALL BEEP_BL DEC TEMP_TH MOV A,TEMP_TH CJNE A,0FFH,ASJ011 JMP ASJ022 ASJ011: CALL LOOK_ALARM MOV R5,10 CALL DELAY JMP AS0 ASJ02: JB K3,ASJ03 CALL BEEP_BL DEC TEMP_TL MOV A,TEMP_TL CJNE A,0FFH,ASJ021 JMP ASJ022 ASJ021: CALL LOOK_ALARM MOV R5,10 CALL DELAY JMP AS0 ASJ022: CPL JMP ASZ01 ASJ03: JMP ASZ03 RET 23 RESET_ALARM:MOV DPTR,RESET_A1 MOV A,1 CALL LCD_PRINT RET RESET_A1:DB RESET ALERT CODE TEMP_COMP: MOV A,TEMP_TH SUBB A,TEMP_ZH JC CHULI1 MOV A,TEMP_ZH SUBB A,TEMP_TL JC CHULI2 MOV DPTR,BJ5 CALL TEMP_BJ3 RET CHULI1: MOV DPTR,BJ3 CALL TEMP_BJ3 CALL BEEP_BL RET CHULI2: MOV DPTR,BJ4 CALL TEMP_BJ3 CALL BEEP_BL RET TEMP_BJ3: MOV A,0CEH CALL WCOM MOV R1,0 MOV R0,2 BBJJ3: MOV A,R1 MOVC A,A+DPTR CALL WDATA INC R1 DJNZ R0,BBJJ3 RET BJ3:DB H BJ4:DB L BJ5:DB ! 24 TEMP_BJ: MOV A,0CBH CALL WCOM MOV DPTR,BJ1 MOV R1,0 MOV R0,2 BBJJ1: MOV A,R1 MOVC A,A+DPTR CALL WDATA INC R1 DJNZ R0,BBJJ1 RET BJ1:DB 00H,C MENU_OK: MOV DPTR,M_OK1 MOV A,1 CALL LCD_PRINT MOV DPTR,M_OK2 MOV A,2 CALL LCD_PRINT RET M_OK1: DB DS18B20 OK ,0 M_OK2:DB TEMP: ,0 MENU_ERROR:MOV DPTR,M_ERROR1 MOV A,1 CALL LCD_PRINT MOV DPTR,M_ERROR2 MOV A,2 CALL LCD_PRINT RET M_ERROR1: DB DS18B20 ERROR ,0 M_ERROR2:DB TEMP: ,0 RESET: setb date_line nop clr date_line mov r0,6bh mov r1,04h 25 tsr1: djnz r0,$ mov r0,6bh djnz r1,tsr1 setb date_line nop nop nop mov r0,32h tsr2: jnb date_line,tsr3 djnz r0,tsr2 jmp tsr4 tsr3: setb fla