Вычисление функции sgn(x) в паскале - Pascal

Формулировка задачи:

Как вычислить функцию sgn(x) в паскале? Заранее спасибо)

Решение задачи: «Вычисление функции sgn(x) в паскале»

Листинг программы

function sgn(x: real): integer; assembler;
asm
        xor eax, eax
        fldz
        fld x
        fcomip
        ffree ST(0)
        jz @2
        jc @1
        inc eax
        jmp @2
    @1: not eax
    @2:
end;

Объяснение кода листинга программы

Название переменной: x, значение: передаваемое в функцию вещественное число.
Название переменной: sgn, значение: целочисленный результат выполнения функции.
Название переменной: eax, значение: регистр для хранения значений.
Название переменной: Нет, значение: 0 (ноль), используется для инициализации регистра eax.
Название переменной: Нет, значение: 0.0 (ноль), используется для инициализации значения ST(0) (стек FPU).
Название переменной: Нет, значение: 0.0 (ноль), используется для загрузки значения x на стек FPU.
Название переменной: Нет, значение: регистр состояния процессора после выполнения предыдущей операции сравнения.
Название переменной: Нет, значение: регистр для хранения значений. Код выполняет следующие действия:
Обнуляет регистр eax.
Загружает значение нуля на стек Floating Point Unit (FPU).
Загружает значение x на стек FPU и сравнивает его с нулём.
Если x равно нулю, переходит к метке @2.
Если x меньше нуля, инкрементирует значение регистра eax (eax = eax + 1) и переходит к метке @2.
Если x больше нуля, инвертирует значение регистра eax и переходит к метке @2.
Метка @2 обозначает завершение выполнения функции. Этот код реализует функцию sgn(x), которая возвращает знак числа x в виде целого числа: -1 (если x < 0), 0 (если x = 0) или 1 (если x > 0).