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

* SaveStateVGA and RestoreStateVGA rewritten to use intr

Browse Source 
git-svn-id: trunk@25655 -
This commit is contained in:
nickysn 2013-10-05 18:06:44 +00:00
parent 20587d8547
commit 55f1b860af
1 changed files with 5 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2978,19 +2978,9 @@ const CrtAddress: word = 0;
SaveSupPorted := FALSE;
SavePtr := nil;
{ Get the video mode }
asm
mov ah,0fh
push bp
push si
push di
push bx
int 10h
pop bx
pop di
pop si
pop bp
mov [VideoMode], al
end ['AX'];
regs.ah:=$0f;
intr($10,regs);
VideoMode:=regs.al;
{ saving/restoring video state screws up Windows (JM) }
if inWindows then
exit;
@ -3062,19 +3052,8 @@ const CrtAddress: word = 0;
regs:Registers;
begin
{ go back to the old video mode...}
asm
mov ah,00
mov al,[VideoMode]
push bp
push si
push di
push bx
int 10h
pop bx
pop di
pop si
pop bp
end ['AX'];
regs.ax:=VideoMode;
intr($10,regs);
(* { then restore all state information }
{$ifndef fpc}
if assigned(SavePtr) and (SaveSupPorted=TRUE) then