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

[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;

[Dark]

Посмотрел я насчет возврата в функцию, и увидел следующее,
1. При вызове в функцию резервируются в стеке 4+размер значения функции байта.
2. Тогда, в BX находится адрес возврата в стеке
3. а в SP - адрес, куда кладется то самое, искомое значение
т.е.

function a:word;
begin
  asm
    mov bx,sp
    move word ptr ss:[bx],5 {напрямую в ss:sp возвращать нельзя...}
  end
end;

4. если ничего не возвращать, то вернется значение CS.

Спасибо всем!