Ассемблер. Написать программу, заменяющей наименьшее из трех чисел полусуммой двух других.

[xperiax8548]

Помогите в очень легкой задаче, Ассемблер!

Написать программу, заменяющей наименьшее из трех чисел полу суммой двух других.

[Serge_Bliznykov]

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

Помогите в очень легкой задаче, Ассемблер!

просто любопытно, а с чего Вы взяли что это "очень лёгкая" задача?!!

И если она такая лёгкая, то почему Вы сами не написали?! Давайте ваш код, что Вы смогли написать, посмотрим, что у Вас не получается!

[ZX Spectrum-128]

ПисАл, писАл, уже отладил и заработала, как вдруг!
Увидел слово полусумма и сник
С вещественными в асме не умею я

[Serge_Bliznykov]

С вещественными в асме не умею я

а с чего Вы взяли, что речь идёт о вещественных числах?
вполне допускаю, что речь идёт о ЦЕЛОЧИСЛЕННОМ делении на 2

а может быть - и нет!

[ZX Spectrum-128]

Ну, если целочисленное, тогда я решил. ;
А может быть и нет

[ZX Spectrum-128]

{Написать программу, заменяющей наименьшее из трех чисел
полусуммой двух других.}
var
  res,ost,a,b,c : longint;
begin
  readln(a,b,c);
  writeln(a,' ',b,' ',c);
  asm
    mov  eax,a
    mov  ebx,b
    mov  edx,c
    cmp  eax,ebx        // сравниваем а и в
    jl   @a             // a больше, чем b. переходим туда
    xchg eax,ebx        // b больше, чем а меняем их местами
                        // в eax теперь наименьшее
    cmp  eax,edx        // сравниваем с с
    jl   @endif             // a больше чем с, убежали туда
    xchg eax,edx        // в eax наименьшее из eax и с
    mov  a,edx
    mov  c,eax

    jmp  @endif
@a:
    cmp  eax,edx
    jl   @endif
    xchg eax,edx
    jmp  @endif
@endif:
    add  ebx,edx
    xchg eax,ebx
    xor  edx,edx
    mov  ebx,2
    div  ebx
    mov  res,eax
    mov  ost,edx
  end;
  writeln('Полусумма больших чисел = ',res,' ','c остатком ',ost);
  readln;
end.

Какой всетаки натужный у интела асм
Zilog'овский намного проще

[Serge_Bliznykov]

ZX Spectrum-128, а Вы явно не ленивый человек!

но, к сожалению, не факт, что автора топика устроит это решение.
Начиная с того, что его может интересовать полное решение, включая описание секций, ввод и вывод данных на ассме, и заканчивая тем, что его интересует, например, 16 битный ассемблер под MS DOS (задача на TASM)...


p.s. разумеется, я пишу это не для того, чтобы Вы бросили всё и стали переделывать своё решение под мои домыслы!!!

[ZX Spectrum-128]

Не факт, что устроит Так как последнюю часть я не доделал полусумму нашел, но в наименьшее не запихал
Ну не знаю я, как засунуть пару 32-битных регистров в один 32-битный регистр. Если числа не превосходят 32767, то понятно. А если больше?