1 /*
2 SDL - Simple DirectMedia Layer
3 Copyright (C) 1997-2004 Sam Lantinga
4
5 This library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public
7 License as published by the Free Software Foundation; either
8 version 2 of the License, or (at your option) any later version.
9
10 This library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Library General Public License for more details.
14
15 You should have received a copy of the GNU Library General Public
16 License along with this library; if not, write to the Free
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18
19 Sam Lantinga
20 slouken@libsdl.org
21 */
22 #include "SDL_config.h"
23
24 /*
25 MiNT audio driver
26 using XBIOS functions (MacSound compatible driver)
27
28 Patrice Mandin
29 */
30
31 #include <support.h>
32
33 /* Mint includes */
34 #include <mint/osbind.h>
35 #include <mint/falcon.h>
36 #include <mint/cookie.h>
37
38 #include "SDL_audio.h"
39 #include "../SDL_audio_c.h"
40 #include "../SDL_sysaudio.h"
41
42 #include "../../video/ataricommon/SDL_atarimxalloc_c.h"
43
44 #include "SDL_mintaudio.h"
45 #include "SDL_mintaudio_mcsn.h"
46
47 /*--- Defines ---*/
48
49 #define MINT_AUDIO_DRIVER_NAME "mint_mcsn"
50
51 /* Debug print info */
52 #define DEBUG_NAME "audio:mcsn: "
53 #if 0
54 #define DEBUG_PRINT(what) \
55 { \
56 printf what; \
57 }
58 #else
59 #define DEBUG_PRINT(what)
60 #endif
61
62 /*--- Static variables ---*/
63
64 static unsigned long cookie_snd, cookie_mch;
65 static cookie_mcsn_t *cookie_mcsn;
66
67 /*--- Audio driver functions ---*/
68
69 static void Mint_CloseAudio(_THIS);
70 static int Mint_OpenAudio(_THIS, SDL_AudioSpec *spec);
71 static void Mint_LockAudio(_THIS);
72 static void Mint_UnlockAudio(_THIS);
73
74 /* To check/init hardware audio */
75 static int Mint_CheckAudio(_THIS, SDL_AudioSpec *spec);
76 static void Mint_InitAudio(_THIS, SDL_AudioSpec *spec);
77
78 /*--- Audio driver bootstrap functions ---*/
79
Audio_Available(void)80 static int Audio_Available(void)
81 {
82 unsigned long dummy;
83 const char *envr = SDL_getenv("SDL_AUDIODRIVER");
84
85 SDL_MintAudio_mint_present = (Getcookie(C_MiNT, &dummy) == C_FOUND);
86
87 /* We can't use XBIOS in interrupt with Magic, don't know about thread */
88 if (Getcookie(C_MagX, &dummy) == C_FOUND) {
89 return(0);
90 }
91
92 /* Check if user asked a different audio driver */
93 if ((envr) && (SDL_strcmp(envr, MINT_AUDIO_DRIVER_NAME)!=0)) {
94 DEBUG_PRINT((DEBUG_NAME "user asked a different audio driver\n"));
95 return(0);
96 }
97
98 /* Cookie _MCH present ? if not, assume ST machine */
99 if (Getcookie(C__MCH, &cookie_mch) == C_NOTFOUND) {
100 cookie_mch = MCH_ST;
101 }
102
103 /* Cookie _SND present ? if not, assume ST machine */
104 if (Getcookie(C__SND, &cookie_snd) == C_NOTFOUND) {
105 cookie_snd = SND_PSG;
106 }
107
108 /* Check if we have 16 bits audio */
109 if ((cookie_snd & SND_16BIT)==0) {
110 DEBUG_PRINT((DEBUG_NAME "no 16 bits sound\n"));
111 return(0);
112 }
113
114 /* Cookie MCSN present ? */
115 if (Getcookie(C_McSn, (long *) &cookie_mcsn) != C_FOUND) {
116 DEBUG_PRINT((DEBUG_NAME "no MCSN audio\n"));
117 return(0);
118 }
119
120 /* Check if interrupt at end of replay */
121 if (cookie_mcsn->pint == 0) {
122 DEBUG_PRINT((DEBUG_NAME "no interrupt at end of replay\n"));
123 return(0);
124 }
125
126 /* Check if audio is lockable */
127 if (Locksnd()!=1) {
128 DEBUG_PRINT((DEBUG_NAME "audio locked by other application\n"));
129 return(0);
130 }
131
132 Unlocksnd();
133
134 DEBUG_PRINT((DEBUG_NAME "MCSN audio available!\n"));
135 return(1);
136 }
137
Audio_DeleteDevice(SDL_AudioDevice * device)138 static void Audio_DeleteDevice(SDL_AudioDevice *device)
139 {
140 SDL_free(device->hidden);
141 SDL_free(device);
142 }
143
Audio_CreateDevice(int devindex)144 static SDL_AudioDevice *Audio_CreateDevice(int devindex)
145 {
146 SDL_AudioDevice *this;
147
148 /* Initialize all variables that we clean on shutdown */
149 this = (SDL_AudioDevice *)SDL_malloc(sizeof(SDL_AudioDevice));
150 if ( this ) {
151 SDL_memset(this, 0, (sizeof *this));
152 this->hidden = (struct SDL_PrivateAudioData *)
153 SDL_malloc((sizeof *this->hidden));
154 }
155 if ( (this == NULL) || (this->hidden == NULL) ) {
156 SDL_OutOfMemory();
157 if ( this ) {
158 SDL_free(this);
159 }
160 return(0);
161 }
162 SDL_memset(this->hidden, 0, (sizeof *this->hidden));
163
164 /* Set the function pointers */
165 this->OpenAudio = Mint_OpenAudio;
166 this->CloseAudio = Mint_CloseAudio;
167 this->LockAudio = Mint_LockAudio;
168 this->UnlockAudio = Mint_UnlockAudio;
169 this->free = Audio_DeleteDevice;
170
171 return this;
172 }
173
174 AudioBootStrap MINTAUDIO_MCSN_bootstrap = {
175 MINT_AUDIO_DRIVER_NAME, "MiNT MCSN audio driver",
176 Audio_Available, Audio_CreateDevice
177 };
178
Mint_LockAudio(_THIS)179 static void Mint_LockAudio(_THIS)
180 {
181 /* Stop replay */
182 Buffoper(0);
183 }
184
Mint_UnlockAudio(_THIS)185 static void Mint_UnlockAudio(_THIS)
186 {
187 /* Restart replay */
188 Buffoper(SB_PLA_ENA|SB_PLA_RPT);
189 }
190
Mint_CloseAudio(_THIS)191 static void Mint_CloseAudio(_THIS)
192 {
193 /* Stop replay */
194 SDL_MintAudio_WaitThread();
195 Buffoper(0);
196
197 if (!SDL_MintAudio_mint_present) {
198 /* Uninstall interrupt */
199 Jdisint(MFP_DMASOUND);
200 }
201
202 /* Wait if currently playing sound */
203 while (SDL_MintAudio_mutex != 0) {
204 }
205
206 /* Clear buffers */
207 if (SDL_MintAudio_audiobuf[0]) {
208 Mfree(SDL_MintAudio_audiobuf[0]);
209 SDL_MintAudio_audiobuf[0] = SDL_MintAudio_audiobuf[1] = NULL;
210 }
211
212 /* Unlock sound system */
213 Unlocksnd();
214 }
215
Mint_CheckAudio(_THIS,SDL_AudioSpec * spec)216 static int Mint_CheckAudio(_THIS, SDL_AudioSpec *spec)
217 {
218 int i;
219 unsigned long masterclock, masterprediv;
220
221 DEBUG_PRINT((DEBUG_NAME "asked: %d bits, ",spec->format & 0x00ff));
222 DEBUG_PRINT(("signed=%d, ", ((spec->format & 0x8000)!=0)));
223 DEBUG_PRINT(("big endian=%d, ", ((spec->format & 0x1000)!=0)));
224 DEBUG_PRINT(("channels=%d, ", spec->channels));
225 DEBUG_PRINT(("freq=%d\n", spec->freq));
226
227 if (spec->channels > 2) {
228 spec->channels = 2; /* no more than stereo! */
229 }
230
231 /* Check formats available */
232 MINTAUDIO_freqcount=0;
233 switch(cookie_mcsn->play) {
234 case MCSN_ST:
235 spec->channels=1;
236 spec->format=8; /* FIXME: is it signed or unsigned ? */
237 SDL_MintAudio_AddFrequency(this, 12500, 0, 0, -1);
238 break;
239 case MCSN_TT: /* Also STE, Mega STE */
240 spec->format=AUDIO_S8;
241 masterclock=MASTERCLOCK_STE;
242 masterprediv=MASTERPREDIV_STE;
243 if ((cookie_mch>>16)==MCH_TT) {
244 masterclock=MASTERCLOCK_TT;
245 masterprediv=MASTERPREDIV_TT;
246 }
247 for (i=0; i<4; i++) {
248 SDL_MintAudio_AddFrequency(this, masterclock/(masterprediv*(1<<i)),
249 masterclock, 3-i, -1);
250 }
251 break;
252 case MCSN_FALCON: /* Also Mac */
253 for (i=1; i<12; i++) {
254 /* Remove unusable Falcon codec predivisors */
255 if ((i==6) || (i==8) || (i==10)) {
256 continue;
257 }
258 SDL_MintAudio_AddFrequency(this, MASTERCLOCK_FALCON1/(MASTERPREDIV_FALCON*(i+1)),
259 CLK25M, i+1, -1);
260 }
261 if (cookie_mcsn->res1 != 0) {
262 for (i=1; i<4; i++) {
263 SDL_MintAudio_AddFrequency(this, (cookie_mcsn->res1)/(MASTERPREDIV_FALCON*(1<<i)),
264 CLKEXT, (1<<i)-1, -1);
265 }
266 }
267 spec->format |= 0x8000; /* Audio is always signed */
268 if ((spec->format & 0x00ff)==16) {
269 spec->format |= 0x1000; /* Audio is always big endian */
270 spec->channels=2; /* 16 bits always stereo */
271 }
272 break;
273 }
274
275 #if 1
276 for (i=0; i<MINTAUDIO_freqcount; i++) {
277 DEBUG_PRINT((DEBUG_NAME "freq %d: %lu Hz, clock %lu, prediv %d\n",
278 i, MINTAUDIO_frequencies[i].frequency, MINTAUDIO_frequencies[i].masterclock,
279 MINTAUDIO_frequencies[i].predivisor
280 ));
281 }
282 #endif
283
284 MINTAUDIO_numfreq=SDL_MintAudio_SearchFrequency(this, spec->freq);
285 spec->freq=MINTAUDIO_frequencies[MINTAUDIO_numfreq].frequency;
286
287 DEBUG_PRINT((DEBUG_NAME "obtained: %d bits, ",spec->format & 0x00ff));
288 DEBUG_PRINT(("signed=%d, ", ((spec->format & 0x8000)!=0)));
289 DEBUG_PRINT(("big endian=%d, ", ((spec->format & 0x1000)!=0)));
290 DEBUG_PRINT(("channels=%d, ", spec->channels));
291 DEBUG_PRINT(("freq=%d\n", spec->freq));
292
293 return 0;
294 }
295
Mint_InitAudio(_THIS,SDL_AudioSpec * spec)296 static void Mint_InitAudio(_THIS, SDL_AudioSpec *spec)
297 {
298 int channels_mode, prediv, dmaclock;
299 void *buffer;
300
301 /* Stop currently playing sound */
302 SDL_MintAudio_quit_thread = SDL_FALSE;
303 SDL_MintAudio_thread_finished = SDL_TRUE;
304 SDL_MintAudio_WaitThread();
305 Buffoper(0);
306
307 /* Set replay tracks */
308 Settracks(0,0);
309 Setmontracks(0);
310
311 /* Select replay format */
312 channels_mode=STEREO16;
313 switch (spec->format & 0xff) {
314 case 8:
315 if (spec->channels==2) {
316 channels_mode=STEREO8;
317 } else {
318 channels_mode=MONO8;
319 }
320 break;
321 }
322 if (Setmode(channels_mode)<0) {
323 DEBUG_PRINT((DEBUG_NAME "Setmode() failed\n"));
324 }
325
326 dmaclock = MINTAUDIO_frequencies[MINTAUDIO_numfreq].masterclock;
327 prediv = MINTAUDIO_frequencies[MINTAUDIO_numfreq].predivisor;
328 switch(cookie_mcsn->play) {
329 case MCSN_TT:
330 Devconnect(DMAPLAY, DAC, CLK25M, CLKOLD, 1);
331 Soundcmd(SETPRESCALE, prediv);
332 DEBUG_PRINT((DEBUG_NAME "STE/TT prescaler selected\n"));
333 break;
334 case MCSN_FALCON:
335 Devconnect(DMAPLAY, DAC, dmaclock, prediv, 1);
336 DEBUG_PRINT((DEBUG_NAME "Falcon prescaler selected\n"));
337 break;
338 }
339
340 /* Set buffer */
341 buffer = SDL_MintAudio_audiobuf[SDL_MintAudio_numbuf];
342 if (Setbuffer(0, buffer, buffer + spec->size)<0) {
343 DEBUG_PRINT((DEBUG_NAME "Setbuffer() failed\n"));
344 }
345
346 if (SDL_MintAudio_mint_present) {
347 SDL_MintAudio_thread_pid = tfork(SDL_MintAudio_Thread, 0);
348 } else {
349 /* Install interrupt */
350 Jdisint(MFP_DMASOUND);
351 Xbtimer(XB_TIMERA, 8, 1, SDL_MintAudio_XbiosInterrupt);
352 Jenabint(MFP_DMASOUND);
353
354 if (Setinterrupt(SI_TIMERA, SI_PLAY)<0) {
355 DEBUG_PRINT((DEBUG_NAME "Setinterrupt() failed\n"));
356 }
357 }
358
359 /* Go */
360 Buffoper(SB_PLA_ENA|SB_PLA_RPT);
361 DEBUG_PRINT((DEBUG_NAME "hardware initialized\n"));
362 }
363
Mint_OpenAudio(_THIS,SDL_AudioSpec * spec)364 static int Mint_OpenAudio(_THIS, SDL_AudioSpec *spec)
365 {
366 /* Lock sound system */
367 if (Locksnd()!=1) {
368 SDL_SetError("Mint_OpenAudio: Audio system already in use");
369 return(-1);
370 }
371
372 SDL_MintAudio_device = this;
373
374 /* Check audio capabilities */
375 if (Mint_CheckAudio(this, spec)==-1) {
376 return -1;
377 }
378
379 SDL_CalculateAudioSpec(spec);
380
381 /* Allocate memory for audio buffers in DMA-able RAM */
382 DEBUG_PRINT((DEBUG_NAME "buffer size=%d\n", spec->size));
383
384 SDL_MintAudio_audiobuf[0] = Atari_SysMalloc(spec->size *2, MX_STRAM);
385 if (SDL_MintAudio_audiobuf[0]==NULL) {
386 SDL_SetError("MINT_OpenAudio: Not enough memory for audio buffer");
387 return (-1);
388 }
389 SDL_MintAudio_audiobuf[1] = SDL_MintAudio_audiobuf[0] + spec->size ;
390 SDL_MintAudio_numbuf=0;
391 SDL_memset(SDL_MintAudio_audiobuf[0], spec->silence, spec->size *2);
392 SDL_MintAudio_audiosize = spec->size;
393 SDL_MintAudio_mutex = 0;
394
395 DEBUG_PRINT((DEBUG_NAME "buffer 0 at 0x%08x\n", SDL_MintAudio_audiobuf[0]));
396 DEBUG_PRINT((DEBUG_NAME "buffer 1 at 0x%08x\n", SDL_MintAudio_audiobuf[1]));
397
398 SDL_MintAudio_CheckFpu();
399
400 /* Setup audio hardware */
401 Mint_InitAudio(this, spec);
402
403 return(1); /* We don't use SDL threaded audio */
404 }
405