WebSVN – Kolibri OS – Diff – /programs/media/listplay/trunk/listplay.asm


;
;   Compile with flat assembler
;   à®£à ¬¬ª  ¯®§¢®«ïîé ï ¯à®¨£àë¢ âì ¯«¥©«¨áâ
;    §à ¡®â «:   ¥¤ª  :)
 
use32
 
    org    0x0
 
	    db	   'MENUET01'	    ; 8 byte id
	    dd	   0x01 	    ; header version
	    dd	   START	    ; start of code
	    dd	   I_END	    ; size of image
	    dd	   0x25000	     ; memory for app
	    dd	   0x20000	     ; esp
	    dd	   playlist,  0x0
 
include '../../../macros.inc'
 
START:			   ; start of execution
cmp  [playlist],0x00000000
jne  dprod
mcall  -1
dprod:
or   [trig_sys],40h
call scandr
jmp  mmm.seach
still:
    not   [trig_sys]
    or	 [trig_sys],400h
    not   [trig_sys]
    or	 [trig_sys],200h
    call enproc
    call delproc
    mov  eax,23 		 ; wait here for event
    mov  ebx,20
    mcall
    cmp  eax,1			; redraw request ?
    je	 red
    cmp  eax,3			; button in buffer ?
    je	button
    test [trig_sys],200h
    jz	 next_song
    jmp  still
next_song:
    add  [poz_butt],1
    movzx eax,[poz_song]
    add  eax,1
    mov  [poz_song],al
    mov  dx,255
    mul  dx
    mov  [song_poz], eax
    movzx eax,[poz_song]
    sub  eax,1
    cmp  [song_count],eax
    ja	 .dgo
    mov  [poz_song],1
    mov  [song_poz],255
    mov  [poz_butt],6
.dgo:
    call  load_song
    call procskan
    call start
    or	 [trig_sys],200h
    call draw_window
    jmp  still
red:
    call draw_window
    jmp  still
button: 		      ; button
    mov   eax,17
    mcall
    cmp ah,1
    je	close
    cmp ah,2
    je	mmm
    cmp ah,3
    je	mma
    cmp ah,4
    je	mmd
    cmp ah,5
    je	mmf
    cmp ah,38
    jb	mma
    ret
close:
    mov  eax,-1
    mcall
mma:
    mov [poz_butt],ah
    mov [poz_song],ah
    sub [poz_song],5
    movzx eax,[poz_song]
    add  eax,[sme]
    mov  [poz_song],al
    mov  dx,255
    mul  dx
    mov  [song_poz], eax
    call  load_song
    call procskan
    call start
    or	 [trig_sys],200h
    call draw_window
    jmp still
mmw:
    mov  ebx,file_info2
    mov  ecx,[razm_str]
    add  dword [ebx+4],ecx
    or	 [trig_sys],40h
    jmp  mmm.seach
    ret
mmm:
.seach:
    call getstring
    call get_drive
    call put_db
    call draw_window
    test [trig_sys],04h
    jz	 mmw
    jmp  still
mmd:
    cmp  [poz_db3],510
    jb	 .emd
    sub  [poz_db3],255
    add  [poz_butt],1
    sub  [sme],1
.emd:
    call draw_window
    jmp  still
mmf:
    add  [poz_db3],255
    sub  [poz_butt],1
    add  [sme],1
    call draw_window
    jmp  still
procskan:
    mov  [num_proc],255
qqqqq:
    mov  eax,9
    mov  ebx,pib
    mov  ecx, [num_proc]
    mcall
    cld
    lea si,[pib.process_name]
    lea di,[minus]
    mov cx,7
    rep cmps byte [si],[di]
    jcxz mat
    sub  [num_proc],1
    cmp  [num_proc],1
    jne  qqqqq
    ret
mat:
    mov eax,18
    mov ebx,2
    mov ecx,[num_proc]
    mcall
    jmp  procskan
scandr:
    mov  eax,18
    mov  ebx,11
    mov  ecx,1
    mov  edx,scan_rez
    mcall
    ret
mountpl:
    mov  cx,255
    cld
    lea  di,[fl]
    mov  al,00h
    repne stos byte [di]
    cld
    mov  cx,6
    lea  si,[play_list]
    lea  di,[fl]
    rep movs byte [di],[si]
    mov  cx,0
    ret
get_drive:
    mov  al,byte[scan_rez+1]
    mov  [my_draw],al
    mov  [ns],48
    cmp  [my_draw],0
    jne  .c0
    or	 [trig_sys],01h
.c0:
    cmp  [my_draw],0x80
    jb	 .h0
    sub  [my_draw],0x80
    mov  [n_razd],1
    mov  [nd],49
    mov  al,[cd_0]
    mov  [td],al
    call  folscan
.h0:
    cmp  [trig_scan],1
    je	 ex1
    cmp  [my_draw],0x40
    jb	 .c1
    sub  [my_draw],0x40
    mov  al,byte[scan_rez+2]
    mov  [n_razd],al
    add  al,48
    mov  [nd],al
    mov  al,[hd_0]
    mov  [td],al
    call  folscan
.c1:
    cmp  [trig_scan],1
    je	 ex1
    cmp  [my_draw],0x20
    jb	 .h1
    sub  [my_draw],0x20
    mov  [n_razd],1
    mov  [nd],49
    mov  al,[cd_0]
    mov  [ns],19
    call  folscan
.h1:
    cmp  [trig_scan],1
    je	 ex1
    cmp  [my_draw],0x10
    jb	 .c2
    sub  [my_draw],0x10
    mov  al,byte[scan_rez+3]
    mov  [n_razd],al
    add  al,48
    mov  [nd],al
    mov  al,[hd_0]
    mov  [td],al
    mov  [ns],49
    call  folscan
