;********************U4BCDTCO********************
;本程序?qū)崿F(xiàn)4字節(jié)非壓縮BCD碼數(shù)轉(zhuǎn)化為2字節(jié)壓縮BCD碼。
;入口參數(shù)：原非壓縮BCD碼數(shù)在RLTH:RLT:SOUH:SOU中。
;出口參數(shù)：結(jié)果在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