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

masm
.model small
.data
    db  "Hello"
a1  db  2   ;Переменная a
c1  db  2   ;Переменная c
d1  db  2   ;Переменная d
x1  dw  ?
Denominator dw  ?   ;Знаменатель
Numerator   dw  ?   ;Числитель
    .code
start:
    mov ax,@data
    mov ds,ax
 
;знаменатель - Denominator ------------------------------------------------
    mov al,a1
    Imul    al  ; <ax>=a*a
    dec ax  ; <ax>=a*a-1
    ; подготовка к расширению d (BYTE===>WORD)
    push    ax  ; Запоминание <ax>=a*a-1 в стеке
    mov al,d1
    CBW     ; al ===> AX
    mov SI,ax   ; <SI>=<ax>=d - нужно для ЧИСЛИТЕЛЯ!!!
    pop bx  ;Восстановление содержимого стека ===> <bx>=a*a-1
    add bx,ax   ; <bx>=a*a-1+d
    mov Denominator,bx
;числитель - Numerator ----------------------------------------------------
    mov ax, 25
    IDIV    c1  ; <aL>=25/c
    CBW     ; al ===> AX
    sub ax,SI   ; <ax>=25/c-d
    add ax,2    ; <ax>=25/c-d+2
    CWD     ; aX ===> DX:AX
    mov WORD PTR Numerator, AX      ; мл. часть числителя 
    mov WORD PTR Numerator+2, DX    ; ст. часть числителя
;РЕЗУЛЬТАТ
    IDIV    bx  ; <ax>=(25/c-d+2)/(a*a-1+d)
    mov x1,ax
 
;ВЫХОДИМ
    mov ah,4Ch
    mov al,00h
    int 21h
 
end start