Несколько вопросов по asm

[Kronos913]

Код, который дает тот же результат на delphi

Function UpString4ToLongWord(const s:string): LongWord;
var
  i, j:byte;
  c:array [0..3] of char;
Begin
 j:=length(s);
 For i:=0 to 3 do begin
     If i<j then c[i]:=UpCase(s[j-i])
     Else c[i]:=#0;
 end;
 Result:=LongWord(c);
End;

И вот вопрос, что лучше? Потому что анализ cpu выдал меньше ассемблерных строк тут
Но тут куча работы с переменными

[northener]

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

Потому что анализ cpu выдал меньше ассемблерных строк тут

А что тут тогда думать?
Не ну я не возражаю, чтобы вы продолжали изучать ассемблер. Раз уж вы так упорны в этом деле. Глядишь и что-то полезное получится со временем.

[northener]

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

Вот с таким вот костылем программа работает
Код:

Function prov(s:string): longword;
var
q:longword;
begin
q:=length(s);

Ну раз уж вы решили писать код на ассемблере, то нафига вам использовать Дельфийскую функцию Length? Вам уже сказали как зайти внутрь функции и посмотреть её ассемблерный код.

[Kronos913]

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

Ну раз уж вы решили писать код на ассемблере, то нафига вам использовать Дельфийскую функцию Length? Вам уже сказали как зайти внутрь функции и посмотреть её ассемблерный код.

Ну вот в том проблема, что когда я так сделал - программа начала выдавать какой-то бред. И я не пойму, почему...

[Kronos913]

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

CMP проверяет не только равенства но и неравенства.
Если быть точным CMP взводит флаги а далее выполняем джампы
JE =
JNE <>
JL <
JLE <=
JG >
JGE >=
Правда у меня почему то SUB вместо CMP используется.

А можно ли к одному cmp подсоединить несколько условий ответа?
Ну то есть. Если сравнивать 2 числа, может же быть 3 варианта: <, = и >

И можно ли за один cmp обработать все 3 версии? Или надо сначала проверить один вариант (например <), а потом еще раз сравнивать на предмет = ?

[ForenLi]

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

А можно ли к одному cmp подсоединить несколько условий ответа?

Можно, именно так и делается.

А вообще открываете https://www.intel.com/content/dam/ww...ual-325383.pdf и смотрите:
jcc - флаги не меняют, а только проверяют -> cmp, jcc, jcc, jcc, ... будет работать.

[Kronos913]

procedure KeyEng2(var c:char);
const
 Ke1= '}F<DULT:PBQRKVYJGHCNEA{WXIO}SM">Zf,dult;pbqrkvyjghcnea[wxio]sm''.z';
asm
  mov eax, c
  cmp eax, 191
    JL @Prov2
  mov ecx, Ke1

  @Prov2:



  @End1:
  mov c, eax
  @Finish:
end;

Выдает ошибку на этой строчке. Почему?

 mov eax, Ke1

[Kronos913]

И еще, не хочет передавать чар в один байт регистра. Тоже ошибка есть так:

mov al, c

[northener]

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

Выдает ошибку на этой строчке. Почему?

Потому что неверный/невалидный второй операнд для этой инструкции.
Вам дали ссылку на документ с подробным описанием инструкций ассемблера, но вы похоже изучать его не желаете. Вольному-воля. Но с таким подходом я уж точно не доживу до того момента, когда вы хоть как-то освоите ассемблер.

[Kronos913]

К сожалению, с английским тяжело...
Я просто не совсем понимаю, почему переменная размером с 1 байт не хочет перемещаться в 1 байт регистра