PIC單片機實現二進制碼與壓縮BCD碼的相互轉換

2019-11-06 07:45:30

字體：大中小

來源：轉載

供稿：網友

編寫子程序Bin2BCD、BCD2Bin實現二進制數到壓縮BCD碼的相互轉換。待轉換的二進制數存放在w寄存器內，子程序調用完成后得到的BCD碼仍存放在w寄存器內返回。例如：

movlw .45 ; w=45call Bin2BCD ;nop ; w=0x45

一、實現二進制數到壓縮BCD碼的轉換

二進制數轉壓縮BCD碼的方法是將二進制碼左移8次，每次移位后都檢查低四位是否大于4，如果大于4則低四位加3，否則不加；高4位做同樣處理。

程序框圖： PIC二進制轉BCD碼

list p=16f877A ;標明所用的處理器類型#include <p16f877A.inc> ;調用頭文件 __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _HS_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF;*****************變量定義*******************************************************BIN EQU 0x20 ; 存放二進制數BCD EQU 0x21 ; 存放壓縮BCD碼BCDLO EQU 0x22 ; 存放BCD碼低四位BCDHI EQU 0x23 ; 存放BCD碼高四位LOW3 EQU 0x24 ; 用于與低四位相加HIGH3 EQU 0x25 ; 用于與高四位相加COUNT EQU 0x26 ; 循環次數;******************************************************************************* ORG 0x0000 ; 復位入口地址 nop ; 兼容ICD調試工具，必須加nop goto Main ; 跳轉至Main函數;*************************Main 函數的代碼******************************Main MOVLW b'00101101' ; 二進制數00101101送BIN MOVWF BIN CLRF BCD ; BCD清零 MOVLW 0x03 ; 0x03送LOW3 MOVWF LOW3 MOVLW 0x30 ; 0x30送HIGH3 MOVWF HIGH3 MOVLW 0x07 ; 初始化循環次數 MOVWF COUNT CALL Bin2BCD ; 調用轉換程序 RLF BIN RLF BCD ; 第八次左移，結果應為0x45 nop goto $ ; 停機;**************************二進制轉壓縮BCD碼子程序 ******************** ORG 0X0100Bin2BCD RLF BIN RLF BCD ; 二進制碼從高位到低位依次送入BCD MOVLW b'00001111' ; W寄存器高四位清零 ANDWF BCD,W ; BCD高四位清零，結果存放在W寄存器中 MOVWF BCDLO ; 暫存此處，用于判斷 MOVLW 0x04 BCF STATUS,C ; 標志位清零 SUBWF BCDLO,F ; 判斷低四位是否大于4 BTFSC STATUS,C ; C位為0則跳 CALL ADDLO ; C=1，即低四位大于4，則低四位加3 nop MOVLW b'11110000' ; W寄存器低四位清零 ANDWF BCD,W ; BCD低四位清零，結果存放在W寄存器中 MOVWF BCDHI ; 暫存此處，用于判斷 MOVLW 0x40 BCF STATUS,C ; 標志位清零 SUBWF BCDHI,F ; 判斷高四位是否大于4 BTFSC STATUS,C ; C位為0則跳 CALL ADDHI ; C=1，即高四位大于4，則高四位加3 nop DECFSZ COUNT,F ; 循環 GOTO Bin2BCD RETURN;******************************************************************ADDLO ; 低四位加3 MOVF LOW3,W ADDWF BCD,F RETURNADDHI ; 高四位加3 MOVF HIGH3,W ADDWF BCD,F RETURN;*****************************************************************************END ; 程序結束

二、實現壓縮BCD碼到二進制數的轉換

因為壓縮BCD碼為十進制數，所以只要取其高四位和低四位，將高四位乘10D加上低四位即可。為了編程的方便，可以將乘10D轉化為累加10次。

程序框圖： PIC單片機BCD碼轉二進制

list p=16f877A ;標明所用的處理器類型#include <p16f877A.inc> ;調用頭文件 __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _HS_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF;*****************變量定義*******************************************************BIN EQU 0x20 ; 存放二進制數BCD EQU 0x21 ; 存放壓縮BCD碼BCDLO EQU 0x22 ; 存放BCD碼低四位BCDHI EQU 0x23 ; 存放BCD碼高四位COUNT EQU 0x24 ; 高位乘10（加自身9次）循環變量;******************************************************************************* ORG 0x0000 ; 復位入口地址 nop ; 兼容ICD調試工具，必須加nop goto Main ; 跳轉至Main函數;*************************Main 函數的代碼******************************Main MOVLW b'01000101' ; BCD碼01000101送BCD MOVWF BCD MOVLW .10 ; 初始化循環次數 MOVWF COUNT CLRF BIN ; 清零 CALL BCD2Bin ; 調用轉換程序 nop goto $ ; 停機;**************************壓縮BCD碼轉二進制子程序 ******************** ORG 0X0100BCD2Bin MOVLW b'00001111' ANDWF BCD,W ; BCD高四位清零，結果存放在W寄存器中 MOVWF BCDLO ; 獲得BCD低四位 MOVLW b'11110000' ANDWF BCD,W ; BCD低四位清零，結果存放在W寄存器中 MOVWF BCDHI SWAPF BCDHI,F ; 獲得BCD高四位 MOVF BCDHI,W CALL MPY10 ; 調用MPY10，將高四位乘10 nop MOVF BCDLO,W ADDWF BIN,F ; 加低四位，完成轉換 RETURNMPY10 ADDWF BIN,F DECFSZ COUNT,F ; 高4位乘10存放于BIN，即加10次高4位 GOTO MPY10 RETURN ;*****************************************************************************END ; 程序結束

上一篇：udp socket

下一篇：ubuntu 學習資料整理