.c2:
    cmp  [trig_scan],1
    je	 ex1
    cmp  [my_draw],0x08
    jb	 .h2
    sub  [my_draw],0x08
    mov  [n_razd],1
    mov  [nd],49
    mov  al,[cd_0]
    mov  [td],al
    mov  [ns],50
    call  folscan
.h2:
    cmp  [trig_scan],1
    je	 ex1
    cmp  [my_draw],0x04
    jb	 .c3
    sub  [my_draw],0x04
    mov  al,byte[scan_rez+4]
    mov  [n_razd],al
    add  al,48
    mov  [nd],al
    mov  al,[hd_0]
    mov  [td],al
    mov  [ns],50
    call folscan
.c3:
    cmp  [trig_scan],1
     je  ex1
    cmp  [my_draw],0x02
    jb	 .h3
    sub  [my_draw],0x02
    mov  [n_razd],1
    mov  [nd],49
    mov  al,[cd_0]
    mov  [td],al
    mov  [ns],51
    call folscan
.h3:
    cmp  [trig_scan],1
    je	 ex1
    cmp  [my_draw],0x01
    jb	 ex1
    sub  [my_draw],0x01
    mov  al,byte[scan_rez+5]
    mov  [n_razd],al
    add  al,48
    mov  [nd],al
    mov  al,[hd_0]
    mov  [td],al
    mov  [ns],51
    call folscan
ex1:
    cmp  [fold],05h
    jne  ext2
    or	 [trig_sys],04h
ext2:
    cmp  [fold],0Ah
    jne  ext3
    or	 [trig_sys],08h
    jmp  eext
ext3:
    mov  [trig_scan],0
    not  [trig_sys]
    or	 [trig_sys],0Eh
    not  [trig_sys]
eext:
    ret
folscan:
    cmp  [trig_scan],1
    je	 .out2
    mov  eax,70
    mov  ebx,file_info
    mcall
    mov  [fold],eax
    cmp  [fold],0
    jne  .out
    mov  al,1
    mov  [trig_scan],al
    jmp  .out2
.out:
     mov  al,1
    sub  [n_razd],al
    mov  al,1
    sub  [nd],al
    cmp  [n_razd],0
    jne  folscan
.out2:
    ret
get_play:
    mov  cx,255
    lea  si,[floc]
    lea  di,[playlist]
    rep movs byte [di],[si]
    mov  cx,0
ret
getstring:
    mov  eax,70
    mov  ebx,file_info2
    mov  dword [ebx+12], 255
    mov  dword [ebx+16],string1
    mov  dword [ebx+21],playlist
    mcall
    cmp eax,6
    jne .pro
    or	 [trig_sys],04h
    call draw_window
    jmp  still
.pro:
 
    cmp  ebx,0xFFFFFFFF
    je	.exit
    call rus_m
    cld
    lea  di,[string1]
    mov  cx,255
    mov  al,0ah
    repne  scas byte  [es:di]
    je	 .calc
    mov [razm_str],0
    mov  ebx,file_info2
    add  dword [ebx+4], 255
    or	 [trig_sys],40h
    jmp mmm.seach
.calc:
     mov  [razm_str],255
     sub  [razm_str],ecx
.kon:
    mov  [razm_path],0
    cld
    lea  di,[string1]
    mov  ecx,0
.ppr:
    cmp byte [es:di],70h
    je	.s1
    cmp byte [es:di],50h
    je	.s1
    add  ecx,1
    add  di,1
    cmp  ecx,[razm_str]
    jb	.ppr
    jmp .next
.s1:
    add  di,1
    cmp  byte [es:di],33h
    je	 .s2
    sub  di,1
    jmp .next
    ret
.s2:
 
    or	 [trig_sys],80h
    mov  [razm_path],ecx
    add  [razm_path],2
 
;    mov  [ss2],0
    cld
    lea  di,[string1]
    mov  cx,0
    mov  [zzz],cx
.ppre:
    cmp byte [es:di],3Ah
    je	.se1
    add  cx,1
    add  di,1
    cmp  ecx,[razm_path]
    jne  .ppre
    jmp  .mount
.se1:
    add  di,1
    cmp  byte [es:di],5Ch
    je	 .se2
    sub  di,1
    jmp  .mount
.se2:
    cmp  ecx,250
    jb	 .se3
    mov  ecx,0
.se3:
    add  cx,2
;    mov  [ss2],cx
    mov  [zzz],cx
.mount:
    movzx  ecx,[zzz]
    cmp  ecx, [razm_path]
    jb	.mount1
    or	 [trig_sys],04h
    jmp  still
.mount1:
    mov  ecx,255
    cld
    lea  di,[fl]
    mov  al,00h
    repne stos byte [di]
    cld
    mov  ecx,[razm_path]
    sub  cx,[zzz]
    lea  si,[string1]
    add  si,[zzz]
    lea  di,[fl]
    rep movs byte [di],[si]
    mov  ecx,0
.sl_m:
    mov  ecx,0
    lea  di,[fl]
.cikl_mx:
    mov  al,byte[di]
    mov  [char_con],al
    cmp  al,5Ch
    je	 .con_sl
    jmp  .ext6
.con_sl:
    mov al,2Fh
.ext6:
    stos byte [di]
    add  ecx,1
    cmp  ecx,[razm_path]
    jb	.cikl_mx
 
.exit:
    ret
.next:
    not  [trig_sys]
    or	 [trig_sys],80h
    not  [trig_sys]
    mov  ebx,file_info2
    mov  ecx,[razm_str]
    add  dword [ebx+4],ecx
    or	 [trig_sys],40h
    jmp mmm.seach
rus_m:
    test  [trig_sys],40h
    jnz   ddff
    ret
ddff:
    mov  ecx,0
    lea  di,[string1]
