= 0,5л:; во-вторых, имеется возможность задавать в качестве параметра точность вычисления результата (количество значащих цифр) и, в-третьих, можно проверять количество выполненных итераций, зависящих как от требуемой точности вычислений, так и от значений аргумента. В программе используются две дополнительные трехбайтные области памяти БУФД и ЬУФ для хранения промежуточных результатов.

Сравнение результатов двух соседних итераций выполняет подпрограмма СРПЗЗ:

19Е0 0058 0060

ДОПД ДОПН

ORG SET SET

19Е0Н S8H 60Н СРПЗЗ:

{ПОДПРОГРАММА СРАВНЕНИЯ С ЗАДАННОЙ ТОЧНОСТЬЮ ДВУХ ТРЕХ-{БАЙТНЬК В ДОПОЛНИТЕЛЬНОМ КОДЕ ЧИСЕЛ С ПЛАВАЮЩЕЙ ЗАПЯТОЙ {ФОРМАТА (8т16)=(П0Р{СТБ,МЛБ).

{ВХОДНЫЕ ПАРАМЕТР!!:(H»L)-АДРЕС ЧИСЛА It(Э,Е)-АЯРЕС ЧИСЛА S2f (В.О-МАСКА точности (СОДЕРЖИТ НУЛИ В МЛАДШИХ НЕЗНА-{ЧАШИХ И ЕДИНИЦЫ В СТАРШИХ ЗНАЧАЩИХ РАЗРЯДАХ).ВЫХОДНЫЕ {ПАРАМЕТРЫ:СУ=1-ПРИЗНАК ТОГОгЧТО 41 < 42{CY=0 (Z=0>-{ПРИЗНАК ТОГОтЧТО 41 ) Ч2{2=1-ПРИЗНАК РАВЕНСТВА ЧИСЕЛ. {ИСПОЛЬЗУЮТСЯ И СОХРАНЯЮТСЯ ВСЕ PErnCTPllfKPOME А.ГЛУБИНА {СТЕКА-Ю.ИСПОЛЬЗУЮТСЯ ПОДПРОГРАММЫ: «ДОПД»г»ЯОПН». {0ЧЕНКА;ЯЛИНА-64 БАЙТА (+16 БАЙТ ПОДПРОГРАММ),БРЕНЯ-НЕ {БОЛЕЕ 437 ТАКТОВ (С УЧЕТОМ ПОДПРОГРАММ).

{СРАВНЕНИЕ ПОРЯДКОВ

{СОХРАНЕНИЕ МАСКИ {(А)-БАЙТ ПОРЯДКА П0Р2 {ИСКЛЮЧЕНИЕ ЗНАКА {(С)-ПОРЯДОК П0Р2 {(А)-БАЙТ ПОРЯДКА П0Р1 {ИСКЛЮЧЕНИЕ ЗНАКА {СРАВНЕНИЕ П0Р1 И Г0Р2 {ЕСЛИ П0Р1=П0Р2

{Z=0,nOPl НЕ= П0Р2 С В ПРЯМОЙ КОД {ВОССТАНОВЛЕНИЕ МАСКИ {СОХРАНЕНИЕ АДРЕСА 1 {СОХРАНЕНИЕ АДРЕСА 2 {СОХРАНЕНИЕ МАСКИ {СОХРАНЕНИЕ АДРЕСА 2

{CY-3HAK ЧИСЛА1

{(Г,Е>-СТБ»МЛБ НАНТИССЫ 1 {ДОПОЛНЕНИЕ МАНТИССЫ 1 {ВОССТАНОВЛЕНИЕ АДРЕСА 2

19FE 17 19FF 03 lAOO OA lAOl 67 1A02 03 1A03 OA 1AD4 6Г 1A05 DC6000

1A08 CI

LDAX

LDAX

НгА В

L>A ДОПН

JCY-3HAK ЧИСЛА 2

s(H»L)-CTBfMflE МАНТИССЫ 2 гДОПОЛНЕНИЕ МАНТИССЫ 2

гМАСКИРОВАНИЕ НЕЗНАЧАЩИХ РАЗРЯДОВ МАНТИССЫ 2

5ВОССТАНОВЛЕНИЕ «АСКИ

Программа сравнивает два числа с плавающей запятой, причем Сравнение мантисс выполняется лишь в случае равенства порядков чисел. Программа СРПЗЗ ориентирована на сравнение не только положительных чисел, которые используются в выражении (4.9), но и чисел в дополнительных кодах, поэтому в последнем случае значение мантиссы перед сравнением преобразуется в прямой код. Сам процесс сравнения мантисс производится с маскированием их младших разрядов, что позволяет управлять точностью получения результата и количеством выполняемых итераций.

Тестовые данные для программы ККОР при маске FFFF приведены в табл. 4.4, где k - количество итераций.

В случае маски F000, сохраняющей лишь две старшие значащие десятичные цифры результата, вычисление, например, у = д/о требует двух итераций вместо пяти. Заметим, что искомый результат получается на предпоследней итерации, а последняя итерация лишь контролирует его правильность.

4.6. факториал

Программа ФАКТОР вычисляет факториал y = N\ методом последовательного перемножения сомножителей:

1810 1220 1000 00В8

1810 F5

1811 214918 1814 114С18 1817 CI1B800 1S1A 50

ORG 1810Н УДПЗЗ SET 1220Н СДПЗЗ SET ЮООН ПМЗ SET 0В8Н

ФАКТОР:

;»»»»«» ж»»»»»»»*»»»»»»»»»»»»»»» ж»»»»»»»»»»»»»»»»»»»»»»)!» ;ПОДПРОГРАММА ВЫЧИСЛЕНИЯ ФАКТОРИАЛА y=N! (N < 21) {ВХОДНЫЕ ПАРАМЕТРЫ: (В,О-АДРЕС РЕЗУЛЬТАТА г ПРЕДСТАВЛЯЕМО-{ГО Б ФОРМАТЕ 3-БАЙТНОГО ДВОИЧНОГО ЧИСЛА В ДОПОЛНИ ГЕЛЬ-{НОМ КОДЕ С ПЛАВАЮЩЕЙ ЗАПЯТОЙ,(А)-ВЕЛИЧИНА N В ФОРМАТЕ {ЧЕЛОГО двоичного БЕЗЗНАКОВОГО ЧИСЛА.ВЫХОЯНОЙ ПАРАМЕТР: !CY=1-ПРИЗНАК ПЕРЕПОЛНЕНИЯ ПОРЯДКА.ИСПОЛЬЗУЮТСЯ ВСЕ РЕ-{ГИСТРЫтСОХТАНЯЮТСЯ (В,С)г(А),ГЛУБИНА СТЕКА-22.ИСП0ЛЬ-{ЗУЕТСЯ 3-БАЙТНАЯ КОНСТАНТА "ОДИН" И 3-БАЙТНАЯ РАБО-{ЧАЯ ОБЛАСТЬ ПАМЯТИ "БУФЕР".ИСПОЛЬЗУЮТСЯ ПОДПРОГРАММЫ: {«УДПЗЗ».ККОМЗ»,»0БНЗ».»УДФ17»,»НМАН2»,»СДПЗЗ»,»ПМЗ» г {жОБМЗ». «ЯМАН2» г «ПМАН2», «ДОПВ» т «ЯОПД », »У32Б», »У24А«. {0ЧЕНКА:ДЛИНА~56 БАЙТ (+475 БАЙТ ПОЯПРОГРАММ) гВРЕМЯ-НЕ {БОЛЕЕ (350+4779»(N-1)) ТАКТОВ (С УЧЕТОМ ПОДПРОГРАММ).

{»»»»»»»«»»»»»»9(»«»»»»»»»»9(»»»»»»»«»»»N»«»»»»«»»»«»»»»»»

{ЗАНЕСЕНИЕ В "БУФЕР" И ОБЛАСТЬ РЕЗУЛЬТАТА КОНСТАНТЫ "1" PUSH PSU {СОХРАНЕНИЕ N LXI Н,ОДИН {(HrL)-АДРЕС" КОНСТАНТЫ LXI ВтБУФЕР {(ПгЕ)-АДРЕС БУФЕРА CALL ПМЗ {ПЕРЕМЕЩЕНИЕ "1" В "БУФЕР" MOV DfB