VESA: стандарт новый, проблемы старые

 На входе: 
 AX = 4F00h; 
 ES:DI - указатель на буфер, 
        в который надо поместить информацию, 
        в формате сегмент:смещение 
        (обратите внимание: именно сегмент 
        реального режима, а не селектор защищенного). 
 На выходе: 
 AX - статус завершения.

 VESAInfoBlock	struc 
 VESASignature	db'VESA'	;VESA сигнатура 
 VESAVersion	dw?	;версия VESA (0100h, 0102h  
 		или 0200h) 
 OemStringPtr	dd?	;указатель на строку  
 		с именем производителя  
 		(заканчивается "0") 
 Capabilities	db 4 dup (?)	;флаги графических  
 		возможностей 
 VideoModePtr	dd?	;указатель на список  
 		видеорежимов 
 TotalMemory	dw?	;размер видеопамяти  
 		в 64-Кбайт блоках; 
 Дополнительно в VBE 2.0 добавлены поля: 
 OemSoftwareRev	dw?	;номер версии реализации VBE  
 OemVendorNamePtr	dd?	;указатель на строку  
 		с именем поставщика 
 OemProductNamePtr	dd?	;указатель на строку  
 		с названием продукта 
 OemProductRevPtr	dd?	;указатель на строку  
 		с версией продукта 
 Reserved	db 222 dup (?)	;зарезервировано;  
 		область расширения блока 
 OemData	db 256 dup (?)	;область данных для строк 
 		производителя 
 VESAInfoBlock ends 

 На входе: 
 AX = 4F01h; 
 CX - номер видеорежима; 
 ES:DI - указатель на буфер, 
     в который надо поместить информацию, 
     в формате сегмент:смещение. 
 На выходе: 
 AX - статус завершения.

 ModeInfoBlock	struc	;обязательная информация для 
 		всех версий VESA 
 ModeAttributes	dw?	;атрибуты видеорежима 
 WinAAttributes	db?	;атрибуты окна А 
 WinBAttributes	db?	;атрибуты окна В 
 WinGranularity	dw?	;granularity 
 WinSize	dw?;	размер окна 
 WinASegment	dw?	;начальный сегмент окна A 
 WinBSegment	dw?	;начальный сегмент окна B 
 WinFuncPtr	dd?	;указатель на оконные функции 
 BytesPerScanLine	dw?	;количество байт в строке 
 		растра; обязательная информация 
 		для версии VESA 1.2 и старше 
 Xresolution	dw?	;горизонтальное разрешение 
 		в точках или символах 
 Yresolution	dw?	;вертикальное разрешение 
 		в точках или символах 
 XCharSize	db?	;ширина знакоместа в точках 
 YCharSize	db?	;высота знакоместа в точках 
 NumberOfPlanes	db?	;количество плоскостей  
 		видеопамяти 
 BitsPerPixel	db?	;глубина цвета (бит на точку) 
 NumberOfBanks	db?	;количество банков видеопамяти 
 MemoryModel	db?	;тип модели памяти 
 BankSize	db?	;размер банка в килобайтах 
 NumberOfImagePages	db?	;количество экранных страниц 
 Reserved	db?	;зарезервировано для оконных 
 		функций;поля прямой кодировки 
 		цвета (для видеорежимов 
 		с непосредственным представле- 
 		нием цвета) 
 RedMaskSize	db?	;глубина красного цвета в битах 
 RedFieldPosition	db?	;смещение маски красного цвета 
 GreenMaskSize	db?	;глубина зеленого цвета  
 		в битах 
 GreenFieldPosition	db?	;смещение маски зеленого цвета 
 BlueMaskSize	db?	;глубина синего цвета в битах 
 BlueFieldPosition	db?	;смещение маски синего цвета 
 RsvdMaskSize	db?	;резерв для глубины цвета  
 		в битах 
 RsvdFieldPosition	db?	;резерв для смещения маски 
 		цвета 
 DirectColorModeInfo	db?	;флаги для режимов с непосред- 
 		ственным представлением цвета; 
 		обязательная информация для 
 		версии VBE 2.0 и выше 
 PhysBasePtr	dd?	;физический адрес LFB 
 OffScreenMemOffset	dd?	;смещение свободной части 
 		видеопамяти 
 OffScreenMemSize	dw?	;размер свободной части 
 		видеопамяти в килобайтах 
 Reserved	db 206 	;остаток ModeInfoBlock 
 	dup (?) 
 ModeInfoBlock ends 

 D0 = 0 - видеорежим не поддерживается; 
 D0 = 1 - видеорежим поддерживается; 
 D1 = 1 - зарезервировано; 
 D2 = 0 - стандартные функции вывода не поддерживаются BIOS; 
 D2 = 1 - стандартные функции вывода поддерживаются BIOS; 
 D3 = 0 - монохромный режим; 
 D3 = 1 - цветной режим; 
 D4 = 0 - текстовый режим; 
 D4 = 1 - графический режим; 
 D5 = 0 - режим, совместимый с VGA; 
 D5 = 1 - режим, несовместимый с VGA; 
 D6 = 0 - доступен оконный режим, совместимый с VGA; 
 D6 = 1 - оконный режим, совместимый с VGA, недоступен; 
 D7 = 0 - нет LFB; 
 D7 = 1 - LFB доступен; 
 D8-D15 - резерв.

 D0 = 0 - доступно единственное неперемещаемое окно (как в режиме 13h); 
 D0 = 1 - поддерживается механизм переключения окон; 
 D1 = 0 - окно недоступно для чтения; 
 D1 = 1 - окно доступно для чтения; 
 D2 = 0 - окно недоступно для записи; 
 D2 = 1 - окно доступно для записи; 
 D3-D7 - зарезервировано.  

 00h - текстовый режим; 
 01h - графический режим CGA; 
 02h - графический режим Hercules; 
 03h - режим плоскостей; 
 04h - режим индексного представления цвета; 
 05h - 256-цветный режим без сцепления плоскостей; 
 06h - режим непосредственного представления цвета; 
 07h - режим YUV (сигнал яркости и две цветоразностных составляющих);  
 08h-0Fh - зарезервировано для дальнейшего расширения VESA; 
 10h-FFh - отведено для определения производителями.  

 D0 = 0 - цветовой клин фиксирован; 
 D0 = 1 - цветовой клин можно перепрограммировать; 
 D1 = 0 - биты в полях Rsvd зарезервированы; 
 D1 = 1 - биты в полях Rsvd могут использоваться приложением.

 На входе: 
 AX = 4F02h; 
 BX - номер видеорежима и ряд флагов: 
 	D0-D8 - номер режима; 
 	D9-D13 - зарезервировано (должно быть 0); 
 	D14 = 0 - использовать оконный режим; 
 		= 1 - использовать режим LFB; 
 	D15 = 0 - очищать видеопамять; 
 		= 1 - не очищать видеопамять.  
 На выходе: 
 AX - статус завершения.  

