Assemble MULTIPLICATION AND DIVISION(INCOMPLETE)

.MODEL SMALL
.STACK 100H
.DATA
    R DB 0
    Q DB 0
    A DW ?
    B DW ?
    C DW ?
    D DW ?

.CODE
MAIN PROC
    INCLUDE 'EMU8086.INC'

    DEFINE_SCAN_NUM
    DEFINE_PRINT_NUM
    DEFINE_PRINT_NUM_UNS


    MOV AX, @DATA
    MOV DS, AX

    PRINTN 'ENTER THE DIVISOR VALUE: '
    CALL SCAN_NUM
    MOV D,CX

    PRINTN 'ENTER THE 1ST VALUE: '
    CALL SCAN_NUM
    MOV A, CX


    PRINTN 'ENTER THE 2ND VALUE: '
    CALL SCAN_NUM
    MOV B, CX


    PRINTN 'ENTER THE 3RD VALUE: '
    CALL SCAN_NUM
    MOV C, CX
    MOV AX, CX
    MUL A
    MUL B
    MUL C



    ;MOV C, AX

    DIV D         ; AX/BL AH = REMINDER; AL = QUOTIENT / RESULT

    MOV R, AH
    MOV Q, AL

    PRINT 'THE QUOTIENT IS: '

    ;ADD Q, 48
    MOV AH, 2
    MOV DL, Q
    INT 21H

    PRINTN ''

    PRINT 'THE REMINDER IS: '
    ;SUB R, 48
    MOV DH, R
    INT 21H


    MOV AH, 4CH
    INT 21H

END MAIN