Subversion Repositories Kolibri OS

Rev

Rev 374 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 374 Rev 376
Line 8... Line 8...
8 
public _SetPan@8
 8 
public _SetPan@8
Line 9... Line 9...
9 
 
 9 
 
Line 10... Line 10...
10 
extrn hSound
 10 
extrn hSound
11 
 
 11 
 
12 
align 4
 - 
 
13 
proc _SetPan@8 stdcall, 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
 12 
align 4
22
13 
_SetPan@8:           ;str:dword, pan:dword
23 
           push ebx
 - 
 
24 
           push ecx
 - 
 
25 
           mov eax, [hSound]
 - 
 
Line 26... Line 14...
26 
           lea ebx, [str]
 14 
           push ebx
27 
           xor ecx, ecx
 15 
           push ecx
- 
 
 16
- 
 
 17 
           xor eax, eax
28 
 
 18 
           lea ebx, [esp+12]   ;[stream]
29 
           mov [handle], eax
 19 
 
- 
 
 20 
           push eax            ;.out_size
30 
           mov [io_code], SND_SETPAN
 21 
           push eax            ;.output
31 
           mov [input], ebx
 22 
           push 12             ;.inp_size
Line 32... Line 23...
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 
 
- 
 
 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
39 
           int 0x40
 -