【正文】 TIME0:MOV TH0,3CHMOV TL0,0B0HINC R2CJNE R2,20,L1CPL AMOV R2,0L1:RETIEND//顯示子程序//DISPLAY:MOV R0,79H MOV R3,01H MOV A,R3LD0:MOV DPTR,7F01H MOV DPTR,A INC DPTR MOV A,R0 ADD A,0DHMOVC A,A+PCDISPLAY1:MOVX DPTR,A ACALL DL1ms INC R0 MOV A,R3 JB ,DISPLAY1RL A MOV R3,AAJMP LD0DISPLAY 1:RETDSEG: DB 0c0H,0fgH,0a4H,0b0H,99H DB 92H,82H,0f8H,80H,90HDISPLAY 1ms:MOV R7,02HDL:MOV R6,0FFHDL6:DJNZ R6,DL6 DJNZ R7,DL RET//AD轉(zhuǎn)換程序//ADCS BIT ADCLK BIT ADD0 BIT ADD1 BIT MOV B,00HADCONV:SETB ADD1 NOP NOP CLR ADCS NOP NOPSETB ADCLK NOP NOPCLK ADCLK MOV A,B MOV C,MOV NOPNOPSETB ADCLKNOPNOPCLR ADCLKMOV A,BMOV C,MOV NOP NOPSETB ADCLKNOPNOPCLR ADCLKSETB ADD1NOPNOPMOV R7,8AD_1: MOV C,ADD0MOV ,CRL A SETB ADCLKNOPNOPDJNZ R7,AD_1MOV C,ADD0MOV ,CMOV B,AMOV R7,8AD_13:MOV C,ADD0MOV ,CRR ASETB ADCLK NOPNOPCLR ADCLKNOP NOPDJNZ R7,AD_13CJNE A,B,ADCONVSETB ADCSCLR ADCLKSETB ADD0RET//鍵盤子程序//KEY1: ACALL KS1 JNZ LK1NI:ACALL DIR AJMP KEY1LK1:ACALL DIR ACALL DIR ACALL KS1 JNZ LK2 ACALL DIR AJMP KEY1LK4:MOVX A,DPTR JB ,LONE MOV A,00H AJMP LKPLONE:JB ,LTW0MOV A,08H AJMP LKPLTW0:JB ,LTHR MOV A,10H AJMP LKPLTHR:JB ,NEXT MOV A,18HLKP:ADD A,R4 PUSH ALK3:ACALL DIRACALL KS1JNZ LK3POP ARET KS1:MOV DPTR,7F01HINC DPTR INC DPTRMOVX A,DPTRCPL AANL A,0FHRET//PID算法程序//PID:MOV R5,31H MOV R4,32H MOV R3,2AHMOV R2 ,00HACALL CPL1ACALL DSUMMOV 39H ,R7MOV 3AH ,R6MOV R5 ,35HMOV R4 ,36HMOV R0 ,4AHACALL MULT1 MOV R5 ,39HMOV R4 ,3AHMOV R3 ,3BHMOV R3 ,3CHACALL CPL1ACALL DSUMMOV R5 ,33HMOV R4 ,DSUM MOV R0, 46HACALL NULT1 MOV R5 ,49HMOV R4 ,48HMOV R3 ,4DHMOV R2 4CHACALL DSUM MOV 4AH ,R7MOV 4BH,R6MOV R5,39HMOV R4,3AHMOV R3,3DHMOV R2,3EHACALL DSUMMOV R5,R7MOV R4,R6MOV R3,3BHMOV R2,3CHACALL CPL1ACALL DSUMMOV R5,R7 MOV R4,R6 MOV R3,3BHMOV R2,3CHACALL CPL1 ACALL DSUM MOV R5,37HMOV R4,38HMOV R0,46HACALL MULT MOV R5,49HMOV R4,48HMOV R3,4AHMOV R2,4BHACALL DSUM MOV R3,R7 MOV R2,R6 MOV R5,2FH MOV R4,30HACALL DSUM MOV 2FH,R7 MOV 30H,R6MOV 3DH,3BHMOV 3EH,3CHMOV 3BH ,39H MOV 3CH,3AHRET 45。 DJNZ R5, PtJXRD MOV R1,A DEC R1 DJNZ R4, PtJXRD1 SETB PtDQ RET READ_Pt_1: SETB PtDQ MOV R7,5 DJNZ R7,$ MOV C, PtDQ RRC A LCALL DELAY60US SETB PtDQ NOPNOPCLR PtDQ PtJXRD2:SETB tDQ PtJXRD3:MOV R5,8 MOV R1, PtCD1 DJNZ R5, PtJXWERETREAD_Pt_CODE:MOV R4,8 CLR PtDQCLR PtDQMOV R7,5DJNZ R7,$ CLR CRRC AMOV PtDQ,CLCALL DELAY60US SETB PtDQDJNZ R7,$MOV R7,100DJNZ R7,$RETTEMP0:INC AAJMP TEMP1TEMPCOV:MOV A, PtSL TEMPCOV:MOV B,16DIV ABJB ,TEMP0TEMP1: MOV 34H,A 34HMOV A,B MOV B,10MUL ABMOV B,16DIV ABMOV 30H,A MOV A, PtSH MOV B,16MUL ABADD A,34H MOV B,10DIV ABMOV 31H,B MOV B,10 DIV AB MOV 32H,B MOV B,10 DIV AB MOV 35H,B MOV A, PtSHMOV 33H,10H JB ,EXIT7MOV 33H,00HEXIT7:RETGET_TEMPER: SETB PtDQLCALL INIT_Pt JB PtFIG,TSS2RET TSS2: MOV PtADS,0PtJX:LCALL PtCODPMOV A, PtADSADD A,9MOV PtADS,ACJNE A,63, PtJXRETPtCODP:LCALL MRCOVT LCALL MRRDTEDP RETTEMP:LCALL INIT_PtJB PtFIG,NEXT4RETNEXT4:MOV PtADS,9MOV A,0CCH LCALL WRITE_PtMOV A,44H LCALL WRITE_PtLCALL DELAY1SLCALL MRRDTEDPRETWRITE_Pt:MOV R5,8PtJXWE:SETB PtDQ MOV