bcd.asm

单片机试验程序

    ORG     0000H
	AJMP    MAIN
	ORG	0030H
MAIN:   MOV     SP,#30H      ;设置栈指针
        MOV     50H,#31H
        MOV     51H,#01H
        MOV     52H,#24H
        MOV     53H,#07H
        MOV     54H,#05H
        MOV     R0,#50H
        MOV     R1,#60H
        MOV     R2,#05H      ;BCD码字节数
MAIN1: 	MOV     A,@R0
        MOV     B,A
        ANL     A,#0FH
        ACALL   BCDASC
        MOV     @R1,A
        MOV     A,B
        SWAP    A
        ANL     A,#0FH
        ACALL   BCDASC
        INC     R1
        MOV     @R1,A
        INC     R1
        INC     R0
        DJNZ    R2,MAIN1
        SJMP    $
BCDASC: INC     A
        MOVC    A,@A+PC
        RET
        DB      30H,31H,32H,33H,34H,35H,36H,37H,38H,39H
END