;********************MUBCDTCO********************
;本程序實現多字節非壓縮BCD碼數轉化為壓縮BCD碼。
;入口參數：原非壓縮BCD碼地址在SADR中,字節數在CNT中(字節數必須為偶數)。
;出口參數：結果地址在SADR中,字節數在CNT中。
;占用資源：W,FSR,STATUS,020H,023H,028H,029H,一重堆棧。

           IFNDEF       MUBCDTCO1
            #DEFINE     MUBCDTCO1
                        
MUBCDTCO    DECF        CNT,W
            ADDWF       SADR,W      ;得到最高位字節地址
            MOVWF       TEMP2       ;原操作數指針
            MOVWF       SADR        ;結果指針
            BCF         STATUS,C
            RRF         CNT,W
            MOVWF       CNT
            MOVWF       TEMP3       ;結果字節數
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        ;轉化結果存入相應地址中
            DECF        TEMP2,F
            DECF        TEMP2,F
            DECF        SADR,F
            DECFSZ      TEMP3,F
            GOTO        LOOP33
            INCF        SADR,F
            RETURN
           ENDIF