blob: 420433dec15a0591f7c293a116ed0cc94e05b49e (
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
37
38
39
40
41
42
43
44
45
46
47
48
|
{$ifdef NDS_IMPLEMENTATION}
function PosTestBusy(): cbool; inline;
begin
PosTestBusy := (GFX_STATUS^ and (1 shl 0)) <> 0;
end;
procedure PosTest_Asynch(x, y, z: v16); inline;
begin
GFX_POS_TEST^ := VERTEX_PACK(x, y);
GFX_POS_TEST^ := z;
end;
procedure PosTest(x, y, z: v16); inline;
begin
PosTest_Asynch(x, y, z);
while PosTestBusy() do;
end;
function PosTestWresult(): cint32; inline;
begin
PosTestWresult := GFX_POS_RESULT[3];
end;
function PosTestXresult(): cint32; inline;
begin
PosTestXresult := GFX_POS_RESULT[0];
end;
function PosTestYresult(): cint32; inline;
begin
PosTestYresult := GFX_POS_RESULT[1];
end;
function PosTestZresult(): cint32; inline;
begin
PosTestZresult := GFX_POS_RESULT[2];
end;
{$endif NDS_IMPLEMENTATION}
{$ifdef NDS_INTERFACE}
function PosTestBusy(): cbool; inline;
procedure PosTest_Asynch(x, y, z: v16); inline;
procedure PosTest(x, y, z: v16); inline;
function PosTestWresult(): cint32; inline;
function PosTestXresult(): cint32; inline;
function PosTestYresult(): cint32; inline;
function PosTestZresult(): cint32; inline;
{$endif NDS_INTERFACE}
|
