mul10.asm

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

;
;
;
MUL10DAT        EQU     36H
MUL10COUNT      EQU     6
ORG     0000H
MUL10:  MOV     R0,#MUL10DAT
        MOV     R6,#MUL10COUNT
        PUSH    PSW
MUL10NEXT:      CLR     C
                MOV     A,@R0
                MOV     B,#10
                MUL     AB
                MOV     @R0,A
                MOV     A,B
MUL10LOOP:      DEC     R0
                XCH     A,@R0
                MOV     B,#10
                MUL     AB
                ADD     A,@R0
                MOV     @R0,A
                CLR     A
                ADDC    A,B
                CLR     C
                DJNZ    R6,MUL10LOOP
                DEC     R0
                MOV     @R0,A
                AJMP    $
                END