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

Subversion Repositories Kolibri OS

(root)/programs/media/listplay/trunk/listplay.asm – Rev 1795 → 2290