bcdadd.asm

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

;求多个BCD码的和，结果以16进制表示
ADDDAT          EQU     40H
DSUNL           DATA     51H
DSUNH           DATA    50H
DADDCOUNT       EQU     8
ORG     0000H
AJMP    BCDADD
BCDADD: MOV     R0,#ADDDAT
        MOV     A,#0
        MOV     DSUNL,A
        MOV     DSUNH,A
        MOV     R6,#DADDCOUNT
BCDADDLOP:      CLR     C
                MOV     A,@R0
                ANL     A,#0FH
                XCH     A,@R0
                SWAP    A
                ANL     A,#0FH
                MOV     B,#10
                MUL     AB
                ADD     A,@R0
                ADD     A,DSUNL
                MOV     DSUNL,A
                CLR     A
                ADDC    A,DSUNH
                MOV     DSUNH,A
                INC     R0
                DJNZ    R6,BCDADDLOP
                SJMP    $
                END