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

[Pavia]

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

Вопрос: а куда записалось значение функции? Как мне переместить его в eax?

В соответствии с соглашением о вызове результат функции кладется в eax, самой функцией.

Со строками нужно вам найти методичку по BASM Delphi

Но в целом у вас ошибки. В первом вы вызываете не правильно.

mov eax,s
call StrLen

2)

mov eax,s
mov al,[eax+1]

[Kronos913]

К слову говоря, любое обращение к локальным переменным функции выдает ошибку исполнения
Почему?

Function prov(s:string): longword;
asm
 mov eax, 0
 mov al, byte(s[1])
 mov result, eax {}
end;

[Pavia]

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

К слову говоря, любое обращение к переменным функции выдает ошибку исполнения
Почему?

В BASM нельзя писать s[1] он неправильно это компилирует.
Строки это указатели. Поэтому надо в 2 действия. С начало разыменовывать его, а после прибавить позицию.

Для строк mov eax,s компилятор преобразует либо в mov либо в lea в зависимости от того где лежит переменная в параметрах в регистрах или на стеки. - это компилер меджик BASM'а.

Что касается строки
mov al, byte(s[1])
То тут баг компилятора вместо того чтобы выдать ошибку компиляции запихивает в одну ассемблерную команду две. А так как это не воможно он просто выкидывает первую команду и у вашего компилятора вместо
mov eax, [eax]
mov al, [eax+000001]
на выходе получается
mov al, [000001]
Что неправильно.

Первые 4 кб в программе с нулевыми адресами как раз и служат для отлова ошибок работы с указателями.Операционная система ругается что вы к нулевому(nil) указателю прибавили +1 и пробуете прочитать.

[Kronos913]

 mov ecx, s
 mov bl, [ecx+1]
 mov result, ebx

Все равно выдает ошибку

[Kronos913]

 mov ecx, s
 add ecx, 1
 mov bl, [ecx]
 mov result, ebx

Даже так попробовал, все равно ошибка

[Kronos913]

Я вот не пойму...

 mov eax, s
 mov eax, [eax+1]
 mov result, eax

Работает

 mov ebx, s
 mov ebx, [ebx+1]
 mov result, ebx

Выдает ошибку

Вопрос: почему? Те же ж самые действия, только регистр другой

[Kronos913]

Проверил интереса ради
ecx и edx работают норм. Только ebx вызывает ошибки

[Kronos913]

Снова три эксперимента

 mov eax, s
 call StrLen
 mov result, eax

Работает нормально

 mov esi, s
 call StrLen
 mov result, esi

Выдает какой-то бред

 mov esi, s
 call StrLen
 mov result, eax

Работает нормально

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

[Pavia]

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

ecx и edx работают норм. Только ebx вызывает ошибки

Согласно соглашению о вызове Вы обязаны сохранить, а потом восстановить регистры EBX, ESI, EDI, и EBP

EBX используется как указатель self на объект. EBP как указатель стека на локальные переменные.

Register saving conventions

Procedures and functions must preserve the EBX, ESI, EDI, and EBP registers, but can modify the EAX, EDX, and ECX registers. When implementing a constructor or destructor in assembler, be sure to preserve the DL register. Procedures and functions are invoked with the assumption that the CPU's direction flag is cleared (corresponding to a CLD instruction) and must return with the direction flag cleared.

Note: Delphi language procedures and functions are generally invoked with the assumption that the FPU stack is empty: The compiler tries to use all eight FPU stack entries when it generates code.

http://docwiki.embarcadero.com/RADSt...ter_Convention

EDX нужно будет еще и обнулять перед деление и умножением.

Примечание
Если входные параметры описаны как const или без-var они используется как входной параметры EDX, ECX. Что тоже требует их сохранения.

[Pavia]

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

mov result, eax

Эта строчка лишняя.