mubcdrol.asm

来自「PIC单片机的汇编源码合集,应用比较广泛,设计程序时可做子程序来用」· 汇编 代码 · 共 31 行

;********************MUBCDROL********************
;本程序实现多字节非压缩BCD码循环左移1位。
;入口参数: 原数据地址在SADR中,字节数在CNT中。
;出口参数: 结果首地址在SADR中,字节数在CNT中,移出位在SOU中。
;占用资源: W,STATUS,FSR,020H,023H,024H,028H,一重堆栈。
;说    明: 原数据将被冲掉.     

           IFNDEF       MUBCDROL1
            #DEFINE     MUBCDROL1

MUBCDROL    MOVF        CNT,W
            MOVWF       TEMP1
            ADDWF       SADR,W
            MOVWF       FSR
            DECF        FSR,F
            MOVF        INDF,W
            MOVWF       SOU
            DECF        TEMP1,F
            DECF        FSR,F
NEXT48      MOVF        INDF,W
            INCF        FSR,F
            MOVWF       INDF
            DECF        FSR,F
            DECF        FSR,F
            DECFSZ      TEMP1,F
            GOTO        NEXT48
            INCF        FSR,F
            MOVF        SOU,W
            MOVWF       INDF
            RETURN
           ENDIF