Subversion Repositories Kolibri OS

Rev

Rev 374 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 374 Rev 376
1 
format MS COFF
 1 
format MS COFF
2 
 
 2 
 
3 
include "snd.inc"
 3 
include "snd.inc"
4 
include "proc32.inc"
 4 
include "proc32.inc"
5 
 
 5 
 
6 
section '.text' align 16 code readable executable
 6 
section '.text' align 16 code readable executable
7 
 
 7 
 
8 
public _SetPan@8
 8 
public _SetPan@8
9 
 
 9 
 
10 
extrn hSound
 10 
extrn hSound
11 
 
 11 
 
12 
align 4
 12 
align 4
13 
proc _SetPan@8 stdcall, str:dword, pan:dword
 13 
_SetPan@8:           ;str:dword, pan:dword
14 
           locals
 - 
 
15 
             handle     dd ?
 - 
 
16 
             io_code    dd ?
 - 
 
17 
             input      dd ?
 - 
 
18 
             inp_size   dd ?
 - 
 
19 
             output     dd ?
 - 
 
20 
             out_size   dd ?
 - 
 
21 
           endl
 - 
 
22
- 
 
23 
           push ebx
 14 
           push ebx
24 
           push ecx
 15 
           push ecx
25 
           mov eax, [hSound]
 - 
 
26 
           lea ebx, [str]
 - 
 
27 
           xor ecx, ecx
 - 
 
28 
 
 16
29 
           mov [handle], eax
 17 
           xor eax, eax
- 
 
 18 
           lea ebx, [esp+12]   ;[stream]
- 
 
 19 
 
30 
           mov [io_code], SND_SETPAN
 20 
           push eax            ;.out_size
31 
           mov [input], ebx
 21 
           push eax            ;.output
- 
 
 22 
           push 12             ;.inp_size
32 
           mov [inp_size], 8
 23 
           push ebx            ;.input
33 
           mov [output], ecx
 24 
           push SND_SETPAN     ;.code
34 
           mov [out_size], ecx
 25 
           push dword [hSound] ;.handle
35 
 
 26 
 
36 
           mov eax, 68
 27 
           mov eax, 68
37 
           mov ebx, 17
 28 
           mov ebx, 17
38 
           lea ecx, [handle]
 29 
           mov ecx, esp
39 
           int 0x40
 30 
           int 0x40
- 
 
 31 
           add esp, 24
40 
           pop ecx
32 
           pop ecx
41 
           pop ebx
 33 
           pop ebx
42 
           ret
 34 
           ret 8
43 
endp
 -