From a190d65f928fb956e24f8a05b1706575c67d2d23 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 24 Jan 2019 15:33:54 +0000
Subject: [PATCH] * huge model safe initialization of ES in PutPixelX

git-svn-id: trunk@41041 -
---
 packages/graph/src/msdos/graph.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/graph/src/msdos/graph.pp b/packages/graph/src/msdos/graph.pp
index 9e521c3afd..dc191f3aeb 100644
--- a/packages/graph/src/msdos/graph.pp
+++ b/packages/graph/src/msdos/graph.pp
@@ -2631,7 +2631,13 @@ const CrtAddress: word = 0;
       jg     @@Done
 
 @@ClipDone:
+{$ifdef FPC_MM_HUGE}
+      mov bx, SEG SegA000
+      mov es, bx
+      mov es, es:[SegA000]
+{$else FPC_MM_HUGE}
       mov es, [SegA000]
+{$endif FPC_MM_HUGE}
       add di, [StartYViewPort]
       (* Multiply by 80 start *)
       mov cl, 4