из 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)

[Гость]

а это как будет на паскале

		mov	al, byte ptr word_2364
		mov	byte ptr [bp+var_202+1], al
		les	di, [bp+arg_0]
		push	es
		push	di
		lea	di, [bp+var_202+1]
		push	ss
		push	di
		call	@Write$qm4Filem3Any ; Write(var	f: File{; buf: PByte})
		add	sp, 4
		call	@__IOCheck$qv	; Exit if error