и регістр DX
; Тут починається цикл множення: mov ax, si; Помножити младшіеdi; слова мантіссWORD PTR TEMP, dx; Зберегти старшу частину
; проізведеніяal, blah, 0diWORD PTR TEMP, ax; Врахувати результатNEXT; в повному проізведенііdx: mov WORD PTR TEMP +2, dxal, cl; Помножити следующіеah, 0; частини мантіссsiWORD PTR TEMP, axNEXT1dx: add dx, WORD PTR TEMP +2 al, bl; Помножити старшіеcl; байти мантіссax, dx; Утворити повне проізведеніеbl, ah; і розмістити егоah, al; в регістрах BL: SIal, BYTE PTR TEMP +1 si, ax
; Перевірити порушення нормалізації вліво.: Or bl, bl; Перевірити старший біт мантіссиMULF7; Порушення нормалізації нетbh; Збільшити порядок на 1; CF=1MULF8; Виникло переполненіеMULFA; Переповнення немає: shl si, 1; Зрушити мантіссуbl, 1; вліво на один біт
; Формування результату: add ch, ch; Знак у прапорі переносаbh, 1; Знак числа на местеch, 1; Молодший біт порядку в CHch, 7fh; Утворити маскуbl, ch; Утворити 2-й байт проізведеніяdi, Z [di], si [di +2], bx: ret
MULT ENDP
; ========================================= ========
; підпрограма додавання чисел в форматі ПЗ
; ========================================= ============= PROC FAR
; 1. Порівняння порядків для визначення більшого
@ S: cl, [si +2]; Занесення в регістр CXch, [si +3]; двох старших байтів числа X в ФПЗ.dl, [di +2]; Занесення в регістр DXdh, [di +3]; двох старших байтів числа Y в ФПЗ.
; ДЛЯ віднімання ТРЕБА В РЯДКУ 30 УДАЛИТЬ
; крапкою з комою
; XOR DH, 80H
; cx, 1; Занесення порядку числа X в CHcl, 1; (І знака в біт 23). Dx, 1; Занесення порядку числа Y в DHdl, 1; (І знака в біт 23).
; ch, dh; Порівняння порядків X і Y @ L1; Перехід, якщо (CH) < (DH) (Px
;
; 2. Знаходження різниці порядків
; Примітка. З більшого порядку віднімається менший,
; щоб різниця порядків була неотрицательной
;
; 2.1. Порядок X не менш порядку Y (Px? Py) (CH)? (DH). Ah, ch; Знаходження різниці порядків або другіміah, dh; словами запланованого зрушень меншою мантіссиP, ch; Занесення до P більшого порядкаal, dl; Bl, [di]; У AX, BX заноситься меншу чіслоbh, [di +1] ;/ SIGL, al; Збереження знака меншого чіслаdl, [si]; У CX, DX заноситься більшу чіслоdh, [si +1]; (По модулю) SIGN, cl; Збереження знака результату @ L2
;
; 2.2. Порядок X менше порядку Y (Px
@ L1: ah, dh; Знаходження різниці порядків або другіміah, ch; словами запланованого зрушень меншою мантісси.P, dh; Занесення до P більшого порядкаal, cl; bl, [si]; У AX, BX заноситься меншу чіслоbh, [si +1] ;/ SIGL, al; Збереження знака меншого чіслаcl, dl; Dl, [di]; У CX, DX заноситься більшу чіслоdh, [di +1] ;/ (по модулю) SIGN, cl; Збереження знака результату
;
; 3. Перетворення мантисс доданків у додатковий код.
;
; 3.1. Переклад трьох байт мантиси менш...
