Упрощённый вариант доступа к видеопамяти для 13h видеорежима 320x200 256 цветов.
Procedure PutPixel(x:integere, y:integer, c:byte);
//процедура для отображения пикселя
begin
Mem[$a000:y*200 + x] := c;
end;
Для оптимизации. Можно сохранить в регистре ES (например) смещение, и обращатся в память через него. Но... любое использование "длинного" указателя стирает ES. Пример... как-то так:
my_ofs := y*200 +x;
asm
mov ax,0A000h; это
mov es,ax; и это можно вынести из цикла
mov bx, my_ofs;
mov al,c;
mov es:[bx],al;
end
В borland c++ это сделано лучше
char _ES* v=0;
_ES= 0xA000; // Задали ES
v[y*200+x] = c;
Так же надо помнить, что операция умножения - затратная. Если копируется прямоугольная область, или рисуется ровная линия параленльная осям координат, то умножение на 200 можно вынести "за скобки".
Остальные способы я не могу быстро показать.
Просто перечислю:
- Оптимизация алгоритма (тут можно писать много, в зависимости от задачи)
- Оптимизация на уровне процессора. С использованием ассемблера, можно использовать 32,64,128 битные команды как 386 так и MMX и SSE набор. Цепные команды movsb stosb и т п. Максимально загрузить все регистры процессора для рисования нужной фигуры, даже если это просто копирование области.
- Есть регистры палитры. Можно скинуть их все в ноль, и плавно восстановить. Можно делать эффект молний, не перерисовуя всю видеопамять. Можно дать одинаковый цвет двум цветам палитры и играть палитрой. Игра палитрой даст еффект скорости. Но такие спец-эффекты думаю устарели.
- (не подходит для этого вопроса) Есть 3-D ускоритель карты, есть описание команд 10h прерывания. Есть OpegGL DirectX, читая статьи на эту тему - можно достичь максимально быстродействия.
Под этим видеорежимом делались очень старые игры. Ещё ссылки
1) http://pascal.sources.ru/articles/100.htm (тут + работа с палитрой)
$A000:0
, или работать с ней черезmem
, а дальше... Поищите в гугле по запросу "pascal видеопамять A000", например вот cyberforum.ru/pascalabc/thread391431.html. ОтветMem[A000:Off] := color;
Вот интересно, 13 видеорежим и правда людям интересен?