Delphi assembler sabiti 'eof'

Question

Asm bloğu bağlamında belgesiz bir sabit eof görünüyor. Bu Bu 14 yazdırır Delphi 7.

program TestEof; 
{$APPTYPE CONSOLE} 
var 
    example : Integer; 
begin 
    asm 
    mov example, eof 
    end; 
    writeln(example); 
    readln; 
end. 

kullanılarak test edilmiştir.

Bu sabit eof ve değeri $0E veya 14 değeri nereden geliyor?

---

DÜZENLEME: Bu

... 
call @InitExe 
// mov example, eof 
mov [example], $0000000e 
// writeln(example) 
mov eax, [$004040a4] 
mov edx, [example] 
call @Write0Long 
call @WriteLn 
call @_IOTest 
// readln; 
... 

Answer 1

Eof aslında bir function defined in the System unit içindedir derleme sonucudur.

function _EofFile(var f: TFileRec): Boolean; 
function _EofText(var t: TTextRec): Boolean; 

ben: I eldeki Delphi 6 ve Xe2 Eof aşağıdaki işlevlerden birini bir çağrı ile sonuçlanan bir intrinsic routine olarak uygulanır, uygun olduğu hallerde Delphi uygulamalarda

assembler kodunuzun neden mov [...],$0000000e'a dönüştüğüne dair hiçbir fikriniz yok. System biriminin kodundaki eof kodunu kullandığını, örneğin TextOpen numaralı telefon numarasını kullandığınızı belirttiniz. XE2'deki aynı kod şimdi saf Pascal'dır ve $0E yerine $1A değerini arar. Bu, uygulama detayı olarak görülüyor. Bunun neden böyle olduğunu anlamak istiyorsanız, o zaman System birimindeki kodu tersine çevirmeniz veya Embarcadero'daki mühendislerin uygulamayı size açıklayıp uygulamadığını kontrol etmeniz gerektiğini düşünüyorum.