blob: 48abcd58fb3b95afdeb4a95d81e00020c29efeac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
{ %CPU=i386 }
{ Source provided for Free Pascal Bug Report 1157 }
{ Submitted by "Colin Goldie" on 2000-10-06 }
{ e-mail: Colin_G@Positek.com.au }
{$asmmode intel}
Function GetBLUEfromRGB( color : word ) : byte; assembler;
asm
mov cx,color
and cx,0000000000011111b
mov @Result,cl
end;
{
Does something weird .. to the stack im guessing ... error 206 and 103
errors occur 'File not open' ...
However, if instead of using @Result , i chuck my return value into the
accumulator register , everything thing works hunky dory.
}
Function GetBLUEfromRGB2( color : word ) : byte; assembler;
asm
mov cx,color
and cx,0000000000011111b
mov al,cl
end;
begin
if GetBlueFromRGB2($fff)<>GetBlueFromRGB($fff) then
begin
Writeln('Error in assembler statement');
Halt(1);
end;
end.
|
