Вычислить арифметическое выражение

Data SEGMENT
    A DW 15h
    B DW 14
    C DW 10h
    D DW 7
    X DW ?
Data ENDS
Ourstack SEGMENT Stack
    DB 100h DUP (?)
Ourstack ENDS
ASSUME CS:Code, DS:Data, SS:Ourstack
Code SEGMENT
Start:
    mov AX, Data
    mov DS, AX
    xor AX, AX
    mov AL, A
    mov BL, B
    mov CL, C
    mov DL, D
    mul BL 
    mul DL 
    sub AX, CX
    mov BX, AX
    mul BX 
    mov AX, 4C00h
    int 21h
Code ENDS
END Start

Data SEGMENT
    A DW 15h
    B DW 14
    C DW 10h
    D DW 7
    X DW ?
Data ENDS
Ourstack SEGMENT Stack
    DB 100h DUP (?)
Ourstack ENDS
ASSUME CS:Code, DS:Data, SS:Ourstack
Code SEGMENT
Start:
    mov AX, Data
    mov DS, AX
    xor AX, AX
    mov AX, A ;Регистру AX присваивается значение переменной A
    mul B ;В регистр AX помещается значеник выражения A*B.
    ;Младший разряд — AX, старший — DX
    push AX ;Помещение результата в стек
    mov AX, C ;Регистру AX присваивается значение переменной C
    mul D ;D*C. Результат записывается в AX
    push AX ;D*C помещается в стек.
    ;Работает принцип LIFO (последний пришел — первый ушел)
    pop BX ;Помещается последнее значение из стека (D*C)
    pop AX ;Помещается первое значение из стека (A*B)
    sub AX, BX ;(A*B)-(D*C). Результат помещается в регистр AX
    mul AX ;Для нахождения квадрата от числа, умножаем его на само себя.
    ;Результат записывается в AX
    mov AX, 4C00h
    int 21h
Code ENDS
END Start