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

* converted InitModeX to a pure asm routine

Browse Source 
git-svn-id: trunk@40976 -
This commit is contained in:
nickysn 2019-01-21 16:47:30 +00:00
parent c26df36bc5
commit 5738ba19bb
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2388,8 +2388,7 @@ End;
const CrtAddress: word = 0;
{$undef asmgraph}
procedure InitModeX;
begin
procedure InitModeX; assembler;
asm
{see if we are using color-/monochorme display}
MOV DX,3CCh {use output register: }
@ -2447,8 +2446,7 @@ const CrtAddress: word = 0;
IN AL,DX
OR AL,40h {bit 6 := 1: memory access scheme=linear bit array }
OUT DX,AL
end ['DX','BX','CX','AX','SI','DI'];
end;
end;
Function GetPixelX(X,Y: smallint): ColorType;