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

* swapped di and ax in the beginning of GetPixel16

Browse Source 
git-svn-id: trunk@40989 -
This commit is contained in:
nickysn 2019-01-22 14:30:18 +00:00
parent f1ad989ba1
commit 98bbc0ab14
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1680,11 +1680,11 @@ end;
{$else FPC_MM_HUGE}
mov es, [SegA000]
{$endif FPC_MM_HUGE}
mov ax, [X] { Get X address }
add ax, [StartXViewPort]
mov di, ax
mov di, [X] { Get X address }
add di, [StartXViewPort]
mov ax, di
mov cl, 3
shr ax, cl
shr di, cl
mov bx, [Y]
add bx, [StartYViewPort]
@ -1694,7 +1694,7 @@ end;
shl si, 1 { SI=32*(Y+StartYViewPort)*32 }
shl si, 1 { SI=64*(Y+StartYViewPort)*64 }
add si, bx { SI=(64+16)*(Y+StartYViewPort)=80*(Y+StartYViewPort) }
add si, ax { SI=correct offset into video segment }
add si, di { SI=correct offset into video segment }
add si, [VideoOfs] { Point to correct page offset... }
mov dx,03ceh
@ -1702,7 +1702,7 @@ end;
out dx,ax
inc dx
mov cx, di
mov cx, ax
and cl,7
mov bh, 080h