paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* load only the low byte of CurrentColor in DirectPutPixelX

Browse Source 
git-svn-id: trunk@41055 -
This commit is contained in:
nickysn 2019-01-24 16:18:07 +00:00
parent aca3933f6d
commit 3e22a0625f
1 changed files with 1 additions and 1 deletions

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

@ -2725,7 +2725,7 @@ const CrtAddress: word = 0;
shl ah, cl ; (* Get Plane Select Value *)
out dx, ax
(* End selection of plane *)
mov ax,[CurrentColor] ; { only lower byte is used. }
mov al, byte ptr [CurrentColor] ; { only lower byte is used. }
cmp [CurrentWriteMode],XORPut { check write mode }
jne @MOVMode
mov ah,es:[di] { read the byte... }