Tryb VESA 640*480 w TP

Tryb VESA jest trybem 640480256 kolorów dzieli monitor na strony. Przede wszystkim pamięć obrazu zorganizowana jest w ten sposób, iż podzielona jest na tzw. bitplany po 64kB.W jednej chwili zawsze mamy dostep do jednego - jest to tzw. okno zaczynające sie od adresu
A000h:0000h i kończące się na A000h:FFFFh, czyli tylko jeden segment. Ponieważ wielkość segmentu ma 64kB, wynikałoby, że maksymalnie dostepnym trybem bylby 13h (320x200 przy 256 kolorach bo 320x200 = 64k), bowiem caly ekran odpowiada wtedy 64kB. W wyższych trybach, jak np. w trybie VESA 101h - 640x480 przy 256 kolorach logiczne jest, że pamięć obrazu będzie miała 640*480=307Kb.

Włącza się go w ten sposób:

PROCEDURE Init101h;
begin
asm
  mov bx,101h
  mov ax,4f02h
  int 10h
end;
end;

A wyłącza w ten:

PROCEDURE Close101h;
begin
asm
  mov ah, 00h
  mov al, 03h
  int 10h
end;  
end;

No i oczywiście jeszcze jakaś funkcja:

var
  y,x,ofset:word;
  c:integer;
  ktory:word;

Procedure putpixel(x,y:word; c:byte);
begin
  ktory:=round(int(y / 65535/640));

  asm
    mov ax, 4F05h
    xor bx, bx

    mov dx, ktory
    int 10h
  end;
  ofset:=640*y+x;

  asm
    mov ax, 0A000h
    mov es, ax
    mov bx, word ptr ds:[ofset]
    mov al, c
    mov byte ptr es:[bx], al
  end;
end;

Nie może zabraknąć też funkcji rysowania lini:

PROCEDURE line_(x1,y1,x2,y2:single;kolor:integer);
var 
  x,y:single;
begin 
  if  (x1<x2) then
  begin
    x:=x1; 

    repeat 
      x:=x+1; 
      y:=((y2-y1)/(x2-x1))*(x-x1)+y1; 
      putpixel(round(x),round(y),kolor);
    until x = x2; 
  end;

  if (x1>x2) then 
  begin 
    x:=x1; 

    repeat 
      x:=x-1; 
      y:=((y2-y1)/(x2-x1))*(x-x1)+y1; 
      putpixel(round(x),round(y),kolor); 
    until x = x2; 

    if (y1=y2) then 
    begin 
      if (x2>x1) then 
      begin 
        y:=y1; 
        x:=x1; 

        repeat 
          putpixel(round(x),round(y),kolor); 
          x:=x+1; 
        until x = x2; 
      end; 

      if (x1>x2) then 
      begin 
        x:=x1; 

        repeat
          putpixel(round(x),round(y),kolor); 
          x:=x-1; 
        until x = x2; 
      end; 
    end; 
  end;

  if (x1=x2) then 
  begin 
    x:=x1;

    if (y2>y1) then 
    begin 
      y:=y2; 

      repeat 
        y:=y-1; 
        putpixel(round(x),round(y),kolor); 
      until y = y1; 
    end;

    if (y1>y2) then 
    begin 
      y:=y1; 
      repeat 
        y:=y-1; 
        putpixel(round(x),round(y),kolor); 
      until y = y2; 
    end; 
  end; 
end; 

No i to by było na tyle.