forked from KolibriOS/kolibrios
119 lines
2.6 KiB
NASM
119 lines
2.6 KiB
NASM
format MS COFF
|
|
|
|
include "snd.inc"
|
|
include "proc32.inc"
|
|
|
|
section '.text' align 16 code readable executable
|
|
|
|
public _InitSound@4
|
|
public _CreateBuffer@12
|
|
public _DestroyBuffer@4
|
|
|
|
align 4
|
|
_InitSound@4: ;p_ver:dword
|
|
|
|
push ebx
|
|
push ecx
|
|
|
|
mov eax, 68
|
|
mov ebx, 16
|
|
mov ecx, szInfinity
|
|
int 0x40
|
|
mov [hSound], eax
|
|
test eax, eax
|
|
jz .fail
|
|
|
|
mov eax, 68
|
|
mov ebx, 16
|
|
mov ecx, szSound
|
|
int 0x40
|
|
mov [hrdwSound], eax
|
|
|
|
lea eax, [esp+12] ;p_ver
|
|
xor ebx, ebx
|
|
|
|
push 4 ;.out_size
|
|
push eax ;.output
|
|
push ebx ;.inp_size
|
|
push ebx ;.input
|
|
push SRV_GETVERSION ;.code
|
|
push [hSound] ;.handle
|
|
|
|
mov eax, 68
|
|
mov ebx, 17
|
|
mov ecx, esp ;[handle]
|
|
int 0x40
|
|
add esp, 24
|
|
pop ecx
|
|
pop ebx
|
|
ret 4
|
|
.fail:
|
|
or eax, -1
|
|
pop ecx
|
|
pop ebx
|
|
ret 4
|
|
|
|
|
|
align 4
|
|
_CreateBuffer@12: ;format:dword,size:dword,p_str:dword
|
|
|
|
push ebx
|
|
push ecx
|
|
lea eax, [esp+20] ;p_str
|
|
lea ebx, [esp+12] ;format
|
|
|
|
push 4 ;.out_size
|
|
push eax ;.output
|
|
push 8 ;.inp_size
|
|
push ebx ;.input
|
|
push SND_CREATE_BUFF;.code
|
|
push [hSound] ;.handle
|
|
|
|
mov eax, 68
|
|
mov ebx, 17
|
|
mov ecx, esp
|
|
int 0x40
|
|
add esp, 24 ;io_cintrol
|
|
pop ecx
|
|
pop ebx
|
|
ret 12
|
|
|
|
align 4
|
|
_DestroyBuffer@4: ;str:dword
|
|
|
|
push ebx
|
|
push ecx
|
|
|
|
xor eax, eax
|
|
lea ebx, [esp+12] ;[stream]
|
|
|
|
push eax ;.out_size
|
|
push eax ;.output
|
|
push 4 ;.inp_size
|
|
push ebx ;.input
|
|
push SND_DESTROY_BUFF;.code
|
|
push [hSound] ;.handle
|
|
|
|
mov eax, 68
|
|
mov ebx, 17
|
|
mov ecx, esp ;[handle]
|
|
int 0x40
|
|
add esp, 24
|
|
pop ecx
|
|
pop ebx
|
|
ret 4
|
|
|
|
|
|
section '.data' align 16 data readable writable
|
|
|
|
public hSound
|
|
public hrdwSound
|
|
|
|
hSound dd ?
|
|
hrdwSound dd ?
|
|
|
|
szInfinity db 'INFINITY',0
|
|
szSound db 'SOUND',0
|
|
|
|
|