Mail

В этот день много лет назад...
20 апреля. В 1987 году (37 лет назад) - Впервые нацистский преступник - Карл Линнас - выдается США Советскому Союзу.

Turbo Pascal Documentation

Функция Ptr

     Функция: Преобразует адрес, заданный  в  виде  базового
сегмента и смещения, в значение типа указатель.
     Описание: Рtr(сегм, смещ : word)
     Примечания: Параметры "сегм" и "смещ" представляют  со-
бой выражения длиной в слово. Результатом является указатель
на адрес, заданный параметрами "сегм" и "смещ". Как и указа-
тель типа nil, результат функции Рtr совместим по присваива-
нию с указателями любых типов.
     Результат функции можно проанализировать, например:

if Prt(40, 49)^ = 7 then
    Writeln('видеорежим = моно');

     Прочее: См. также функцию Addr.
     Пример:

var
   p : ^byte;
begin
   p := Ptr(40, 49);
   Writeln('Текущим видеорежимом является ', p^);
end;