;********************MCOBCDSHR********************
;本程序?qū)崿F(xiàn)多字節(jié)壓縮BCD碼非循環(huán)右移1位(即除以10)。
;入口參數(shù): 原數(shù)據(jù)地址在SADR中,字節(jié)數(shù)在CNT中。
;出口參數(shù): 結(jié)果首地址在SADR中,字節(jié)數(shù)在CNT中,移出位在SOU的低四位。
;占用資源: W,STATUS,FSR,020H,023H,024H,兩重堆棧。
;說    明: 1.原數(shù)據(jù)將被沖掉.
;          2.加載本文件的同時(shí)也加載了另外一個(gè)文件"MSHR.ASM",
;            故用戶在使用這個(gè)子程序時(shí)可直接調(diào)用,不必重新加載.

           IFNDEF       MCOBCDSHR1
            #DEFINE     MCOBCDSHR1

MCOBCDSHR   DECF        CNT,W
            ADDWF       SADR,W      
            MOVWF       FSR         ;末地址
            MOVWF       SADR
NEXT14      MOVLW       0FH
            ANDWF       INDF,W
            SWAPF       SOU,F
            IORWF       SOU,F
            MOVLW       0F0H
            ANDWF       INDF,F
            ANDWF       SOU,W
            SWAPF       INDF,F
            IORWF       INDF,F
            MOVLW       0FH
            ANDWF       SOU,F       ;SOU低4位:INDF右移1位
            DECF        FSR,F
            DECFSZ      CNT,F
            GOTO        NEXT14
            MOVF        FSR,W
            SUBWF       SADR,W
            MOVWF       CNT         ;結(jié)果字節(jié)數(shù)
            SUBWF       SADR,F
            INCF        SADR,F      ;結(jié)果首地址
            RETURN
           ENDIF