Считать один байт по адресу..

[manoichi]

Помогите с реализацией задачи: Как в Паскале считать один байт по адресу $0001:$0231 из памяти компьютера.Ну или объясните как примерно должно выглядеть.Заранее спасибо.

[veniside]

var
  b: byte;
begin
  asm
    push ds
    push ax
    mov ds, 1
    mov ax, $231
    mov al, [ax]
    mov b, al
    pop ax
    pop ds
  end;
  //
  writeln(b);
end;

типа того, или так:

var
  b: byte absolute $1:$231;
begin
  writeln(b);
end;

[manoichi]

Вчера инет отрубили .Долго долбался, но пришел почти к этому.Спасибо