Rev 374 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 374 | Rev 376 | ||
---|---|---|---|
Line 3... | Line 3... | ||
3 | include "snd.inc" |
3 | include "snd.inc" |
4 | include "proc32.inc" |
4 | include "proc32.inc" |
Line 5... | Line 5... | ||
5 | 5 | ||
Line 6... | Line 6... | ||
6 | section '.text' align 16 code readable executable |
6 | section '.text' align 16 code readable executable |
Line 7... | Line 7... | ||
7 | 7 | ||
Line 8... | Line 8... | ||
8 | public _GetPan@4 |
8 | public _GetPan@8 |
9 | 9 | ||
10 | extrn hSound |
- | |
11 | - | ||
12 | align 4 |
- | |
13 | proc _GetPan@4 stdcall, str:dword |
- | |
14 | locals |
- | |
15 | handle dd ? |
- | |
16 | io_code dd ? |
- | |
17 | input dd ? |
- | |
18 | inp_size dd ? |
- | |
19 | output dd ? |
10 | extrn hSound |
20 | out_size dd ? |
11 | |
- | 12 | align 4 |
|
21 | endl |
13 | _GetPan@8: ;str:dword, p_pan:dword |
22 | 14 | push ebx |
|
23 | push ebx |
- | |
24 | push ecx |
15 | push ecx |
25 | mov eax, [hSound] |
16 | |
26 | lea ebx, [str] |
17 | lea eax, [esp+16] |
27 | xor ecx, ecx |
18 | lea ebx, [esp+12] ;[stream] |
28 | 19 | ||
29 | mov [handle], eax |
20 | push 4 ;.out_size |
30 | mov [io_code], SND_GETPAN |
21 | push eax ;.output |
Line 31... | Line 22... | ||
31 | mov [input], ebx |
22 | push 4 ;.inp_size |
32 | mov [inp_size], 4 |
23 | push ebx ;.input |
33 | mov [output], ecx |
24 | push SND_GETPAN ;.code |
34 | mov [out_size], ecx |
25 | push dword [hSound] ;.handle |
- | 26 | ||
35 | 27 | mov eax, 68 |
|
36 | mov eax, 68 |
28 | mov ebx, 17 |
37 | mov ebx, 17 |
29 | mov ecx, esp |
38 | lea ecx, [handle] |
30 | int 0x40 |