12F675温度显示程序
点击数：7946 次 录入时间：03-04 12:00:56 整理：http://www.55dianzi.com PIC单片机
call SendCHAR
MOVlw a’1’
btfss TempBIN,5
MOVlw a’0’
call SendCHAR
MOVlw a’1’
btfss TempBIN,4
MOVlw a’0’
call SendCHAR
MOVlw a’1’
btfss TempBIN,3
MOVlw a’0’
call SendCHAR
MOVlw a’1’
btfss TempBIN,2
MOVlw a’0’
call SendCHAR
MOVlw a’1’
btfss TempBIN,1
MOVlw a’0’
call SendCHAR
MOVlw a’1’
btfss TempBIN,0
MOVlw a’0’
call SendCHAR
return
SendCHAR
MOVwf Temp
swapf Temp,w
bsf STATUS,C
call NybbleOut
MOVf Temp,w
bsf STATUS,C
call NybbleOut
return
SendINS
MOVwf Temp
swapf Temp,w
bcf STATUS,C
call NybbleOut
MOVf Temp,w
bcf STATUS,C
call NybbleOut
call Dlay5
return
NybbleOut
MOVwf NOTemp
swapf NOTemp,f
bsf NOTemp,0
btfss STATUS,C
bcf NOTemp,0
MOVlw 6
MOVwf NOTmp1
bcf Data
NOLoop1
ClockStrobe
decfsz NOTmp1,f
goto NOLoop1
bsf Data
ClockStrobe
bcf Data
bsf STATUS,C
btfss NOTemp,0
bcf STATUS,C
rlf GPIO,f
ClockStrobe
MOVlw 4
MOVwf NOTmp1
NOLoop2
rlf NOTemp,f
bcf Data
rlf GPIO,f
ClockStrobe
decfsz NOTmp1,f
goto NOLoop2
EStrobe
return
;--------------------------------------------
; Delay
Dlay160
MOVlw 256 - ( 160 / 4 )
addlw 1
btfss STATUS,C
goto $-2
return
Dlay100 call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
call Dlay5
return
Dlay5
MOVlw 4
MOVwf DlyTmp
MOVlw 256 - 0x0E8
上一页 [1] [2] [3] [4] 下一页
本文关键字：程序 PIC单片机，单片机-工控设备 - PIC单片机
