Е680

F(LC

FiAL

;(С)-КОД ЗНАКА СЛ2

;ОПРЕДЕЛЕНИЕ РАЗНОСТИ ПОРЯДКОВ

PUSH

гСОХРАНЕНИЕ АДРЕСА СЛ2

PUSH

;СО:ХРЛНЕНИЕ КОДОВ ЗНАКОВ

; <А)-П0Р2

E67F"

;ИСКЛЮЧЕНИЕ ЗНАКА

«ОУ

;<В)-пор2

LDAX

;<Л)-nopi

E67F

;ИСКЛЮЧЕНИЕ ЗНАКА

г<Л)=П0Р1-П0Р2

СА4710

ПЕР2

гЕСЛИ П0Р1=:П0Р2

D23510

ПЕРЗ

гЕСЛИ П0Р1>П0Р2

гДОПОЛНЕНИЕ ПРИ П0Р2>П0Р1

INf*

г(А)=УП0Р1-П0Р2/

1032 СВВ600

CALL

ОЕМЗ

гОБМЕН СЛАГАЕМЫМИ!СЛ2 НА СЛ1

гПРОВЕРКА ВЕЛИЧИНЫ РАЗНОСТИ ПОРЯДКОВ: < 16?

1035 FEIO

ПЕРЗ: CPI

1037 FA3F10

ПЕР4

;ЕСЛИ РАЗНОСТЬ < 16

ЮЗА AF

гС¥=0

103В С1

гБАЛАНС СТЕКА

юзе Е1

гВОССТАНОБЛЕНИЕ AfiPFCA СЛ2

103В С1

гВОССТАНОБЛЕНИЕ АДРЕСА СЛ1

ЮЗЕ С9

гЕСЛИ РАЗНОСТЬ ПОРЯДКОВ > 16

!ЗАГРУЗКА СЛ2 В РЕГИСТРЫ,ЛЕНОРМЛЛИЗАЦИЯ МАНТИССЫ СЛ2

ЮЗЕ В5

ПЕР4! PUSH

гСОХРАНЕНИЕ АДРЕСА СЛ1

1040 СВВ010

CALL

ДМАН2

г<ВгСгВ)-МАНТИССА

1043 Е1

;<H,L) -АДРЕС СЛ1

1044 C34F10

ПЕН5

г ЗАГРУЗКА СЛ2

В РЕГИСТРЫ <ВтС),<В)=0

1047 В5

ПЕР2! PUSH

гСОХРАНЕНИЕ АДРЕСА СЛ1

1048 23

1049 46

г(В)-СТБ МЛН2

104А 23

104В 4Е

г(С)-МЛБ МАН2

104С 1600

1.1,0

104Е Е1

!<H,L)-АДРЕС СЛ1

гСЛОЖЕНИЕ МАНТИСС:<M)+(B,C)=<B,С)

104F 23

ПЕР5! INX

1050 23

г АДРЕС МЛБ МАИ1

1051 7Е

1052 81

1053 4F

1054 2В

1055 7Е

1056 88

1057 47

г <ВгС)-СУММА МАНТИСС

г АНАЛИЗ СУММЫ

НА ПЕРЕПОЛНЕНИЕ ПО МОДИФИЦИРОВАННЫМ Ш

1058 2В

г(HrL)-АДРЕС noPi

1059 ЕЗ

XTHL

г(HrL)-коды ЗНАКОВ СЛ1гСЛ2

105А 7D

105В 8С

гСЛОЖЕНИЕ ЗНАКОВ И ПЕРЕНОСА

105С Е603

гВЫДЕЛЕНИЕ КОДА ЗНАКА СУММЫ

ЮЗЕ El

г<HтL)-AЙPEC nopi

rЗАНЕСЕНИЕ ЗНАКА СУММЫ

В ЕАЙТ ПОРЯЖА РЕЗУЛЬТАТА

105Е F5

PUSH

гСОХРАНЕНИЕ ЗНАКОВ

1060 IF

RAT;

1061 IF

г(СУ)-ЗНАК СУММЫ

1062 7E

г<А)-П0Р1 со ЗНАКОМ СЛ.1

1063 17

1064 OF

г<А>-П0Р1 со ЗНАКОМ СУММЫ

1063 77

1066 Fl

гВОССТАНОВЛЕНИЕ ЗНАКОВ

1067 £28010

ПЕР8

гЕСЛИ ПЕРЕПОЛНЕНИЕ:01 ИЛИ 10

!АНАЛИЗ ОСОБОГО СЛУЧАЯ

ПЕРЕПОЛНЕНИЯ ЙЛЯ КОДА ЗНАКОВ И

106A FE03

106C C27610

ПЕР6

гЕСЛИ НЕ КОЛ 3

106F F5

PUSH

гСОХРАНИТЬ ПРИЗНАКИ

1070 78

1071 Bl

1072 CA7F10

ПЕР7

;ЕСЛИ МАНТИССА=-0

1075 Fl

г ВОССТАНОВИТЬ ПРИЗНАКИ

5НОРМАЛИЗАЦИЯ МАНТИССЫ

ВЛЕВО

1076 CDDOIO

ПЕРб! CALL

НМЛН2

г(BfС)-НОРМАЛИЗОВАННАЯ МАНТИССА

1079 ге8Л10

ПЕР9

гНЕТ АНТИПЕРЕПОЛНЕНИЯ ПОРЯДКА

107C C39A10

ПЕР10

г АНТИПЕРЕПОЛНЕНИЕ ПОРЯДКА

гПЕРЕПОЛНЕНИЕ:НОРМАЛИЗАЦИЯ МАНТИССЫ ВПРАВО

107F Fl

ПЕР7: POP

г ВОССТАНОВИТЬ ПРИЗНАК-И

1080 IF

ПЕР8! RAR

гСУ-БИТ ПЕРЕПОЛНЕНИЯ

1081 CDFllO

CALL

ПМАН2

г(Bfо-НОРМАЛИЗОВАННАЯ МАНТИССА

1084 D28A10

ПЕР9

гНЕТ ПЕРЕПОЛНЕНИЯ ПОРЯДКА

1087 C39A10

ПЕР10

гПЕРЕПОЛНЕНИЕ ПОРЯДКА

;ОКРУГЛЕНИЕ

РЕЗУЛЬТАТАгНОРМАЛИЗАЦИЯ МАНТИССЫ

108A AF

ПЕР9! XRA

108B 82

108C F29A10

ПЕР10

;ЕСЛИ КОРРЕКЦИ»=0

108F 79

1090 C601

1092 4F

1093 78

A>B

1094 CEOO

1096 47

1097 tCFllO

ПМАН2

г(В,С)-НОРМАЛИЗОВАННАЯ МАНТИССА

гЗЙПИСЬ РЕЗУЛЬТАТА В ПАМЯТЬ .

109A 23

ПЕРЮ: INX

109B 70

109C 23

109D 71

109E El

гВОССТАНОВЛЕНИЕ АДРЕСА СЛ2

109F CI

гВОССТАНОВЛЕНИЕ АДРЕСА СЛ1

lOAO C9

гСУ=1,ЕСЛИ ОШИБКА ПОРЯДКА

0000

0098 7Е

0099 23

009А В6

009В 23

009С В6

009D 23

009Е В6

009F 2В

ООАО 2В

00А1 2В

00А2 С9

0000