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 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