;********************MUBCDTCO********************
;本程序?qū)崿F(xiàn)多字節(jié)非壓縮BCD碼數(shù)轉(zhuǎn)化為壓縮BCD碼。
;入口參數(shù)：原非壓縮BCD碼地址在SADR中,字節(jié)數(shù)在CNT中(字節(jié)數(shù)必須為偶數(shù))。
;出口參數(shù)：結(jié)果地址在SADR中,字節(jié)數(shù)在CNT中。
;占用資源：W,FSR,STATUS,020H,023H,028H,029H,一重堆棧。

           IFNDEF       MUBCDTCO1
            #DEFINE     MUBCDTCO1
                        
MUBCDTCO    DECF        CNT,W
            ADDWF       SADR,W      ;得到最高位字節(jié)地址
            MOVWF       TEMP2       ;原操作數(shù)指針
            MOVWF       SADR        ;結(jié)果指針
            BCF         STATUS,C
            RRF         CNT,W
            MOVWF       CNT
            MOVWF       TEMP3       ;結(jié)果字節(jié)數(shù)
LOOP33      MOVF        TEMP2,W
            MOVWF       FSR
            SWAPF       INDF,W
            MOVWF       TEMP1       ;暫存
            DECF        FSR,F
            MOVF        INDF,W
            IORWF       TEMP1,F     ;合并
            MOVF        SADR,W
            MOVWF       FSR
            MOVF        TEMP1,W
            MOVWF       INDF        ;轉(zhuǎn)化結(jié)果存入相應(yīng)地址中
            DECF        TEMP2,F
            DECF        TEMP2,F
            DECF        SADR,F
            DECFSZ      TEMP3,F
            GOTO        LOOP33
            INCF        SADR,F
            RETURN
           ENDIF