paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* perform the viewport adjustment in asm instead of pascal in PutPixelX

Browse Source 
git-svn-id: trunk@41034 -
This commit is contained in:
nickysn 2019-01-24 15:21:05 +00:00
parent 55f8c0f99a
commit a0924c9bbb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2620,8 +2620,6 @@ const CrtAddress: word = 0;
if (Y < 0) or (Y > ViewHeight) then
exit;
end;
X:= X + StartXViewPort;
Y:= Y + StartYViewPort;
asm
push ax
push bx
@ -2630,6 +2628,7 @@ const CrtAddress: word = 0;
push es
push di
mov di,[Y] ; (* DI = Y coordinate *)
add di,[StartYViewPort]
(* Multiply by 80 start *)
mov cl, 4
shl di, cl
@ -2639,6 +2638,7 @@ const CrtAddress: word = 0;
add di, bx ; (* Multiply Value by 80 *)
(* End multiply by 80 *)
mov cx, [X]
add cx, [StartXViewPort]
mov ax, cx
{DI = Y * LINESIZE, BX = X, coordinates admissible}
shr ax, 1