Умножение массивов Паскаль+АСМ - Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM - Страница 2

xVxSeRGxVx · 17.02.2010, 22:13

ну с асмом я могу согласиться, что я там наковырял, а в Паскале что там непонятного ?

Mikl___ · 18.02.2010, 05:59

xVxSeRGxVx
и в чем проблема?

Код:

.data 
a db 121, 234, 56, 219, 126
b db 69, 198, 27, 219, 255
res dw 5 dup (?)
.code
mov bx,4; перемножаем с конца массива, индекс на 1 меньше 
;т.к. адресация в массиве начинается с нуля
a1: mov al,a[bx]; в AL очередной элемент из массива A
      mul b[bx]; умножаем на элемент из массива B
      shl bx,1; элементы массива RES занимают в два раза больше места
      mov res[bx],ax; результат умножения в элемент массива RES
      shr bx,1; возвращаем индексу первоначальный размер
      dec bx; переходим к следующему элементу
      jns a1; если прошли не весь массив начинаем с начала

если требуется перемножить числа со знаком -- замени mul на imul
если требуется перемножать не байты а слова, замени AL на AX
dec bx на sub bx,2 и т.д.

xVxSeRGxVx · 18.02.2010, 10:23

Цитата:

Сообщение от Mikl___

xVxSeRGxVx
и в чем проблема?

Код:

.data 
a db 121, 234, 56, 219, 126
b db 69, 198, 27, 219, 255
res dw 5 dup (?)
.code
mov bx,4; перемножаем с конца массива, индекс на 1 меньше 
;т.к. адресация в массиве начинается с нуля
a1: mov al,a[bx]; в AL очередной элемент из массива A
      mul b[bx]; умножаем на элемент из массива B
      shl bx,1; элементы массива RES занимают в два раза больше места
      mov res[bx],ax; результат умножения в элемент массива RES
      shr bx,1; возвращаем индексу первоначальный размер
      dec bx; переходим к следующему элементу
      jns a1; если прошли не весь массив начинаем с начала

если требуется перемножить числа со знаком -- замени mul на imul
если требуется перемножать не байты а слова, замени AL на AX
dec bx на sub bx,2 и т.д.

я это понимаю, проблема в том, что массивы передаются у функцию написанную на АСМ-е с паскаля.
указатель на первый массив я б нахожу вот так

Код:

lds SI, [bp+4]

, после чего по можна брать значения елементов массива с помощью функции

Код:

 lodsw

- тут всё просто, а вот в чем проблема, допустим сдвиг DI по 2-му массиву я запишу в DI:

Код:

lds DI, [bp+8]

а как с нимим ожновременно работать не понимаю хотя можно сделать так:

Код:

lds SI, [bp+4]
lds DI, [bp+8]
MOV CX,5 ; потомучто 5 елементов в массиве
M1:
    lodsw;ЗАГРУЖАЕМ В АХ первый елемент 1-го массива
    MOV BX,[DI];ЗАГРУЖАЕМ В BХ первый елемент 1-го массива
    MUL BX
    ADD DI,2 ;увел. сдвиг на 2 (след. елемент 2-о массива)
LOOP M1

ПРАВДА, я не уверен что программа заработает

Mikl___ · 18.02.2010, 10:35

Код:

TMas1=array [1..5] of byte;
TMas2=array [1..5] of byte;
res=array [1..5] of word;
asm
mov di,4; перемножаем с конца массива, индекс на 1 меньше 
;т.к. адресация в массиве начинается с нуля
a1: mov al,[bp+4][di]; в AL очередной элемент из массива TMas1
      mul [bp+8][di]; умножаем на элемент из массива TMas2
      shl di,1; элементы массива RES занимают в два раза больше места
      mov [bp+12][di],ax; результат умножения в элемент массива RES
      shr di,1; возвращаем индексу первоначальный размер
      dec di; переходим к следующему элементу
      jns a1; если прошли не весь массив начинаем с начала
end

так понятнее? Если адреса массивов передаются через стек, так и используй их в виде [bp+XX] перемножаешь элементы с одним индексом и он же служит счетчиком вместо CX

xVxSeRGxVx · 18.02.2010, 10:53

Цитата:

Сообщение от Mikl___

Код:

TMas1=array [1..5] of byte;
TMas2=array [1..5] of byte;
res=array [1..5] of word;
asm
mov di,4; перемножаем с конца массива, индекс на 1 меньше 
;т.к. адресация в массиве начинается с нуля
a1: mov al,[bp+4][di]; в AL очередной элемент из массива TMas1
      mul [bp+8][di]; умножаем на элемент из массива TMas2
      shl di,1; элементы массива RES занимают в два раза больше места
      mov [bp+12][di],ax; результат умножения в элемент массива RES
      shr di,1; возвращаем индексу первоначальный размер
      dec di; переходим к следующему элементу
      jns a1; если прошли не весь массив начинаем с начала
end

так понятнее? Если адреса массивов передаются через стек, так и используй их в виде [bp+XX] перемножаешь элементы с одним индексом и он же служит счетчиком вместо CX

теоретически возможно... на практике попозже проверю... спасибо

xVxSeRGxVx · 18.02.2010, 23:28

ну вот попробывал внедрить код выше представленной идеи, мой паскаль:

Код:

{$L c:\tasm\bin\multipl.obJ}
Program labasrn_3;
uses crt;
Type
TMas1=array [1..5] of integer;
TMas2=array [1..5] of integer;
Var Mas1 , Mas2 :TMAS1;
    MasRes:TMas2;
