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

[Dmitry0-10]

Дорогие друзья, уважаемые программисты помогите пожалуйста желательно в стиле FASM
Вариант 1. Напишите программу для вычисления формулы дискриминанта уравнения ax^2+bx+1. D=b^2-4a*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
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
fchs
fstp dword ptr Z
fwait
(перевод Z в строку)
lea dx, msg
mov ah, 9h
int 21h
mov ah, 4ch
int 21h
end.

[macomics]

Сообщение от Nif-naf

A dd 1 ; целое
B dd 2 ; целое
C dd 3 ; целое
D dd 4 ; целое
...
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 ; вещественное

А это ничего, что изначально задаются целые числа, но команды загружают вещественные?

[digitalis]

А ему всё нипочём. Раз есть Пильщиков.
Ну а это

макросы преобразуют число в Dos

вообще улёт.