Ассемблер в Делфях

[Roof]

Нужен код на ассемблере - сложение двух чисел. Хочу реализовать на Delphi в консоле.

[Carbon]

var a,b,sum;
begin
a:=1;
b:=2;
asm
mov eax,a
mov ebx,b
add eax,ebx
mov sum,eax
end;
end;

[Net]

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

var a,b,sum;
begin
a:=1;
b:=2;
asm
mov eax,a
mov ebx,b
add eax,ebx
mov sum,eax
end;
end;

Чуть проще вот так:

    a:=1;
    b:=2;
    asm
        mov eax, a
        add eax, b
        mov sum, eax
    end;

Да, не только проще, но и без вылета Access Violation. Во всех asm-вставках нужно соблюдать соглашения о вызовах и сохранении регистров (что в нашем случае). Регистры ebx, esi, edi подпрограмма или вставка должна сохранять, а после своей работы восстанавливать.
Конечно, раз на раз не приходится, регистр ebx может после кода не использоваться, но мало ли куда этот код будет скопипастен.
Так что либо мой вариант, либо push ebx ..... pop ebx, либо другой регистр (ecx, edx).

Вот более универсальный вариант как функция:

function Sum(const a, b:Integer):Integer; register;  // register на всякий случай
asm
    add eax, edx   // и все
end;

Такие вот пироги..

[Carbon]

Регистры ebx, esi, edi подпрограмма или вставка должна сохранять, а после своей работы восстанавливать.

Неужели! Но почему-то вылетает после использования ecx, edx, да и иногда и eax.

[Roof]

Спасибо народ! буду разбираться

[Net]

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

Неужели! Но почему-то вылетает после использования ecx, edx, да и иногда и eax.

Ну, такое может быть из-за неаккуратности либо по незнанию, либо по еще какой причине.
Регистры eax, ecx, edx компилер при встрече вставок распоряжает таким способом, чтобы они стали полностью доступны - переносит содержащиеся там указатели в стек (либо еще куда).
Но если во вставке будет неаккуратная запись навроде

xor eax, eax
mov [eax], data  // запись в 0-й адрес

то естественно вылет будет из-за умышленной или неумышленной ошибки кодера.
Или например:

var bmp:tbitmap;
....
....
asm
    mov eax, bmp
    ..... хитрые манипуляции по чтению
    mov [eax], [что-нибудь]  // из-за невнимательности или еще чего
end;

а потом где то за вставкой будет bmp.Free, то результат будет тот же. Access Violation.

[Net]

В регистровом соглашении о вызове как раз эти три регистра и являются способом передачи параметров.
function (const a, b, c:Integer):Integer; register; // по умолчанию в дельфе и так соглашение register
asm
в начале кода у нас в eax 1-й параметр, в edx - 2-й, в ecx - 3-й.
и никаких стеков..
end;
но если параметров больше 3-х, или параметры - числа с плавающей запятой, тут уже стек подключается.
хотя числа с плавающей запятой лучше передавались бы через FPU-стек, несомненно это было бы куда эффективнее.

[Carbon]

xor eax, eax
mov [eax], data  // запись в 0-й адрес

Ага, прям так всегда и делаю.

У меня был вылет:

asm
mov edx, variable //Инициализирована!!!
end;

[Net]

Посмотреть бы асм-кодик после этого фрагмента, или после вставки, чего там компилер нагенерил