;********************U4BCDTCO********************
;本程序實現4字節非壓縮BCD碼數轉化為2字節壓縮BCD碼。
;入口參數：原非壓縮BCD碼數在RLTH:RLT:SOUH:SOU中。
;出口參數：結果在RLTH:RLT中。
;占用資源：W,STATUS,024H,025H,026H,027H,一重堆棧。
SOU         EQU         024H
SOUH        EQU         025H
RLT         EQU         026H
RLTH        EQU         027H

           IFNDEF       U4BCDTCO1
            #DEFINE     U4BCDTCO1
                        
U4BCDTCO    SWAPF       RLTH,W
            ADDWF       RLT,W
            MOVWF       RLTH
            SWAPF       SOUH,W
            MOVWF       RLT
            MOVF        SOU,W
            ADDWF       RLT,F
            RETURN
           ENDIF