rpcrt4: Add a comment in NdrSendReceive explaining why we change the BufferLength.
[wine] / dlls / winedos / soundblaster.c
1 /*
2  * Soundblaster Emulation
3  *
4  * Copyright 2002 Christian Costa
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22
23 #include <stdarg.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "dosexe.h"
28 #include "wine/debug.h"
29 #include "wingdi.h"
30 #include "mmsystem.h"
31 #include "dsound.h"
32
33 WINE_DEFAULT_DEBUG_CHANNEL(sblaster);
34
35 /* Board Configuration */
36 /* FIXME: Should be in a config file */
37 #define SB_IRQ 5
38 #define SB_IRQ_PRI 11
39 #define SB_DMA 1
40
41 /* Soundblaster state */
42 static int SampleMode;         /* Mono / Stereo */
43 static int SampleRate;
44 static int SamplesCount;
45 static BYTE DSP_Command[256];  /* Store param numbers in bytes for each command */
46 static BYTE DSP_InBuffer[10];  /* Store DSP command bytes parameters from host */
47 static int InSize;             /* Nb of bytes in InBuffer */
48 static BYTE DSP_OutBuffer[10]; /* Store DSP information bytes to host */
49 static int OutSize;            /* Nb of bytes in InBuffer */
50 static int command;            /* Current command */
51 static int end_sound_loop = 0;
52 static int dma_enable = 0;
53
54 /* The maximum size of a dma transfer can be 65536 */
55 #define DMATRFSIZE 1024
56
57 /* DMA can perform 8 or 16-bit transfer */
58 static BYTE dma_buffer[DMATRFSIZE*2];
59
60 /* Direct Sound buffer config */
61 #define DSBUFLEN 4096 /* FIXME: Only this value seems to work */
62
63 /* Direct Sound playback stuff */
64 static HMODULE hmodule;
65 typedef HRESULT (WINAPI* fnDirectSoundCreate) (LPGUID,LPDIRECTSOUND*,LPUNKNOWN);
66 static fnDirectSoundCreate lpDirectSoundCreate;
67 static LPDIRECTSOUND lpdsound;
68 static LPDIRECTSOUNDBUFFER lpdsbuf;
69 static DSBUFFERDESC buf_desc;
70 static WAVEFORMATEX wav_fmt;
71 static HANDLE SB_Thread;
72 static UINT buf_off;
73 extern HWND vga_hwnd;
74
75 /* SB_Poll performs DMA transfers and fills the Direct Sound Buffer */
76 static DWORD CALLBACK SB_Poll( void *dummy )
77 {
78     HRESULT result;
79     LPBYTE lpbuf1 = NULL;
80     LPBYTE lpbuf2 = NULL;
81     DWORD dwsize1 = 0;
82     DWORD dwsize2 = 0;
83     DWORD dwbyteswritten1 = 0;
84     DWORD dwbyteswritten2 = 0;
85     int size;
86
87     /* FIXME: this loop must be improved */
88     while(!end_sound_loop)
89     {
90         Sleep(10);
91
92         if (dma_enable) {
93             size = DMA_Transfer(SB_DMA,min(DMATRFSIZE,SamplesCount),dma_buffer);
94         } else
95             continue;
96
97         result = IDirectSoundBuffer_Lock(lpdsbuf,buf_off,size,(LPVOID *)&lpbuf1,&dwsize1,(LPVOID *)&lpbuf2,&dwsize2,0);
98         if (result != DS_OK) {
99           ERR("Unable to lock sound buffer !\n");
100           continue;
101         }
102
103         dwbyteswritten1 = min(size,dwsize1);
104         memcpy(lpbuf1,dma_buffer,dwbyteswritten1);
105         if (size>dwsize1) {
106             dwbyteswritten2 = min(size - dwbyteswritten1,dwsize2);
107             memcpy(lpbuf2,dma_buffer+dwbyteswritten1,dwbyteswritten2);
108         }
109         buf_off = (buf_off + dwbyteswritten1 + dwbyteswritten2) % DSBUFLEN;
110
111         result = IDirectSoundBuffer_Unlock(lpdsbuf,lpbuf1,dwbyteswritten1,lpbuf2,dwbyteswritten2);
112         if (result!=DS_OK)
113             ERR("Unable to unlock sound buffer !\n");
114
115         SamplesCount -= size;
116         if (!SamplesCount) {
117             DOSVM_QueueEvent(SB_IRQ,SB_IRQ_PRI,NULL,NULL);
118             dma_enable = 0;
119         }
120     }
121     return 0;
122 }
123
124 static BOOL SB_Init(void)
125 {
126     HRESULT result;
127
128     if (!lpdsound) {
129         hmodule = LoadLibraryA("dsound.dll");
130         if (!hmodule) {
131             ERR("Can't load dsound.dll !\n");
132             return 0;
133         }
134         lpDirectSoundCreate = (fnDirectSoundCreate)GetProcAddress(hmodule,"DirectSoundCreate");
135         if (!lpDirectSoundCreate) {
136             /* CloseHandle(hmodule); */
137             ERR("Can't find DirectSoundCreate function !\n");
138             return 0;
139         }
140         result = (*lpDirectSoundCreate)(NULL,&lpdsound,NULL);
141         if (result != DS_OK) {
142             ERR("Unable to initialize Sound Subsystem err = %x !\n",result);
143             return 0;
144         }
145
146         /* FIXME: To uncomment when :
147            - SetCooperative level is correctly implemented
148            - an always valid and non changing handle to a windows  (vga_hwnd) is available
149              (this surely needs some work in vga.c)
150         result = IDirectSound_SetCooperativeLevel(lpdsound,vga_hwnd,DSSCL_EXCLUSIVE|DSSCL_PRIORITY);
151         if (result != DS_OK) {
152             ERR("Can't set cooperative level !\n");
153             return 0;
154         }
155         */
156
157         /* Default format */
158         wav_fmt.wFormatTag = WAVE_FORMAT_PCM;
159         wav_fmt.nChannels = 1;
160         wav_fmt.nSamplesPerSec = 22050;
161         wav_fmt.nAvgBytesPerSec = 22050;
162         wav_fmt.nBlockAlign = 1;
163         wav_fmt.wBitsPerSample = 8;
164         wav_fmt.cbSize = 0;
165
166         memset(&buf_desc,0,sizeof(DSBUFFERDESC));
167         buf_desc.dwSize = sizeof(DSBUFFERDESC);
168         buf_desc.dwBufferBytes = DSBUFLEN;
169         buf_desc.lpwfxFormat = &wav_fmt;
170         result = IDirectSound_CreateSoundBuffer(lpdsound,&buf_desc,&lpdsbuf,NULL);
171         if (result != DS_OK) {
172             ERR("Can't create sound buffer !\n");
173             return 0;
174         }
175
176         result = IDirectSoundBuffer_Play(lpdsbuf,0, 0, DSBPLAY_LOOPING);
177         if (result != DS_OK) {
178             ERR("Can't start playing !\n");
179             return 0;
180         }
181
182         buf_off = 0;
183         end_sound_loop = 0;
184         SB_Thread = CreateThread(NULL, 0, SB_Poll, NULL, 0, NULL);
185         TRACE("thread\n");
186         if (!SB_Thread) {
187             ERR("Can't create thread !\n");
188             return 0;
189         }
190     }
191     return 1;
192 }
193
194 static void SB_Reset(void)
195 {
196     int i;
197
198     for(i=0;i<256;i++)
199         DSP_Command[i]=0;
200
201     /* Set Time Constant */
202     DSP_Command[0x40]=1;
203     /* Generate IRQ */
204     DSP_Command[0xF2]=0;
205     /* DMA DAC 8-bits */
206     DSP_Command[0x14]=2;
207     /* Generic DAC/ADC DMA (16-bit, 8-bit) */
208     for(i=0xB0;i<=0xCF;i++)
209         DSP_Command[i]=3;
210     /* DSP Indentification */
211     DSP_Command[0xE0]=1;
212
213     /* Clear command and input buffer */
214     command = -1;
215     InSize = 0;
216
217     /* Put a garbage value in the output buffer */
218     OutSize = 1;
219     if (SB_Init())
220         /* All right, let's put the magic value for autodetection */
221         DSP_OutBuffer[0] = 0xaa;
222     else
223         /* Something is wrong, put 0 to failed autodetection */
224         DSP_OutBuffer[0] = 0x00;
225 }
226
227 /* Find a standard sampling rate for DirectSound */
228 static int SB_StdSampleRate(int SampleRate)
229 {
230   if (SampleRate>((44100+48000)/2)) return 48000;
231   if (SampleRate>((32000+44100)/2)) return 44100;
232   if (SampleRate>((24000+32000)/2)) return 32000;
233   if (SampleRate>((22050+24000)/2)) return 24000;
234   if (SampleRate>((16000+22050)/2)) return 22050;
235   if (SampleRate>((12000+16000)/2)) return 16000;
236   if (SampleRate>((11025+12000)/2)) return 12000;
237   if (SampleRate>((8000+11025)/2))  return 11025;
238   return 8000;
239 }
240
241 void SB_ioport_out( WORD port, BYTE val )
242 {
243     switch(port)
244     {
245     /* DSP - Reset */
246     case 0x226:
247         TRACE("Resetting DSP.\n");
248         SB_Reset();
249         break;
250     /* DSP - Write Data or Command */
251     case 0x22c:
252         TRACE("val=%x\n",val);
253         if (command == -1) {
254           /* Clear input buffer and set the current command */
255           command = val;
256           InSize = 0;
257         }
258         if (InSize!=DSP_Command[command])
259            /* Fill the input buffer the command parameters if any */
260            DSP_InBuffer[InSize++]=val;
261         else {
262             /* Process command */
263             switch(command)
264             {
265             case 0x10: /* SB */
266                 FIXME("Direct DAC (8-bit) - Not Implemented\n");
267                 break;
268             case 0x14: /* SB */
269                 SamplesCount = DSP_InBuffer[1]+(val<<8)+1;
270                 TRACE("DMA DAC (8-bit) for %x samples\n",SamplesCount);
271                 dma_enable = 1;
272                 break;
273             case 0x20:
274                 FIXME("Direct ADC (8-bit) - Not Implemented\n");
275                 break;
276             case 0x24: /* SB */
277                 FIXME("DMA ADC (8-bit) - Not Implemented\n");
278                 break;
279             case 0x40: /* SB */
280                 SampleRate = 1000000/(256-val);
281                 TRACE("Set Time Constant (%d <-> %d Hz => %d Hz)\n",DSP_InBuffer[0],
282                     SampleRate,SB_StdSampleRate(SampleRate));
283                 SampleRate = SB_StdSampleRate(SampleRate);
284                 wav_fmt.nSamplesPerSec = SampleRate;
285                 wav_fmt.nAvgBytesPerSec = SampleRate;
286                 IDirectSoundBuffer_SetFormat(lpdsbuf,&wav_fmt);
287                 break;
288             /* case 0xBX/0xCX -> See below */
289             case 0xD0: /* SB */
290                 TRACE("Halt DMA operation (8-bit)\n");
291                 dma_enable = 0;
292                 break;
293             case 0xD1: /* SB */
294                 FIXME("Enable Speaker - Not Implemented\n");
295                 break;
296             case 0xD3: /* SB */
297                 FIXME("Disable Speaker - Not Implemented\n");
298                 break;
299             case 0xD4: /* SB */
300                 FIXME("Continue DMA operation (8-bit) - Not Implemented\n");
301                 break;
302             case 0xD8: /* SB */
303                 FIXME("Speaker Status - Not Implemented\n");
304                 break;
305             case 0xE0: /* SB 2.0 */
306                 TRACE("DSP Identification\n");
307                 DSP_OutBuffer[OutSize++] = ~val;
308                 break;
309             case 0xE1: /* SB */
310                TRACE("DSP Version\n");
311                OutSize=2;
312                DSP_OutBuffer[0]=0; /* returns version 1.0 */
313                DSP_OutBuffer[1]=1;
314                 break;
315             case 0xF2: /* SB */
316                 TRACE("IRQ Request (8-bit)\n");
317                 DOSVM_QueueEvent(SB_IRQ,SB_IRQ_PRI,NULL,NULL);
318                 break;
319             default:
320               if (((command&0xF0)==0xB0)||((DSP_InBuffer[0]&0xF0)==0xC0)) {
321                     /* SB16 */
322                     FIXME("Generic DAC/ADC DMA (16-bit, 8-bit) - %d % d\n",command,DSP_InBuffer[1]);
323                     if (command&0x02)
324                         FIXME("Generic DAC/ADC fifo mode not supported\n");
325                     if (command&0x04)
326                         FIXME("Generic DAC/ADC autoinit dma mode not supported\n");
327                     if (command&0x08)
328                         FIXME("Generic DAC/ADC adc mode not supported\n");
329                     switch(command>>4) {
330                     case 0xB:
331                         FIXME("Generic DAC/ADC 8-bit not supported\n");
332                         SampleMode = 0;
333                         break;
334                     case 0xC:
335                         FIXME("Generic DAC/ADC 16-bit not supported\n");
336                         SampleMode = 1;
337                         break;
338                     default:
339                         ERR("Generic DAC/ADC resolution unknown\n");
340                         break;
341                     }
342                     if (DSP_InBuffer[1]&0x010)
343                         FIXME("Generic DAC/ADC signed sample mode not supported\n");
344                     if (DSP_InBuffer[1]&0x020)
345                         FIXME("Generic DAC/ADC stereo mode not supported\n");
346                     SamplesCount = DSP_InBuffer[2]+(val<<8)+1;
347                     TRACE("Generic DMA for %x samples\n",SamplesCount);
348                     dma_enable = 1;
349                 }
350                 else
351                     FIXME("DSP command %x not supported\n",val);
352             }
353             /* Empty the input buffer and end the command */
354             InSize = 0;
355             command = -1;
356         }
357     }
358 }
359
360 BYTE SB_ioport_in( WORD port )
361 {
362     BYTE res = 0;
363
364     switch(port)
365     {
366     /* DSP Read Data */
367     case 0x22a:
368         /* Value in the read buffer */
369       if (OutSize)
370           res = DSP_OutBuffer[--OutSize];
371       else
372           /* return the last byte */
373           res = DSP_OutBuffer[0];
374       break;
375     /* DSP - Write Buffer Status */
376     case 0x22c:
377         /* DSP always ready for writing */
378         res = 0x00;
379         break;
380     /* DSP - Data Available Status */
381     /* DSP - IRQ Acknowledge, 8-bit */
382     case 0x22e:
383         /* DSP data availability check */
384         if (OutSize)
385             res = 0x80;
386         else
387             res = 0x00;
388         break;
389     }
390     return res;
391 }