kolibrios/programs/media/midamp/trunk/playlist.inc
Evgeny Grechnikov (Diamond) d5f66e011c * new version of gif_lite.inc, common for all programs which use GIF
* restored config.inc because it is needed for normal compilation of
  one program with build_ru.bat

git-svn-id: svn://kolibrios.org@552 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-06-25 17:20:49 +00:00

352 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]
.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