;非壓縮型BCD碼轉換為壓縮型BCD碼
DDAT    EQU     40H     ;原來數據首地址
YDAT    EQU     50H     ;轉換后數據首地址
DYCOUNT EQU     8       ;轉換數據的個數的1/2
ORG     0000H
AJMP    D_BCD_Y
D_BCD_Y:        MOV     R0,#DDAT
                MOV     R1,#YDAT
                MOV     R6,#DYCOUNT
DY_LOOP:        MOV     A,#0
                MOV     A,@R0
                SWAP    A
                INC     R0
                ORL     A,@R0
                INC     R0
                MOV     @R1,A
                INC     R1
                DJNZ    R6,DY_LOOP
                SJMP    $
                END