оптимизация кода Опции

[Dark]

Вопрос в следующем, как лучше, и чем(в сравнении):

Занесение в регистр es адреса буфера видеопамяти:

; 1
  push 0a000h
  pop es
  xor di, di

; 2
  mov ax, 0a000h
  mov es, ax
  xor di, di

; 3
  const vadr: pointer = ptr($a000,0);
  ; ...
  les di, vadr

и как мне в асме присвоить значение функции, т.е.

вместо

function a: byte;
begin
  a:=4;
end;

чтото типа

function a:byte;
begin
  asm
    a:=4;   !!!!!!!!!!!!!!!!!! не проходит.... а как ???
  end;
end;