【正文】 DJNZ R6 , LOOP1820 MOV R6 , 064H DJNZ R6 , $ SJMP INITDS1820 RETINITDS1820OUT: SETB TEMPDIN RET讀DS1820子程序READDS1820: MOV R6 , 064H 。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時顯示一次結(jié)束 RL A ；A中數(shù)據(jù)循環(huán)左移 MOV R5 ， A ；放入R5中 AJMP PLAY ；跳回PLAY循環(huán)ENDOUT： MOV DPTR ， 4000H MOV A ， 00H ；一次顯示結(jié)束PA口復(fù)位 MOVX DPTR ， A INC DPTR MOV A ， 0FFH ；PB口復(fù)位 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é)十六進(jìn)制轉(zhuǎn)換BCDHEX2BCD： MOV B ， 064H ；十六進(jìn)制→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 PWS 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 PWS 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 PESH DPTR PESH R1 RET濕度數(shù)據(jù)保存子程序SAVE0809： PLSH PTR PLAH A MOV A ， 08H SEBB A ， TEMPL0 MOV R3， A ；數(shù)據(jù)編號 MOV B ， 03H MUL AB ；計算偏移量 MOV R4， A MOV A ， IEH MOV DPTH ， A MOV A ， AON MOV DPTH ， A ；數(shù)據(jù)首地址 CLR CY ADDC A ， R4 MOV DPTL ， A MOV A ， 00H ；第一個單元送0 MOVX DPTR， A INC DPTR INC A MOV A ， R3 MOVX DPTR， A ；第二個單元送編號 INC DPTR MOV A ， TEMPH MOVX DPTR， A ；第三個單元送濕度高位 POP A POP DPTR RET共 36 頁 第 36 頁