Доработать вычисление F=2*(6a+b)^3/c + c*(2d^2-c)/3a - Assembler - Ответ 6353584

;2*(6a+b)^3/c + c*(2d^2-c)/3a
 
;******************
;¬*Єа®бл
;******************
 
    ;Њ*Єа®б **бва®©ЄЁ ds ** ᥣ¬Ґ*в ¤***ле
init_ds macro
    mov ax,@data
    mov ds,ax
    mov es,ax
    endm
 
    ;¬*Єа®б Є®*ж* Їа®Ја*¬¬л
exit    macro
    mov ax,4c00h
    int 21h
    endm
 
.model small
 
.STACK
 
.DATA
_a  db  -1
_b  db  1
_c  db  1
_d  db  1
_f  dw  0
 
str_beg db  'Begin...', 13, 10, '$'
str_ok  db  'Ok!', 13, 10, '$'
str_err db  'Error- dividing by zero!', 13, 10, '$'
str_ovr db  'Error- overflow!', 13, 10, '$'
sign    db  '+ '
decf    db  '    0', 13, 10, '$'
 
x1  dw  0
x2  dw  0
 
.CODE
.386p
 
START:
 
    ;==============================================================
    ; **з*«®
    ;==============================================================
 
    init_ds
 
    mov ah, 09h
    mov dx, offset str_beg
    int 21h
 
    ;==============================================================
    ; Їа®ўҐаЄ* бЁвг*жЁЁ ¤Ґ«Ґ*Ёп ** *®«м
    ;==============================================================
    cmp byte ptr _a,0
    jne @m01
    jmp @m1
@m01:
    cmp byte ptr _c,0
    jne @m02
    jmp @m1
@m02:
    ;==============================================================
    ; ўлзЁб«Ґ*Ёп
    ;==============================================================
 
    mov al,byte ptr _a
    cbw 
    imul    ax,ax,6 
    jo  @mo
    
    mov x1,ax
    mov al,byte ptr _b
    cbw 
    mov dx,ax
    mov ax,x1
    add ax,dx
    shl ax,1
    mov x1,ax
    mov al,byte ptr _a
    cbw 
    imul    ax,ax,6
    jo  @mo
 
    mov x2,ax
    mov al,byte ptr _b
    cbw 
    mov dx,x2
    add dx,ax
    mov ax,x1
    imul    dx
    jo  @mo
 
    mov x1,ax
    mov al,byte ptr _a
    cbw 
    imul    ax,ax,6
    jo  @mo
 
    mov x2,ax
    mov al,byte ptr _b
    cbw 
    mov dx,x2
    add dx,ax
    mov ax,x1
    imul    dx
    jo  @mo
 
    mov x1,ax
    mov al,byte ptr _c
    cbw 
    mov bx,ax
    mov ax,x1
    cwd 
    idiv    bx
    mov x1,ax
    mov al,byte ptr _d
    cbw 
    shl ax,1
    mov     x2,ax
    mov al,byte ptr _d
    cbw 
    mov dx,ax
    mov ax,x2
    imul    dx
    jo  @mo
 
    mov x2,ax
    mov al,byte ptr _c
    cbw 
    mov dx,x2
    sub dx,ax
    mov al,byte ptr _c
    cbw 
    imul    dx
    jo  @mo
 
    mov bx,3
    cwd 
    idiv    bx
    mov x2,ax
    mov al,byte ptr _a
    cbw 
    mov bx,ax
    mov ax,x2
    cwd 
    idiv    bx
    mov dx,x1
    add dx,ax
    mov word ptr _f,dx
 
    ;==============================================================
 
    mov ah, 09h
    mov dx, offset str_ok
    int 21h
 
    jmp short @m2
 
    ;==============================================================
    ; ЋиЁЎЄ*: ЇҐаҐЇ®«*Ґ*ЁҐ
    ;==============================================================
@mo:
    xor ax, ax
    mov word ptr _f,ax
 
    mov ah, 09h
    mov dx, offset str_ovr
    int 21h
 
    jmp short @m2
 
    ;==============================================================
    ; ЋиЁЎЄ*: ¤Ґ«Ґ*ЁҐ ** *®«м
    ;==============================================================
@m1:
    xor ax, ax
    mov word ptr _f,ax
 
    mov ah, 09h
    mov dx, offset str_err
    int 21h
@m2:
    ;==============================================================
    ; ўлў®¤ зЁб«*
    ;==============================================================
 
    mov ax, _f            ; ЎҐаҐ¬ зЁб«®
    mov bx, ax
    and bx, 8000h     ; Їа®ўҐа塞, ®ваЁж*⥫м*® ®*® Ё«Ё *Ґв
    cmp bx, 0         ; 
    je  @m3               ; Ґб«Ё *Ґв, Ё¤Ґ¬ ¤*«миҐ
    
    mov bx, ax            ; Ґб«Ё ¤*, ўлзЁв*Ґ¬ ҐЈ® Ё§ *г«п
    xor ax, ax
    sub ax, bx        ; 
    mov sign, '-'         ; §*ЇЁблў*Ґ¬ §**Є -
@m3:
 
    mov cx, 5             ; *г¦*® ᤥ«*вм ¬*ЄбЁ¬г¬ 5 жЁЄ«®ў
    
    mov bx, 10        ; б**з*«* ЎҐаҐ¬ ®бв*в®Є ®в ¤Ґ«Ґ*Ёп ** 10
    mov di, offset decf   ; §*Јаг¦*Ґ¬ ў di *¤аҐб бва®ЄЁ 
    add di, 4             ; бв**®ўЁ¬бп ў Є®*Ґж
@do:    
    cwd           ; а*биЁа塞 ax ** dx  
    idiv    bx                ; ¤Ґ«Ё¬ ** bx - ®бв*в®Є ў dx, * в®з*ҐҐ - ў dl
    add dx, 48        ; Ї®«гз*Ґ¬ ®зҐаҐ¤*го жЁдаг        
    mov [di], dl          ; §*ЇЁблў*Ґ¬ Ґс ў бва®Єг
    dec di                ; б¤ўЁЈ*Ґ¬бп Ї® бва®ЄҐ Є **з*«г
    cmp ax, 0             ; Ґбвм «Ё ҐйҐ, зв® ¤Ґ«Ёвм
    loopne  @do           ; Ґб«Ё *Ґв, ўл室Ё¬
    
    mov al, sign          ; бв®Ёв «Ё 㦥 §**Є "-"
    cmp al, '-'
    jne @m4                 ; Ґб«Ё *Ґв, Ё¤Ґ¬ ¤*«миҐ
    mov [di], byte ptr '-'      ; Ґб«Ё ¤*, ЇЁиҐ¬ ҐЈ® в®з*® ЇҐаҐ¤ зЁб«®¬
 
@m4:
    mov ah,09h            ; ўлў®¤Ё¬ §**зҐ*ЁҐ 
    mov dx, di
    int 21h
 
    exit
 
end start