forked from KolibriOS/kolibrios
668 lines
14 KiB
NASM
668 lines
14 KiB
NASM
|
|
STACK_SIZE equ 4096
|
|
|
|
include "include/app.inc"
|
|
|
|
align 8
|
|
main:
|
|
.argc equ ebp+8
|
|
.argv equ ebp+12
|
|
.envp equ ebp+16
|
|
|
|
; int3
|
|
push ebp
|
|
mov ebp, esp
|
|
push ebx
|
|
|
|
mov eax, [.argc]
|
|
cmp eax, 2
|
|
jae @F
|
|
|
|
call _get_moviefile
|
|
mov [input_file], eax
|
|
|
|
@@:
|
|
call [mpg123_init]
|
|
test eax, eax
|
|
jz @F
|
|
|
|
push eax
|
|
call [mpg123_plain_strerror]
|
|
|
|
mov [esp], eax
|
|
push msg_init_fail
|
|
call [_printf]
|
|
add esp, 4
|
|
jmp .fail
|
|
@@:
|
|
push dword error
|
|
push 0
|
|
call [mpg123_new]
|
|
add esp, 8
|
|
|
|
mov [mh], eax
|
|
mov ebx, eax
|
|
test eax, eax
|
|
jz .err_1
|
|
|
|
push [input_file]
|
|
push eax
|
|
call [mpg123_open]
|
|
add esp, 8
|
|
|
|
test eax, eax
|
|
jnz .err_1
|
|
|
|
push encoding
|
|
push channels
|
|
push rate
|
|
push ebx
|
|
call [mpg123_getformat]
|
|
add esp, 16
|
|
|
|
test eax, eax
|
|
jnz .err_1
|
|
|
|
push ebx
|
|
call [mpg123_scan]
|
|
test eax, eax
|
|
jz @F
|
|
|
|
call [mpg123_strerror]
|
|
mov [esp], eax
|
|
push msg_print
|
|
call [_printf]
|
|
add esp, 8
|
|
jmp .fail
|
|
|
|
@@:
|
|
call [mpg123_format_none]
|
|
mov ecx, [encoding]
|
|
mov [esp], ecx
|
|
push [channels]
|
|
push [rate]
|
|
push ebx
|
|
call [mpg123_format]
|
|
add esp, 16
|
|
|
|
push error
|
|
stdcall InitSound
|
|
test eax, eax
|
|
jz @F
|
|
|
|
cinvoke _printf, msg_sound
|
|
jmp .fail
|
|
@@:
|
|
mov eax, [rate]
|
|
mov ecx, [channels]
|
|
|
|
mov [whdr.riff_id], 0x46464952
|
|
mov [whdr.riff_format], 0x45564157
|
|
mov [whdr.wFormatTag], 0x01
|
|
mov [whdr.nSamplesPerSec], eax
|
|
mov [whdr.nChannels], cx
|
|
mov [whdr.wBitsPerSample], 16
|
|
|
|
stdcall test_wav, whdr
|
|
stdcall CreateBuffer, eax, 0, hBuff
|
|
test eax, eax
|
|
jz @F
|
|
|
|
cinvoke _printf, msg_buffer
|
|
jmp .fail
|
|
@@:
|
|
mov eax, [hBuff]
|
|
push esi
|
|
push edi
|
|
|
|
mov ecx, 0x40000
|
|
mov eax, 68
|
|
mov ebx, 12
|
|
int 0x40
|
|
|
|
push eax ;buffer esp+16
|
|
push count ;&count esp+12
|
|
push 0x40000 ;remain esp+8
|
|
push eax ;outPtr esp+4
|
|
push [mh] ;mh esp
|
|
|
|
xor ebx, ebx ;totalcount
|
|
|
|
.inner:
|
|
; int3
|
|
mov [count], 0
|
|
call [mpg123_read]
|
|
mov ebx, [count]
|
|
test eax, eax
|
|
jz @F
|
|
test ebx, ebx
|
|
jz .done
|
|
@@:
|
|
.write_out:
|
|
add ebx, 4095
|
|
and ebx, -4096
|
|
mov esi, [esp+16]
|
|
stdcall WaveOut, [hBuff], esi, ebx
|
|
mov [esp+8], dword 0x40000
|
|
mov edi, [esp+16]
|
|
mov [esp+4], edi
|
|
jmp .inner
|
|
.done:
|
|
mov edi, [esp+16]
|
|
mov ecx, 4096
|
|
xor eax, eax
|
|
rep stosd
|
|
mov esi, [esp+16]
|
|
stdcall WaveOut, [hBuff], esi, 16384
|
|
add esp, 20
|
|
pop edi
|
|
pop esi
|
|
|
|
xor eax, eax
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
|
|
.err_1:
|
|
test ebx, ebx
|
|
jnz @F
|
|
|
|
push [error]
|
|
call [mpg123_plain_strerror]
|
|
jmp .err_2
|
|
@@:
|
|
push ebx
|
|
call [mpg123_strerror]
|
|
.err_2:
|
|
mov [esp], eax
|
|
push msg_trouble
|
|
call [_printf]
|
|
add esp, 8
|
|
.fail:
|
|
mov eax, -1
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
|
|
align 4
|
|
getprocaddress:
|
|
mov edx, [esp + 8] ; hlib
|
|
xor eax, eax
|
|
test edx, edx ; If hlib = 0 then goto .end
|
|
jz .end
|
|
|
|
.next:
|
|
cmp [edx], dword 0 ; If end of export table then goto .end
|
|
jz .end
|
|
|
|
xor eax, eax
|
|
mov esi, [edx]
|
|
mov edi, [esp + 4] ; name
|
|
|
|
.next_:
|
|
lodsb
|
|
scasb
|
|
jne .fail
|
|
or al, al
|
|
jnz .next_
|
|
jmp .ok
|
|
.fail:
|
|
add edx, 8
|
|
jmp .next
|
|
|
|
.ok: ; return address
|
|
mov eax, [edx + 4]
|
|
.end:
|
|
ret 8
|
|
|
|
|
|
align 8
|
|
_get_moviefile:
|
|
|
|
pushad
|
|
mov eax, 68
|
|
mov ebx, 19
|
|
mov ecx, sz_proc_lib
|
|
int 0x40
|
|
mov [proclib], eax
|
|
test eax, eax
|
|
jz .fail
|
|
|
|
push [proclib]
|
|
push sz_OpenDialog_init
|
|
call getprocaddress
|
|
mov [opendialog_init], eax
|
|
|
|
push dword[proclib]
|
|
push sz_OpenDialog_start
|
|
call getprocaddress
|
|
mov [opendialog_start], eax
|
|
|
|
mov eax, 68
|
|
mov ebx, 12
|
|
mov ecx, 4096*3
|
|
int 0x40
|
|
|
|
mov [od.procinfo], eax
|
|
|
|
add eax, 1024
|
|
mov [od.filename_area], eax
|
|
|
|
add eax, 3072
|
|
mov [od.opendir_path], eax
|
|
|
|
add eax, 4096
|
|
mov [od.openfile_path], eax
|
|
|
|
push od
|
|
call [opendialog_init]
|
|
|
|
mov eax, [od.openfile_path]
|
|
mov [eax], byte 0 ; end of ASCIIZ-string(may be don't need?)
|
|
|
|
push od
|
|
call [opendialog_start]
|
|
|
|
popad
|
|
mov eax, [od.openfile_path]; selected filePath
|
|
|
|
ret
|
|
.fail:
|
|
xor eax, eax
|
|
ret
|
|
|
|
align 4
|
|
fake_on_redraw:
|
|
ret
|
|
|
|
|
|
SRV_GETVERSION equ 0
|
|
SND_CREATE_BUFF equ 1
|
|
SND_DESTROY_BUFF equ 2
|
|
SND_SETFORMAT equ 3
|
|
SND_GETFORMAT equ 4
|
|
SND_RESET equ 5
|
|
SND_SETPOS equ 6
|
|
SND_GETPOS equ 7
|
|
SND_SETBUFF equ 8
|
|
SND_OUT equ 9
|
|
SND_PLAY equ 10
|
|
SND_STOP equ 11
|
|
SND_SETVOLUME equ 12
|
|
SND_GETVOLUME equ 13
|
|
SND_SETPAN equ 14
|
|
SND_GETPAN equ 15
|
|
SND_GETBUFFSIZE equ 16
|
|
SND_GETFREESPACE equ 17
|
|
SND_SETTIMEBASE equ 18
|
|
SND_GETTIMESTAMP equ 19
|
|
|
|
|
|
align 4
|
|
InitSound: ;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: ;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
|
|
proc test_wav stdcall, hdr:dword
|
|
|
|
mov eax, [hdr]
|
|
cmp dword [eax], 0x46464952
|
|
jne .fail
|
|
|
|
cmp dword [eax+8], 0x45564157
|
|
jne .fail
|
|
|
|
cmp word [eax+20], 1
|
|
jne .fail
|
|
|
|
mov ecx, dword [eax+24]
|
|
mov edx, 22050
|
|
cmp ecx, edx
|
|
ja .high
|
|
je .l_22
|
|
|
|
cmp ecx, 8000
|
|
je .l_8
|
|
|
|
cmp ecx, 11025
|
|
je .l_11
|
|
|
|
cmp ecx, 12000
|
|
je .l_12
|
|
|
|
cmp ecx, 16000
|
|
je .l_16
|
|
.fail:
|
|
xor eax, eax
|
|
ret
|
|
.high:
|
|
cmp ecx, 24000
|
|
je .LN56
|
|
cmp ecx, 32000
|
|
je .LN65
|
|
cmp ecx, 44100
|
|
je .LN74
|
|
cmp ecx, 48000
|
|
jne .fail
|
|
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN79
|
|
dec ecx
|
|
jne .LN74
|
|
|
|
mov edx, 19
|
|
jmp .done
|
|
.LN79:
|
|
mov edx, 20
|
|
jmp .done
|
|
.LN74:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN70
|
|
dec ecx
|
|
jne .LN65
|
|
|
|
mov edx, 21
|
|
jmp .done
|
|
.LN70:
|
|
mov edx, 22
|
|
jmp .done
|
|
.LN65:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN61
|
|
dec ecx
|
|
jne .LN56
|
|
|
|
mov edx, 23
|
|
jmp .done
|
|
.LN61:
|
|
mov edx, 24
|
|
jmp .done
|
|
.LN56:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN52
|
|
dec ecx
|
|
je .LN50
|
|
.l_22:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN43
|
|
dec ecx
|
|
je .LN41
|
|
.l_16:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN34
|
|
dec ecx
|
|
je .LN32
|
|
.l_12:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN25
|
|
dec ecx
|
|
je .LN23
|
|
.l_11:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN16
|
|
dec ecx
|
|
je .LN14
|
|
.l_8:
|
|
movzx ecx, word [eax+22]
|
|
dec ecx
|
|
je .LN7
|
|
dec ecx
|
|
jne .fail
|
|
|
|
mov edx, 35
|
|
jmp .done
|
|
.LN7:
|
|
mov edx, 36
|
|
jmp .done
|
|
.LN14:
|
|
mov edx, 33
|
|
jmp .done
|
|
.LN16:
|
|
mov edx, 34
|
|
jmp .done
|
|
.LN23:
|
|
mov edx, 31
|
|
jmp .done
|
|
.LN25:
|
|
mov edx, 32
|
|
jmp .done
|
|
.LN32:
|
|
mov edx, 29
|
|
jmp .done
|
|
.LN34:
|
|
mov edx, 30
|
|
jmp .done
|
|
.LN41:
|
|
mov edx, 27
|
|
jmp .done
|
|
.LN43:
|
|
mov edx, 28
|
|
jmp .done
|
|
.LN50:
|
|
mov edx, 25
|
|
jmp .done
|
|
.LN52:
|
|
mov edx, 26
|
|
.done:
|
|
xor ecx, ecx
|
|
cmp word [eax+34], 16
|
|
setne cl
|
|
dec ecx
|
|
and ecx, -18
|
|
add ecx, edx
|
|
mov eax, ecx
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
WaveOut: ;str:dword, src:dword, size:dword
|
|
push ebx
|
|
push ecx
|
|
|
|
xor eax, eax
|
|
lea ebx, [esp+12] ;[stream]
|
|
|
|
push eax ;.out_size
|
|
push eax ;.output
|
|
push 12 ;.inp_size
|
|
push ebx ;.input
|
|
push SND_OUT ;.code
|
|
push dword [hSound] ;.handle
|
|
|
|
mov eax, 68
|
|
mov ebx, 17
|
|
mov ecx, esp
|
|
int 0x40
|
|
add esp, 24
|
|
pop ecx
|
|
pop ebx
|
|
ret 12
|
|
|
|
align 4
|
|
hSound dd ?
|
|
hrdwSound dd ?
|
|
|
|
szInfinity db 'INFINITY',0
|
|
szSound db 'SOUND',0
|
|
|
|
align 4
|
|
od:
|
|
.mode dd 0
|
|
.procinfo dd 0
|
|
.com_area_name dd sz_com_area_name
|
|
.com_area dd 0
|
|
.opendir_path dd 0
|
|
.dir_default_path dd sz_dir_default_path
|
|
.start_path dd sz_start_path
|
|
.draw_window dd fake_on_redraw
|
|
.status dd 0
|
|
.openfile_path dd 0
|
|
.filename_area dd 0
|
|
.filter_area dd filefilter
|
|
.x_size dw 512
|
|
.x_start dw 512
|
|
.y_size dw 512
|
|
.y_start dw 512
|
|
|
|
filefilter:
|
|
dd filefilter.end - filefilter
|
|
db 'mp3',0
|
|
; db 'flv',0
|
|
; db 'mov',0
|
|
; db 'mpg',0
|
|
; db 'mpeg',0
|
|
; db 'mkv',0
|
|
; db 'mp4',0
|
|
; db 'webm',0
|
|
; db 'wmv',0
|
|
.end:
|
|
db 0
|
|
|
|
|
|
|
|
|
|
sz_proc_lib db "/rd/1/lib/proc_lib.obj",0
|
|
sz_OpenDialog_init db "OpenDialog_init",0
|
|
sz_OpenDialog_start db "OpenDialog_start",0
|
|
sz_com_area_name db "FFFFFFFF_open_dialog",0
|
|
sz_dir_default_path db "/rd/1",0
|
|
sz_start_path db "/rd/1/File managers/opendial",0
|
|
|
|
msg_print db '%s',0x0D,0x0A,0
|
|
msg_init_fail db 'Cannot initialize mpg123 library: %s', 0x0D,0x0A,0
|
|
msg_trouble db 'Trouble with mpg123: %s', 0x0D,0x0A,0
|
|
msg_sound db 'Sound service not installed', 0x0D,0x0A,0
|
|
msg_buffer db 'Unable to create a sound buffer',0x0D,0x0A,0
|
|
|
|
align 16
|
|
__idata_start:
|
|
|
|
library libc,'libc.dll', \
|
|
libmpg123, 'libmpg123.dll'
|
|
|
|
include 'include/libc.inc'
|
|
include 'include/libmpg123.inc'
|
|
|
|
__idata_end:
|
|
__iend:
|
|
|
|
align 4
|
|
whdr:
|
|
.riff_id rd 1
|
|
.riff_size rd 1
|
|
.riff_format rd 1
|
|
|
|
.fmt_id rd 1
|
|
.fmt_size rd 1
|
|
|
|
.wFormatTag rw 1
|
|
.nChannels rw 1
|
|
.nSamplesPerSec rd 1
|
|
.nAvgBytesPerSec rd 1
|
|
.nBlockAlign rw 1
|
|
.wBitsPerSample rw 1
|
|
.data_id rd 1
|
|
.data_size rd 1
|
|
|
|
proclib rd 1
|
|
opendialog_init rd 1
|
|
opendialog_start rd 1
|
|
|
|
input_file rd 1
|
|
|
|
mh rd 1
|
|
encoding rd 1
|
|
channels rd 1
|
|
rate rd 1
|
|
|
|
hBuff rd 1
|
|
count rd 1
|
|
|
|
done rd 1
|
|
|
|
error rd 1
|
|
|
|
|
|
__cmdline: rb 256
|
|
__pgmname: rb 1024
|
|
rb 16
|
|
__stack:
|
|
__bssend:
|
|
|
|
|