blob: 3b44533b5a1e28ebbc36391464782e2f5c1fc653 (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
{$ifndef ARM7}
{$error Audio is only available on the ARM7}
{$endif ARM7}
{$ifdef NDS_INTERFACE}
function SOUND_VOL(n: cint): cint; inline;
function SOUND_FREQ(n: cint): cint; inline;
const
SOUND_ENABLE = (1 shl 15);
SOUND_REPEAT = (1 shl 27);
SOUND_ONE_SHOT = (1 shl 28);
SOUND_FORMAT_16BIT = (1 shl 29);
SOUND_FORMAT_8BIT = (0 shl 29);
SOUND_FORMAT_PSG = (3 shl 29);
SOUND_FORMAT_ADPCM = (2 shl 29);
function SOUND_PAN(n: cint): cint; inline;
const
SCHANNEL_ENABLE = (1 shl 31);
REG_MASTER_VOLUME: pcuint8 = pointer($04000500);
REG_SOUNDCNT : pcuint16 = pointer($04000500);
REG_SOUNDBIAS : pcuint32 = pointer($04000504);
function SCHANNEL_CR(n: cint): pcuint32; inline;
function SCHANNEL_VOL(n: cint): pcuint8; inline;
function SCHANNEL_PAN(n: cint): pcuint8; inline;
function SCHANNEL_SOURCE(n: cint): pcuint32; inline;
function SCHANNEL_TIMER(n: cint): pcuint16; inline;
function SCHANNEL_REPEAT_POINT(n: cint): pcuint16; inline;
function SCHANNEL_LENGTH(n: cint): pcuint32; inline;
const
REG_SNDCAP0CNT : pcuint8 = pointer($04000508);
REG_SNDCAP1CNT : pcuint8 = pointer($04000509);
REG_SNDCAP0DAD : pcuint32 = pointer($04000510);
REG_SNDCAP0LEN : pcuint16 = pointer($04000514);
REG_SNDCAP1DAD : pcuint32 = pointer($04000518);
REG_SNDCAP1LEN : pcuint16 = pointer($0400051C);
type
MIC_BUF_SWAP_CB = procedure(completedBuffer: pcuint8; length: cint);
function micReadData8(): cuint8; cdecl; external;
function micReadData12(): cuint16; cdecl; external;
procedure micStartRecording(buffer: pcuint8; length, freq, timer: cint; eightBitSample: cbool; bufferSwapCallback: MIC_BUF_SWAP_CB); cdecl; external;
function micStopRecording(): cint; cdecl; external;
procedure micTimerHandler(); cdecl; external;
procedure micSetAmp(control, gain: cuint8); cdecl; external;
procedure micOn(); inline;
procedure micOff(); inline;
procedure installSoundFIFO(); cdecl; external;
{$endif NDS_INTERFACE}
{$ifdef NDS_IMPLEMENTATION}
function SOUND_VOL(n: cint): cint; inline;
begin
SOUND_VOL := (n);
end;
function SOUND_FREQ(n: cint): cint; inline;
begin
SOUND_FREQ := ((-$1000000 div (n)));
end;
function SOUND_PAN(n: cint): cint; inline;
begin
SOUND_PAN := ((n) shl 16);
end;
function SCHANNEL_CR(n: cint): pcuint32; inline;
begin
SCHANNEL_CR := pcuint32($04000400 + ((n) shl 4));
end;
function SCHANNEL_VOL(n: cint): pcuint8; inline;
begin
SCHANNEL_VOL := pcuint8($04000400 + ((n) shl 4));
end;
function SCHANNEL_PAN(n: cint): pcuint8; inline;
begin
SCHANNEL_PAN := pcuint8($04000402 + ((n) shl 4));
end;
function SCHANNEL_SOURCE(n: cint): pcuint32; inline;
begin
SCHANNEL_SOURCE := pcuint32($04000404 + ((n) shl 4));
end;
function SCHANNEL_TIMER(n: cint): pcuint16; inline;
begin
SCHANNEL_TIMER := pcuint16($04000408 + ((n) shl 4));
end;
function SCHANNEL_REPEAT_POINT(n: cint): pcuint16; inline;
begin
SCHANNEL_REPEAT_POINT := pcuint16($0400040A + ((n) shl 4));
end;
function SCHANNEL_LENGTH(n: cint): pcuint32; inline;
begin
SCHANNEL_LENGTH := pcuint32($0400040C + ((n) shl 4));
end;
procedure micOn(); inline;
begin
micSetAmp(PM_AMP_ON, PM_GAIN_160);
end;
procedure micOff(); inline;
begin
micSetAmp(PM_AMP_OFF, 0);
end;
{$endif NDS_IMPLEMENTATION}
|
