Умножение N-байтного числа на число размером М байт с учетом знака

ПРОГРАММА mul_sign_NM

//---------------------------------------------------------

//mul_sign_NM - программа на псевдоязыке умножения N-байтного числа

//на число размером М байт

//(порядок - старший байт по младшему адресу (не Intel)) //

Вход: U и V - множители со знаком размерностью N и М байт соответственно;

//Ь=256 - размерность машинного слова. //Выход: W - модуль (дополнение) произведения размерностью N+M байт.

//---------------------------------------------------------

ПЕРЕМЕННЫЕ

INTJ3YTE u[n]; //множитель 1 размерностью N байт

INT_BYTE v[n]; //:множитель 2 размерностью М байт

INT_BYTE w[n+m]: k=0://перенос 0 < k < 255

INT_BYTE sign=0: //информация о знаке

INT_WORD b=256: temp_word //b - размер машинного слова

НАЧ_ПРОГ

//определим знак результата

ЕСЛИ БИТ_7_БАЙТА((и[0] AND 80h) XOR v[0])==1 TO sign:=1

//результат будет отрицательным //получим модули сомножителей: u:-|u| v:-]v|

w:=mul_unsign_NM() //в этой точке - модуль результата //восстанавливаем знак результата ЕСЛИ sign==0 TO ПЕРЕЙТИ_НА Шт

//для отрицательного результата вычислить дополнение значения w длиной i+j w:=calc_complement_r() //в этой точке - двоичное дополнение результата @йп: КОН_ПРОГ

:mul_sign_NM.asm - программа на ассемблере умножения N-байтного числа :на число размером М байт

;(порядок - старший байт по младшему адресу (не Intel))

.data ;значения в U и V нужно внести

;Помните. что задание отрицательных многобайтных значений в ;сегменте данных должно производиться в дополнительном коде ;(и в порядке байтов - старший байт по младшему адресу)!

U db ? :множитель 1 размерностью N байт

i-$-U

V db ? ;множитель 2 размерностью М байт

J-$-V

len_product=$-U

W db len_product dup (0) результат длиной N+M байт

k db 0 ;перенос О < k < 255

b dw lOOh ;размер машинного слова

sign db 0 информация о знаке

.code

;включить описание процедур calc_complement_r. calc_abs_r. :mul_unsign_NM

mul_sign_NM ргос ;НАЧ_ПРОГ юпределим знак результата

Начало Назад Вперед