ХАНДЫФАР

Функция SetPrecision устанавливает количество цифр после точки, которые будут выводиться при работе с вещественными числами. Это значение используется в других функциях, которые выводят или форматируют вещественные числа.

Параметры:

• AL: Число, указывающее количество выводимых цифр после точки.

Возвращаемое значение:

• Функция не возвращает значение.

Состояние флагов:

• Функция не изменяет состояние флагов.

Особенности:

• Функция сохраняет значение точности в глобальной переменной.

• Значение точности используется другими функциями, которые выводят или форматируют вещественные числа.

• Функция не изменяет значения регистров.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fmtstr db "Число: %f\0"
8. ____number dq 123.456789
9. data ends
11. code segment public
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc
15. ____main proc
16. ________call____SetDataSegment
18. ________mov_____al, 4
19. ________call____SetPrecision
21. ________fld_____qword ptr[number]
22. ________lea_____ax, ds:[fmtstr]
23. ________call____PrintFormatString
24. ________add_____sp, 2
26. ________xor_____al, al
27. ________call____ExitProcess
28. ____main endp
30. code ends
31. end main

Функция SetPrecision устанавливает количество цифр после точки, которые будут выводиться при работе с вещественными числами. Это значение используется в других функциях, которые выводят или форматируют вещественные числа.

Параметры:

• AL: Число, указывающее количество выводимых цифр после точки.

Возвращаемое значение:

• Функция не возвращает значение.

Состояние флагов:

• Функция не изменяет состояние флагов.

Особенности:

• Функция сохраняет значение точности в глобальной переменной.

• Значение точности используется другими функциями, которые выводят или форматируют вещественные числа.

• Функция не изменяет значения регистров.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fmtstr db "Число: %f\0"
8. ____number dq 123.456789
9. data ends
11. code segment public _______________; Начало сегмента кода
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc___________; Подключаем файл с функциями
15. ____main proc _____________________; Начало процедуры main
16. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
18. ________mov_____al, 4______________; Копируем число 4 в регистр al
19. ________call____SetPrecision_______; Вызываем процедуру SetPrecision
21. ________fld_____qword ptr[number]__; 2-й: Загружаем на вершину стека мат. сопроцессора number
22. ________lea_____ax, ds:[fmtstr]____; 1-й: Загружаем адрес строки формата fmtstr в регистр ds:ax
23. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtstr, st(0))
24. ________add_____sp, 2______________; Выравниваем стек
26. ________xor_____al, al_____________; Обнуляем регистр al
27. ________call____ExitProcess________; Вызываем процедуру ExitProcess
28. ____main endp _____________________; Конец процедуры main
30. code ends _________________________; Конец сегмента кода
31. end main __________________________; Конец файла. Точкой входа указывается процедура main