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

* handle the NotPut write mode in asm instead of pascal in the asm version of

Browse Source 
DirectPutPixel16

git-svn-id: trunk@40904 -
This commit is contained in:
nickysn 2019-01-19 15:59:42 +00:00
parent 5b4529db6f
commit 1dc3db4ee1
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1921,12 +1921,7 @@ End;
const
DataRotateRegTbl: array [NormalPut..NotPut] of Byte=($00,$18,$10,$08,$00);
{ x,y -> must be in global coordinates. No clipping. }
var
color: word;
begin
If CurrentWriteMode <> NotPut Then
Color := CurrentColor
else Color := not CurrentColor;
asm
{$ifdef FPC_MM_HUGE}
mov ax, SEG SegA000
@ -1936,7 +1931,15 @@ End;
mov es, [SegA000]
{$endif FPC_MM_HUGE}
mov dx, 3ceh
xor ch, ch { Color mask = 0 }
mov bx, [CurrentWriteMode]
test bl, 4 { NotPut? }
jz @@NoNotPut
{ NotPut }
mov ch, 15 { Color mask for NotPut }
@@NoNotPut:
mov ah, byte ptr [DataRotateRegTbl + bx]
test ah, ah
jz @@NormalPut
@ -1949,7 +1952,8 @@ End;
mov ax, 0f01h
out dx, ax
{ setup set/reset register }
mov ah, [Color]
mov ah, byte ptr [CurrentColor]
xor ah, ch { Maybe apply the NotPut mask }
xor al, al
out dx, ax
{ setup the bit mask register }