перевернуть массив pascal\asm

[mustaman]

одномерный массив, зеркально перевернуть (первый последний, второй предпоследний)
и если с голым паскалем все более чем понятно, то куда тут присобачить вставку на асме?

[alexey2]

может через стек? все кидаем в стек, попутно считаем количество, потом выбираем из стека это же количество

[mustaman]

for i:=1 to n do
  begin
   temp:=a[i];
   asm
    push temp
    mov temp,200
   end;
  end;

for i:=1 to n do
  begin
   asm
    pop temp;
   end;
   write(temp,' ');
  end;
readln;
end.

бред же? по любому есть более красивое решение

[Step_UA]

Для турбо паскаля:

var A:array [1..100] of integer;
   . . .
 asm
  mov   di,N      { количество элементов массива }
  mov   cx,di
  shr   cx,1       { N div 2 }
  dec   di
  shl   di,1      
  lea   si,A        { адрес первого элемента }
  add   di,si       { адрес последнего элемента }
@Loop_:
  mov   ax,[si]
  xchg  ax,[di]
  mov   [si],ax
  add   si,2
  sub   di,2
  loop  @loop_
 end;

[mustaman]

делфи вылетает, уже после исполнения, консоль увидеть не успеваю что выводит

[Rin]

readln в конце программы поставь. Если извращенец, то юзай трассировку.

[Step_UA]

какой вопрос - перевернуть массив pascal\asm, такой и ответ

Для турбо паскаля:

делфи вылетает ...

работайте с 32 разрядными регистрами и учтите при правке, что Integer в делфи также занимает 32 разряда