paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rewritten the EGA/VGA detection code to use intr, instead of inline asm

Browse Source 
git-svn-id: trunk@25657 -
This commit is contained in:
nickysn 2013-10-05 18:55:25 +00:00
parent 05be9829dc
commit 54a34391a1
1 changed files with 16 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
packages/graph/src/msdos/graph.pp
View File

@ -3222,6 +3222,7 @@ const CrtAddress: word = 0;
EGADetected : Boolean; { TRUE means EGA or higher (VGA) }
VGADetected : Boolean;
mode: TModeInfo;
regs: Registers;
begin
QueryAdapterInfo := ModeList;
{ If the mode listing already exists... }
@ -3236,60 +3237,27 @@ const CrtAddress: word = 0;
EGADetected := FALSE;
VGADetected := FALSE;
{ check if EGA adapter supPorted... }
asm
mov ah,12h
mov bx,0FF10h
push bx
push bp
push si
push di
int 10h { get EGA information }
pop di
pop si
pop bp
cmp bh,0ffh
pop bx
jz @noega
mov [EGADetected],TRUE
@noega:
end ['BX','AX'];
regs.ah:=$12;
regs.bx:=$FF10;
intr($10,regs); { get EGA information }
EGADetected:=regs.bh<>$FF;
{$ifdef logging}
LogLn('EGA detected: '+strf(Longint(EGADetected)));
{$endif logging}
{ check if VGA adapter supPorted... }
if EGADetected then
begin
asm
mov ax,1a00h
push bp
push si
push di
push bx
int 10h { get display combination code...}
pop bx
pop di
pop si
pop bp
cmp al,1ah { check if supPorted... }
jne @novga
{ now check if this is the ATI EGA }
mov ax,1c00h { get state size for save... }
{ ... all imPortant data }
mov cx,07h
push bp
push si
push di
push bx
int 10h
pop bx
pop di
pop si
pop bp
cmp al,1ch { success? }
jne @novga
mov [VGADetected],TRUE
@novga:
end ['CX','AX'];
regs.ax:=$1a00;
intr($10,regs); { get display combination code...}
if regs.al=$1a then
begin
{ now check if this is the ATI EGA }
regs.ax:=$1c00; { get state size for save... }
{ ... all imPortant data }
regs.cx:=$07;
intr($10,regs);
VGADetected:=regs.al=$1c;
end;
end;
{$ifdef logging}
LogLn('VGA detected: '+strf(Longint(VGADetected)));