pr08_v13.asm

%TITLE  "pr08_v13; Usenko"
    IDEAL
    MODEL   small
    STACK   256
k   EQU 9
l   EQU 2
j   EQU 32
    DATASEG
A   DB  10
B   DB  2
C   DB  6
D   DB  -2
x   DB  ?
    CODESEG
Start:  mov ax,@data
        mov ds,ax
    xor ax,ax   ;ax=0
    mov al,[d]  ;al=d
    imul    [d] ;al*d (d^2)
    imul    [d] ;al*d (d^3)
    push    ax  ;ax -> stack
    xor ax,ax   ;ax=0
        mov     al,[c]  ;al=c
    mul [c] ;al*c
    mov bl,l    ;bl=c
    mul bl  ;al*bl
    xor bx,bx   ;bx=0
        pop bx  ;stack -> bx
        idiv    bx  ;ax/bx
    mov bx,ax   ;ax -> bx
    xor ax,ax   ;ax=0
    mov al,[a]  ;al=a
    div [b] ;al/b
    xchg    ax,bx   ;bx <->ax
    sub bx,ax   ;bx-ax
    xor ax,ax   ;ax=0
    mov al,k    ;al=k
    mul [b] ;al*b
    add ax,bx   ;ax+bx
    mul ax  ;ax*ax
    push    ax  ;ax->stack
    xor ax,ax   ;ax=0
    mov al,[d]  ;al=d
    imul    al  ;al^2
    mul al  ;al^4
    mov bl,j    ;bl=j
    mul bl  ;bl^2
    mov bx,ax   ;bx=ax
    pop ax  ;stack->ax
    div bx  ;ax/bx
    mov [x],al  ;al=x
    mov dl,al   ;al=dl
    add dl,30h
    mov ah,02h
    int 21h
Exit:   mov ah,4Ch
        mov al,0
        int 21h
        END Start