mrol.asm

PIC单片机的汇编源码合集,应用比较广泛,设计程序时可做子程序来用

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

           IFNDEF       MROL1
            #DEFINE     MROL1

MROL        MOVF        SADR,W
            MOVWF       FSR
            BCF         STATUS,C
LOOP8       RLF         INDF,F
            INCF        FSR,F
            DECFSZ      CNT,F
            GOTO        LOOP8
            RRF         CNT,F       ;保护移出位
            MOVF        SADR,W
            SUBWF       FSR,W
            RLF         CNT,F
            MOVWF       CNT         ;恢复字节数
            MOVF        SADR,W
            MOVWF       FSR
            BTFSC       STATUS,C
            BSF         INDF,0
            RETURN
           ENDIF