sbtbcd1.asm

来自「针对PIC单片机」· 汇编 代码 · 共 23 行

;********************SBCDTB1********************
;本程序实现小于64H的单字节二进制数转化为单字节压缩BCD码。
;入口参数：原二进制数在SOU中。
;出口参数：结果在SOU中。
;占用资源：W,STATUS,024H,028H,一重堆栈。

           IFNDEF       SBTBCD11
            #DEFINE     SBTBCD11
                        
SBTBCD1     MOVF        SOU,W
            MOVWF       TEMP1
            CLRF        SOU
LOOP18      MOVLW       .10
            SUBWF       TEMP1,F
            BTFSS       STATUS,C
            GOTO        OVER7
            MOVLW       10H
            ADDWF       SOU,F
            GOTO        LOOP18
OVER7       ADDWF       TEMP1,W
            ADDWF       SOU,F
            RETLW       0                 
           ENDIF