片機的多路溫度采集系統(tǒng)程序(已修改)
2025-01-18 15:58 本頁面
【正文】 ORG 0000H AJMP MAIN。 BUF EQU 40H 。顯示緩沖區(qū) MOTATA EQU 50H 。AD0809 數(shù)據(jù)存放于此 WH EQU 48H 。溫度上限數(shù)據(jù)存放區(qū) WL EQU 58H 。溫度下限數(shù)據(jù)存放區(qū) BUFF1S EQU 38H。 BUFF1MS EQU 39H。 BUFF5S EQU 3AH。 INNAL EQU 3CH。 ALARMBUF EQU 33H BUFFH EQU 31H 。八路 LED 報警信號 紅燈 BUFFL EQU 32H 。八路 LED 報警信號 綠燈 BACK EQU 34H 。利用與 BUF 地址的重復(fù)修改路數(shù) CHANNEL EQU 35H TEMPBUF EQU 36H READ_AD BIT 30H 。是否要讀寫 AD0809 的標(biāo)志位 DISPIN BIT 31H。 SETWARN BIT 32H SOLIDISP BIT 33H ENTER BIT SETH BIT 35H SETL BIT 36H SETIN BIT ABYTEIN BIT ORG 0003H AJMP INT_0。 ORG 000BH LJMP INT_T0 ORG 0100H MAIN: MOV SP, 70H 。設(shè)置堆棧位置 SETB READ_AD 。初始化標(biāo)志位 SETB EA 。開總中斷 CLR SETWARN 。清 除溫度設(shè)置標(biāo)志位 SETB SETIN 。當(dāng)其為 0 時表示要進行通道數(shù)采集 LCALL INITWARN 。初始化溫度上下限 LCALL INIT_2 。初始化 2工作寄存器區(qū) 。主循環(huán)，啟動 ADC0809，從第一個通道開始讀取 LOOP: JNB READ_AD,DIS 。若不讀 AD0809，則調(diào)顯示 ,次標(biāo)志位也表示 1s 延 時結(jié)束 。延時已完畢，則計算要顯示的溫度路數(shù)及溫度值送緩沖區(qū) LCALL WARN 。報警 CLR READ_AD 。清楚標(biāo)志位 LCALL READ 。讀取一次 AD0809 LCALL DLY1MS 。此處加 1ms 的延時，否則數(shù)碼管會因中斷的存在而產(chǎn)生閃動 LCALL ADJUST 。調(diào)整顯示 。在此完成鍵盤檢測及顯示任務(wù) DIS: LCALL DISPLAY。 LCALL KEYCHK 。調(diào)鍵盤檢測子程序 CJNE A,0FFH, AKEY 。若有鍵按下，則跳轉(zhuǎn) LJMP LOOP 。若沒有則循環(huán) AKEY: LCALL KEYFUNC。 CJNE A,0FFH,CALLRPD 。驗證按下的鍵是否為數(shù)字鍵，若是則處理輸入 LJMP LOOP 。不為數(shù)字鍵則返回循環(huán) CALLRPD: LCALL KEYRPD。 SJMP LOOP。 。*********初始化 2工作寄存器區(qū) ************ INIT_2: PUSH PSW 。初始化 2 號工作寄存器區(qū) SETB RS1。 CLR RS0 。選擇 2 號工作寄存器區(qū) MOV R2, 00H 。存放要顯示的路數(shù) CLR DISPIN 。初始化路顯示標(biāo)志位 。 MOV R0, MOTATA 。R0 充當(dāng)指向 MOTATA 的指針 POP PSW。 RET。 。*******調(diào)整指針 ********* PADJUST: ONADJUST: DJNZ R2,INADJUST。 RET。返回 INADJUST: INC R0。 SJMP ONADJUST。 。*************計算并調(diào)整顯示緩存區(qū)的數(shù)據(jù) ******* ADJUST: PUSH PSW 。保護 SETB RS1。 CLR RS0 。選擇 2 號工作寄存器區(qū) CJNE R2,08H,NE08。 GE08: MOV R2,00H。 MOV R0,MOTATA。 SJMP LESS08。 NE08: JNC GE08。 LESS08: JB SETWARN, DISPWARN 。若在設(shè)定溫度，則也不調(diào)整顯示 JB SOLIDISP, ADJEND 。若為固定顯示，則跳過調(diào)整
公司管理相關(guān)推薦
鄂ICP備17016276號-1