【正文】 H AJMP MAIN ORG 0003H LJMP TIAOWEN ORG 0013H LJMP DANDU ORG 0100H MAIN:MOV P1,0F8H。報警電路初始化 MOV 20H,0。溫度限值設置 MOV 21H,100 MOV SP,60H。堆棧初始化 MOV DPTR,07FFFH。ADC0809初始化 MOV A,90H MOVX @DPTR,A SETB EA。開中斷 SETB EX0 SETB EX1MAINI: MOV 22H,100 LCALL DELAYS。定時5秒 LCALL DETECT。A/D轉換 LCALL DISPALM。顯示 LCALL PJZ。求平均值 LJMP MAINIDETECT:CLR EX1 MOV R0,30H MOV P2,18H。指向0通道 MOV R1,08H。置通道數(shù) MOV DPTR,18FFH。A口地址給指針LOOP: CLR 。開啟轉換 SETB CLR MOV R2,20HDELY: DJNZ R2,DELY JNB ,$ MOVX A,@DPTR。取轉換值 PUSH DPH PUSH DPL MOV 25H,A MOV 27H,0 CLR AQUZHI: MOV DPTR,TTAB MOVC A,@A+DPTRDBJ: CJNE A,25H,XBJ SJMP NEXXTXBJ: JNC MBJ INC 27H MOV A,27H LJMP QUZHIMBJ: DEC 27HNEXXT: MOV @R0,27H POP DPL POP DPH INC P2。下一個通道 INC R0 DJNZ R1,LOOP SETB EX1 RETDISPALM:MOV R0,30H MOV R1,00H MOV R2,08HDISLOOP:MOV A,@R0 CJNE A,20H,LP1LP1: JC LMIN CJNE A,21H,LP2LP2: JNC GMAX MOV DPTR,03FFFH LCALL BCD MOVX @DPTR,A MOV DPTR,05FFFH MOV A,R1 SWAP A ORL A,0FH MOVX @DPTR,A SJMP NEXTLMIN: MOV P1,0FEH MOV DPTR,03FFFH MOV A,0AAH MOVX @DPTR,A MOV DPTR,05FFFH MOV A,R1 ORL A, 0F0H MOVX @DPTR,A SJMP NEXTGMAX: MOV P1,0FDH MOV DPTR,03FFFH MOV A,0BBH MOVX @DPTR,A MOV DPTR,05FFFH MOV A,R1 ORL A,0F0H MOVX @DPTR,ANEXT: MOV 22H,20 LCALL DELAYS INC R0 INC R1 DJNZ R2,DISLOOP RETPJZ: MOV 40H, 0 MOV 41H, 0 MOV R0, 30HLOP: MOV A, 41H ADD A, @R0 MOV 41H, A JNC $ + 4 INC 40H INC R0 CJNE R0, 38H, LOP MOV A, 41H ANL A, 0F8H ADD A, 40H RL A SWAP A MOV 50H, A 。平均值整數(shù). MOV A,41H MOV B,8 DIV AB XCH A,B MOV B,100 MUL AB MOV 40H,B MOV 41H,A MOV A, 41H ANL A, 0F8H ADD A, 40H RL A SWAP A MOV 51H, A MOV DPTR,03FFFH MOV A,50H LCALL BCD MOVX @DPTR,A MOV A,51H LCALL BCD MOV DPTR,05FFFH MOVX @DPTR,A RETTIAOWEN: PUSH PSW PUSH ACCTU1: MOV A,P1 JNB ,EI0 JNB ,EI1 JNB ,EI2 JNB ,EI3 JB ,TU1 POP ACC POP PSW RETIEI0: MOV A,20H。比較大小 CJNE A,63H,EI00。如果不等于100，則轉移再判斷EI00:JNC EEI1。判斷是否比一百小，如果是順序執(zhí)行加一；如果大于則等待 INC 20H MOV A,20H LCALL BCD MOV DPTR,05FFFH MOVX @DPTR,A LCALL DELAY0S LJMP TU1EI1: MOV A,20H。比較大小 JZ EEI1。如果為0則等待 DEC 20H MOV A,20H LCALL BCD MOV DPTR,05FFFH MOVX @DPTR,A LCALL DELAY0S LJMP TU1EI2: MOV A,21H。比較大小 CJNE A,63H,EI20。如果不等于100，則轉移再判斷EI20:JNC EEI2。判斷是否比一百小，如果是順序執(zhí)行加一；如果大于則等待 INC 21H MOV A,21H LCALL BCD MOV DPTR,03FFFH MOVX @DPTR,A LCALL DELAY0S LJMP TU1EI3: MOV A,21H。比較大小 JZ EEI2。如果為0則等待 DEC 21H MOV A,21H LCALL BCD MOV DPTR,03FFFH MOVX @DPTR,A LCALL DELAY0S LJMP TU1EEI1: MOV A,0EEH MOV DPTR,05FFFH MOVX @DPTR,A LJMP TU1EEI2: MOV A,0EEH MOV DPTR,03FFFH MOVX @DPTR,A LJMP TU1DANDU: PUSH PSW PUSH ACCTU4: MOV R0,30H MOV R1,00H MOV R2,09H TU3: JB ,TU2 MOV A,@R0 MOV DPTR,05FFFH LCALL BCD MOVX @DPTR,A MOV DPTR,03FFFH MOV A,R1 SWAP A ORL A,0FH MOVX @DPTR,A INC R0 INC R1 LCALL DELAY0S DJNZ R2,TU3 。如果R2為零轉中斷程序的開始，判讀是否重新開始 LCALL DELAY0S LCALL PJZ LJMP TU4TU2: JB ,TU3 POP ACC POP PSW RETI 。如果按鍵不為零且R2不為零，跳中斷開始判斷是否停止中斷DELAYS: MOV R7,22H MOV TMOD,01HMAIN2:MOV TH0,3CH MOV TL0,0B0H CLR ET0 SETB TR0 WATT:JBC TF0,WAVE SJMP WATTWAVE:DJNZ R7,MAIN2 RETDELAY0S:MOV R6,2D1: MOV R5,0FFHD2: MOV R4,0FFH DJNZ R4,$ DJNZ R5,D2 DJNZ R6,D1 RETBCD: MOV B,100 DIV AB MOV R3,A MOV A,10 XCH A,B DIV AB SWAP A ORL A,B RET TTAB:DB 0,5,10,15,21,26,31,36,41,46,51,56,61,66,70,75,80,85,89,94,98,102,107,111,115,119,123,127,131,135 DB 138,142,146,149,152,156,159,162,165,168,171,174,177,179,182,185,187,189,192,194,196,199,201,203,205,207 DB 209,210,212,214,216,217,219,220,222,223,225,226,228,229,230,231,233,234,235,236,237,238,239,240,241,242,243,244 DB 245,245,246,247,248,248,249,250,251,251,252,252,253,254,254,255END