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

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

Browse Source 
git-svn-id: trunk@41102 -
This commit is contained in:
nickysn 2019-01-28 17:28:10 +00:00
parent 1cd93cf9a7
commit c3bdb2c2ee
1 changed files with 6 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
packages/graph/src/go32v2/graph.pp
View File

@ -2231,12 +2231,11 @@ End;
End;
procedure SetVisual200(page: word);
{ four page support... }
procedure SetVisual200_350(page: word);
begin
if page > HardwarePages then exit;
asm
mov ax,[page] { only lower byte is supPorted. }
mov ax,[page] { only lower byte is supported. }
mov ah,05h
push ebp
push esi
@ -2263,25 +2262,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 ebp
push esi
push edi
push ebx
int 10h
pop ebx
pop edi
pop esi
pop ebp
end ['EAX'];
end;
procedure SetActive350(page: word);
{ one page supPort... }
begin
@ -3569,7 +3549,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;
@ -3584,7 +3564,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;
@ -3742,7 +3722,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;
@ -3757,7 +3737,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;