Pr15_v11.asm

%TITLE       "Pr #15; v11; Sabatyuk"
    IDEAL
    MODEL   small
    STACK   256

k   EQU 120

    DATASEG
a   DB  -4
b   DB  5
c   DB  -10
d   DB  32
x   DB  ?

    CODESEG
Start:
    mov ax,@data
    mov ds,ax

    mov al,[c]
    sub al,[d]
    push    ax
    xor ax,ax
    mov al,[c]
        imul    al
    mov bx,ax
    xor ax,ax
    mov al,[a]
    imul    [a]
    imul    [a]
    imul    [b]
    sub ax,bx
    xor bx,bx
    pop bx
    idiv    bl
        mov     bx,ax
    mov al,[a]
    imul    [d]
    add ax,bx
    add ax,k

    mov [x],al
    mov dl,al
    add dl,30h
    mov ah,02h
    int 21h
Exit:
    mov ah,4Ch
    mov al,0
    int 21h
    END Start