paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:05:54 +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; End;
procedure SetVisual200(page: word); procedure SetVisual200_350(page: word);
{ four page support... }
begin begin
if page > HardwarePages then exit; if page > HardwarePages then exit;
asm asm
mov ax,[page] { only lower byte is supPorted. } mov ax,[page] { only lower byte is supported. }
mov ah,05h mov ah,05h
push ebp push ebp
push esi push esi
@ -2263,25 +2262,6 @@ End;
end; 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); procedure SetActive350(page: word);
{ one page supPort... } { one page supPort... }
begin begin
@ -3569,7 +3549,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 199; mode.MaxY := 199;
mode.HardwarePages := 3; mode.HardwarePages := 3;
mode.SetVisualPage := @SetVisual200; mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive200; mode.SetActivePage := @SetActive200;
mode.InitMode := @Init640x200x16; mode.InitMode := @Init640x200x16;
mode.XAspect := 4500; mode.XAspect := 4500;
@ -3584,7 +3564,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 349; mode.MaxY := 349;
mode.HardwarePages := 1; mode.HardwarePages := 1;
mode.SetVisualPage := @SetVisual350; mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive350; mode.SetActivePage := @SetActive350;
mode.InitMode := @Init640x350x16; mode.InitMode := @Init640x350x16;
mode.XAspect := 7750; mode.XAspect := 7750;
@ -3742,7 +3722,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 199; mode.MaxY := 199;
mode.HardwarePages := 3; mode.HardwarePages := 3;
mode.SetVisualPage := @SetVisual200; mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive200; mode.SetActivePage := @SetActive200;
mode.InitMode := @Init640x200x16; mode.InitMode := @Init640x200x16;
mode.XAspect := 4500; mode.XAspect := 4500;
@ -3757,7 +3737,7 @@ const CrtAddress: word = 0;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 349; mode.MaxY := 349;
mode.HardwarePages := 1; mode.HardwarePages := 1;
mode.SetVisualPage := @SetVisual350; mode.SetVisualPage := @SetVisual200_350;
mode.SetActivePage := @SetActive350; mode.SetActivePage := @SetActive350;
mode.InitMode := @Init640x350x16; mode.InitMode := @Init640x350x16;
mode.XAspect := 7750; mode.XAspect := 7750;