DOS TurboPascal

[иванлеон]

Как осуществить установку пикселя с использованием библиотеки DOS TurboPascal? То есть закрасить пиксель.Графический режи 320 на 200.Вот так вот через DOS инициализируется

procedure initgraph;
 var
    r: registers;
 begin
      SwapVectors;
      r.ah:=$00;
      r.ax:=$13;
      intr($10,r);
      SwapVectors;
 end;

 procedure closegraph;
 var
    r: registers;
 begin
      SwapVectors;
      r.ah:=$00;
      r.ax:=$03;
      intr($10,r);
      SwapVectors;
 end;

А как поставить пиксель, не знаю

[Poma][a]

Модуль Graph. Процедура PutPixel

[иванлеон]

Надо при помощи DOS, а не Graph

[Poma][a]

Эм.. DOS - это операционная система, под который работает Turbo Pascal, а Graph - это графический модуль. (подробнее см. справка)

[s-andriano]

Сообщение от Poma][a

Модуль Graph. Процедура PutPixel

Модуль Graph ничего не знает о режиме 320х200.

Теперь по теме:

Среди прерываний DOS есть те, которые закрашивают пиксель. Соответственно, по справочнику прерываний DOS нужно их найти и соответствующим образом обратиться.
Разумеется, после того, как будет установлен графический режим.

Но это неэффективный (очень медленный) путь.
В видеорежиме $13 видеопамять предсттавляет собой один сплошной массив, каждому байту которого соответствует пиксель. Т.е. точку можно закрасить (и это будет быстрее всего) просто записав нужный байт по нужному адресу.
Примерно это будет выглядеть так:

procedure SetPixel(x,y : word; c : byte);
begin
  mem[SegA000 : x + 320*y] := c;
end;

Примечание: можно еще чуть-чуть ускорить процедуру, если вместо умножения применить комбинацию из сложения и сдвигов.

[иванлеон]

s-andriano, через mem я делал уже. Почему-то возникает арифметическое переполнение. Хотя какое-там переполнение, значение не уходит за допустимые для переменной integer.Пробовал использовать переменную longint, такая же фигня.
Да и в итоге оказалось по-заданию мне надо сравнить во сколько раз быстрее будет работать прога, если сначала я нарисую фигуру, используя для установки пикселя ассемблеровскую вставку, а второй раз - через библиотеку DOS/ Да и тема задания про прерывания.Ассемблер я сделал, а с DOS возникли проблемы

[иванлеон]

s-andriano - большое спасибо за помощь! Нашёл справочник и сделал! Кому интересно

procedure PutPixel(x,y:integer;color:byte);
var
r:registers;
begin

SwapVectors;
r.ah:=$0c;
r.dx:=y;
r.cx:=x;
r.al:=color;
intr($10,r);
SwapVectors;

end;

[s-andriano]

Сообщение от иванлеон

s-andriano, через mem я делал уже. Почему-то возникает арифметическое переполнение. Хотя какое-там переполнение, значение не уходит за допустимые для переменной integer.Пробовал использовать переменную longint, такая же фигня.
Да и в итоге оказалось по-заданию мне надо сравнить во сколько раз быстрее будет работать прога, если сначала я нарисую фигуру, используя для установки пикселя ассемблеровскую вставку, а второй раз - через библиотеку DOS/ Да и тема задания про прерывания.Ассемблер я сделал, а с DOS возникли проблемы

Арифметическое переполнение возникает как раз потому, что значение выходит за диапазон integer.
Если обратили внимание, я использовал word, а не integer.

А что делает ассемблерная вставка?
Если точно так же вызывает прерывание, то все равно будет заметно медленнее.

И, кстати, альтернативный вариант - это через BIOS, а не через DOS.
Так что к DOS все равно никакого отношения не имеет.

И еще: не нужны здесь SwapVectors.