forked from KolibriOS/kolibrios
354 lines
5.8 KiB
PHP
354 lines
5.8 KiB
PHP
; Playlist support for MIDPLAY
|
|
LCOLOR equ 0x00ff00
|
|
PCOLOR equ 0xffffff
|
|
|
|
PL_X equ 10 shl 16
|
|
PL_Y equ PLY shl 16
|
|
PL_XY equ 10 shl 16+PLY
|
|
|
|
PL_show:
|
|
test [flag],FL_HIDDEN
|
|
jnz .ex
|
|
pusha
|
|
and [counter],0
|
|
mov ebx,PL_X+255
|
|
mov eax,13
|
|
mov ecx,PL_Y-1 shl 16+4+9*LISTITEMS
|
|
xor edx,edx
|
|
mcall
|
|
movzx ecx,byte[list_count]
|
|
test ecx,ecx
|
|
jz .ex2
|
|
push ecx
|
|
imul ecx,9
|
|
add ecx,PL_Y-1 shl 16-2
|
|
mov edx,11+1 shl 29+1 shl 30
|
|
mov eax,8
|
|
mcall
|
|
pop ecx
|
|
mov edi,[pl_ptr]
|
|
mov eax,4
|
|
mov ebx,PL_XY+2 shl 16
|
|
.sh_loop:
|
|
movzx esi,word[edi]
|
|
and esi,not FL_MULSEL
|
|
add edi,2
|
|
pusha
|
|
mov edx,edi
|
|
mov ecx,[counter]
|
|
test word[edi-2],FL_MULSEL
|
|
jz .nosel
|
|
pusha
|
|
mov ebx,PL_X+255+1 shl 16-2
|
|
imul ecx,9
|
|
shl ecx,16
|
|
add ecx,PL_Y-1 shl 16+8
|
|
mov edx,0xc6
|
|
mov eax,13
|
|
mcall
|
|
popa
|
|
.nosel:
|
|
pusha
|
|
mov edx,ebx
|
|
mov esi,0xa0a0a0;0x508cec
|
|
mcall 47,0x30000
|
|
popa
|
|
cmp ecx,[play_num]
|
|
je .high
|
|
mov ecx,LCOLOR
|
|
jmp .int
|
|
.high:
|
|
mov ecx,PCOLOR
|
|
.int:
|
|
add ebx,25 shl 16
|
|
mcall
|
|
popa
|
|
add edi,esi
|
|
add ebx,9
|
|
inc [counter]
|
|
loop .sh_loop2
|
|
jmp .ex2
|
|
.sh_loop2:
|
|
jmp .sh_loop
|
|
.ex2:
|
|
popa
|
|
test [flag],FL_BOTTRED
|
|
jz .nobott
|
|
pusha
|
|
mcall 7,hdr_raw+8+275*16*3,<275,12>,<10,(WND_HEIGHT-20)>
|
|
mov ebp,main_coo2
|
|
mov esi,10 shl 16
|
|
mov edi,(WND_HEIGHT-22)shl 16
|
|
mov ecx,1
|
|
pushd 155 shl 16+5
|
|
pushd (WND_HEIGHT-22) shl 16+5
|
|
call draw_navigation
|
|
add esp,8
|
|
popa
|
|
call draw_bottom
|
|
and [flag],not FL_BOTTRED
|
|
.nobott:
|
|
.ex:
|
|
ret
|
|
|
|
PL_add:
|
|
; in: esi->filename,ecx->fname_len
|
|
jecxz .ex
|
|
cmp [list_count],LISTITEMS
|
|
jae .ex
|
|
pusha
|
|
mov edi,[play_limit]
|
|
mov [edi],cx
|
|
add edi,2
|
|
rep movsb
|
|
mov [play_limit],edi
|
|
inc [list_count]
|
|
popa
|
|
.ex:
|
|
ret
|
|
|
|
PL_del:
|
|
movzx ecx,byte[list_count]
|
|
jecxz .ex
|
|
call PL_get1stsel
|
|
mov edx,ebx
|
|
.lp:
|
|
mov edi,esi
|
|
xor eax,eax
|
|
lodsw
|
|
btr eax,15
|
|
jc .elp2
|
|
add esi,eax
|
|
jmp .elp
|
|
.elp2:
|
|
push esi ecx
|
|
add esi,eax
|
|
mov ecx,[play_limit]
|
|
sub ecx,esi
|
|
rep movsb
|
|
mov [play_limit],edi
|
|
dec [list_count]
|
|
cmp edx,[play_num]
|
|
ja .no
|
|
dec [play_num]
|
|
.no:
|
|
pop ecx esi
|
|
sub esi,2
|
|
.elp:
|
|
inc edx
|
|
loop .lp
|
|
.ex:
|
|
ret
|
|
|
|
PL_getitemclick:
|
|
; out: eax- item # (0..n)
|
|
mov ebx,1
|
|
mov eax,37
|
|
mcall
|
|
sub eax,PLY-1
|
|
mov ebx,9
|
|
div bl
|
|
movzx eax,al
|
|
ret
|
|
|
|
PL_getbyindex:
|
|
; in:eax-index, out: esi-filename, ecx-length
|
|
mov esi,[pl_ptr]
|
|
mov ecx,eax
|
|
.loop:
|
|
lodsw
|
|
and eax,not FL_MULSEL
|
|
jecxz .gbi
|
|
add esi,eax
|
|
dec ecx
|
|
jmp .loop
|
|
.gbi:
|
|
movzx ecx,ax
|
|
ret
|
|
|
|
PL_get1stsel:
|
|
; out: esi- 1st selected, ebx - index
|
|
mov esi,[pl_ptr]
|
|
xor ebx,ebx
|
|
PL_getnextsel:
|
|
push eax ecx
|
|
movzx ecx,[list_count]
|
|
test ecx, ecx
|
|
jz .ex2
|
|
.lp:
|
|
movzx eax,word[esi]
|
|
btr eax,15
|
|
jc .ex2
|
|
lea esi,[esi+eax+2]
|
|
inc ebx
|
|
loop .lp
|
|
xor ebx,ebx
|
|
.ex2:
|
|
pop ecx
|
|
.ex:
|
|
pop eax
|
|
ret
|
|
|
|
PL_clearsel:
|
|
pusha
|
|
mov ebx,not FL_MULSEL
|
|
xor eax,eax
|
|
mov esi,[pl_ptr]
|
|
movzx ecx,[list_count]
|
|
jecxz .flg
|
|
.loop:
|
|
and word[esi],bx
|
|
lodsw
|
|
add esi,eax
|
|
loop .loop
|
|
.flg:
|
|
and [flag],not FL_MULSEL
|
|
popa
|
|
ret
|
|
|
|
PL_shiftsel:
|
|
pusha
|
|
xor eax,eax
|
|
; mov esi,[pl_ptr]
|
|
; movzx ecx,[list_count]
|
|
.loop:
|
|
lodsw
|
|
or word[esi-2],FL_MULSEL
|
|
add esi,eax
|
|
loop .loop
|
|
jmp PL_clearsel.flg
|
|
|
|
PL_invsel:
|
|
pusha
|
|
mov ebx,not FL_MULSEL
|
|
xor eax,eax
|
|
mov esi,[pl_ptr]
|
|
movzx ecx,[list_count]
|
|
jecxz .ex
|
|
.loop:
|
|
xor word[esi],FL_MULSEL
|
|
lodsw
|
|
and eax,ebx
|
|
add esi,eax
|
|
loop .loop
|
|
.ex:
|
|
jmp PL_clearsel.flg
|
|
|
|
PL_load:
|
|
and [list_count],0
|
|
mov [pl_ptr],playlist
|
|
mov ebx,PL_info
|
|
mov dword[ebx+16],playlist
|
|
and dword[ebx],0
|
|
mov dword[ebx+12],20*512
|
|
mov eax,70
|
|
mcall
|
|
test eax,eax
|
|
jz .ok1 ; ebx- filesize
|
|
cmp eax,6
|
|
jne .ex
|
|
.ok1:
|
|
mov eax,0x0a0d
|
|
cmp word[playlist],ax
|
|
je .ok
|
|
sub [pl_ptr],2
|
|
.ok:
|
|
mov edi,[pl_ptr]
|
|
add ebx,edi
|
|
mov word[ebx],ax
|
|
add edi,2
|
|
.loo:
|
|
mov edx,edi
|
|
.loo2:
|
|
mov ecx,256
|
|
repne scasb
|
|
cmp edi,ebx
|
|
jb .ok2
|
|
lea edi,[ebx+1]
|
|
.ok2:
|
|
mov ecx,edi
|
|
sub ecx,edx
|
|
dec ecx
|
|
inc edi
|
|
jecxz .shift
|
|
mov [edx-2],cx
|
|
inc [list_count]
|
|
cmp edi,ebx
|
|
jb .loo
|
|
.ex1:
|
|
sub ebx,2
|
|
mov [play_limit],ebx
|
|
.ex:
|
|
ret
|
|
|
|
.shift:
|
|
mov ecx,ebx
|
|
sub ecx,edi
|
|
jecxz .ex1
|
|
sub ebx,2
|
|
mov esi,edi
|
|
sub edi,2
|
|
push edi
|
|
rep movsb
|
|
pop edi
|
|
jmp .loo
|
|
|
|
PL_save:
|
|
movzx ecx,byte[list_count]
|
|
jecxz .ex
|
|
mov eax,0x0a0d
|
|
mov edi,[pl_ptr]
|
|
lea edx,[edi+2]
|
|
mov [PL_info+16],edx
|
|
.savl:
|
|
movzx ebx,word[edi]
|
|
and bx,not FL_MULSEL
|
|
stosw
|
|
add edi,ebx
|
|
loop .savl
|
|
stosw
|
|
sub edi,[pl_ptr]
|
|
mov ebx,PL_info
|
|
mov [ebx+12],edi
|
|
mov byte[ebx],2
|
|
mov eax,70
|
|
mcall
|
|
.ex:
|
|
ret
|
|
|
|
PL_swap: ; swap [ebx] with [ebx+1]
|
|
mov eax,ebx
|
|
call PL_getbyindex
|
|
add ecx,2
|
|
sub esi,2
|
|
push ecx esi ; save begin & length of 1st fname
|
|
mov edi,fnbuf
|
|
rep movsb
|
|
movzx ecx,word[esi]
|
|
and cx,not FL_MULSEL
|
|
add ecx,2
|
|
pop edi
|
|
rep movsb
|
|
pop ecx
|
|
mov esi,fnbuf
|
|
rep movsb
|
|
cmp ebx,[play_num]
|
|
jne .nosel1
|
|
inc [play_num]
|
|
ret
|
|
.nosel1:
|
|
inc ebx
|
|
cmp ebx,[play_num]
|
|
jne .nosel2
|
|
dec [play_num]
|
|
.nosel2:
|
|
ret
|
|
|
|
PL_info:
|
|
.mode dd 0
|
|
dd 0
|
|
dd 0
|
|
.bytes dd 20*512
|
|
dd 0
|
|
db PLAYLIST_PATH,0
|