i,res,a,b : integer;
function multipl(var MasRes:TMas2; Mas1, Mas2:TMas1):integer;external;
Procedure Vvod ;
Begin
TextColor(Red);
Writeln;
TextColor(2);
Writeln('5 eleM Mac inp!');
TextColor(yellow) ;
For i:=1 to 5 do
Begin
Mas1[i]:=random(5);
Writeln('Mas1[',i,']=',Mas1[i]);
End;
For i:=1 to 5 do
Begin
TextColor(4);
Mas2[i]:= random(16);
Writeln('Mas2[',i,']=',Mas2[i]);
End;

Readln;
End;

BEGIN {Main}
ClrScr;
Vvod;
multipl(MasRes, Mas1, Mas2);
TextColor(Blue);
for i:=1 to 5 do
begin
Writeln('MasRes[',i,']=',MasRes[i]);
end;
Readln;
END.

обратите внимание, как я передаю параметры у функцию multipl, поскольку это очень важно...
моя функция в ассемблере( файл multipl.asm):

Код:

ideal
segment CODE byte public
	assume cs:CODE
	public multipl
	arr_ptr1 equ 8
	arr_ptr2 equ 4
	push bp
	push ds
	push cx
	push bx
	push dx


proc multipl
	push bp
	mov bp, sp
	
	mov di, 4		

a1: mov ax,[bp+4][di]	
      mul [bp+8][di]		
      shl di,1			
      mov [bp+12][di],ax
      shr di,1			
      dec di			
      jns a1			

	pop bp
	ret 4
endp multipl 

	pop dx
	pop bx
	pop cx
	pop ds
	
ends Code
end

кстати я не понял вот этот момент: [bp+4][di] - это двухмерный массив что-ли? я первыйраз стикаюсь с таким...

о, и у меня tasm.exe ругается :

xVxSeRGxVx · 19.02.2010, 00:48

вот ещё одна версия функции на АСМ-е:

Код:

ideal
segment CODE byte public
	assume cs:CODE
	public multipl
	arr_ptr1 equ 8
	arr_ptr2 equ 4
	arr_ptr3 equ 12
	push bp
	push ds
	push cx
	push bx
	push dx


proc multipl
	push bp
	mov bp, sp
	mov bx, [bp+arr_ptr1]
mov DI, arr_ptr1
MOV CX, 5

PUSH DI
PUSH CX

M1: 
	MOV AX, [BX]
	MOV DS:[DI], AX
	ADD DI, 2
	ADD BX, 2
LOOP M1

POP CX
POP DI

mov SI, arr_ptr2
M2:
	LODSW
	MUL DS:[DI] ;не уверен можно ли так писать
	MOV [BP+arr_ptr3], AX
	ADD DI, 2
LOOP M2

	pop bp
	ret 4
endp multipl 

	pop dx
	pop bx
	pop cx
	pop ds
	
ends Code
end

правда не знаю можно ли так писать, и она не работает, возвращает только нули

Doholyan · 19.02.2010, 00:51

xVxSeRGxVx
function multipl(Mas1 , Mas2:TMas1):integer;external;
Procedure Vvod ;

вот то что меня поставило в тупик....
поясни пожайлуста эти строчки....

xVxSeRGxVx · 19.02.2010, 01:02

Цитата:

Сообщение от Doholyan

xVxSeRGxVx
function multipl(Mas1 , Mas2:TMas1):integer;external;
Procedure Vvod ;

вот то что меня поставило в тупик....
поясни пожайлуста эти строчки....

ой... а где это... в предыдущем примере с Паскаля написано:

Код:

function multipl(var MasRes:TMas2; Mas1,Mas2:TMas1):integer;external;

а вызывается функция так:

Код:

multipl(MasRes, Mas1, Mas2);

то наверно я опечатку сделал раньше (sorry)

Doholyan · 20.02.2010, 11:40

xVxSeRGxVx
Да, это было в Паскале написанно...
function multipl(Mas1 , Mas2:TMas1):integer;external;
Procedure Vvod ;
Помню как вызываються функции, обьясни именно вторую строчку!

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Паскаль.Обработка двумерных массивов.	popozoglo	Помощь студентам	2	12.02.2010 01:33
Паскаль.Обработка одномерных массивов.	popozoglo	Помощь студентам	2	11.02.2010 22:49
Паскаль: Операции с элементами массивов.	iolopukki	Помощь студентам	1	23.06.2009 19:54
Паскаль,формирование массивов.	Amenus	Помощь студентам	4	10.03.2009 20:33
Паскаль. Помогиет с умножением массивов	set	Помощь студентам	2	20.11.2007 14:49

17.02.2010, 22:13	#11
xVxSeRGxVx Пользователь Регистрация: 28.09.2009 Сообщений: 42	ну с асмом я могу согласиться, что я там наковырял, а в Паскале что там непонятного ?

19.02.2010, 00:51	#18
Doholyan Форумчанин Регистрация: 26.04.2009 Сообщений: 270	xVxSeRGxVx function multipl(Mas1 , Mas2:TMas1):integer;external; Procedure Vvod ; вот то что меня поставило в тупик.... поясни пожайлуста эти строчки....

20.02.2010, 11:40	#20
Doholyan Форумчанин Регистрация: 26.04.2009 Сообщений: 270	xVxSeRGxVx Да, это было в Паскале написанно... function multipl(Mas1 , Mas2:TMas1):integer;external; Procedure Vvod ; Помню как вызываються функции, обьясни именно вторую строчку!