Single Digit MUL

.MODEL SMALL
.STACK 100

.DATA

    D1 DB ?
    D2 DB ?
    D3 DB ?

.CODE

JOY PROC

    MOV AX, @DATA
    MOV DS, AX

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

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

    MUL D1
    MOV D3, AL

    ADD AL, 30H

    MOV DL, AL
    MOV AH, 2
    INT 21H

    MOV AH, 4CH
    INT 21H

JOY ENDP
END JOY