;********************DUBCDTCO********************
;本程序?qū)崿F(xiàn)雙字節(jié)非壓縮BCD碼數(shù)轉(zhuǎn)化為單字節(jié)壓縮BCD碼。
;入口參數(shù)：原BCD碼數(shù)在SOUH:SOU中。
;出口參數(shù)：結(jié)果在SOU中。
;占用資源：W,STATUS,024H,025H

           IFNDEF       DUBCDTCO1
            #DEFINE     DUBCDTCO1
                        
DUBCDTCO                                          
            BANKSEL     SOU
            SWAPF       SOUH,W
            ADDWF       SOU,F
            RETURN
           ENDIF