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

[Kronos913]

30 минут ищу, никак не найду
То что cmp, eax, ecx проверка на равенство - это нашел

А как проверить на то что одно значение > другого, или < другого?

Cобственно, надо соорудить на ассемблере аналог такой delphi-конструкции:
If (aex>=97) and (aex<=122) then aex:=aex-32;

[Pavia]

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

То есть, call StrLen всегда будет давать результат в eax, а в качестве строки использовать последний задействованный регистр?
Или это может еще зависеть от процессора, операционки, и т.д. ?

Пока вам рано задавать этот вопрос. Если я отвечу вы только запутаетесь. Учите соглашения о вызовах которые разработали в Борланде и преведено в справке вашего компилятора D7.
Вам только они понадобятся.

Когда будете вызывать WinAPI из ассемблера вам потребуется выучить cdcal и stdcall.

[Kronos913]

 mov edx, s
 call StrLen

 mov ecx, edx
 add ecx, eax

 sub ecx, 1

 mov eax, 0
 mov al, [ecx]

 mov result, eax

Попытался сделать код, который вернет последний символ строки. А получился какой-то генератор случайных чисел...

[Pavia]

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

То что cmp, eax, ecx проверка на равенство - это нашел

А как проверить на то что одно значение > другого, или < другого?

Cобственно, надо соорудить на ассемблере аналог такой delphi-конструкции:
If (aex>=97) and (aex<=122) then aex:=aex-32;

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

[Kronos913]

 mov edx, s
 call StrLen

 mov ecx, 0

 mov cl, [edx]

 mov result, ecx

Пусть и одинаковый каждый раз результат, но не соответствует коду ни первого ни второго элемента строки

[Kronos913]

 mov edx, s

 mov ecx, 0

 mov cl, [edx]

 mov result, ecx

Нормально работает, показывает первый символ

Но вот теперь, как найти последний символ?

[Kronos913]

Что не делаю, не пойму, как в одни регистр положить адрес строки, а в другой - ее длину...

[Kronos913]

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

Function prov(s:string): longword;
 var
  q:longword;
begin
 q:=length(s);
 asm
   mov edx, s
   mov ecx, q
   add ecx, edx
   sub ecx, 1

   mov eax, 0
   mov al, [ecx]

   mov result, eax
 end;
end;

При отладке показывает код.

Теперь пробую убрать костыль

   mov eax, s
   call LStrLen
   mov ecx, eax

   mov edx, s

   add ecx, edx
   sub ecx, 1

   mov eax, 0
   mov al, [ecx]

   mov result, eax

И в процессе выполнения появляется ошибка!

В чем проблема? Из-за чего ошибка? Из eax можно только в переменную в оперативке выгрузить результат функции, чтобы все работало?

[Kronos913]

Я вот реально не понимаю... Смотрю в рабочий код компилятора. От моего отличается только тем, что пытаюсь напрямую из eax передать в ecx

[Kronos913]

Итак. Вот получилась рабочая функция:

Function prov(s:string): longword;
 var
  q:longword;
begin
 q:=length(s);
 asm
   mov ecx, q
   mov eax, 0
   cmp ecx, 0
     je @Finish
   mov edx, s
   cmp ecx, 4
       jle @i_1_2
     add ecx, edx
     jmp @Start_c
   @i_1_2:
     add ecx, edx
     mov edx, ecx
     sub edx, 4
   @Start_c:
     mov al, [edx]
     cmp al, 97
       jl @F2
     cmp al, 122
       jg @F2
     sub al, 32
     @F2:
     inc edx
     cmp ecx, edx
       je @Finish
     shl eax, 8
     jmp @Start_c
   @Finish:
   mov result, eax
 end;
end;

И теперь вопрос в том, как убрать этот костыль с лишней переменной и заставить длину строки сохраниться напрямую в регистр ?