forked from KolibriOS/kolibrios
137 lines
2.9 KiB
NASM
137 lines
2.9 KiB
NASM
|
format MS COFF
|
||
|
|
|
||
|
|
include "snd.inc"
|
||
|
|
include "proc32.inc"
|
||
|
|
|
||
|
|
section '.text' align 16 code readable executable
|
||
|
|
|
||
|
|
public _InitSound@0
|
||
|
|
public _CreateBuffer@8
|
||
|
|
public _DestroyBuffer@4
|
||
|
|
|
||
|
|
align 4
|
||
|
|
proc _InitSound@0
|
||
|
|
locals
|
||
|
|
handle dd ?
|
||
|
|
io_code dd ?
|
||
|
|
input dd ?
|
||
|
|
inp_size dd ?
|
||
|
|
output dd ?
|
||
|
|
out_size dd ?
|
||
|
|
endl
|
||
|
|
|
||
|
|
push ebx
|
||
|
|
push ecx
|
||
|
|
mov eax, 68
|
||
|
|
mov ebx, 16
|
||
|
|
mov ecx, szInfinity
|
||
|
|
int 0x40
|
||
|
|
test eax, eax
|
||
|
|
jz .fail
|
||
|
|
|
||
|
|
mov [hSound], eax
|
||
|
|
mov eax, 68
|
||
|
|
mov ebx, 16
|
||
|
|
mov ecx, szSound
|
||
|
|
int 0x40
|
||
|
|
mov [hrdwSound], eax
|
||
|
|
|
||
|
|
mov eax, [hSound]
|
||
|
|
xor ebx, ebx
|
||
|
|
|
||
|
|
mov [handle], eax
|
||
|
|
mov [io_code], SRV_GETVERSION
|
||
|
|
mov [input], ebx
|
||
|
|
mov [inp_size], ebx
|
||
|
|
mov [output], ebx
|
||
|
|
mov [out_size], ebx
|
||
|
|
|
||
|
|
mov eax, 68
|
||
|
|
mov ebx, 17
|
||
|
|
lea ecx, [handle]
|
||
|
|
int 0x40
|
||
|
|
.fail:
|
||
|
|
pop ecx
|
||
|
|
pop ebx
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
|
||
|
|
align 4
|
||
|
|
proc _CreateBuffer@8 stdcall, format:dword, size:dword
|
||
|
|
locals
|
||
|
|
handle dd ?
|
||
|
|
io_code dd ?
|
||
|
|
input dd ?
|
||
|
|
inp_size dd ?
|
||
|
|
output dd ?
|
||
|
|
out_size dd ?
|
||
|
|
endl
|
||
|
|
|
||
|
|
push ebx
|
||
|
|
push ecx
|
||
|
|
mov eax, [hSound]
|
||
|
|
lea ebx, [format]
|
||
|
|
xor ecx, ecx
|
||
|
|
|
||
|
|
mov [handle], eax
|
||
|
|
mov [io_code], SND_CREATE_BUFF
|
||
|
|
mov [input], ebx
|
||
|
|
mov [inp_size], 4
|
||
|
|
mov [output], ecx
|
||
|
|
mov [out_size], ecx
|
||
|
|
|
||
|
|
mov eax, 68
|
||
|
|
mov ebx, 17
|
||
|
|
lea ecx, [handle]
|
||
|
|
int 0x40
|
||
|
|
pop ecx
|
||
|
|
pop ebx
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
align 4
|
||
|
|
proc _DestroyBuffer@4 stdcall, str:dword
|
||
|
|
locals
|
||
|
|
handle dd ?
|
||
|
|
io_code dd ?
|
||
|
|
input dd ?
|
||
|
|
inp_size dd ?
|
||
|
|
output dd ?
|
||
|
|
out_size dd ?
|
||
|
|
endl
|
||
|
|
|
||
|
|
push ebx
|
||
|
|
push ecx
|
||
|
|
|
||
|
|
mov eax, [hSound]
|
||
|
|
lea ebx, [str]
|
||
|
|
xor ecx, ecx
|
||
|
|
|
||
|
|
mov [handle], eax
|
||
|
|
mov [io_code], SND_DESTROY_BUFF
|
||
|
|
mov [input], ebx
|
||
|
|
mov [inp_size], 4
|
||
|
|
mov [output], ecx
|
||
|
|
mov [out_size], ecx
|
||
|
|
|
||
|
|
mov eax, 68
|
||
|
|
mov ebx, 17
|
||
|
|
lea ecx, [handle]
|
||
|
|
int 0x40
|
||
|
|
pop ecx
|
||
|
|
pop ebx
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
section '.data' align 16 data readable writable
|
||
|
|
|
||
|
|
szInfinity db 'INFINITY',0
|
||
|
|
szSound db 'SOUND',0
|
||
|
|
|
||
|
|
public hSound
|
||
|
|
public hrdwSound
|
||
|
|
|
||
|
|
align 4
|
||
|
|
hSound dd ?
|
||
|
|
hrdwSound dd ?
|