d_bcd_y.asm

通过调试的有用的单片机控制程序

;非压缩型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