片機(jī)的多路溫度采集系統(tǒng)程序-資料下載頁
2025-01-06 15:58本頁面
【正文】 F5S,05H 。初始化 5s 計(jì)時(shí) MOV R2,CHANNEL。 POP PSW。 RET 。調(diào)整完畢，返回 WARNSET:JNB SETIN,INSET 。若未設(shè)定通道，先進(jìn)行設(shè)定 LJMP SETTEMP 。若已設(shè)定則跳轉(zhuǎn)到溫度設(shè)定處 INSET: MOV CHANNEL,A RET SETTEMP:JB SETH,HIGHSET 。設(shè)定溫度警告上限 JB SETL,LOWSET 。設(shè)定溫度警告下限 RET HIGHSET: LCALL READTEMP MOV R0,WH 。調(diào)整 R0 使其指向溫度上限存儲(chǔ)區(qū) LJMP STORESET LOWSET: LCALL READTEMP MOV R0,WL 。 調(diào)整 R0 使其指向溫度下限存儲(chǔ)區(qū) STORESET:MOV A ,TEMPBUF。 LCALL COMPACT 。將輸入的數(shù)轉(zhuǎn)化為 16 進(jìn)制數(shù)存儲(chǔ) (未改變 R0) MOV R2,CHANNEL 。送入要調(diào)整到的位置 LCALL PADJUST 。調(diào)用調(diào)整子程序 MOV @R0 ,A 。 將溫度值送到相應(yīng)的位置 RET READTEMP: JB ABYTEIN,READLOW。若已經(jīng)有一位讀入則讀取低位 READHIGH: SWAP A。 MOV TEMPBUF,A。 SETB ABYTEIN。 RET。 READLOW: ORL A,TEMPBUF。 MOV TEMPBUF,A。 CLR ABYTEIN。 RET。 。**********將輸入溫度值轉(zhuǎn)化為 16 進(jìn)制數(shù) ********** COMPACT: MOV R2,A。 ANL A,0FH 。分離出十進(jìn)制數(shù)的低位 SWAP A。 MOV R3,A。 MOV A,R2。 ANL A,0F0H 。分離出十進(jìn)制數(shù)的高位 SWAP A。 MOV R2,A。 LCALL BH2 。將雙字節(jié) BCD 碼轉(zhuǎn)化為十六進(jìn)制整數(shù) MOV A,R2 。將 R2R3 中的數(shù)除以 4 CLR C。 RRC A。 MOV R2,A。 MOV A,R3。 RRC A。 MOV R3,A MOV A,R2。 RRC A。 MOV A,R3 RRC A 。轉(zhuǎn)換完畢 A 中為要得到的 16 進(jìn)制數(shù) RET。 。*********雙字節(jié) BCD 碼整數(shù)轉(zhuǎn)換成雙字節(jié)十六進(jìn)制整數(shù) ********* BH2: MOV A,R3 。將低字節(jié)轉(zhuǎn)換成十六進(jìn)制 LCALL BCDH MOV R3,A MOV A,R2 。將高字節(jié)轉(zhuǎn)換成十六進(jìn)制 LCALL BCDH MOV B,100 。擴(kuò)大一百倍 MUL AB ADD A,R3 。和低字節(jié)按十六進(jìn)制相加 MOV R3,A CLR A ADDC A,B MOV R2,A RET 。*******單字節(jié) BCD 碼整數(shù)轉(zhuǎn)換成單字節(jié)十六進(jìn)制整數(shù) BCDH: MOV B,10H 。分離十位和個(gè)位 DIV AB MOV R4,B 。暫存?zhèn)€位 MOV B,10 。將十位轉(zhuǎn)換成十六進(jìn)制 MUL AB ADD A,R4 。按十六進(jìn)制加上個(gè)位 RET 。********初始化 WH 和 WL******** INITWARN: MOV R0,WH。 MOV A,0AFH。 MOV R7,08H。 INITHIGH: MOV @R0,A。 DJNZ R7,HIGHINC。 SJMP ENDHIGH。 HIGHINC: INC R0。 SJMP INITHIGH。 ENDHIGH: MOV R0,WL。 MOV A,04BH。 MOV R7,08H。 INITLOW: MOV @R0,A。 DJNZ R7,LOWINC。 SJMP ENDLOW。 LOWINC: INC R0。 SJMP INITLOW。 ENDLOW: RET。 。***********外部中斷 0 的服務(wù)程序 ********** 。完成一個(gè)循環(huán)的數(shù)據(jù)讀取 INT_0: CLR EX0 。 若轉(zhuǎn)換完畢關(guān)中斷 MOV DPTR,0FFFEH。 MOVX A,@DPTR 。讀取轉(zhuǎn)換完畢后的數(shù) MOV @R0,A 。將轉(zhuǎn)換完畢的數(shù)保存 DJNZ R6,READNEXT。若未讀取完畢則調(diào)整后繼續(xù) LCALL DLY_1S。 SJMP EX0_END。 READNEXT: INC R0。 INC INNAL。 MOV A,INNAL。 MOVX @DPTR,A 。再次啟動(dòng) AD0809 SETB EX0 。開外部中斷 0 EX0_END: RETI。 TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H DB 80H,90H,88H,83H,0C6H,0A1H,86H,8EH DB 0FFH,089H,0C7H。 END
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1