Double Digit MUL

.MODEL SMALL
.STACK 100

.DATA

    N1 DB ?
    N2 DB ?
    N3 DB ?
    M1 DB "ENTER 1ST NUMBER: $"
    M2 DB 10,13, "ENTER 2ND NUMBER: $"
    M3 DB 10,13, "MULTIPLICATION: $"

.CODE

JOY PROC

    MOV AX, @DATA
    MOV DS, AX

    LEA DX, M1
    MOV AH, 9
    INT 21H

    MOV AH, 1
    INT 21H
    SUB AL, 30H
    MOV N1, AL

    LEA DX, M2
    MOV AH, 9
    INT 21H

    MOV AH, 1
    INT 21H
    SUB AL, 30H
    MOV N2, AL

    MUL AL

    MOV N3, AL
    AAM

    ADD AH, 30H
    ADD AL, 30H

    MOV BX, AX

    LEA DX, M3
    MOV AH, 9
    INT 21H

    MOV AH, 2
    MOV DL, BH
    INT 21H

    MOV AH, 2
    MOV DL, BL
    INT 21H

    MOV AH, 4CH
    INT 21H

JOY ENDP
END JOY