0

Всем привет)

Осваиваю асм в дельфях (вроде BASM). Осилил основные операции, работу с int/char, указателями. Запарываюсь на вызове функций. Кто в курсе, подскажите, что вставить в код и, если не сложно, объясните, что там важно/нужно учитывать.

Моя наработка, ожидаемый результат - массив заполнен случайными int'ами.

procedure fillInt32(p: pointer; sz, max: integer); register;
  asm    
    mov ebx, max    {
                      заглушка, так процедура работает 
                      вместо нее ожидается что-то вроде "mov ebx, random(max)"
                      после @lb, но это, естественно, не работает) 
                    }
    @lb:
    mov dword ptr [eax], ebx // присваиваем max элементу
    add eax, 4               // сдвигаем указатель на 4 байта
    sub sz, 1                // уменьшаем длину
    cmp sz, 0                // если длина != 0
    jnz @lb                  // в начало цикла, иначе выходим
  end;

Вызов:

const
  arrSz: 16;
type
  int32: longint;
  TArr: array[0..(arrSz-1)] of int32;
  PArr: ^TArr;
var
  aint32: PArr;

begin
  aint32 := allocMem(arrSz * sizeOf(Int32));
  fillInt32(aint32, arrSz, 20);
  { ... }
end.

Гуглил, искал в 2 книгах, там только методы. Я и этот механизм не совсем понимаю, но там хоть примеры довольно прозрачные есть, а вот вызов обычных функций из дельфей/винапи не нашел. На крайний случай нашел реализацию ГПСЧ на basm, но цель сейчас образовательная.

ЗЫ: Delphi 7, win32

UPDATE [ решено ] я так понял, у рандома что-то не так с возвращаемым значением. Конечный код:

function MRand(max: int32): int32;
begin
  Result:= 1+random(max);
end;

procedure fillInt32(p: pointer; sz, max: int32);
  asm
    mov eax, p
    mov ebx, sz
    mov ecx, max
    @lb:
    push eax
    mov eax, ecx
    call MRand
    mov edx, eax
    pop eax
    mov dword ptr [eax], edx
    add eax, 4
    sub ebx, 1
    jnz @lb
  end;

И еще небольшой апдейт

На самом деле:

call System.@RandInt { то есть, call Модуль.@Символ }

Вот такие пироги) Еще раз спасибо всем за участие.

11
  • А что не так? По умолчанию для Delphi соглашение передачи параметров через регистры для подпрограмм объявленных register;, если количество параметров не больше 3-хю В остальном случаи через стек. PS: BASM это Borland ASM.
    – Ildar
    13 мар 2012 в 11:30
  • 2
    На вопрос не отвечу - не знаком со спецификой дельфи, скажу про ассемблер: cmp sz, 0 // если длина != 0 эта проверка лишняя, т.к. команда sub сама если надо модифицирует zf.
    – dword
    13 мар 2012 в 11:32
  • Что не так... Не работает оно) Если MOV EBX, random, в ebx попадает фиксированное число. CALL random стабильно выдает ошибку. INVOKE неизвестен (на всякий случай тестил). Про борланд я ниже написал, да)
    – Sh4dow
    13 мар 2012 в 11:34
  • К сожалению не знаю, как в Дельфи. В Си можно посмотреть ассемблерный код, создаваемый компилятором (gcc -S t.c) будет в t.s, а потом по аналогии вызвать функцию у себя. Наверное в Дельфи тоже можно (тут был вопрос в котором был ассемблерный код из Паскаля).
    – avp
    13 мар 2012 в 11:35
  • @dword благодарю)
    – Sh4dow
    13 мар 2012 в 11:36

2 ответа 2

2
function Random ( LimitPlusOne : Integer ) : Integer;

А сколько занимает в delphi Integer? 4 байта, должно работать.

1
  • Именно этот комментарий помог) Сделал свой аналог random, вызвалось.
    – Sh4dow
    13 мар 2012 в 12:16
1

Ни про какой BASM раньше не слышал. Здесь я так понимаю просто используется инлайн-ассемблер.

По поводу вопроса, если имеется в виду вызов фуникции random из ассемблерного кода, то примерно так (будем считать что в ebx лежит значение max):

push ebx
call random

В eax должно оказаться полученное случайное число.

UPD. У меня Delphi 2010, вот это успешно компилируется, насколько правильно работает нужно еще проверять.

procedure fillInt32(p: pointer; sz, max: integer); register;
  asm
    mov ebx, max
    mov edi, p
    @lb:
    push ebx
    call random
    mov dword ptr [edi], eax // присваиваем случайное число элементу
    add edi, 4               // сдвигаем указатель на 4 байта
    sub sz, 1                // уменьшаем длину
    cmp sz, 0                // если длина != 0
    jnz @lb                  // в начало цикла, иначе выходим
  end;
4
  • . 46: push ebx 47: call random [Error] testasm.dpr(47): Invalid combination of opcode and operands да, basm = borland assembler
    – Sh4dow
    13 мар 2012 в 11:26
  • @ildar Стандартно (в delphi7) - integer == longint(4 байта), я объявил инт32 на всякий случай, если придется под х64 портировать. А про функцию не понял. Переобъявить ее или?
    – Sh4dow
    13 мар 2012 в 11:43
  • . mov edi, pointer Вот это вряд ли правильно отработает, но все равно спасибо)
    – Sh4dow
    13 мар 2012 в 12:19
  • Тфу ты, mov edi,p В оригинале p не записывается в eax, а потом обращение идет, как будто он там лежит.
    – insolor
    13 мар 2012 в 12:23

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.