На входе:
AX = 4F03h.
На выходе:
BX - номер текущего видеорежима, включая флаги. 

 На входе: 
 AX = 4F04h; 
 DL = 0 - возвратить длину буфера сохранения; 
    = 1 - сохранить состояние; 
    = 2 - восстановить состояние; 
 CX - характеристика состояния: 
 D0 - состояние оборудования контроллера; 
 D1 - состояние данных BIOS; 
 D2 - состояние регистров DAC; 
 D3 - состояние расширенных регистров; 
 ES:BX - указатель на буфер при ненулевом DL.  
 На выходе: 
 AX - статус завершения; 
 BX - длина буфера для сохранения состояния
      в 64-байтных блоках (при DL = 0).

 На входе:	AX = 4F05h; 
 BH = 0 - функция установки положения окна; 
 	= 1 - функция запроса положения окна; 
 BL = 0 - окно А; 
 	= 1 - окно В; 
 DX - положение окна в видеопамяти 
 	(при BH = 0).  
 На выходе: 
 AX - статус завершения; 
 DX - положение окна (при BH = 1). 

 На входе: 
 AX = 4F06h; 
 BL = 0 - установить длину строки (в точках растра); 
 	= 1 - возвратить длину строки; 
 	= 2 - установить длину строки (в байтах); 
 	= 3 - возвратить максимальную длину строки; 
 CX - длина строки в указанных в BL единицах (при установке). 
 На выходе: 
 AX - статус завершения; 
 BX - количество байт в строке; 
 CX - длина строки в точках растра; 
 DX - максимальный номер строки растра.

 На входе: 
 AX = 4F07h;  
 BX = 0 - установить положение экранного окна; 
 	= 1 - возвратить положение экранного окна; 
 	= 80h - производить установку во время импульса вертикального обратного хода; 
 CX - номер первой отображаемой точки в строке (при установке); 
 DX - номер первой отображаемой строки растра (при установке). 
 На выходе: 
 AX - статус завершения; 
 CX - номер первой отображаемой точки в строке (при запросе); 
 DX - номер первой отображаемой строки растра (при запросе).  

 На входе: 
 AX = 4F08h; 
 BL = 0 - установить разрядность DAC палитры; 
 	= 1 - возвратить разрядность DAC палитры; 
 BH - требуемое число разрядов на основной цвет  
 (при установке). 
 На выходе: 
 AX - статус завершения; 
 BH - количество разрядов, приходящееся на основной цвет. 

