PIC单片机温度检测.doc

;*;* heat.asm *;*;* 本程序为热敏电阻输入处理模块程序 ;* 将温度值在LCD特定位置显示 ;* 占用I/O RA1 ;* 使用RAM 3个字节 ;* 程序包括: ;* - TempM 热敏电阻输入处理子程序 ;* - CalTable 温度值校准处理子程序 ;* - Bin2BCDT -二进制数转两位ASCII码子程序 ;* 入口参数 无 ;* 出口参数 TempH,TempL (温度值) ;* #include p16f876a.inc ;定义所用单片机的头文件;* extern InitLCD,putcLCD,SendCmd,clrLCD ;定义外部函数;* heat_group udata ;数据区;*Temp res 1TempH res 1TempL res 1 global TempH global TempL;* PROG_HEAT CODE ;程序区;*CalTable ;温度校正函数 bcfSTATUS,RP0movlw0x3A ;进行校准处理(调整该处值以得到正确的温度值) subwfTemp,w ; addwfPCL,f ;将补偿结果与 PCL相加;*注意:要通过反汇编查看CalTable函数是否跨页(这里的跨页指PCL溢出),若跨页则要调整该函数位置 dt0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5 dt6,6,6,7,7,7,8,8,8,9,9,0xa,0xa,0xb,0xb,0xc,0xc dt0xd,0xd,0xe,0xe,0xf,0xf,0xf,0x10,0x10,0x10 dt0x11,0x11,0x12,0x12,0x12,0x13,0x13,0x14,0x14,0x14 dt0x15,0x15,0x15,0x16,0x16,0x16,0x17,0x17,0x18,0x18 dt0x19,0x19,0x1a,0x1a,0x1b,0x1b,0x1c,0x1c,0x1c dt0x1d,0x1d,0x1d,0x1e,0x1e,0x1f,0x1f,0x20,0x20 dt0x21,0x21,0x22,0x22,0x23,0x23,0x24,0x24,0x25,0x25 dt0x26,0x26,0x27,0x28,0x29,0x29,0x2a,0x2a,0x2b,0x2b dt0x2c,0x2d,0x2e,0x2f,0x30,0x32 ;* TempM ;热敏电阻输入处理 global TempMbsf STATUS,RP0 ;初始化RA2 movlw 0x02movwf ADCON1 ;ADRESH all 8-bitbcf STATUS,RP0movlwb01001001 ;selectAD1,FOSC/8movwfADCON0 ; movlw 0x10 ;延时 movwf Temp decfsz Temp,F goto $-1bsf ADCON0,GO ;启动转换btfscADCON0,GOgoto$-1movfADRESH,W ;读取转换结果的高8位movwfTemp movlw HIGH CalTable ;进行校正 movwf PCLATH callCalTable movwfTempcallBin2BCDT ;进行BCD码调整return;*;* Bin2BCDT - 将 Temp 寄存器内的二进制数转 *;* 换为相应的 ASCII 码并存为 TempH:TempL 的形式 *;*Bin2BCDTbcfSTATUS,RP0clrfTempH;Initialize variablesmovfTemp,WmovwfTempLTtenth ;Subtract 10 from low variablemovlw.10 ;until result is 0. On eachsubwfTempL,W;subtraction, increment thebtfssSTATUS,C;temperature high byte.gotoOver0movwfTempLincfTempH,FgotoTtenthOver0movlw0