mubcdror.asm

来自「微芯公司的PIC子程序库及运算平台」· 汇编 代码 · 共 28 行

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

           IFNDEF       MUBCDROR1
            #DEFINE     MUBCDROR1

MUBCDROR    MOVF        CNT,W
            MOVWF       TEMP1
            MOVF        SADR,W
            MOVWF       FSR
            MOVF        INDF,W
            MOVWF       SOU
LOOP12      MOVF        INDF,W
            DECF        FSR,F
            MOVWF       INDF
            INCF        FSR,F
            INCF        FSR,F
            DECFSZ      TEMP1,F
            GOTO        LOOP12
            DECF        FSR,F
            MOVF        SOU,W
            MOVWF	INDF
            RETURN
           ENDIF