PIC的BIN TO BCD子程序
上传用户：chen_yuangui
上传日期：2009-09-30
文件类型：DOC
文件大小：21.00K
资料积分：0分 积分不够怎么办？
PIC的BIN TO BCD子程序
;**********二进制转换成BCD码子程序,入口W*****
;********出口为R2，R1，R0寄存器
BINTOB movwf buf_read ;W->buf_read
clrf R0
clrf R1
clrf R2
movlw 08h
movwf counter_pub
loopc bcf STATUS,C
rlf buf_read,1
rlf R0
rlf R1
decfsz counter_pub,1
goto adjdec
movlw 0fh
andwf R1,0
movwf R2
swapf R0,0
movwf R1
movlw 0fh
andwf R0,1
andwf R1,1
return
adjdec movlw 03h
addwf R0,1
btfsc R0,3
goto next_r0
subwf R0,1
next_r0 movlw 030h
addwf R0,1
btfsc R0,7
goto
;**********二进制转换成BCD码子程序,入口W*****
;********出口为R2，R1，R0寄存器
BINTOB movwf buf_read ;W->buf_read
clrf R0
clrf R1
clrf R2
movlw 08h
movwf counter_pub
loopc bcf STATUS,C
rlf buf_read,1
rlf R0
rlf R1
decfsz counter_pub,1
goto adjdec
movlw 0fh
andwf R1,0
movwf R2
swapf R0,0
movwf R1
movlw 0fh
andwf R0,1
andwf R1,1
return
adjdec movlw 03h
addwf R0,1
btfsc R0,3
goto next_r0
subwf R0,1
next_r0 movlw 030h
addwf R0,1
btfsc R0,7
goto
关键词： PIC BIN TO BCD 子程序
加入微信
获取电子行业最新资讯
搜索微信公众号：EEPW
或用微信扫描左侧二维码