Subversion Repositories Kolibri OS

Rev

Rev 374 | Details | Compare with Previous | 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 
 
376 serge 8 
public _GetPan@8
374 serge 9 
 
10 
extrn hSound
11 
 
12 
align 4
376 serge 13 
_GetPan@8:           ;str:dword, p_pan:dword
374 serge 14 
           push ebx
15 
           push ecx
376 serge 16 
 
17 
           lea eax, [esp+16]
18 
           lea ebx, [esp+12]   ;[stream]
374 serge 19 
 
376 serge 20 
           push 4              ;.out_size
21 
           push eax            ;.output
22 
           push 4              ;.inp_size
23 
           push ebx            ;.input
24 
           push SND_GETPAN     ;.code
25 
           push dword [hSound] ;.handle
374 serge 26 
 
27 
           mov eax, 68
28 
           mov ebx, 17
376 serge 29 
           mov ecx, esp
374 serge 30 
           int 0x40
376 serge 31 
           add esp, 24
374 serge 32 
           pop ecx
33 
           pop ebx
376 serge 34 
           ret 8
35