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

* SetVisual200 and SetVisual350 combined into one procedure, because they share the same code

Browse Source 
git-svn-id: trunk@41010 -
This commit is contained in:
nickysn 2019-01-23 12:09:08 +00:00
parent be29c1d39e
commit 4569d47417
1 changed files with 5 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2146,8 +2146,7 @@ End;
End;
procedure SetVisual200(page: word);
{ four page support... }
procedure SetVisual200_350(page: word);
begin
if page > HardwarePages then exit;
asm
@ -2174,21 +2173,6 @@ End;
end;
end;
procedure SetVisual350(page: word);
{ one page supPort... }
begin
if page > HardwarePages then exit;
asm
mov ax,[page] { only lower byte is supPorted. }
mov ah,05h
push ds
push bp
int 10h
pop bp
pop ds
end ['DX','CX','BX','AX','SI','DI'];
end;
procedure SetActive350(page: word);
{ one page supPort... }
begin
@ -3441,7 +3425,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639;
mode.MaxY := 199;
mode.HardwarePages := 3;
mode.SetVisualPage := @SetVisual200;
mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive200;
mode.InitMode := @Init640x200x16;
mode.XAspect := 4500;
@ -3456,7 +3440,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639;
mode.MaxY := 349;
mode.HardwarePages := 1;
mode.SetVisualPage := @SetVisual350;
mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive350;
mode.InitMode := @Init640x350x16;
mode.XAspect := 7750;
@ -3614,7 +3598,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639;
mode.MaxY := 199;
mode.HardwarePages := 3;
mode.SetVisualPage := @SetVisual200;
mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive200;
mode.InitMode := @Init640x200x16;
mode.XAspect := 4500;
@ -3629,7 +3613,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639;
mode.MaxY := 349;
mode.HardwarePages := 1;
mode.SetVisualPage := @SetVisual350;
mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive350;
mode.InitMode := @Init640x350x16;
mode.XAspect := 7750;