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

{
PF> Can anyone give me the source code for a vga detection
PF> routine taht doesnt use the bgi driver. Thanks in advance PF> for your
help.

PF> Patrick Fox

To detect a VGA card simply <g> call Interrupt 10h with ah set as 1Ah, if al is
now 1A then there is a VGA present - otherwise it must be something else...

i.e. ( regs is declared as of type registers from the DOS unit)
}

begin
  with regs do
   begin
    ah:=$1A;
    al:=00;
    intr ($10, regs);
    If al=$1A then Writeln ('VGA Detected...'); {or whatever...}
   end;
end.

or in the built-in assembler something like this...

Function isVGA:Boolean; Assembler;

asm
   mov AH, $1A
   mov al, $00
   Int $10
   cmp al, $1A
   jne @@NOVGABIOS
   mov al, 1
   jmp @@EXIT
  @@NOVGABIOS:
   mov al, 0
  @@EXIT:
end;

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