一些应用程序/算法/子程！！（供参考）

admin

双字节定点数至5位BCD码转换程序
     入口条件：ACCBHI、ACCBLO
     出口条件：ACCCHI低半字节、ACCCLO、ACCDHI
以下为双字节定点数至5位BCD码转换程序清单。
     LIST                  p=16f877
     INCLUDE            p16f877.inc
     ACCBLO            EQU      23            ；存放被转换的双字节整数低8位
     ACCBHI            EQU      24            ；存放被转换的双字节整数高8位
     ACCCLO            EQU      26            ；存放5位BCD码
     ACCCHI            EQU      27
     ACCDLO            EQU      28
     ACCDHI            EQU      29
     TEMP            EQU      2A            ；临时寄存器
     SIGN            EQU      2B            ；被转换数符号寄存器
     ORG                  0X0000
START      GOTO            MAIN
     ORG                  0X0100
；**********双字节数至BCD码子程序************
BtoBCD      CLRF            SIGN                  ；初始化符号寄存器
     BTFSS            ACCBHI，7      ；被转换数为负？
     GOTO            LOOP1            ；否，转BtoBCD
     BSF                  SIGN，7            ；是，存符号
     CALL            NEG_B            ；ACCB取补
LOOP1      BCF                  STATUS，C      ；清进位位
     MOVLW            .16                  ；移位计数器赋初值
     MOVWF            COUNT
     CLRF            ACCCHI            ；初始化出口寄存器
     CLRF            ACCCLO
     CLRF            ACCDHI
LOOP16      RLF                  ACCBLO            ；ACCB左移一位至出口寄存器
     RLF                  ACCBHI
     RLF                  ACCDHI
     RLF                  ACCCLO
     RLF                  ACCCHI
     DECFSZ            COUNT            ；移位计数器＝0？
     GOTO            ADJDEC            ；否，转ADJDEC
     RETLW            0                  ；是，返回
ADJDEC      MOVLW            ACCDHI            ；指针指向ACCDHI
     MOVWF            FSR
     CALL            ADJBCD            ；调用BCD码校正子程序
     MOVLW            ACCCLO            ；指针指向ACCCLO
     MOVWF            FSR
     CALL            ADJBCD            ；调用BCD码校正子程序      
     MOVLW            ACCCHI            ；指针指向ACCCHI
     MOVWF            FSR
     CALL            ADJBCD            ；调用BCD码校正子程序
     GOTO            LOOP16            ；ACCB重新左移
；************* BCD码校正子程序**************
ADJBCD      MOVLW            00X03            ；LSD＋3>7？
     ADDWF            INDF，0
     MOVWF            TEMP
     BTFSC            TEMP，3
     MOVWF            INDF            ；是，LSD＝LSD＋3
     MOVLW            0X30                  ；否，MSD＋3>7？
     ADDWF            INDF，0
     MOVWF            TEMP
     BTFSC            TEMP，7
     MOVWF            INDF                  ；是，MSD=MSD＋3
     RETLW            0                  ；返回
【校验举例1】 -23808（十进制）
化为十六进制数：A300
结果：023808（BCD），SIGN=80
【校验举例2】 12306（十进制）
化为十六进制数： 3012
结果：012306（BCD），SIGN=00