【正文】 LI0:MOV A,69H DEC A MOV 69H,A。保存KI值 LCALL CHE MOV 16H,49H MOV 17H,4AH MOV R3,69H MOV R6,00H MOV R0,13H LCALL WREPROM LJMP LOP1LP1: MOV A,68H INC A MOV 68H,A。保存KP值 LCALL CHE MOV 16H,49H MOV 17H,4AH MOV R3,68H MOV R6,00H MOV R0,14H LCALL WREPROM LJMP LOP1LP0:MOV A,68H DEC A MOV 68H,A。保存KP值 LCALL CHE MOV 16H,49H MOV 17H,4AH MOV R3,68H MOV R6,00H MOV R0,14H LCALL WREPROM LJMP LOP1LDD1:MOV A,6AH INC A MOV 6AH,A。保存KD值 LCALL CHE MOV 16H,49H MOV 17H,4AH MOV R3,6AH MOV R6,00H MOV R0,15H LCALL WREPROM LJMP LOP1LDD0:MOV A,6AH DEC A MOV 6AH,A。保存KD值 LCALL CHE MOV 16H,49H MOV 17H,4AH MOV R3,6AH MOV R6,00H MOV R0,15H LCALL WREPROM LJMP LOP1 TIMS:MOV R7,200。延時子程序。TIM:MOV R6,250TIM0:DJNZ R6,TIM0DJNZ R7,TIMRETDELAY:MOV R2,0AH。延時1S DE1:CALL TIMS DJNZ R2 ,DE1 RETDela2: mov r7, 00H 。 延時子程序DELAYLOOP1: MOV R6,00HDelayLoop: djnz r6, DelayLoop djnz r7, DelayLoop1 ret。7279初始化 R7279:CLR MOV R6,0CH G0:DJNZ R6,G0 MOV A,0A4H ACALL STFS MOV R6,02H G1:DJNZ R6,G1 SETB RET。送一字節(jié)子程序 STFS:MOV R7,08H B1:RLC A MOV ,C SETB MOV R6,02H B2:DJNZ R6,B2 CLR MOV R6,02H B3:DJNZ R6,B3 DJNZ R7,B1 RET。接收一字節(jié)子程序 STJS:MOV R7,08H A1:SETB SETB MOV R6,02H A2:DJNZ R6,A2 MOV C, RLC A CLR MOV R6,01H A3:DJNZ R6,A3 DJNZ R7,A1 RET。7279鍵盤子程序 KEY:ACALL KEY1 CJNE A,0FFH,X1 CLR 01H RET X1:JB 01H,X2 SETB 01H RET X2:MOV A,0FFH RET。7279顯示子程序：指令碼90H~97H，顯緩區(qū)10H~17HDIR:MOV R5,08H。8個單元 MOV R0,10H。顯緩區(qū)首址 MOV R1,97H。第一個命令 D1:CLR MOV R6,0CH D2:DJNZ R6,D2 MOV A,R1 ACALL STFS MOV R6,06H D3:DJNZ R6,D3 MOV A,@R0 ADD A,0DH MOVC A,@A+PC ACALL STFS MOV R6,02H D4:DJNZ R6,D4 SETB INC R0 DEC R1 DJNZ R5,D1 RET TAB: DB 7EH,30H,6DH,79H,33H,5BH,5FH,70H,7FH,7BH DB 0FH,0DH,67H,3DH,1DH,3DH,09H。拆字子程序，待拆字先存于A中，拆字完后存于 49H,4AH單元中 CHE:MOV B,A SWAP A ANL A,0FH MOV 49H,A MOV A,B ANL A,0FH MOV 4AH,A RETKEY1:CLR MOV R6,0CH M1:DJNZ R6,M1 MOV A,15H ACALL STFS MOV R6,06H M2:DJNZ R6,M2 ACALL STJS SETB RETINTT0: PUSH ACC。現(xiàn)場保護 PUSH PSW PUSH DPH PUSH DPL SETB MOV TH0,3CH 。定時器賦初值,定時10ms MOV TL0,0B0H INC 3EH LCALL AD0809 LCALL PID LCALL KPID MOV A,3EH CLR C SUBB A,0FFH JC INTTC2 MOV 3EH,00H 。中斷次數(shù)清0 LJMP INTTC2 INTTC2:POP DPL POP DPH POP PSW POP ACC RETIAD0809: MOV R0,50H 。十個數(shù)首地址 MOV R7,0AH 。采樣10次 CY_10:MOV DPTR,0DFF0H MOV A,00H MOVX @DPTR,A MOV R6,40H KLA:NOP DJNZ R6,KLA MOVX A,@DPTR MOV @R0,A INC R0 DJNZ R7,CY_10 LCALL FMAX。去最大值 LCALL FMIN。去最小值 LCALL AVG 。求平均值 MOV A,3FHMOV 60H,A。送目標單LCALL CHAA。數(shù)據(jù)處理子程序 MOV 1CH,61H LCALL CHAB MOV A,1DH MOV 48H,A MOV R0,50H 。十個數(shù)首地址 MOV R7,0AH 。采樣10次CY_11:MOV DPTR,0DFF1H MOV A,01H MOVX @DPTR,A MOV R6,40HKLAA:NOP DJNZ R6,KLAA MOVX A,@DPTR MOV @R0,A INC R0 DJNZ R7,CY_11 LCALL FMAX。去最大值 LCALL FMIN。去最小值 LCALL AVG 。求平均值 MOV A,3FH MOV 60H,A。送目標單元 LCALL CHAA。數(shù)據(jù)處理子程序 MOV 1CH,61H LCALL CHAB MOV A,1DH MOV 49H,A。轉換后的十進制數(shù)存于4CH，4DH單元 RET CHAA: 。*50放入R2R3入口60H，出口61h MOV B,32H MOV A,60H MUL AB 。MOV R2,B 。MOV R3,A MOV 61H,B RET CHAB: MOV R7,08H。二到十轉換,入口1CH,出口1DH MOV 1DH,00H LP:CLR C MOV A,1CH RLC A MOV 1CH,A MOV A,1DH ADDC A,1DH DA A MOV 1DH,A DJNZ R7,LP RET FMIN:MOV R7,08H 。求最小的數(shù) MOV R0,50HLP2: MOV A,@R0 INC R0 CLR C SUBB A,@R0 JNC DONE1 MOV A,@R0 DEC R0 XCH A,@R0 INC R0 MOV @R0,ADONE1:DJNZ R7,LP2 RETAVG:MOV R7,08H MOV R0,50H MOV R3,00H MOV R4,00HLP3:MOV A,@R0 ADD A,R4 MOV R4,A MOV A,R3 ADDC A,00H MOV R3,A INC R0 DJNZ R7,LP3 MOV R7,03H LP4:CLR C MOV A,R3 RRC A MOV R3,A MOV A,R4 RRC A MOV R4,A DJNZ R7,LP4 MOV 3FH,R4RETFMAX:MOV R7,09H MOV R0,50HLP31: MOV A,@R0 INC R0 CLR C SUBB A,@R0 JC DONE MOV A,@R0 DEC R0 XCH A,@R0 INC R0 MOV @R0,ADONE:DJNZ R7,LP31 RET 。****************24C02********************** RDEPROM: 。(R6R0所指向的單元中的內(nèi)容R2) ACALL EPROMBE MOV A,R6 RL A ORL A,0A0H MOV R2,A ACALL EPROMWR MOV A,R0 MOV R2,A ACALL EPROMWR ACALL EPROMBE MOV A,R6 RL A ORL A,0A1H MOV R2,A ACALL EPROMWR ACALL EPROMRD ACALL EPROMED RET EPROMBE: 。起始信號子程序 MOV A,P2 SETB MOV P2,A SETB MOV P2,A CLR MOV P2,A CLR MOV P2,A RET EPROMED: 。停止信號子程序 MOV A,P2 CLR MOV P2,A SETB MOV P2,A SETB MOV P2,A CLR MOV P2,A RET