cicl_m:
    mov  al,byte[di]
    mov  [char_con],al
    shr  al,4
    cmp  al,0Eh
    je	 min_sor
    cmp  al,0Ch
    je	 min_sor
    cmp  al,0Dh
    je	 min_sor
    cmp  al,0Fh
    je	 min_des
    shl  al,4
    mov  al,0
    jmp  ext5
min_sor:
    sub  [char_con],40h
    jmp  ext5
min_des:
     sub  [char_con],10h
    jmp  ext5
ext5:
    mov  al,[char_con]
    stos byte [di]
    add  ecx,1
    cmp  ecx,255
    jb	cicl_m
    not  [trig_sys]
    or	 [trig_sys],40h
    not  [trig_sys]
    ret
 
put_db:
    test [trig_sys],80h
    jz	.exit
    add  [song_count],1
    add  [poz_db],255
    mov  ecx,255
    cld
    mov  ebx,[poz_db]
    lea  di,[memlist+ebx]
    mov  al,00h
    repne stos byte [di]
    cld
    mov  ecx,255
    lea  si,[floc]
    mov  ebx,[poz_db]
    lea  di,[memlist+ebx]
    rep movs byte [di],[si]
    mov  ecx,0
.exit:
    ret
load_song:
    cld
    mov  ecx,255
    lea  di,[song_path]
    mov  ebx,[song_poz]
    lea  si,[memlist+ebx]
    rep movs byte [di],[si]
    mov  ecx,0
    ret
start:
    mov  eax,70
    mov  ebx,folder_inf
    mcall
    ret
delproc:
    test [trig_sys],400h
    jnz   .sdf
    ret
.sdf:
       mov  [num_proc],255
.fgf:
    mov  eax,9
    mov  ebx,pib
    mov  ecx, [num_proc]
    mcall
    cld
    lea si,[pib.process_name]
    lea di,[minus]
    mov cx,7
    rep cmps byte [si],[di]
    jcxz .qwer
    sub  [num_proc],1
    cmp  [num_proc],1
    jne  .fgf
     test [trig_sys],200h
    ret
.qwer:
    mov  eax,[pib+process_information.cpu_usage]
    mov  [q_takt],eax
    cmp  [q_takt],200000
    jb	 .asdf
    ret
.asdf:
    add   [count_err],1
    cmp   [count_err],6
    ja	  .djbn
    ret
.djbn:
    mov   [count_err],0
    not   [trig_sys]
    or	 [trig_sys],200h
    not   [trig_sys]
    ret
enproc:
    mov  [num_proc],255
.fgf:
    mov  eax,9
    mov  ebx,pib
    mov  ecx, [num_proc]
    mcall
    cld
    lea si,[pib.process_name]
    lea di,[minus]
    mov cx,7
    rep cmps byte [si],[di]
    jcxz .qwer
    sub  [num_proc],1
    cmp  [num_proc],1
    jne  .fgf
    ret
.qwer:
    or	 [trig_sys],400h
    ret
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
draw_window:
    mov  eax,48
    mov  ebx,3
    mov  ecx,sc
    mov  edx,sizeof.system_colors
    mcall
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,1			   ; 1, start of draw
    mcall
				   ; DRAW WINDOW
    xor  eax,eax	    ; function 0 : define and draw window
    mov  ebx,100*65536+550	   ; [x start] *65536 + [x size]
    mov  ecx,100*65536+420	    ; [y start] *65536 + [y size]
    mov  edx,[sc.work]		   ; color of work area RRGGBB,8->color gl
    or	 edx,0x33000000
    mov  edi,title
    mcall
    mov  eax,4
    mov  ebx,5*65536+5
    mov  ecx,0xC0000000
    mov  edx,label1
    mov  edi,[sc.work]
    mcall
    mov  eax,4
    mov  ebx,300*65536+5
    mov  ecx,0xC0000000
    mov  edx,label5
    mov  edi,[sc.work]
    mcall
    mov  eax,4
    mov  ebx,300*65536+15
    mov  ecx,0xC0000000
    mov  edx,label6
    mov  edi,[sc.work]
    mcall
    mov  eax,4
    mov  ebx,25*65536+35
    mov  ecx,0xC00000dd
    mov  edx,song_path
    mov  edi,[sc.work]
    mcall
    mov  eax,4
    mov  ebx,100*65536+5
    mov  ecx,0xC0000000
    mov  edx,playlist
    mov  edi,[sc.work]
    mcall
    test [trig_sys],4h
    jnz   .zam1
    mov  eax,4
    mov  ebx,5*65536+15
    mov  ecx,0xC0000000
    mov  edx,label3
    mov  edi,[sc.work]
    mcall
    jmp  .zam2
.zam1:
    mov  eax,4
    mov  ebx,5*65536+15
    mov  ecx,0xC0000000
    mov  edx,label2
    mov  edi,[sc.work]
    mcall
    mov  eax,4
    mov  ebx,5*65536+25
    mov  ecx,0xC0000000
    mov  edx,label4
    mov  edi,[sc.work]
    mcall
.zam2:
 
;    mov  eax,47
;    mov  esi,0x50000000
;    mov  ecx, [trig_sys]
;    mov  edi,[sc.work]
;    mov  ebx,0x00080100
;    mov  edx,385*65536+25
;    mcall
    mov  eax,47
    mov  esi,0x50000000
    mov  ecx, [song_count]
    mov  edi,[sc.work]
    mov  ebx,0x00030000
    mov  edx,500*65536+5
    mcall
    mov  eax,47
    mov  esi,0x50000000
    movzx  ecx, [poz_song]
    mov  edi,[sc.work]
    mov  ebx,0x00030000
    mov  edx,500*65536+15
    mcall
    mov  [bbut],32
    mov  [poz_but],48*65536+10
    mov  edx,6
butt1:
    mov  ebx,0*65536+20
    mov  ecx,[poz_but]
    mov  esi,[color1]
    movzx  eax,[poz_butt]
    cmp  edx,eax
    jne  .uuu
    mov  esi,[color2]
