片機的多路溫度采集系統(tǒng)程序(編輯修改稿)
2025-02-02 15:58 本頁面
【文章內(nèi)容簡介】 INC R0 。調(diào)整顯示 DJNZ R7,NEXTDIS。 POP PSW。 RET 。**************************延時 1ms**************************** DLY1MS: MOV BUFF1MS,0F9H DJNZ BUFF1MS,$ RET 。*************************按鍵檢查子程序 ******************** KEYCHK:MOV A,00H 。查看是否有鍵按 下 MOV DPTR,0FFDDH MOVX @DPTR,A MOV DPTR,0FFDEH MOVX A,@DPTR CPL A ANL A,0FH JNZ TEST 。若有鍵按下則檢測，無則返回。 MOV A,0FFH RET TEST: LCALL KEYTEST MOV BACK,A LCALL DISPLAY LCALL KEYTEST CJNE A,BACK,NOKEYD WAIT: LCALL DISPLAY。 MOV A,00H 。等待鍵抬起 MOV DPTR,0FFDDH MOVX @DPTR,A MOV DPTR,0FFDEH MOVX A,@DPTR CPL A ANL A,0FH JNZ WAIT 。若鍵未抬起，則繼續(xù)等待 MOV A,BACK 。將檢測到的鍵值送給 A SJMP CHKEND NOKEYD: MOV A,0FFH CHKEND: RET 。**********************按鍵檢測子程序 ******************** KEYTEST: MOV R0,0FEH MOV R1,00H MOV R2,08H NEXTL: MOV A,R0 MOV DPTR,0FFDDH MOVX @DPTR,A MOV DPTR,0FFDEH MOVX A,@DPTR CPL A ANL A,0FH JNZ KEYDWN 。看按下的鍵是否在當前列 DJNZ R2,GOSCAN ?？词欠駫呙柰戤叄魶]有則調(diào)整繼續(xù)掃描 SJMP TSTEND 。若掃描完畢，則返回。 GOSCAN: MOV A,R0 RL A MOV R0,A INC R1 SJMP NEXTL KEYDWN: MOV R3,00H LL0: RRC A JC LL1 INC R3 SJMP LL0 LL1: MOV A,R3 MOV B,A MOV A,8 MUL AB ADD A,R1 。A 中返回的為按下的鍵的代碼 RET TSTEND: MOV A,0FFH RET 。***********延時 1s******************* DLY_1S: MOV TMOD,01H。 SETB ET0。 MOV TH0,0F0H 。10ms MOV TL0,0D8H。 MOV buff1s,100。 SETB TR0。 RET。 。*********定時器 T0 中斷服務程序 ********** INT_T0:CLR TR0 。關計數(shù)器 DJNZ buff1s 。NEXT_10MS。若不到 1s 繼續(xù) SETB READ_AD。若到了，則置標志位 cpl 。 clr et0。 SJMP T0_END。 NEXT_10MS: MOV TMOD,01H MOV TH0,0F0H 。定時 10ms MOV TL0,0D8H SETB TR0 T0_END: RETI 。*************計算子程序，完成一路計算 **************** COMPUTE: MOV A,@R0。 MOV B,04H 。測得的溫度數(shù)乘以 4 MUL AB。 MOV R6,B。 MOV R7,A。 LCALL HB2 。調(diào)用子程序轉化為壓縮 BCD 碼 ,R4,R5 為出口 RET。 HB2: CLR 。BCD 碼初始化 MOV R4,A MOV R5,A MOV R3,10H 。轉換雙字節(jié)十六進制整數(shù) HB3: MOV A,R7 。從高端移出待轉換數(shù)的一位到 CY 中 RLC A MOV R7,A MOV A,R6 RLC A MOV R6,A MOV A,R5 。BCD 碼帶進位自身相加，相當于乘 2 ADDC A,R5 DA A 。十進
公司管理相關推薦
鄂ICP備17016276號-1