Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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