.uuu:
    mov  eax,8
    mcall
    add  edx,1
    add  [poz_but],10*65536
    sub  [bbut],1
    cmp  [bbut],0
    jne   butt1
    mov  eax,8
    mov  ebx,525*65536+15
    mov  ecx,45*65536+15
    mov  esi,0x00aaaadd
    mov  edx,4
    mcall
    mov  eax,8
    mov  ebx,525*65536+15
    mov  ecx,365*65536+15
    mov  esi,0x00aaaadd
    mov  edx,5
    mcall
    mov  [ai],32
    mov  [list_poz],25*65536+50
    mov  ebx,[poz_db3]
    mov  [poz_db2],ebx
list:
    mov  eax,4
    mov  ecx,0xC0000000
    mov  ebx,[poz_db2]
    lea  edx,[memlist+ebx]
    mov  ebx, [list_poz]
    mov  edi,[sc.work]
    mcall
    add  [list_poz],10
    add  [poz_db2],255
    sub  [ai],1
    cmp  [ai],0
    ja	list
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
    ret
 
 
 
; DATA AREA
 
 
title:        db   'à®¨£àë¢ ¥¬ ¯«¥©«¨áâ v 0.20',0
play_list:     db   '1.kpl',0
cd_0:	       db   'c',0
hd_0:	       db   'h',0
label1:        db   ' ©« ¯«¥©«¨áâ :',0
label2:        db   'áª ­¨à®¢ ­¨¥ § ª®­ç¥­®... :)            ',0
label3:        db   '®¤®¦¤¨â¥, ¯®¦ «ã©áâ , ¨¤ñâ áª ­¨à®¢ ­¨¥',0
label4:        db   '®á¯à®¨§¢®¤¨¬ë© ä ©«:',0
label5:        db   'á¥£® ä ©«®¢ ¢ ¯«¥©«¨áâ¥ ­ ©¤¥­®:',0
label6:        db   '®¬¥à ¢®á¯à®¨§¢®¤¨¬®£® ä ©« :',0
minus:	       db   'ac97snd',0
player:        db   '/sys/media/ac97snd' ,0
my_draw        db   0
n_razd	       db   0
trig_scan      db   0
char_con       db   0
poz_butt       db   0
poz_song       db   0
count_err      dd   0
num_proc       dd   0
q_takt	       dd   0
razm_str       dd   0
fold	       dd   0
razm_path      dd   0
trig_sys       dd   0
poz_db	       dd   0
poz_db2        dd   0
poz_db3        dd   255
song_poz       dd   0
list_poz       dd   5*65536+50
song_count     dd   0
ai	       dd   0
st_r	       dd   0
bbut	       dd   0
poz_but        dd   0
sme	       dd   0
color1	       dd   0x006666dd
color2	       dd   0x00dddddd
ss2	       dd   0
zzz	       dw   22
scan_rez:
	       db   0
	       db   0
	       db   0
	       db   0
	       db   0
	       db   0
	       db   0
	       db   0
	       db   0
	       db   0
floc:
pc:	       db   '/'
td:	       db   'h'
dr:	       db   'd'
ns	       db   48
vc:	       db   '/'
nd	       db   48
ks:	       db   '/'
fl:
	       rb   255
playlist       rb   255
song_path      rb   255
folder_inf:
	       dd   7
	       dd   0
	       dd   song_path
	       dd   0
	       dd   0
	       db   0
	       dd   player
file_info:
	       dd   0
	       dd   0
	       dd   0
	       dd   0
	       dd   0
	       db   0
	       dd   floc
file_info2:
	       dd   0
	       dd   0
	       dd   0
	       dd   0
	       dd   0
	       db   0
	       dd   0
string1        rb   255
 
I_END:
 
 
 
temp dd ?
sc system_colors
pib process_information
memlist        rb   65536

