[Back to EGAVGA SWAG index]  [Back to Main SWAG index]  [Original]

{
> Any chance you can post that uVesa Unit? Or maybe a routine to
> set up a Vesa mode, and a Vesa plotPixel routine?
}

UNIT uVesa;                                    { (c) 1993 by NEBULA-Software }
     { Unterst�tzung des VESA-Standards      } { Olaf Bartelt & Oliver Carow }

INTERFACE                                      { Interface-Teil der Unit     }


TYPE tVesa = OBJECT                            { Objekt f�r VESA             }
               xmax, ymax : WORD;
               page       : WORD;
               switch_ptr : POINTER;

               CONSTRUCTOR init(modus : WORD);
               PROCEDURE   putpixel(x, y : WORD; c : BYTE);  { Longint    }
               FUNCTION    getpixel(x, y : LONGINT) : BYTE;  { wegen Berechn.}
             END;
VAR  vVesa : ^tVesa;


CONST c640x400  = $100;                        { VESA-Modi                   }
      c640x480  = $101;
      c800x600  = $102;
      c1024x768 = $103;

FUNCTION vesa_installed : BOOLEAN;


IMPLEMENTATION                                 { Implementation-Teil d. Unit }

USES DOS, CRT;                                 { Units einbinden             }


VAR regs   : REGISTERS;                        { ben�tigte Variablen         }


FUNCTION vesa_installed : BOOLEAN;             { VESA-Treiber vorhanden?     }
BEGIN
  regs.AH := $4F; regs.AL := 0; INTR($10, regs);
  vesa_installed := regs.AL = $4F;
END;


CONSTRUCTOR tVesa.init(modus : WORD);
VAR mib  : ARRAY[0..255] OF BYTE;
    s, o : WORD;
BEGIN
  IF vesa_installed = FALSE THEN
  BEGIN
    WRITELN(#7, 'Kein VESA-Treiber installiert! / No VESA-driver installed!');
    HALT(1);
  END;

  regs.AX := $4F02; regs.BX := modus; INTR($10, regs);
  regs.AX := $4F01; regs.DI := SEG(mib); regs.ES := OFS(mib); INTR($10, regs);

  s := mib[$0C] * 256 + mib[$0D]; o := mib[$0E] * 256 + mib[$0F];
  switch_ptr := PTR(s, o);

  CASE modus OF
    c640x400 : BEGIN xmax := 640; ymax := 400; END;
    c640x480 : BEGIN xmax := 640; ymax := 480; END;
    c800x600 : BEGIN xmax := 800; ymax := 600; END;
    c1024x768: BEGIN xmax := 1024; ymax := 768; END;
  END;

  page := 0;
  ASM
    MOV AX, 4F05h
    MOV DX, page
    INT 10h
  END;
END;


PROCEDURE   tVesa.putpixel(x, y : WORD; c : BYTE);
VAR bank   : WORD;
    offs   : LONGINT;
BEGIN
  offs := LONGINT(y)*640 + x;     { SHL 9+SHL 7 ist auch nicht schneller!! }
  bank := offs SHR 16;
  offs := offs - (bank SHL 16);   { MOD 65536 ist langsamer!! }

  IF bank <> page THEN
  BEGIN
    page := bank;
    ASM
      MOV AX, 4F05h
      MOV DX, bank
      INT 10h
    END;
  END;

  ASM
    MOV AX, 0A000h
    MOV ES, AX
    MOV DI, WORD(offs)
    MOV AL, c
    MOV ES:[DI], AL
  END;
END;


FUNCTION    tVesa.getpixel(x, y : LONGINT) : BYTE;
VAR bank   : WORD;
    offset : LONGINT;
BEGIN
  offset := y SHL 9+y SHL 7+x;
  bank := offset SHR 16;
  offset := offset - (bank SHL 16);

  IF bank <> page THEN
  BEGIN
    page := bank;
    ASM
      MOV AX, 4F05h
      MOV DX, bank
      INT 10h
    END;
  END;

  getpixel := MEM[$A000:offset];
END;


BEGIN
  NEW(vVesa);
END.

{
That routine could be faster if one implemented a bank switching routine by
doing a far call to the vesa bios (the address can be received by a simple
call, I just hadn't had time yet to implement it - if you should do it,
*please* post the modified routine for me - thanx!)
}

[Back to EGAVGA SWAG index]  [Back to Main SWAG index]  [Original]