paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 11:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* huge model fixes in asm GetPixelX

Browse Source 
git-svn-id: trunk@41016 -
This commit is contained in:
nickysn 2019-01-23 15:00:03 +00:00
parent 44a193a027
commit f06cb31746
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/graph/src/msdos/graph.pp
View File

@ -2492,6 +2492,13 @@ const CrtAddress: word = 0;
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 di,[Y] ; (* DI = Y coordinate *)
(* Multiply by 80 start *)
mov bx, di
@ -2513,7 +2520,6 @@ const CrtAddress: word = 0;
shl ah, cl ; (* Get Plane Select Value *)
out dx, ax
(* End selection of plane *)
mov es,[SegA000]
mov al, ES:[DI]
xor ah, ah
mov @Result, ax