Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
374 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 _GetVolume@12
9 
 
10 
extrn hSound
11 
 
12 
align 4
13 
proc _GetVolume@12 stdcall, str:dword, pleft:dword,pright: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
24 
           push ecx
25 
           mov eax, [hSound]
26 
           lea ebx, [str]
27 
           lea ecx, [pleft]
28 
           mov [handle], eax
29 
           mov [io_code], SND_GETVOLUME
30 
           mov [input], ebx
31 
           mov [inp_size], 4
32 
           mov [output], ecx
33 
           mov [out_size], 8
34 
 
35 
           mov eax, 68
36 
           mov ebx, 17
37 
           lea ecx, [handle]
38 
           int 0x40
39 
           pop ecx
40 
           pop ebx
41 
           ret
42 
endp
43