基于Pic16f873的数字温度计及其源程序
list p=16f877 ;
include;
cnt equ 023h ;
sou equ 024h ;
souh equ 025h ;
rlt equ 026h ;
rlth equ 027h ;
temp1 equ 028h ;
temp2 equ 029h ;
temp3 equ 02ah ;
soub equ 02bh ;
souhb equ 02ch ;
;***********复位向量*************
org 0000h ;
nop ;
;*************主程序***************
main
;*****************初始化***********************
bsf status,rp0 ;选RAM体1
movlw b’10001110’ ;结果右对齐
movwf adcon1 ;AN0作为模拟信号输入口，参考电压为vdd,vss
movlw b’11010110’ ;设置RC口状态
movwf trisc ;只要SDI脚为输入
clrf sspstat ;主要清除SMP和CKE位
bcf status,rp0 ; 选RAM体0
movlw 01000001b ;
movwf adcon0 ;设置时钟源8tosc,使能adc,an0信道被选中
bcf pir1,adif ;
movlw b’00110010’ ;设置控制寄存器：设置fosc/64
movwf sspcon ;SPI主控方式；CKP=1
;******************** A/D转换********************
;入口参数：模拟信号加在RA0/AN0上。
;出口参数：10位转换结果在右对齐的souh:sou中。
start bsf adcon0,go ;开启A/D转换
btfsc adcon0,go ;A/D转换完成了吗？
goto $-1 ;未完，等待
movf adresh,w ;
movwf souh ;结果高位
bsf status,rp0 ;
movf adresl,w ;
bcf status,rp0 ;
movwf sou ;
;********判断sou:souh是否大于1000，即是否大于100℃？****
;入口参数：被减数在souhb:soub中，减数在rlth:rlt中。
;出口参数：结果在souhb:soub中,借位标志在STATUS:C中，'0'表示有借位。
movf sou,w ;
movwf soub ;
movf souh,w ;
movwf souhb ;
movlw 0e7h ;
movwf rlt ;
movlw 03h ;
movwf rlth ;
dusub movf rlt,w ;
subwf soub ;
movf rlth,w ;
btfss status,c ;
incfsz rlth,w ;
subwf souhb,f ;
btfsc status,c ;是否大于100℃？
goto dbtbcd ;否，转向双字节二进制数转化成压缩BCD码
movlw 71h ;是，rlth:rlt;souh:sou分别赋值71h,送显，显示FFF.F℃
movwf sou ;
movwf souh ;
movwf rlt ;
movwf rlth ;
goto display ;
;***********双字节二进制数转化成压缩BCD码***************
;入口参数：原二进制数在souh:sou中。
;出口参数：结果在rlt:souh:sou中。
dbtbcd movf sou,w ;
movwf temp2 ;
movf souh,w ;
movwf temp3 ;
clrf sou ;
clrf souh ;
clrf rlt ;
bcf status,c ;
movlw .16 ;
movwf cnt ;
loopc1 rlf temp2,f ;
rlf temp3,f ;
rlf sou,f ;
rlf souh,f ;
rlf rlt,f ;
decfsz cnt,f ;
goto adjdec1 ;
goto dcobcdtu ;整个双字节二进制数转化成压缩BCD码结束
;跳转到双字节压缩BCD码转化为非压缩BCD码
adjdec1 movlw sou ;
movwf fsr ;
call adjbcd1 ;调整rlt
movlw souh ;
movwf fsr ;
call adjbcd1 ;调整rlth
movlw rlt ;
movwf fsr ;
call adjbcd1 ;调整temp1
goto loopc1 ;
;********************调整BCD********************
adjbcd1 movlw 03h ;
addwf indf,w ;低四位加3
movwf temp1 ;暂存
btfsc temp1,3 ;结果大于7,
movwf indf ;则存起来
movlw 30h ;
addwf indf,w ;高四位加3
movwf temp1 ;
btfsc temp1,7 ;结果大于7,
movwf indf ;则存起来
retlw 0 ;
;*****************双字节压缩BCD码转化为非压缩BCD码************
;入口参数：原BCD码数在souh:sou中。
;出口参数：结果在rlth:rlt:souh:sou中。
;说明：由于温度不大于100.0℃，精确到0.1℃，所以取四位BCD码
dcobcdtu swapf souh,w ;
andlw 0fh ;
movwf rlth ;
movlw 0fh ;
andwf souh,w ;
movwf rlt ;
swapf sou,w ;
andlw 0fh ;
movwf souh ;
movlw 0fh ;
andwf sou,f ;
;****************非压缩BCD码转化为七段码*****************
movf rlth,w ;
call convert ;
movwf rlth ;
movf rlt,w ;
call convert ;
movwf rlt ;
movf souh,w ;
call convert ;
movwf souh ;
movf sou,w ;
call convert ;
movwf sou ;
goto display ;
convert addwf pcl,f ;把W内容叠加到PC的低8位上
retlw 03fh ;返回字符“0”的笔段码（bit7-bit0=a,b,……dp）
retlw 06h ;“1”的笔段码
retlw 5bh ;“2”的笔段码
retlw 4fh ;“3”的笔段码
retlw 66h ;“4”的笔段码
retlw 6dh ;“5”的笔段码
retlw 7dh ;“6”的笔段码
retlw 07h ;“7”的笔段码
retlw 7fh ;“8”的笔段码
retlw 6fh ;“9”的笔段码
;*******************发送显示************************
display movf sou,w ;
call out_in ;
movf souh,w ;
call out_in ;
movf rlt,w ;
call out_in ;
movf rlth,w ;
call out_in ;
goto delay ;
out_in movwf sspbuf ;送数据给SSPBUF后开始发送
loop1 bcf status,rp1 ; 选RAM体1
bsf status,rp0 ;
btfss sspstat,bf ;查询发送/接收完否
goto loop1 ;否，继续查询
bcf status,rp0 ;是，选RAM体1
movf sspbuf,w ;从SSPBUF中取出接到数据，即使数据无用也应腾空缓冲器
goto delay ; 跳转到延时
;********************延时1秒********************
delay
lp0 movlw 0ah ;
movlw 0ffh ;
movwf 32h ;
movwf 30h ;
lp1 movlw 0ffh ;
movwf 31h ;
lp2 decfsz 31h ;
goto lp2 ;
decfsz 30h ;
goto lp1 ;
decfsz 32h ;
goto lp0 ;
goto start ;
end
.png)
2.png)
