From 7a15e4b0a297628cc636d3b2a189620ec27e385c Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 30 Jan 2019 12:56:17 +0000
Subject: [PATCH] * optimizations in SetActive200 and SetActive350
git-svn-id: trunk@41143 -
---
packages/graph/src/go32v2/graph.pp | 14 ++++----------
1 file changed, 4 insertions(+), 10 deletions(-)
diff --git a/packages/graph/src/go32v2/graph.pp b/packages/graph/src/go32v2/graph.pp
index c7716ba012..fc870b796d 100644
--- a/packages/graph/src/go32v2/graph.pp
+++ b/packages/graph/src/go32v2/graph.pp
@@ -2244,25 +2244,19 @@ End;
procedure SetActive200(page: word);
{ four page support... }
begin
- case page of
- 0 : VideoOfs := 0;
- 1 : VideoOfs := 16384;
- 2 : VideoOfs := 32768;
- 3 : VideoOfs := 49152;
+ if (page >= 0) and (page <= 3) then
+ VideoOfs := page shl 14
else
VideoOfs := 0;
- end;
end;
procedure SetActive350(page: word);
{ one page supPort... }
begin
- case page of
- 0 : VideoOfs := 0;
- 1 : VideoOfs := 32768;
+ if page = 1 then
+ VideoOfs := 32768
else
VideoOfs := 0;
- end;
end;