Вычислить по формуле половинного дискриминанта

[Dmitry0-10]

Дорогие друзья, уважаемые программисты помогите пожалуйста желательно в стиле FASM
Вариант 2. Напишите программу для вычисления формулы половинного дискриминанта уравнения ax^2+bx+1. D/2=〖(b/2)〗^2-a*c. Все числа со знаком. Размер a — байт, размер b и с — слово. Проверьте работу программы в отладчике.

use16                 ;Генерировать 16-битный код
org 100h              ;Программа начинается с адреса 100h
 
    movsx ax,[a]      ;AX = a
    add ax,[b]        ;AX = a+b
    cwd               ;DX:AX = a+b
    idiv [c]          ;AX = (a+b)/c, в DX остаток
    cwd               ;DX:AX = (a+b)/c
    mov word[x],ax    ;\
    mov word[x+2],dx  ;/ x = DX:AX
 
    mov ax,4C00h      ;\
    int 21h           ;/ Завершение программы
;-------------------------------------------------------
a   db -55
b   dw -3145
c   dw 100
x   dd ?

[Nif-naf]

В литературе есть Пильщиков. Его макросы преобразуют число в Dos

[Nif-naf]

.data
msg db 20dup(?)
A dd 1
B dd 2
C dd 3
D dd 4
E dd 0.5
X dd ?
Y dd ?
Z dd ?
.code
fninit
fld dword ptr A
fmul dword ptr C
fstp dword ptr X
fld dword ptr B
fmul dword ptr B
fstp dword ptr Y
fld dword ptr D
fmul dword ptr X
fsub dword ptr Y
fmul dword ptr E
fchs
fstp dword ptr Z
fwait
(перевод Z в строку)
lea dx, msg
mov ah, 9h
int 21h
mov ah, 4ch
int 21h
end.