Могу ли я лучше сделать?

Question

[Alertoso]

Могу ли я лучше сделать эту лабу?
Условие: вычислить сумму массива после минимального элемента.

Program Lab6;

{$APPTYPE CONSOLE}

Uses
  Windows;

Const
  N = 10;

Label MinAndMax, M, Exit, sum, m2, exit2;

Var Num1, Num2, Res, I, summ: Integer;
  Arr: Array[1..N] of Integer;
  Min, Max, ResOfSub: Integer;

Begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  Randomize;
  writeln(' ---------------------------------------');
  writeln('|                 Array                 |');
  writeln(' ---------------------------------------');
  for I:=1 to N do
  Begin
    Arr[I]:=Random(100);
    write('|');
    write(Arr[i]:3);
  End;
  write('|');
  writeln;
  ResOfSub:=11;
  writeln(' ---------------------------------------');
  asm
      lea   esi, [arr]
      mov   ecx,  N

      MinAndMax:
          lodsd
          cmp     ebx, eax
          ja      M
          loop    MinAndMax
          jmp     Exit

      M:
          mov   ebx, eax
          mov   edx, ecx
          loop    MinAndMax

      Exit:
      mov   [min], ebx
      sub   [ResOfSub], edx

      lea   esi, [arr]
      mov   ecx,  N
      Sum:
        lodsd
        cmp edx, ecx
        ja   M2
        loop  Sum
        jmp Exit2

      M2:
        add  [summ], eax
        loop  sum

      Exit2:
  End;
  writeln(Min);
  writeln(ResOfSub);
  writeln(summ);
  readln
End.

Comments

[Денис Загаевский]

Но это же от тебя зависит, откуда мы-то знаем?

[Alertoso]

Денис Загаевский, индексация там сбита, то есть не 1-2-3-4-5, а 5-4-3-2-1, поэтому пришлось сделать перед вставкой ResOfSub := 11(для частного случая(N=10), ну и N+1, если для общего), не считаю это красивым тоном, поэтому и обратился за помощью

[VitalyChaikin]

В целом не слишком много смысла делать такой алгоритм на asm-е; Если стоит именно такое задание, тогда другое дело.
Во-первых: не должно быть лишних операторов loop Код на asm-е хотя и является плоским, должен отображать логичную структуру паскаля for - do begin _ end; Т.е. должна быть одна метка начала цикла, и одна метка окончания цикла (loop);
Во-вторых: код должен быть понятным для программера, без выкрутасов с sub [ResOfSub], edx даже если это обусловлено особенностями asm-а (lods) В противном случае обязательно будут грабли, массив у тебя от 1..N, а в asm-е первый элемент [arr] [0] на горизонте выход за границы массива;
Чтобы этого не произошло, проще и надежнее писать стабильный код; Такой, чтобы он явно повторял структуру for

; Очистить min
cld  ; для lods
lea esi, [arr]
mov ecx,  0 ; Обычный понятный цикл
mov arrMaxIndex, N
forECXtoarrMaxIndex:
lodsd
call checkEAXmin ; Внутри проверяем EAX на минимум/максимум
inc ecx
cmp ecx, arrMaxIndex
jl forECXtoarrMaxIndex

[Alertoso]

VitalyChaikin, спасибо!

Answer 1

[VitalyChaikin]

до инструкции cmp ebx, eax нет инициализации ebx это наверняка ошибка :)

Comments

[Alertoso]

Согласен, а то, что у меня индексация сбита, я не могу это подправить?