Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  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.  
  44.  
  45.