Преобразование из Паскаля в Ассемблер

[vadimych]

Serge_Bliznykov|, не лень. Надо же практиковаться. Написал вчера для работы с массивами байт, утром переделал под массивы слов. Поторопился. Надо поменять местами две строчки для корректной работы.

sub cx,2
shr cx,1

вместо

shr cx,1
sub cx,2

[DiemonStar]

Труда много, конечно, но многое можно было упростить:

считывание из массива A

lodsw

если отрицательное:

fiadd ax 'понятно, что в st(0) нужно ноль сначала зафутболить)

если положительное, то в массив B:

stosw

и вычисление максимума параллельно

cmp ax,dx 'в dx загнать перед началом цикла 7FFFh
jg no_min
mov dx, ax
no_min:

чтобы упростить выборку из положительного массива, объявить его так:

pos_arr dw N dup (8000h)

и потом можно спокойно устраивать цикл до первого отрицательного элемента.

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

[vadimych]

DiemonStar, спасибо за ценные замечания. Всегда уважал критиков, которыми обычно становятся неудавшиеся писатели.

[Шпилька]

Уважаемые, вы правы. я балда. Дело в том, что мы только только начали проходить ассемблер. И вся суть задания сводится, к тому, чтобы основное (то есть непосредственно нахождение суммы отрицательных чисел и формирование массива из положительных, и нахождение минимума) нужно делать как вставку из ассеблера, а все остальное на Паскаль. Простите-простите, что сразу некорректно сформулировала вопрос. Спасибо за потраченное время

[vadimych]

Шпилька, попробуем довести дело до конца.

uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,s,j,min:integer;
procedure sozdanie;
begin
for i:=1 to n do
a[i]:=random(30)-10;
writeln; end;
procedure vivod;
begin
writeln('Massiv');
for i:=1 to n do
write (a[i],' '); writeln; end;
procedure summa;
var sum,k:integer;
begin
asm
and k,0
xor dx,dx
mov cx,10
lea si,a
lea di,b
mov bx,-1
@0:
lodsw
test ax,ax
jns @1
add dx,ax
jmp @2
@1:
stosw
inc k
cmp ax,bx
ja @2
mov bx,ax
@2:
loop @0
mov sum,dx
mov min,bx
end;
writeln;
writeln('Summa otr.chisel',' ',sum);
writeln;
for i:=1 to k do write(b[i],' ');
writeln;
writeln;
writeln('Minimum',' ',min); end;
begin
clrscr;
randomize;
sozdanie;
vivod;
summa;
readkey;
end.

[Шпилька]

Всем-всем-всем спасибо огромное, вы меня просто спасли))))))

[Serge_Bliznykov]

vadimych, просто нет слов! Круть!
я был уверен, что до встроенного ассемблера дело не дойдёт.
Шокирован тем, что ошибся!
Как говорит современная молодёжь - "респект и уважуха!!"