8051 Assembly Address Based 16 bit Multiplication with carry program

    ORG 0000H

                MOV DPTR, #0030H

                MOVX A, @DPTR

                MOV B, A

                MOV R7, A

    INC DPTR

    MOVX A, @DPTR

    MUL AB

    MOV DPTR, #0090H

    MOVX @DPTR, A

    MOV A, B           

                MOV R0, A

                MOV A, R7

                MOV B, A

                MOV DPTR, #0032H

                MOVX A, @DPTR

                MUL AB

                ADD A, R0

                MOV R6, A

                MOV A, B

                MOV R5, A

                INC DPTR

                MOVX A, @DPTR

                MOV R3, A

                MOV B, A

                MOV DPTR, #0031H

                MOVX A, @DPTR

                MUL AB

                ADD A, R6

                MOV DPTR, # 0091H

                MOVX @DPTR, A

                MOV A, B

                MOV R4, A

                MOV DPTR, #0032H

                MOVX A, @DPTR

                MOV B, A

                MOV A, R3

                MUL AB

                ADD A, R5

                ADD A, R4

                MOV DPTR, #0092H

    MOVX @DPTR, A

                MOV A, B

                INC DPTR

                MOVX @DPTR, A

                MOV PCON, #02H