Написать программу для расчета формулы

IDEAL
MODEL  small
STACK  256
DATASEG 
exCode  DB  0
a  DB  0Ch
b  DW  02h
c  DW  0FFFBh
d  DW  0FFF6h
k  DW  64h
e  DW  04h
f  DW  24h
X  DB  ?
CODESEG 
Start: 
mov  ax,@data
mov  ds,ax
xor  ax,ax
mov  ax,[c]
mul  [c];ax=c^2
mul  [b]
mul  [b]
mul  [b];ax=c^2*b^3
div  [k];ax=(c^2*b^3)/100
mov  bx,ax
xor  ax,ax
 
mov  dx,[f]
mul  [f]
mul  [f]
mul  [f]
add  dx,[e]
mov  bx,[c]
mul  [c]
mov  cx,[d]
mul  [d]
sub  bx,cx
mul  [b]
mul  [e]
 
mov  [x],al
mov  dl,al
add  dl,30h
mov  ah,02h
int  21h
Exit: 
mov  ah,4Ch
mov  al,[exCode]
int  21h
END  Start

sqr macro x, arg
    mov al, x
    cbw
    imul ax
    jo arg
endm
 
codesg segment 'code'
    assume cs:codesg, ds:codesg, ss:codesg
    org 100h
    main: jmp begin
        _a db 12
        _b db 2
        _c db -5
        _d db -10
        _x dw ?
    begin:
        sqr _c, _err
        push ax
        mov bl, _b
        sqr bl, _err
        imul bx
        pop bx
        imul bx
        mov bl, 100
        idiv bl
        xor ah, ah
        push ax ;((с^2*b^3)/100)
        sqr _c, _err
        mov bx, ax
        sqr _d, _err
        sub bx, ax
        sal bx, 2
        jo _err
        mov al, _b
        cbw
        imul bx
        push ax ;4*b*(c^2-d^2)
        mov bl, 3
        mov al, _a
        cbw
        imul bl
        mov bx,ax
        pop ax
        mov cx, 4
        _while:cwd
            or ax, 0
            jz n  
            idiv bx
        loop _while
        n:sal byte ptr _b, 1
        jo _err
        xor bx, bx
        mov bl, _b
        add bx ,ax
        jo _err
        pop ax
        sub ax, bx
        jo _err
        mov _x, ax
    _err:
    int 20h
codesg ends
    end main