Некоторые советы по программированию

program tves_as1; {проверка модуля vesa_as}

uses vesa_as,crt;

var
   LenLineP:word;  {длина строки растра в точках}
   LenLineB:word;  {длина строки растра в байтах}
   MaxLines:word;  {максимальное число строк растра}
   
procedure putpixel(X,Y,Color:word); {вывод точки на экран}
var
   bank,offs:word;
begin
   asm
      xor bx,bx
      mov ax,Y
      mul LenLineB
      add ax,X
      adc dx,bx
      mov bank,dx    {предполагаем (не проверяя), что granularity = 64K}
      mov offs,ax
   end;
   SetVESABank(bank,0);   {вывод осуществляется в окно А}
   Mem[$A000:offs]:=lo(Color);
end;   

Procedure WaitRetrace;  {ожидание вертикального обратного хода луча}
Begin
   While(Port[$3DA]and $08)=0 do;
End;

var
   i,j:word;          {переменные цикла, что ж еще?}
   b1:VesaInfoBlock;  {информационный блок VESA (для 0-й функции)}
   b2:ModeInfoBlock;  {информационный блок видеорежима (для 1-й функции)}
   NBanks:word;       {общее количество банков видеопамяти}
begin
{выясняем наличие VESA и выводим основные параметры}
   if GetVesaInfo(@b1) then begin
      for i := 0 to 3 do write(b1.VesaSignature[i]);
      write(', Ver ',hi(b1.VESAVersion),'.',lo(b1.VESAVersion));
      writeln(', ',b1.TotalMemory*64,'Kb videomemory on board ');
      i := 0;
      while b1.OEMStringPtr^[i] <> #0 do begin
         write(b1.OEMStringPtr^[i]);
         inc(i);
      end;
      writeln;
      i := 0;
      writeln('Modes:');
      while b1.VideoModePtr^[i] <> $FFFF do begin
         write(b1.VideoModePtr^[i],' '); {список видеорежимов}
         inc(i);
      end;
      writeln;
   end else writeln('Error');
{получаем характеристики одного из видеорежимов}
   if GetModeInfo($103,@b2) then begin 
      writeln('Mode 103h, Granularity:',b2.WinGranularity,'Kb, Window Size:',
          b2.winsize,'Kb, ',
          b2.XResolution,'x',
          b2.YResolution,', ',
          b2.BitsPerPixel,
          ' bits per pixel');
      NBanks := (b1.TotalMemory * 64) div b2.WinGranularity;
   end else writeln('Error');
   readkey;
{устанавливаем видеорежим, характеристики которого мы получили}
   if SetVesaMode($103) then begin
      LenLineB := b2.BytesPerScanLine;
{закрашиваем каждый из банков своим цветом}
      for i := 0 to NBanks-1 do begin
         SetVESABank(i,0);
         fillchar(mem[$a000:0],b2.WinGranularity * 512,char(i+1));
         fillchar
            (mem[$a000:
                        b2.WinGranularity * 512],
                        b2.WinGranularity * 512,char(i+1));
               {предполагаем, что сегмент окна А - 0А000h}
      end;
   end else writeln('Error');
   readkey;
{поточечно рисуем диагональную многоцветную полосу}
   for i := 0 to 199 do
      for j := 0 to 599 do PutPixel(j+i,j,j);
   readkey;   
   LenLineP := 1024;
{пытаемся изменить логическую длину строки}
   SetVESALenLine(LenLineP,LenLineB,MaxLines);
   readkey;
{снова рисуем полосу}
   for i := 0 to 199 do
      for j := 0 to 1023 do PutPixel(j+i,j,j);
   readkey;
{производим панорамирование ...}
   for i := 0 to (1023-800) do begin
      SetVESAStart(i,0);
      WaitRetrace;
   end;
{... и скроллирование экрана}
   for j := 0 to (1023-600) do begin
      SetVESAStart(i,j);
      WaitRetrace;
   end;
   readkey;
{возвращаем видеоадаптер в текстовый режим}
   asm
      mov ax,3
      int $10
   end;
