【正文】 L0 ， START0809 LCALL SUMDIV8 SETB RSP LCALL BDCONVERT LCALL DISPBCD LCALL DISP1 LJMP MAIN附錄三 子程序區(qū) 讀溫濕度子程序READTEMP： LCALL INITDS1820 MOV A ， 055H LCALL WRIEDS1820 LCALL MATCHROM MOV R6 ， 34H ；DELAY104s DJNZ R6 ， $ MOV A ， 44H LCALL WRITEDS1820 ；START CONVERSION MOV R6 ， 34H ；DELAY104s DJNZ R6 ， $ RETREADTEMP1： LCALL INITDS1820 MOV A ， 055H LCALL WRIEDS1820 LCALL MATCHROM MOV R6 ， 34H ；DELAY104s DJNZ R6 ， $ MOV A ， 0BEH LCALL WRITEDS1820 ；READ SCATCHPAD MOV R6 ， 34H ；DELAY104s DJNZ R6 ， $ MOV R5 ， 09H MOV R0 ， TEMPHEAD MOV B ， 00HREADTEMP2： LCALL READDS1820 MOV @R0 ， A INC RREADTEMP21:LCALL CRC8CAL DJNZ R5 , READTEMP2 MOV A ， B JNZ READTEMPOUT MOV A ， TEMPHEAD+0 MOV TEMPL , A MOV A ， TEMPHEAD+1 MOV TEMPH , AREADTEMPOUT:RET2 、顯示子程序顯示數(shù)據(jù)在70H——76H單元內(nèi)，用7位LED共陽數(shù)碼管顯示，PB口輸出段碼數(shù)據(jù)，PA口作位控制，每個LED數(shù)碼管亮1sm時間再逐位循環(huán)。DISP1： MOV R1 ， 70H ；指向顯示數(shù)據(jù)首址 MOV R5 ， 01H ；掃描控制字初值PLAY： MOV DPTR ， 6000H ； MOV A ， FEH ； MOVX @DPTR ， A ；從PA口輸出 MOV A ， @R1 ；取顯示數(shù)據(jù)到A MOV DPTR ， TAB ；取段碼表地址 PUSH A MOV A ， R5 JNB ， N02 ；小數(shù)點處理 POP A RLC A CLR A RRC A SJMP L00P7N02： POP ALOOP7： MOVX @DPTR ， A ；段碼放入PB口 LCALL DLIMS ；顯示1sm INC R1 ；指向下一地址 MOV A ， R5 ；掃描控制字放入A JB ， ENDOUT ；=0時顯示一次結束 RL A ；A中數(shù)據(jù)循環(huán)左移 MOV R5 ， A ；放入R5中 AJMP PLAY ；跳回PLAY循環(huán)ENDOUT： MOV DPTR ， 4000H MOV A ， 00H ；一次顯示結束PA口復位 MOVX @DPTR ， A INC DPTR MOV A ， 0FFH ；PB口復位 MOVX @DPTR ， A RET ；子程序返回TAB： DB 0C0H，0F9H，0A4H，0B0H，99H，92H，82H，0F8H，80H，90H，0FFH DB 0BFH，88H，8CH共陽段碼表 “0”“1”“2”“3”“4”“5”“6”“7”“8”“9”“不亮”“—”“R”“P”DLNMS： MOV R6 ， 14H ；1ms延時程序，LED顯示程序用DL1： MOV R7 ， 19HDL2： DJNZ R7 ， DL2 DJNZ R6 ， DL1單字節(jié)十六進制轉(zhuǎn)換BCDHEX2BCD： MOV B ， 064H ；十六進制→BCD DIV AB ；B=A%100 MOV R7 ， A ；R7=百位 MOV A ， 0AH XCH A ， B DIV AB ；B=%B SWAP A ；十位 ORL A ， B ；十位和個位 RET 延時子程序DELAYIS： MOV 40H ，04HDEL100： MOV 41H ，0FFHDEL10： MOV 42H ，0FFHDEL1： DJNZ 42H ， DEL1； DJNZ 41H ， DEL10 DJNZ 40H ， DEL100 RET 溫度求平均值子程序SUMDIV5TEMP ：PUSH PSW MOV R5， 00H CLR CY MOV R0， 26H MOV A， @R0GO: INC R0 INC R0 ADDC A, R0 JNC GO INC R5CJNE R0, 2FH GO MOV TEMPL A MOV A,R5 MOV R4,00H ADDC A,@R0 LJMP GCGO1： INC R0 INC R0 ADDC A, R0 JNC GO1 INC R4CJNE R0, 30H，GO1 MOV R2, 00H MOV R4, A MOV R5, TEMPL MOV R6, 00H MOV R7, 05H LCALL NDIVI6 MOV TEMPL R5 MOV TEMPH R4POP PSW RET 求大棚平均濕度子程序SUMDIV8RS：PUSH R0 PUSH DPTR MOV R4 ，00H MOV R3 ，00H MOV DPTR，1EA3H MOV A ，00HS8： ADDC A ，@DPTR JNC NC INC R4 CLR CYNC： INC DPTR INC DPTR INC DPTR INC R3 CJNE R3 ，08H ，S8 MOV R5， A MOV R6 ，00H MOV R7 ，08H MOV R2 ，00H MOV R3 ，00H LCALL NDIV16 MOV TEMPH ，00H PUSH DPTR PUSH R1 RET31