Rev 5449	Rev 9587
1	;	1	;
2	; Compile with flat assembler	2	; Compile with flat assembler
3	; à®£à ¬¬ª ¯®§¢®«ïîé ï ¯à®¨£àë¢ âì ¯«¥©«¨áâ	3	; à®£à ¬¬ª ¯®§¢®«ïîé ï ¯à®¨£àë¢ âì ¯«¥©«¨áâ
4	; §à ¡®â «: ¥¤ª :)	4	; §à ¡®â «: ¥¤ª :)
5		5
6	use32	6	use32
7		7
8	org 0x0	8	org 0x0
9		9
10	db 'MENUET01' ; 8 byte id	10	db 'MENUET01' ; 8 byte id
11	dd 0x01 ; header version	11	dd 0x01 ; header version
12	dd START ; start of code	12	dd START ; start of code
13	dd I_END ; size of image	13	dd I_END ; size of image
14	dd 0x25000 ; memory for app	14	dd 0x25000 ; memory for app
15	dd 0x20000 ; esp	15	dd 0x20000 ; esp
16	dd playlist, 0x0	16	dd playlist, 0x0
17		17
18	include '../../../macros.inc'	18	include '../../../macros.inc'
19		19
20	START: ; start of execution	20	START: ; start of execution
21	cmp [playlist],0x00000000	21	cmp [playlist],0x00000000
22	jne dprod	22	jne dprod
23	mcall -1	23	mcall -1
24	dprod:	24	dprod:
25	or [trig_sys],40h	25	or [trig_sys],40h
26	call scandr	26	call scandr
27	jmp mmm.seach	27	jmp mmm.seach
28	still:	28	still:
29	not [trig_sys]	29	not [trig_sys]
30	or [trig_sys],400h	30	or [trig_sys],400h
31	not [trig_sys]	31	not [trig_sys]
32	or [trig_sys],200h	32	or [trig_sys],200h
33	call enproc	33	call enproc
34	call delproc	34	call delproc
35	mov eax,23 ; wait here for event	35	mov eax,23 ; wait here for event
36	mov ebx,20	36	mov ebx,20
37	mcall	37	mcall
38	cmp eax,1 ; redraw request ?	38	cmp eax,1 ; redraw request ?
39	je red	39	je red
40	cmp eax,3 ; button in buffer ?	40	cmp eax,3 ; button in buffer ?
41	je button	41	je button
42	test [trig_sys],200h	42	test [trig_sys],200h
43	jz next_song	43	jz next_song
44	jmp still	44	jmp still
45	next_song:	45	next_song:
46	add [poz_butt],1	46	add [poz_butt],1
47	movzx eax,[poz_song]	47	movzx eax,[poz_song]
48	add eax,1	48	add eax,1
49	mov [poz_song],al	49	mov [poz_song],al
50	mov dx,255	50	mov dx,255
51	mul dx	51	mul dx
52	mov [song_poz], eax	52	mov [song_poz], eax
53	movzx eax,[poz_song]	53	movzx eax,[poz_song]
54	sub eax,1	54	sub eax,1
55	cmp [song_count],eax	55	cmp [song_count],eax
56	ja .dgo	56	ja .dgo
57	mov [poz_song],1	57	mov [poz_song],1
58	mov [song_poz],255	58	mov [song_poz],255
59	mov [poz_butt],6	59	mov [poz_butt],6
60	.dgo:	60	.dgo:
61	call load_song	61	call load_song
62	call procskan	62	call procskan
63	call start	63	call start
64	or [trig_sys],200h	64	or [trig_sys],200h
65	call draw_window	65	call draw_window
66	jmp still	66	jmp still
67	red:	67	red:
68	call draw_window	68	call draw_window
69	jmp still	69	jmp still
70	button: ; button	70	button: ; button
71	mov eax,17	71	mov eax,17
72	mcall	72	mcall
73	cmp ah,1	73	cmp ah,1
74	je close	74	je close
75	cmp ah,2	75	cmp ah,2
76	je mmm	76	je mmm
77	cmp ah,3	77	cmp ah,3
78	je mma	78	je mma
79	cmp ah,4	79	cmp ah,4
80	je mmd	80	je mmd
81	cmp ah,5	81	cmp ah,5
82	je mmf	82	je mmf
83	cmp ah,38	83	cmp ah,38
84	jb mma	84	jb mma
85	ret	85	ret
86	close:	86	close:
87	mov eax,-1	87	mov eax,-1
88	mcall	88	mcall
89	mma:	89	mma:
90	mov [poz_butt],ah	90	mov [poz_butt],ah
91	mov [poz_song],ah	91	mov [poz_song],ah
92	sub [poz_song],5	92	sub [poz_song],5
93	movzx eax,[poz_song]	93	movzx eax,[poz_song]
94	add eax,[sme]	94	add eax,[sme]
95	mov [poz_song],al	95	mov [poz_song],al
96	mov dx,255	96	mov dx,255
97	mul dx	97	mul dx
98	mov [song_poz], eax	98	mov [song_poz], eax
99	call load_song	99	call load_song
100	call procskan	100	call procskan
101	call start	101	call start
102	or [trig_sys],200h	102	or [trig_sys],200h
103	call draw_window	103	call draw_window
104	jmp still	104	jmp still
105	mmw:	105	mmw:
106	mov ebx,file_info2	106	mov ebx,file_info2
107	mov ecx,[razm_str]	107	mov ecx,[razm_str]
108	add dword [ebx+4],ecx	108	add dword [ebx+4],ecx
109	or [trig_sys],40h	109	or [trig_sys],40h
110	jmp mmm.seach	110	jmp mmm.seach
111	ret	111	ret
112	mmm:	112	mmm:
113	.seach:	113	.seach:
114	call getstring	114	call getstring
115	call get_drive	115	call get_drive
116	call put_db	116	call put_db
117	call draw_window	117	call draw_window
118	test [trig_sys],04h	118	test [trig_sys],04h
119	jz mmw	119	jz mmw
120	jmp still	120	jmp still
121	mmd:	121	mmd:
122	cmp [poz_db3],510	122	cmp [poz_db3],510
123	jb .emd	123	jb .emd
124	sub [poz_db3],255	124	sub [poz_db3],255
125	add [poz_butt],1	125	add [poz_butt],1
126	sub [sme],1	126	sub [sme],1
127	.emd:	127	.emd:
128	call draw_window	128	call draw_window
129	jmp still	129	jmp still
130	mmf:	130	mmf:
131	add [poz_db3],255	131	add [poz_db3],255
132	sub [poz_butt],1	132	sub [poz_butt],1
133	add [sme],1	133	add [sme],1
134	call draw_window	134	call draw_window
135	jmp still	135	jmp still
136	procskan:	136	procskan:
137	mov [num_proc],255	137	mov [num_proc],255
138	qqqqq:	138	qqqqq:
139	mov eax,9	139	mov eax,9
140	mov ebx,pib	140	mov ebx,pib
141	mov ecx, [num_proc]	141	mov ecx, [num_proc]
142	mcall	142	mcall
143	cld	143	cld
144	lea si,[pib.process_name]	144	lea si,[pib.process_name]
145	lea di,[minus]	145	lea di,[minus]
146	mov cx,7	146	mov cx,7
147	rep cmps byte [si],[di]	147	rep cmps byte [si],[di]
148	jcxz mat	148	jcxz mat
149	sub [num_proc],1	149	sub [num_proc],1
150	cmp [num_proc],1	150	cmp [num_proc],1
151	jne qqqqq	151	jne qqqqq
152	ret	152	ret
153	mat:	153	mat:
154	mov eax,18	154	mov eax,18
155	mov ebx,2	155	mov ebx,2
156	mov ecx,[num_proc]	156	mov ecx,[num_proc]
157	mcall	157	mcall
158	jmp procskan	158	jmp procskan
159	scandr:	159	scandr:
160	mov eax,18	160	mov eax,18
161	mov ebx,11	161	mov ebx,11
162	mov ecx,1	162	mov ecx,1
163	mov edx,scan_rez	163	mov edx,scan_rez
164	mcall	164	mcall
165	ret	165	ret
166	mountpl:	166	mountpl:
167	mov cx,255	167	mov cx,255
168	cld	168	cld
169	lea di,[fl]	169	lea di,[fl]
170	mov al,00h	170	mov al,00h
171	repne stos byte [di]	171	repne stos byte [di]
172	cld	172	cld
173	mov cx,6	173	mov cx,6
174	lea si,[play_list]	174	lea si,[play_list]
175	lea di,[fl]	175	lea di,[fl]
176	rep movs byte [di],[si]	176	rep movs byte [di],[si]
177	mov cx,0	177	mov cx,0
178	ret	178	ret
179	get_drive:	179	get_drive:
180	mov al,byte[scan_rez+1]	180	mov al,byte[scan_rez+1]
181	mov [my_draw],al	181	mov [my_draw],al
182	mov [ns],48	182	mov [ns],48
183	cmp [my_draw],0	183	cmp [my_draw],0
184	jne .c0	184	jne .c0
185	or [trig_sys],01h	185	or [trig_sys],01h
186	.c0:	186	.c0:
187	cmp [my_draw],0x80	187	cmp [my_draw],0x80
188	jb .h0	188	jb .h0
189	sub [my_draw],0x80	189	sub [my_draw],0x80
190	mov [n_razd],1	190	mov [n_razd],1
191	mov [nd],49	191	mov [nd],49
192	mov al,[cd_0]	192	mov al,[cd_0]
193	mov [td],al	193	mov [td],al
194	call folscan	194	call folscan
195	.h0:	195	.h0:
196	cmp [trig_scan],1	196	cmp [trig_scan],1
197	je ex1	197	je ex1
198	cmp [my_draw],0x40	198	cmp [my_draw],0x40
199	jb .c1	199	jb .c1
200	sub [my_draw],0x40	200	sub [my_draw],0x40
201	mov al,byte[scan_rez+2]	201	mov al,byte[scan_rez+2]
202	mov [n_razd],al	202	mov [n_razd],al
203	add al,48	203	add al,48
204	mov [nd],al	204	mov [nd],al
205	mov al,[hd_0]	205	mov al,[hd_0]
206	mov [td],al	206	mov [td],al
207	call folscan	207	call folscan
208	.c1:	208	.c1:
209	cmp [trig_scan],1	209	cmp [trig_scan],1
210	je ex1	210	je ex1
211	cmp [my_draw],0x20	211	cmp [my_draw],0x20
212	jb .h1	212	jb .h1
213	sub [my_draw],0x20	213	sub [my_draw],0x20
214	mov [n_razd],1	214	mov [n_razd],1
215	mov [nd],49	215	mov [nd],49
216	mov al,[cd_0]	216	mov al,[cd_0]
217	mov [ns],19	217	mov [ns],19
218	call folscan	218	call folscan
219	.h1:	219	.h1:
220	cmp [trig_scan],1	220	cmp [trig_scan],1
221	je ex1	221	je ex1
222	cmp [my_draw],0x10	222	cmp [my_draw],0x10
223	jb .c2	223	jb .c2
224	sub [my_draw],0x10	224	sub [my_draw],0x10
225	mov al,byte[scan_rez+3]	225	mov al,byte[scan_rez+3]
226	mov [n_razd],al	226	mov [n_razd],al
227	add al,48	227	add al,48
228	mov [nd],al	228	mov [nd],al
229	mov al,[hd_0]	229	mov al,[hd_0]
230	mov [td],al	230	mov [td],al
231	mov [ns],49	231	mov [ns],49
232	call folscan	232	call folscan
233	.c2:	233	.c2:
234	cmp [trig_scan],1	234	cmp [trig_scan],1
235	je ex1	235	je ex1
236	cmp [my_draw],0x08	236	cmp [my_draw],0x08
237	jb .h2	237	jb .h2
238	sub [my_draw],0x08	238	sub [my_draw],0x08
239	mov [n_razd],1	239	mov [n_razd],1
240	mov [nd],49	240	mov [nd],49
241	mov al,[cd_0]	241	mov al,[cd_0]
242	mov [td],al	242	mov [td],al
243	mov [ns],50	243	mov [ns],50
244	call folscan	244	call folscan
245	.h2:	245	.h2:
246	cmp [trig_scan],1	246	cmp [trig_scan],1
247	je ex1	247	je ex1
248	cmp [my_draw],0x04	248	cmp [my_draw],0x04
249	jb .c3	249	jb .c3
250	sub [my_draw],0x04	250	sub [my_draw],0x04
251	mov al,byte[scan_rez+4]	251	mov al,byte[scan_rez+4]
252	mov [n_razd],al	252	mov [n_razd],al
253	add al,48	253	add al,48
254	mov [nd],al	254	mov [nd],al
255	mov al,[hd_0]	255	mov al,[hd_0]
256	mov [td],al	256	mov [td],al
257	mov [ns],50	257	mov [ns],50
258	call folscan	258	call folscan
259	.c3:	259	.c3:
260	cmp [trig_scan],1	260	cmp [trig_scan],1
261	je ex1	261	je ex1
262	cmp [my_draw],0x02	262	cmp [my_draw],0x02
263	jb .h3	263	jb .h3
264	sub [my_draw],0x02	264	sub [my_draw],0x02
265	mov [n_razd],1	265	mov [n_razd],1
266	mov [nd],49	266	mov [nd],49
267	mov al,[cd_0]	267	mov al,[cd_0]
268	mov [td],al	268	mov [td],al
269	mov [ns],51	269	mov [ns],51
270	call folscan	270	call folscan
271	.h3:	271	.h3:
272	cmp [trig_scan],1	272	cmp [trig_scan],1
273	je ex1	273	je ex1
274	cmp [my_draw],0x01	274	cmp [my_draw],0x01
275	jb ex1	275	jb ex1
276	sub [my_draw],0x01	276	sub [my_draw],0x01
277	mov al,byte[scan_rez+5]	277	mov al,byte[scan_rez+5]
278	mov [n_razd],al	278	mov [n_razd],al
279	add al,48	279	add al,48
280	mov [nd],al	280	mov [nd],al
281	mov al,[hd_0]	281	mov al,[hd_0]
282	mov [td],al	282	mov [td],al
283	mov [ns],51	283	mov [ns],51
284	call folscan	284	call folscan
285	ex1:	285	ex1:
286	cmp [fold],05h	286	cmp [fold],05h
287	jne ext2	287	jne ext2
288	or [trig_sys],04h	288	or [trig_sys],04h
289	ext2:	289	ext2:
290	cmp [fold],0Ah	290	cmp [fold],0Ah
291	jne ext3	291	jne ext3
292	or [trig_sys],08h	292	or [trig_sys],08h
293	jmp eext	293	jmp eext
294	ext3:	294	ext3:
295	mov [trig_scan],0	295	mov [trig_scan],0
296	not [trig_sys]	296	not [trig_sys]
297	or [trig_sys],0Eh	297	or [trig_sys],0Eh
298	not [trig_sys]	298	not [trig_sys]
299	eext:	299	eext:
300	ret	300	ret
301	folscan:	301	folscan:
302	cmp [trig_scan],1	302	cmp [trig_scan],1
303	je .out2	303	je .out2
304	mov eax,70	304	mov eax,70
305	mov ebx,file_info	305	mov ebx,file_info
306	mcall	306	mcall
307	mov [fold],eax	307	mov [fold],eax
308	cmp [fold],0	308	cmp [fold],0
309	jne .out	309	jne .out
310	mov al,1	310	mov al,1
311	mov [trig_scan],al	311	mov [trig_scan],al
312	jmp .out2	312	jmp .out2
313	.out:	313	.out:
314	mov al,1	314	mov al,1
315	sub [n_razd],al	315	sub [n_razd],al
316	mov al,1	316	mov al,1
317	sub [nd],al	317	sub [nd],al
318	cmp [n_razd],0	318	cmp [n_razd],0
319	jne folscan	319	jne folscan
320	.out2:	320	.out2:
321	ret	321	ret
322	get_play:	322	get_play:
323	mov cx,255	323	mov cx,255
324	lea si,[floc]	324	lea si,[floc]
325	lea di,[playlist]	325	lea di,[playlist]
326	rep movs byte [di],[si]	326	rep movs byte [di],[si]
327	mov cx,0	327	mov cx,0
328	ret	328	ret
329	getstring:	329	getstring:
330	mov eax,70	330	mov eax,70
331	mov ebx,file_info2	331	mov ebx,file_info2
332	mov dword [ebx+12], 255	332	mov dword [ebx+12], 255
333	mov dword [ebx+16],string1	333	mov dword [ebx+16],string1
334	mov dword [ebx+21],playlist	334	mov dword [ebx+21],playlist
335	mcall	335	mcall
336	cmp eax,6	336	cmp eax,6
337	jne .pro	337	jne .pro
338	or [trig_sys],04h	338	or [trig_sys],04h
339	call draw_window	339	call draw_window
340	jmp still	340	jmp still
341	.pro:	341	.pro:
342		342
343	cmp ebx,0xFFFFFFFF	343	cmp ebx,0xFFFFFFFF
344	je .exit	344	je .exit
345	call rus_m	345	call rus_m
346	cld	346	cld
347	lea di,[string1]	347	lea di,[string1]
348	mov cx,255	348	mov cx,255
349	mov al,0ah	349	mov al,0ah
350	repne scas byte [es:di]	350	repne scas byte [es:di]
351	je .calc	351	je .calc
352	mov [razm_str],0	352	mov [razm_str],0
353	mov ebx,file_info2	353	mov ebx,file_info2
354	add dword [ebx+4], 255	354	add dword [ebx+4], 255
355	or [trig_sys],40h	355	or [trig_sys],40h
356	jmp mmm.seach	356	jmp mmm.seach
357	.calc:	357	.calc:
358	mov [razm_str],255	358	mov [razm_str],255
359	sub [razm_str],ecx	359	sub [razm_str],ecx
360	.kon:	360	.kon:
361	mov [razm_path],0	361	mov [razm_path],0
362	cld	362	cld
363	lea di,[string1]	363	lea di,[string1]
364	mov ecx,0	364	mov ecx,0
365	.ppr:	365	.ppr:
366	cmp byte [es:di],70h	366	cmp byte [es:di],70h
367	je .s1	367	je .s1
368	cmp byte [es:di],50h	368	cmp byte [es:di],50h
369	je .s1	369	je .s1
370	add ecx,1	370	add ecx,1
371	add di,1	371	add di,1
372	cmp ecx,[razm_str]	372	cmp ecx,[razm_str]
373	jb .ppr	373	jb .ppr
374	jmp .next	374	jmp .next
375	.s1:	375	.s1:
376	add di,1	376	add di,1
377	cmp byte [es:di],33h	377	cmp byte [es:di],33h
378	je .s2	378	je .s2
379	sub di,1	379	sub di,1
380	jmp .next	380	jmp .next
381	ret	381	ret
382	.s2:	382	.s2:
383		383
384	or [trig_sys],80h	384	or [trig_sys],80h
385	mov [razm_path],ecx	385	mov [razm_path],ecx
386	add [razm_path],2	386	add [razm_path],2
387		387
388	; mov [ss2],0	388	; mov [ss2],0
389	cld	389	cld
390	lea di,[string1]	390	lea di,[string1]
391	mov cx,0	391	mov cx,0
392	mov [zzz],cx	392	mov [zzz],cx
393	.ppre:	393	.ppre:
394	cmp byte [es:di],3Ah	394	cmp byte [es:di],3Ah
395	je .se1	395	je .se1
396	add cx,1	396	add cx,1
397	add di,1	397	add di,1
398	cmp ecx,[razm_path]	398	cmp ecx,[razm_path]
399	jne .ppre	399	jne .ppre
400	jmp .mount	400	jmp .mount
401	.se1:	401	.se1:
402	add di,1	402	add di,1
403	cmp byte [es:di],5Ch	403	cmp byte [es:di],5Ch
404	je .se2	404	je .se2
405	sub di,1	405	sub di,1
406	jmp .mount	406	jmp .mount
407	.se2:	407	.se2:
408	cmp ecx,250	408	cmp ecx,250
409	jb .se3	409	jb .se3
410	mov ecx,0	410	mov ecx,0
411	.se3:	411	.se3:
412	add cx,2	412	add cx,2
413	; mov [ss2],cx	413	; mov [ss2],cx
414	mov [zzz],cx	414	mov [zzz],cx
415	.mount:	415	.mount:
416	movzx ecx,[zzz]	416	movzx ecx,[zzz]
417	cmp ecx, [razm_path]	417	cmp ecx, [razm_path]
418	jb .mount1	418	jb .mount1
419	or [trig_sys],04h	419	or [trig_sys],04h
420	jmp still	420	jmp still
421	.mount1:	421	.mount1:
422	mov ecx,255	422	mov ecx,255
423	cld	423	cld
424	lea di,[fl]	424	lea di,[fl]
425	mov al,00h	425	mov al,00h
426	repne stos byte [di]	426	repne stos byte [di]
427	cld	427	cld
428	mov ecx,[razm_path]	428	mov ecx,[razm_path]
429	sub cx,[zzz]	429	sub cx,[zzz]
430	lea si,[string1]	430	lea si,[string1]
431	add si,[zzz]	431	add si,[zzz]
432	lea di,[fl]	432	lea di,[fl]
433	rep movs byte [di],[si]	433	rep movs byte [di],[si]
434	mov ecx,0	434	mov ecx,0
435	.sl_m:	435	.sl_m:
436	mov ecx,0	436	mov ecx,0
437	lea di,[fl]	437	lea di,[fl]
438	.cikl_mx:	438	.cikl_mx:
439	mov al,byte[di]	439	mov al,byte[di]
440	mov [char_con],al	440	mov [char_con],al
441	cmp al,5Ch	441	cmp al,5Ch
442	je .con_sl	442	je .con_sl
443	jmp .ext6	443	jmp .ext6
444	.con_sl:	444	.con_sl:
445	mov al,2Fh	445	mov al,2Fh
446	.ext6:	446	.ext6:
447	stos byte [di]	447	stos byte [di]
448	add ecx,1	448	add ecx,1
449	cmp ecx,[razm_path]	449	cmp ecx,[razm_path]
450	jb .cikl_mx	450	jb .cikl_mx
451		451
452	.exit:	452	.exit:
453	ret	453	ret
454	.next:	454	.next:
455	not [trig_sys]	455	not [trig_sys]
456	or [trig_sys],80h	456	or [trig_sys],80h
457	not [trig_sys]	457	not [trig_sys]
458	mov ebx,file_info2	458	mov ebx,file_info2
459	mov ecx,[razm_str]	459	mov ecx,[razm_str]
460	add dword [ebx+4],ecx	460	add dword [ebx+4],ecx
461	or [trig_sys],40h	461	or [trig_sys],40h
462	jmp mmm.seach	462	jmp mmm.seach
463	rus_m:	463	rus_m:
464	test [trig_sys],40h	464	test [trig_sys],40h
465	jnz ddff	465	jnz ddff
466	ret	466	ret
467	ddff:	467	ddff:
468	mov ecx,0	468	mov ecx,0
469	lea di,[string1]	469	lea di,[string1]
470	cicl_m:	470	cicl_m:
471	mov al,byte[di]	471	mov al,byte[di]
472	mov [char_con],al	472	mov [char_con],al
473	shr al,4	473	shr al,4
474	cmp al,0Eh	474	cmp al,0Eh
475	je min_sor	475	je min_sor
476	cmp al,0Ch	476	cmp al,0Ch
477	je min_sor	477	je min_sor
478	cmp al,0Dh	478	cmp al,0Dh
479	je min_sor	479	je min_sor
480	cmp al,0Fh	480	cmp al,0Fh
481	je min_des	481	je min_des
482	shl al,4	482	shl al,4
483	mov al,0	483	mov al,0
484	jmp ext5	484	jmp ext5
485	min_sor:	485	min_sor:
486	sub [char_con],40h	486	sub [char_con],40h
487	jmp ext5	487	jmp ext5
488	min_des:	488	min_des:
489	sub [char_con],10h	489	sub [char_con],10h
490	jmp ext5	490	jmp ext5
491	ext5:	491	ext5:
492	mov al,[char_con]	492	mov al,[char_con]
493	stos byte [di]	493	stos byte [di]
494	add ecx,1	494	add ecx,1
495	cmp ecx,255	495	cmp ecx,255
496	jb cicl_m	496	jb cicl_m
497	not [trig_sys]	497	not [trig_sys]
498	or [trig_sys],40h	498	or [trig_sys],40h
499	not [trig_sys]	499	not [trig_sys]
500	ret	500	ret

Subversion Repositories Kolibri OS

(root)/programs/media/listplay/trunk/listplay.asm – Rev 5449 → 9587