end.

unit vesa_as; {сервис VESA вариант Borland Pascal Real Mode}
Interface

type
   VesaInfoBlock = record
................................{структуру см. в тексте}
   END;
   ModeInfoBlock = record
................................{структуру см. в тексте}
   END;

function GetVESAInfo(Buffer:pointer):boolean;
   {функция 0, информация о VESA}
function GetModeInfo(Mode:word;Buffer:pointer):boolean;
   {функция 1, информация о режиме}
function SetVESAMode(Mode:word):boolean;
   {функция 2, установка видеорежима}
function SetVESABank(Bank,Window:word):boolean;
   {функция 5, установка банка}
function SetVESALenLine(var PLength,BLength,NLines:word):boolean; 
   {функция 6, установка логической длины линии растра}
function SetVESAStart(XStart,YStart:word):boolean; 
   {функция 7, управление положением экранного окна в видеопамяти}

Implementation

function GetVESAInfo(Buffer:pointer):boolean; {информация о VESA}
var
   RetCode : word;
begin
   asm
      mov ax,$4f00
      les di,Buffer
      int $10
      mov RetCode,ax
   end;
   GetVESAInfo := RetCode = $004F; 
end;

function GetModeInfo(Mode:word;Buffer:pointer):boolean;
 {информация о режиме}
var
   RetCode : word;
begin
   asm
      mov ax,$4f01
      mov cx,Mode
      les di,Buffer
      int $10
      mov RetCode,ax
   end;
   GetModeInfo := RetCode = $004F; 
end;

function SetVESAMode(Mode:word):boolean;
var RetCode:word;
begin
   asm
      mov ax,$4f02
      mov bx,mode
      int $10
      mov RetCode,ax
   end;
   SetVESAMode := RetCode = $004f;
end;

const NumBank : integer = -1;

function SetVESABank(Bank,Window:word):boolean;
var RetCode:word;
begin
   if Bank = NumBank then
      SetVESABank := TRUE
   else begin
      asm
         mov ax,$4f05
         mov bx,Window
         mov dx,Bank
         int $10
         mov RetCode,ax
      end;
      if RetCode = $004f then begin
         SetVESABank := TRUE;
         NumBank := Bank;
      end
      else SetVESABank := FALSE;
   end;
end;

function SetVESALenLine(var PLength,BLength,NLines:word):boolean;
var RetCode:word;
begin
   asm
      mov ax,$4f06
      les di,Plength
      mov cx,[di]
      xor bx,bx
      int $10
      les di,Plength
      mov [di],cx
      les di,Blength
      mov [di],bx
      les di,Nlines
      mov [di],dx
      mov RetCode,ax
   end;
   SetVESALenLine := RetCode = $004f;
end;

function SetVESAStart(XStart,YStart:word):boolean;
var RetCode:word;
begin
   asm
      mov ax,$4f07
      xor bx,bx
      mov cx,XStart
      mov dx,YStart
      int $10
      mov RetCode,ax
   end;
   SetVESAStart := RetCode = $004f;
end;

end.