[reqyz]

Доброго времени) С Делфями работаю уже довольно давно, а в ассемблере нуб полнейший, знаю, что можно включать асм код в делфи с помошью asm..end; но у меня возникли сложности с переводом кода из ассемблера, не могу или не знаю как правильно объяснить делфи такую конструкцию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

kit_start: section .restart vstart=0     cli     xor bx, bx                  mov ss, bx     mov [ss:0x7afe], sp         mov sp, 0x7afe                 push ds     pushad                          mov ds,bx                       mov ax, [0x413]                 sub ax, 2                       mov [0x413], ax                 shl ax, 0x6                     mov ax, CODEBASEIN1MB           mov es, ax                        mov bx, 0x8000                                                    mov [bx + codereloc], ax        mov [bx + codeloc2], ax         xor bx, bx           cld       ......       mov [0x4e], es     sti                     push es                  push word dertig     retf

начало
kit_start:
section .restart vstart=0
как записать?

ив от ещё:

Код:

1 2 3 4 5 6 7 8 9 10

sleep:.     mov cx, 0x1ff l1:                                 push cx     mov cx,0xffff l2:                                 loop l2     pop cx     loop l1     ret

на l2 ругается если записывать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure sleep(); asm     mov cx, 0x1ff end;   procedure l1(); asm     push cx     mov cx,0xffff end;   procedure l2(); asm     loop l2//тут ворчит     pop cx     loop l1     retend;

что делать как быть?
кода там намного больше, если до чего дойду, ещё спрошу, тут помогите)

[M.A.D.M.A.N.]

Метки пишутся так:

Код:

1 2	@l1: nop jmp @l1

А код в твоем примере походу только в ring0 будет работать, ибо он для дос.

З.Ы, и смысл в этом коде?

Код:

1 2 3

mov cx,0xffff l2:                                 loop l2

Записываем в счетчик FFFF и лупим его до нуля.

[Bargest]

Не просто для дос - это походу кусок какого-то загрузчика или операционки. Все указывает именно на это:

mov [ss:0x7afe], sp
mov sp, 0x7afe
push ds
pushad
...
CODEBASEIN1MB
...
xor bx, bx
mov ss, bx
...
mov ds,bx

В нулевом кольце тоже работать не будет - последние две команды в любой существующей операционке вызовут краш скорее всего, 0 - не очень хороший селектор.
ТС видимо пытается написать загрузчик на делфях... Некоторые пытались тут, ничего не вышло толком. Делфа для этого не предназначена.

procedure l2();
asm
loop l2//тут ворчит

А чего бы ему не ворчать? Это скомпилится как-нибудь так:

Код:

1 2 3 4

l2:   push ebp   mov ebp, esp   loop l2

Поэтому переход на внешние по отношению к асм-вставке имена запрещен. Иначе у делфы бы крыша поехала анализировать асм-код и пытаться так работать со стеком, чтобы все эти переходы не сорвали его.

[M.A.D.M.A.N.]

Код:

1	procedure foo; register; assembler;

Так без пролога будет.

[reqyz]

Спасибо, буду разбираться, в случае чего ещё спрошу)

[reqyz]

kit_start:
section .restart vstart=0
а что касаемо этого фрагмента, как это в делфях будет выглядеть?

[angvelem]

Никак не будет, и уже писали почему.

[M.A.D.M.A.N.]

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

Никак не будет, и уже писали почему.

Не доходит через голову - дойдет через руки.