из ASM в Pascal, ASM Опции

[AET]

народ можете подсказать я дизасамблировал программу теперь надо перевести в паскаль что зто может означать

add	sp, 4
		call	@__IOCheck$qv	; Exit if error
		mov	al, byte ptr [bp+var_202+1]
		xor	ah, ah
		xor	dx, dx
		mov	word_2364, ax
		mov	word_2366, dx
		les	di, [bp+arg_0]
		push	es
		push	di
		push	word_2392
		push	word_2390
		call	@Seek$qm4File7Longint ;	Seek(var f; n: Longint)

[andriano]

Предположительно должно быть примерно так:
первая строка говорит о том, что в подпрограмме используются локальные переменные суммарной длиной 4 байта.

__IOCheck$qv;
word_2364 := lo(var_202[1]);
word_2366 := 0;
Seek$qm4File7Longint(arg_0,word_2392,word_2390)

Сообщение отредактировано: andriano - 12.03.2008 13:02