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 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 
extrn hSound
8 
extrn hSound
9 
 
 9 
 
10 
public _GetBufferPos@4
 - 
 
11 
 
 - 
 
12 
align 4
 - 
 
13 
proc _GetBufferPos@4 stdcall, str:dword
 - 
 
14 
           locals
 - 
 
15 
             handle     dd ?
 - 
 
16 
             io_code    dd ?
 - 
 
17 
             input      dd ?
 - 
 
Line 18... Line 10...
18 
             inp_size   dd ?
 10 
public _GetBufferPos@8
19 
             output     dd ?
 11 
 
- 
 
 12 
align 4
20 
             out_size   dd ?
 13 
_GetBufferPos@8:     ;str:dword, p_pos:dword
21 
           endl
 14 
 
22 
 
 - 
 
23 
           push ebx
 15 
           push ebx
24 
           push ecx
 16 
           push ecx
25 
           mov eax, [hSound]
 17
26 
           lea ebx, [str]
 18 
           lea eax, [esp+16]
27 
           xor ecx, ecx
 19 
           lea ebx, [esp+12]   ;[stream]
28 
 
 20 
 
29 
           mov [handle], eax
 21 
           push 4              ;.out_size
Line 30... Line 22...
30 
           mov [io_code], SND_GETPOS
 22 
           push eax            ;.output
31 
           mov [input], ebx
 23 
           push 4              ;.inp_size
32 
           mov [inp_size], 4
 24 
           push ebx            ;.input
33 
           mov [output], ecx
 25 
           push SND_GETPOS     ;.code
- 
 
 26 
           push dword [hSound] ;.handle
34 
           mov [out_size], ecx
 27 
 
35 
 
 28 
           mov eax, 68
36 
           mov eax, 68
 29 
           mov ebx, 17
37 
           mov ebx, 17
 30 
           mov ecx, esp