git-svn-id: trunk@40910 -
@@ -2252,7 +2252,13 @@ End;
X:= X + StartXViewPort;
Y:= Y + StartYViewPort;
asm
+{$ifdef FPC_MM_HUGE}
+ mov ax, SEG SegA000
+ mov es, ax
+ mov es, es:[SegA000]
+{$else FPC_MM_HUGE}
mov es, [SegA000]
+{$endif FPC_MM_HUGE}
mov ax, [Y]
mov di, [X]
xchg ah, al { The value of Y must be in AH }