[reqyz]

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

Код:

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
как записать?

ив от ещё:

Код:

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

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

Код:

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.]

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

Код:

@l1: nop
jmp @l1

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

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

Код:

    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//тут ворчит

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

Код:

l2:
  push ebp
  mov ebp, esp
  loop l2

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

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

Код:

procedure foo; register; assembler;

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

[reqyz]

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

[reqyz]

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

[angvelem]

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

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

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

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

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