片機(jī)的多路溫度采集系統(tǒng)程序-wenkub.com
2025-01-03 15:58 本頁面
【正文】 開外部中斷 0 EX0_END: RETI。 INC INNAL。將轉(zhuǎn)換完畢的數(shù)保存 DJNZ R6,READNEXT。完成一個循環(huán)的數(shù)據(jù)讀取 INT_0: CLR EX0 。 SJMP INITLOW。 INITLOW: MOV R0,A。 SJMP INITHIGH。 INITHIGH: MOV R0,A。按十六進(jìn)制加上個位 RET 。*******單字節(jié) BCD 碼整數(shù)轉(zhuǎn)換成單字節(jié)十六進(jìn)制整數(shù) BCDH: MOV B,10H 。將低字節(jié)轉(zhuǎn)換成十六進(jìn)制 LCALL BCDH MOV R3,A MOV A,R2 。 MOV A,R3 RRC A 。 MOV A,R3。將雙字節(jié) BCD 碼轉(zhuǎn)化為十六進(jìn)制整數(shù) MOV A,R2 。 ANL A,0F0H 。 ANL A,0FH 。 CLR ABYTEIN。 SETB ABYTEIN。調(diào)用調(diào)整子程序 MOV R0 ,A 。 調(diào)整 R0 使其指向溫度下限存儲區(qū) STORESET:MOV A ,TEMPBUF。若已設(shè)定則跳轉(zhuǎn)到溫度設(shè)定處 INSET: MOV CHANNEL,A RET SETTEMP:JB SETH,HIGHSET 。 POP PSW。 LCALL PADJUST 。 MOV CHANNEL,A 。根據(jù) SOLIDISP 的值調(diào)顯示 PUSH PSW。 K6: RET KEYTABLE: db 07h,04h,08h,05h,09h,06,0Ah 。 CLR SETH。 RET。 K1: CJNE A,04H,K2 MOV A,0FFH SETB SETIN SETB SETL 。************鍵位調(diào)整程序 ************ KEYFUNC: MOV DPTR,KEYTABLE ANL A,0FH 。將紅燈報警信息送出 MOV DPTR,0FBFFH 。壓入紅燈信號 MOV BUFFH,A MOV A,R1 。R7 為循環(huán)次數(shù) WLOOP:MOV A,R0 MOV ALARMBUF,R1 。 。從高端移出待轉(zhuǎn)換數(shù)的一位到 CY 中 RLC A MOV R7,A MOV A,R6 RLC A MOV R6,A MOV A,R5 。調(diào)用子程序轉(zhuǎn)化為壓縮 BCD 碼 ,R4,R5 為出口 RET。測得的溫度數(shù)乘以 4 MUL AB。 NEXT_10MS: MOV TMOD,01H MOV TH0,0F0H 。若不到 1s 繼續(xù) SETB READ_AD。 。10ms MOV TL0,0D8H。A 中返回的為按下的鍵的代碼 RET TSTEND: MOV A,0FFH RET 。看按下的鍵是否在當(dāng)前列 DJNZ R2,GOSCAN 。等待鍵抬起 MOV DPTR,0FFDDH MOVX DPTR,A MOV DPTR,0FFDEH MOVX A,DPTR CPL A ANL A,0FH JNZ WAIT 。查看是否有鍵按 下 MOV DPTR,0FFDDH MOVX DPTR,A MOV DPTR,0FFDEH MOVX A,DPTR CPL A ANL A,0FH JNZ TEST 。 POP PSW。顯示小數(shù)點 ANL A,07FH NODIP: MOV DPTR,0FFDCH MOVX DPTR,A 。壓棧保護(hù) SETB RS0。開外部中斷0 RET 。A0 作為地址 MOV A,00H 。 。 ANL A,0F0H。 ANL A,0FH。 SWAP A。 MOV R1,A 。消隱 SJMP DISP2 DISPH: MOV A,11H SJMP DISP2 DISPL: MOV A,12H DISP2: mov r1,a。將路數(shù)送入顯示 緩沖區(qū) INC R1 。**************** 將當(dāng)前指針指向數(shù)據(jù)放到緩沖區(qū) ******** LOADTEMP: LCALL COMPUTE 。指針指向 R2 ADJEND: LCALL LOADTEMP 。將指針調(diào)整到溫度上限存放區(qū) SJMP ADAPT 。 LJMP ADJEND DISPWARN: JB SETH,DISHIGH 。調(diào)整 R2 mov channel,r2。若在設(shè)定溫度，則也不調(diào)整顯示 JB SOLIDISP, ADJEND 。
公司管理相關(guān)推薦
鄂ICP備17016276號-1