WebSVN – Kolibri OS – Diff – /programs/fs/sysxtree/trunk/sysxtree.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                              ;
;   SYSTEM X-TREE BROWSER                      ;
;                                              ;
;   Author: Pavlushin Evgeni waptap@mail.ru    ;
;                   site: www.deck4.narod.ru   ;
;                                              ;
;   Compile with FASM for MenuetOS             ;
;                                              ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
;Bug report +bug deleted  -bug not deleted
;show/fade del notwork+
;64Ver Run file from HD bug deleted.
;65Ver The bad scroll realization
;66Ver The good scroll realization, url line anti-flick
;67Ver Url line monolith procedure
;68Ver Mini icon on left of file name
;69Ver Getimg proc size minus 900 bytes
;70Ver Del data area ramsize minus 140000 bytes
;72Ver Quick sort, ramsize minus 200000 bytes
;73Ver Url flick and out bugs delete
;74Ver scroll bug deleted
;75Ver hd partition fast change button. Add bmp,txt,exec,asm and inc icons.
; sort type in headmenu bug del
;78Ver directory extension bug fix by Asko Vuori
;79Ver Asko Vuori volume label add and "put in command line" bug fix
;80Ver prompt edit fatal bug deleted, antiflick when move list up/down
;81Ver Save Dialog bug deleted
;82Ver Rewritten to function 70. Corrected work with scrollbar.
;83Ver CD-ROM support
;84Ver URL line editor corrected
;1560000 bytes memory!
 
;******************************************************************************
  use32
  org	   0x0
  db	 'MENUET01'   ; 8 byte id
  dd	 0x01		; header version
  dd	 START	      ; program start
  dd	 I_END	      ; program image size
  dd	 RAM_END      ; memory
  dd	 RAM_END      ; stack
  dd	 param_area ,0x0   ; param,icon
;  dd 0,0
 
;******************************************************************************
include '../../../macros.inc' ;
include 'ascl.inc'
include 'ascgl.inc'
 
START:		    ; start of execution
; //// Willow
;    mov eax,58
;    mov ebx,MRUfile
;    mcall
; //// Willow
    mcall 18,11,1,table_area
    cmp [edx+2],byte 0
    je	  no_hdpartition_on_hd0
    mov [hdimg1], aHD0
 no_hdpartition_on_hd0:
    cmp [edx+3],byte 0
    je	  no_hdpartition_on_hd1
    mov [hdimg2], aHD1
 no_hdpartition_on_hd1:
    cmp [edx+4],byte 0
    je	  no_hdpartition_on_hd2
    mov [hdimg3], aHD2
 no_hdpartition_on_hd2:
    cmp [edx+5],byte 0
    je	  no_hdpartition_on_hd3
    mov [hdimg4], aHD3
 no_hdpartition_on_hd3:
	test	byte [edx+1], 80h
	jz	@f
	mov	[hdimg1], aCD0
	mov	[hdimg1+4], 'CD-R'
	mov	[hdimg1+8], 'OM  '
@@:
	test	byte [edx+1], 20h
	jz	@f
	mov	[hdimg2], aCD1
	mov	[hdimg2+4], 'CD-R'
	mov	[hdimg2+8], 'OM  '
@@:
	test	byte [edx+1], 8
	jz	@f
	mov	[hdimg3], aCD2
	mov	[hdimg3+4], 'CD-R'
	mov	[hdimg3+8], 'OM  '
@@:
	test	byte [edx+1], 2
	jz	@f
	mov	[hdimg4], aCD3
	mov	[hdimg4+4], 'CD-R'
	mov	[hdimg4+8], 'OM  '
@@:
 
    mov eax,40
    mov ebx,0100111b
    mcall
 
    cmp byte [param_area],0 ;test parameters line
    jne no_brow     ;it's dialog
    mov [browser], 1   ;it's browser
    jmp no_dlg
no_brow:
 
    mov al,byte [param_area+5]
    mov [dlg_type],al
 
    mov eax,9
    mov ebx,procinfo
    mov ecx,-1
    mcall
 
    mov eax,dword [procinfo+30]
    mov edi,MYPID+4-1
    mov ecx,4
    mov ebx,10
    cld
 
new_d:
    xor edx,edx
    div ebx
    add dl,'0'
    mov [edi],dl
    dec edi
    loop new_d
 
    movzx eax,byte [param_area]
    sub eax,48
    imul eax,10
    movzx ebx,byte [param_area+1]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [param_area+2]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [param_area+3]
    add eax,ebx
    sub eax,48
 
    mov ecx,eax ;pid to ecx
    mov eax,60
    mov ebx,2
    mov edx,MYPID
    mov esi,4
    mcall
no_dlg:
 
    giftoimg but_file,tempimg
 
;************************
;      Get images
;************************
 
    mov eax,0  ;x
    mov ebx,0	    ;y
    mov esi,286     ;xs
    mov edi,16		;ys
    mov ecx,tempimg ;src
    mov edx,butimg   ;dest
    call getimgproc
    mov eax,288
    mov esi,60
    mov edx,logoimg  ;dest
    call getimgproc
    mov eax,0  ;x
    mov ebx,16	       ;y
    mov esi,51	       ;xs
    mov edi,esi      ;ys
    mov edx,logoinfimg	     ;dest
    call getimgproc
    mov eax,51	    ;x
    mov esi,8	    ;xs
    mov edi,9	     ;ys
    mov edx,upsb   ;dest
    call getimgproc
    mov eax,51+8  ;x
    mov edx,dnsb   ;dest
    call getimgproc
 
    mov eax,51+16  ;x
    mov ebx,16	       ;y
    mov esi,12	       ;xs
    mov edi,9	     ;ys
 
    mov ecx,tempimg ;src
    mov edx,hdico   ;dest
    mov ebp,10
loogetimg:
    call getimgproc
    add edx,9*12*3+8
    add eax,12
    dec ebp
    jnz loogetimg
 
    call read_directory
;    call convertation
red:
    call draw_window	    ; at first, draw the window
 
still:
    mov eax,9
    mov ebx,procinfo
    mov ecx,-1
    mcall
 
    wtevent red,key,button
 
scrolltest:
    mov eax,37
    mov ebx,2
    mcall
    dec eax
    jne still
 
scrl:
    mov eax,37
    mov ebx,1
    mcall
	movzx	ebx, ax 	; y
	shr	eax, 16 	; x
    mov ebp,eax
    sub ebp,[listx] ;[procinfo.box.width]
    sub ebp,[listxsize]
    add ebp,[scrollsize]
    cmp ebp,dword [scrollsize] ;8
    jae menu_test ; still
 
	lea	ebp, [ebx-scrollbutsize]
	sub	ebp, [listy]	; up scroll
	jl	menu_test
	mov	ecx, [listysize]
	sub	ecx, 2*scrollbutsize
	mov	eax, [scroll_height]
	cmp	ebp, ecx
	jge	menu_test
	sub	ecx, eax
	shr	eax, 1
	sub	ebp, eax
	jge	@f
	xor	ebp, ebp
@@:
	cmp	ebp, ecx
	jl	@f
	mov	ebp, ecx
@@:
	xor	edx, edx
	mov	eax, [listysize]
	sub	eax, 2
	mov	ebx, 10
	div	ebx
	mov	ebx, eax
	cmp	ebx, [listsize]
	jae	notusescrl
	mov	eax, [listsize]
	sub	eax, ebx
	mul	ebp
	div	ecx
	cmp	eax, [filecursor]
	jz	still
	mov	[filecursor], eax
	jmp	usescrl
notusescrl:
	cmp	[filecursor], 0
	jz	still
    mov [filecursor],0 ;ebp
usescrl:
 
    mov [flick],1
    jmp anti_flick ;red
 
menu_test:
    cmp [pmenu_draw],1 ;if menu is show, update all
    jne still
    mov [pmenu_draw],0
    jmp red	     ;update all window
 
;this function not use in dialog when poup menu's is not used
;in dialog's
 
;===================
; Test keyboard
;===================
key:		  ; key
    mov  eax,2
    mcall
    cmp dword [focus],0
    jne con_edit
    cmp  ah,key_Up
    jne  no_upk
    mov  ebx,1
    jmp  up
no_upk:
    cmp  ah,key_Down
    jne  no_downk
    mov  ebx,1
    jmp  down
no_downk:
    cmp  ah,key_PgUp
    jne  no_pgup
    mov  ebx,10
    jmp  up
no_pgup:
    cmp  ah,key_PgDown
    jne  no_pgdown
    mov  ebx,10
    jmp  down
no_pgdown:
    cmp  ah,key_Enter
    je	 kfad
    cmp  ah,key_Bspace
    je	     back
    cmp  ah,key_F2
    je	     viewset
    cmp  ah,key_F3
    je	     textopen
    cmp  ah,key_F5
    je	     copy_to_clip
    cmp  ah,key_F6
    je	     paste_from_clip
    cmp  ah,key_F11
    je	     edit_prompt
    cmp  ah,key_F12
    je	     update
    jmp  still
 
; test input string
con_edit:
    cmp  ah,key_Enter
    jne  no_con_ent
    not  [focus]
    jmp  savetest
;    jmp  update
no_con_ent:
    cmp  ah,key_Left
    jne  no_con_left
	cmp	[cursor], 0
	jz	still
    dec  [cursor]
    mov  [flick],2
    jmp  anti_flick ;red
no_con_left:
    cmp  ah,key_Right
    jne  no_con_right
	mov	eax, [cursor]
	cmp	byte [path+eax], 0
	jz	still
    inc  [cursor]
    mov  [flick],2
    jmp  anti_flick ;red
no_con_right:
    cmp  ah,key_Bspace
    jne  no_con_bspace
 
	mov	ebp, [cursor]
	test	ebp, ebp
	jz	still
lobsp:
    mov  bl,byte [path+ebp]
    mov  byte [path+ebp-1],bl
    inc  ebp
    cmp  ebp,1024
    jne  lobsp
    dec  [cursor]
    mov  [flick],2
    jmp  anti_flick ;red
no_con_bspace:
 
    mov  ecx,[cursor]
    mov  ebp,1022
	cmp	byte [path+ebp], 0
	jnz	still
losx:
	cmp	ebp, ecx
	jbe	@f
    mov  bl,byte [path+ebp]
    mov  byte [path+ebp+1],bl
    dec  ebp
    jmp  losx
@@:
 
    mov  byte [path+ebp],ah
    inc  dword [cursor]
 
    mov  [flick],2
    jmp  anti_flick
 
 
;----------------------------
;Test on mouse button
;-----------------------------
 
  button:	  ; button
    mov eax,17
    mcall
 
    cmp ah,2	       ;Edit prompt line?
    je	    edit_prompt
 
    cmp ah,4
    jne no_filelist
 
mousetest:
    mov eax,37
    mov ebx,1
    mcall
    mov ebx,eax
    shr eax,16		 ;x
    and ebx,0xffff   ;y
 
    sub ebx,[listy] ;80
    mov [mousey],ebx
 
    mov ecx,[listx]
    cmp eax,ecx
    jl	    still
    add ecx,[listxsize]
    cmp eax,ecx
    jg	    still
 
filexadd:
 
; Enter in directory
file_add:
    mov edx,0  ;for div correct work div
    mov eax,dword [mousey]
    mov ebx,10
    div ebx
 
    add eax,[filecursor]
    jmp no_kfad
kfad:
    mov eax,[filecursor]
no_kfad:
    mov ebx,27
    mul ebx
    lea ebp,[convinfo+eax]
    mov esi,[ebp]
    cmp esi,-1
    jz	still
 
    mov edi,paramtest ;clear param string
    mov ecx,1024/4
    xor eax,eax
    rep stosd
 
	mov	edi, path
	mov	ecx, 1024
	repnz	scasb
	dec	edi
	cmp	[ebp+15], dword 'FOL '
	jnz	openf
; open directory - append its name to path
	cmp	ecx, 2
	jb	still
	push	edi
	mov	al, '/'
	stosb
	dec	ecx
@@:
	lodsb
	stosb
	test	al, al
	jz	@f
	dec	ecx
	jnz	@b
; name is too long - do not do anything
	pop	edi
	xor	eax, eax
	mov	ecx, path+1024
	sub	ecx, edi
	rep	stosb
	jmp	still
@@:
	sub	edi, path+1
	mov	[cursor], edi
	pop	edi
; name appended, now read new directory
    mov [filecursor],0
 
    call read_directory
;;    call convertation
    call draw_window
    jmp still
 
;Savetest
savetest:
    cmp byte [dlg_type],'S'
    jne still
; always force open file - this is better
; because there exists files without extension and folders with extension
	jmp	openf
;    mov ecx,100
;savetestloop:
;    cmp [path+ecx],byte 0
;    je     next_byte
;    cmp [path+ecx],byte 32
;    je     next_byte
;    cmp [path+ecx],byte '.'
;    je     openf  ;it's file
;;    cmp [path+ecx],byte '/'
;;    je  no_save  ;it's dir
;next_byte:
;    dec ecx
;    jnz savetestloop
;    jmp still
 
;Open/Run file
 
openf:
	push	esi edi
	mov	esi, path
	mov	edi, paramtest
	mov	ecx, 1024/4
	rep	movsd
	pop	edi esi
	add	edi, paramtest-path
 
    cmp dword [focus],0 ;if prompt line with focus no add file name from frame
    jne file_set
 
	cmp	edi, paramtest+1022
	jae	still
	mov	al, '/'
	stosb
@@:
	lodsb
	stosb
	test	al, al
	jz	file_set
	cmp	edi, paramtest+1024
	jb	@b
	jmp	still
 
file_set:
 
    cmp [browser],0
    jne is_brow
 
    movzx eax,byte [param_area]
    sub eax,48
    imul eax,10
    movzx ebx,byte [param_area+1]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [param_area+2]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [param_area+3]
    add eax,ebx
    sub eax,48
 
    mov ecx,eax ;pid to ecx
    mov eax,60
    mov ebx,2
    mov edx,paramtest
    mov esi,1024
    mcall
 
    jmp exit
 
is_brow:
 
;    cmp [convinfo+edi+26],dword 'Fvol'
;    je  edit
 
; find extension
	mov	eax, paramtest+1023
@@:
	dec	eax
	cmp	byte [eax+1], 0
	jz	@b
@@:
	cmp	byte [eax], '/'
	jz	.noext
	cmp	byte [eax], '.'
	jz	.ext
	dec	eax
	cmp	eax, paramtest
	jae	@b
.noext:
; file has no extension
;        xor     ebx, ebx
	jmp	execute
.ext:
	inc	eax
; eax points to extension
	cmp	byte [eax], 0
	jz	.noext
	mov	ecx, dword [eax]
	and	ecx, not 0x20202020
 
	mov	ebx, kiv
	cmp	ecx, 'JPG'
	jz	run
	cmp	ecx, 'JPEG'	; note that it will select also *.JPEG*
	jz	run
 
	cmp	ecx, 'GIF'
	jz	run
	cmp	ecx, 'BMP'
	jz	run
	cmp	ecx, 'PNG'
	jz	run
	cmp	ecx, 'ICO'
	jz	run
	cmp	ecx, 'CUR'
	jz	run
 
	
	mov	ebx, ac97
	cmp	ecx, 'WAV'
	jz	run
	cmp	ecx, 'MP3'
	jz	run
	cmp	ecx, 'XM'
	jz	run
	
	mov	ebx, midamp
	cmp	ecx, 'MID'
	jz	run
	mov	ebx, htmlv
	cmp	ecx, 'HTM'
	jz	run
 
	cmp	ecx, 'HTML'
 
 
 
 
	jz	run
 
	mov	ebx, rtfread
	cmp	ecx, 'RTF'
	jz	run
	mov	ebx, editor
	cmp	ecx, 'ASM'
	jz	run
	cmp	ecx, 'TXT'
	jz	run
	cmp	ecx, 'INC'
	jz	run
	cmp	ecx, 'INI'
	jz	run
	cmp	ecx, 'LOG'
	jz	run
	cmp	ecx, 'CONF'
	jz	run
	mov	ebx, life2
	cmp	ecx, 'LIF'
	jz	run
	mov	ebx, view3ds
	cmp	ecx, '3DS' and not 0x20202020
	jz	run
	jmp	still
 
execute:
	mov	ebx, fileinfo_start
	and	dword [ebx+8], 0		; no parameters
	mov	dword [ebx+21], paramtest	; program name
.do:
	mov	eax, 70
	mcall
	jmp	still
 
run:
	mov	[fileinfo_name], ebx		; program name
	mov	ebx, fileinfo_start
	mov	dword [ebx+8], paramtest	; parameters
	jmp	execute.do
 
no_filelist:
 
    cmp ah,5	;OPEN/SAVE button
    je	    kfad
 
    cmp ah,6	;Scroll up
    jne no_scrlup
    mov ebx,1
    jmp up
no_scrlup:
 
    cmp ah,7	;Scroll down
    jne no_scrldown
    mov ebx,1
    jmp down
no_scrldown:
 
    cmp ah,8
    jne no_update
update:
    call read_directory
;    call convertation
;    mov [filecursor],0
    call draw_window
no_update:
 
    cmp ah,9
    jne no_textopen
textopen:
	mov	eax, 27
	mul	[filecursor]
	cmp	dword [eax+convinfo+15], 'FOL '
	jz	still
	push	eax
	mov	esi, path
	mov	edi, paramtest
@@:
	lodsb
	test	al, al
	jz	@f
	stosb
	jmp	@b
@@:
	mov	al, '/'
	stosb
	pop	eax
	mov	esi, [eax+convinfo]
	cmp	esi, -1
	jz	still
@@:
	lodsb
	stosb
	test	al, al
	jz	@f
	cmp	edi, paramtest+1024
	jb	@b
	jmp	still
@@:
	mov	ebx, editor
	jmp	run
 
no_textopen:
 
    cmp  ah,11
    jne  no_view
viewset:
	inc	[viewmode]
	cmp	[viewmode], 4
	jb	@f
	mov	[viewmode], 0
@@:
    call read_directory
;    call convertation
    mov [filecursor],0
    call draw_window
    jmp still
no_view:
 
    cmp  ah,12	      ;move back
    jne  no_back
back:
	mov	edi, path+1024
	mov	ecx, edi
@@:
	dec	edi
	cmp	byte [edi], '/'
	jz	@f
	cmp	edi, path
	ja	@b
	jmp	still
@@:
	sub	ecx, edi
	lea	eax, [edi-path]
	mov	[cursor], eax
	xor	eax, eax
	rep	stosb
    mov [filecursor],0
    call read_directory
;    call convertation
    call draw_window
    jmp still
 
no_back:
    cmp  ah,13	      ;string up?
    jne  no_up
    mov  ebx,1	      ;step
up:
    mov  [downstop],0
    sub  [filecursor],ebx
    cmp  [filecursor],0
    jnl  cr_ok
    mov  [filecursor],0
cr_ok:
    jmp  draw_wd
no_up:
    cmp  ah,14		 ;string down?
    jne  no_dn
    mov  ebx,1		 ;step
down:
    cmp  [downstop],1
    je	     no_dn
    add  [filecursor],ebx
    jmp  draw_wd
no_dn:
 
    cmp  ah,15
    jne  no_copyclip	;copy to clipboard
copy_to_clip:
	mov	eax, 27
	mul	[filecursor]
	cmp	dword [convinfo+eax+15], 'FOL '
	jz	still
	push	eax
	mov	esi, path
	mov	edi, paramtest
@@:
	lodsb
	test	al, al
	jz	@f
	stosb
	jmp	@b
@@:
	pop	eax
	mov	esi, [convinfo+eax]
	cmp	esi, -1
	jz	still
	mov	al, '/'
	stosb
@@:
	lodsb
	stosb
	test	al, al
	jz	@f
	cmp	edi, paramtest+1024
	jb	@b
	jmp	still
@@:
	sub	edi, paramtest+1
	mov	ebx, clipfile_info
	mov	byte [ebx], 2
	mov	[ebx+12], edi
	mov	eax, 70
	mcall
	jmp	still
no_copyclip:
 
    cmp ah,16
    jne no_clippaste
paste_from_clip:
	mov	ebx, clipfile_info
	mov	byte [ebx], 0
	mov	dword [ebx+12], 1023
	mov	eax, 70
	mcall
	cmp	ebx, 0
	jle	still
	mov	byte [paramtest+ebx], 0
; OS allows only 256 symbols in command line
	cmp	ebx, 250
	jae	still
; we use Pascal-style strings for /RD/1/COPYR
; source file
	mov	edi, copyr_param
	mov	al, bl
	stosb
	mov	ecx, ebx
	mov	esi, paramtest
	rep	movsb
; destination path
	inc	edi
	mov	ebp, edi
	mov	esi, path
@@:
	cmp	edi, copyr_param+255
	jae	still
	lodsb
	test	al, al
	jz	@f
	stosb
	jmp	@b
; destination file name
@@:
	dec	ebx
	jz	still
	cmp	byte [paramtest+ebx], '/'
	jnz	@b
	lea	esi, [paramtest+ebx]
@@:
	lodsb
	test	al, al
	jz	@f
	stosb
	cmp	edi, copyr_param+255
	jae	still
	jmp	@b
@@:
	mov	byte [edi], 0
	sub	edi, ebp
	mov	eax, edi
	mov	[ebp-1], al
; display
    cmp [browser], 1
    jne no_outpath
    mov  eax,4		   ; function 4 : write text to window
    mov  ebx,10*65536+67     ; [x start] *65536 + [y start]
    mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
	mov	edx, copyr_param+1
	movzx	esi, byte [edx-1]
    mcall
    mov  ebx,250*65536+67	; [x start] *65536 + [y start]
    mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
	mov	edx, ebp
	mov	esi, edi
    mcall
no_outpath:
 
; run COPYR
	mov	eax, 70
	mov	ebx, copyr_run
	mcall
    delay 50   ;wait recoed file
    jmp update ;still
no_clippaste:
 
    cmp ah,19		;Delete from floppy
    jne no_delt
delete_file:
; OS now do not support file delete
	jmp	still
no_delt:
 
    cmp ah,20		;I - Help
    je	    help_scr
 
    cmp ah,22
    jne no_headfile
    mov [drawhf],1
    call draw_window
    mov [drawhf],0
    mov [pmenu_draw],1
    jmp still
no_headfile:
 
    cmp ah,23
    jne no_headview
    mov [drawhv],1
    call draw_window
    mov [drawhv],0
    mov [pmenu_draw],1
    jmp still
no_headview:
 
    cmp ah,24
    jne no_headinfo
    mov [drawhi],1
    call draw_window
    mov [drawhi],0
    mov [pmenu_draw],1
    jmp still
no_headinfo:
 
;FILE MENU
    cmp ah,30
    je kfad
 
    cmp ah,31
    je	    copy_to_clip      ;Copy
 
    cmp ah,32
    je	    paste_from_clip ;Paste
 
    cmp ah,33
    je	    delete_file     ;Delte
 
    cmp ah,34
    je	    textopen	;Edit in Tinypad
 
    cmp ah,37
    je	    exit
 
;VIEW MENU
    cmp ah,40		;Sort by name
    jne no_sn
	mov	[viewmode], 0
    jmp update
no_sn:
 
    cmp ah,41		;Sort by extension
    jne no_se
	mov	[viewmode], 1
    jmp update
no_se:
 
    cmp ah,42		;Sort by size
    jne no_ss
	mov	[viewmode], 2
    jmp update
no_ss:
 
    cmp ah,43		;Sort by date
    jne no_sd
	mov	[viewmode], 3
    jmp update
no_sd:
 
;HELP MENU
    cmp ah,50		;Help?
    je	    help_scr
 
    cmp ah,51		;Info?
    je	    info_scr
 
    cmp ah,1	       ; test on exit button
    je	    exit
 
    jmp still
 
exit:
; //// Willow
;    mov eax,58
;    mov ebx,MRUfile
;    mov dword[ebx+8],255
;    inc dword[ebx]
;    mcall
; //// Willow
    mov eax,-1
    mcall
 
draw_wd:
;    call draw_window
;    jmp still
    mov [flick],1
    jmp anti_flick
 
edit_prompt:
    not  [focus]
    jmp  red
 
help_scr:
    mov esi,14
    mov ebp,help_text
    jmp screen
 
info_scr:
    mov esi,6
    mov ebp,info_text
    jmp screen
 
screen:
    cmp [browser], 1 ;it's browser?
    jne dialogscr
 
    mov eax,[procinfo.box.height]
    sub eax,90
    drawfbox 40,76,300,eax,0x00000000
    mov eax,[procinfo.box.height]
    sub eax,92
    drawfbox 41,77,298,eax,0x00ffffff
    mov edi,esi ;14
    mov ebx,(41+26)*65536+(77+20)
    mov ecx,cl_Black
    mov edx,ebp ;help_text
    jmp outlab
 
dialogscr:
    mov eax,[procinfo.box.height]
    sub eax,84
    drawfbox 16,54,270,eax,0x00000000
    mov eax,[procinfo.box.height]
    sub eax,86
    drawfbox 17,55,268,eax,0x00ffffff
    mov edi,esi ;14
    mov ebx,(17+10)*65536+(55+1)
    mov ecx,cl_Black
    mov edx,ebp ;help_text
 
outlab:     ;out labels
    mov eax,4
    mov esi,40
helploo:
    mcall
    add ebx,11
    add edx,40
    dec edi
    jnz helploo
 
    setimg 48,84,logoinfimg
 
    jmp still
 
getimgproc:
    pushad
    mov dword [edx],esi ;xs
    mov dword [edx+4],edi ;ys
 
    mov ebp,eax
    mov eax,dword [ecx] ;getx size
    push edx
    push ecx
    lea ecx,[eax+2*eax]
 
    mul ebx
    add eax,ebp ;x
    mov edx,ecx
    lea eax,[eax+2*eax]  ;eax=offset on imsrc
 
    mov ebp,esi ;xs
    mov ebx,edi ;ys
 
    pop edi
    lea esi,[eax+8+edi]
 
    pop edi
    add edi,8
 
    cld
cyc:
	push	esi
	lea	ecx, [ebp+ebp*2]
	rep	movsb
	pop	esi
    add esi,edx
    dec ebx
    jne cyc
 
    popad
    ret
 
iglobal
;HELP TEXT
help_text:
       ;0123456789012345678901234567890123456789
    db '        ~~~~~ SYSTEM X-TREE ~~~~~       '
    db '                   HELP                 '
    db '                                        '
    db '                                        '
    db 'F2 - CHANGE SORTMODE (name,ext,size,dat)'
    db 'F3 - VIEW file in tinypad               '
 
    db 'F5 - COPY FILE to clipboard             '
    db 'F6 - PASTE FILE from clipboard          '
    db 'F11- EDIT PROMPT string                 '
    db 'F12- UPDATE directory sources           '
    db '                                        '
 
    db 'Enter - input to directory              '
    db 'Backspace - back to previos directory   '
    db 'PageDn/PageUp, Up/Down - move cursor    '
 
info_text:
    db '        ~~~~~ SYSTEM X-TREE ~~~~~       '
    db '               INFO 84 Ver              '
    db '                                        '
    db '        Create by Pavlushin Evgeni      '
    db 'with ASCL library special for Kolibri OS'
    db ' www.deck4.narod.ru      waptap@mail.ru '
endg
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   ********    FILE BROWSER / DIALOG   *********
 
;draw_browser_window:
 
draw_window:
 
;    mov eax,9
;    mov ebx,procinfo
;    mov ecx,-1
;    mcall
;    mov  eax,[procinfo.box.width]
;    cmp  eax,66
;    jg  temp12345
;    ret
; temp12345:
 
 
 
    mcall 48, 3, sc, sizeof.system_colors
 
 
    mov  eax,[sc.work_button]
    mov  [b_color],eax
 
 
 
    mcall 12, 1
 
;Window
 
    xor  eax,eax       ; function 0 : define and draw window
 
    cmp  [browser], 1 ;it's browser
    jne  nob1
    mov  ebx,140*65536+400     ; [x start] *65536 + [x size]
    mov  ecx,160*65536+280     ; [y start] *65536 + [y size]
    jmp  isb1
nob1:
    mov  ebx,140*65536+320     ; [x start] *65536 + [x size]
    mov  ecx,260*65536+240     ; [y start] *65536 + [y size]
isb1:
;    mov  edx,[sc.work]             ; color of work area RRGGBB
    or	     edx,0x13ffffff
    mcall
	
    mcall 12, 2      ; end of window redraw
 
;Get proc info
    mov eax,9
    mov ebx,procinfo
    mov ecx,-1
    mcall
 
    mov  eax,[procinfo.box.width]
    cmp  eax,66
    jg	 @f
.ret:
    ret
 @@:
    cmp  [procinfo.box.height], 0x70
    jl	.ret
 
    cmp  [browser], 1 ;it's browser
    jne  nob9
    mov  [listx],120
;    mov  eax,[procinfo.box.width]
    sub  eax,127;[listx]+7
    cmp  eax,10
    jl	 .ret
    mov  [listxsize],eax
    mov  [listy],73
    mov  eax,[procinfo.box.height]
    sub  eax,73+7;[listy]+7
    mov  [listysize],eax
    jmp isb9
nob9:
    mov  [listx],10
;    mov  eax,[procinfo.box.width]
    sub  eax,17 ;[listx]+7
    mov  [listxsize],eax
    mov  [listy],54
    mov  eax,[procinfo.box.height]
    sub  eax,54+34;[listy]+34
    mov  [listysize],eax
isb9:
 
 
;Draw only browser components
    cmp  [browser], 1 ;it's browser
    jne  nob2
 
    mov  eax,[sc.grab_text]	 ; color of text RRGGBB
    or	     eax,0x10000000
	mcall 71,1,title_browser
 
;Draw buttons headers
    mov  eax,8
    mov  ebx,8*65536+(6*8-1) ;start pos x
    mov  ecx,23*65536+10      ;start pos y
    mov  edx,22;+1000000000000000000000000000000b  ;spoke butt
    mov  edi,3		  ;draw 13 button's
    mov  esi,0x00339933
    mcall
    dec edi
nexthbut:
    add  ebx,(6*8)*65536
    inc  edx
    mcall
    dec  edi
    jnz  nexthbut
 
;File STRING
    glabel 8,25,'  FILE    VIEW    INFO  ',  cl_White ;Black
 
;BlackLine
    mov eax,[procinfo.box.width]
    sub eax,10
    drawfbox 5,35, eax, 1, cl_Black
 
;BlackLine2
    mov eax,[procinfo.box.width]
    sub eax,10
    drawfbox 5,68, eax, 1, cl_Black
 
;BlackLine2 vertical
;    mov eax,[procinfo.box.height]
;    sub eax,69+4
;    drawfbox 115, 69, 1, eax, cl_Black
 
;Set logo img
    setimg 34,88,logoinfimg
    glabel 20,165,'SYSTEM X-TREE',cl_Black
    add  ebx,10
    glabel ,,'FOR KolibriOS',
 
    add  ebx,9*65536+20
    glabel ,,'welcome to',cl_Green
    add  ebx,-15*65536+10
    glabel ,,'www.kolibrios.org',cl_Green
 
 
 
 
 
 
 
 
;Draw head->file buttons
    cmp [drawhf],1
    jne  no_drawhf
    mov  ebx,8*65536+6*12 ;start pos x
    mov  ecx,35*65536+10      ;start pos y
    mov  edx,30  ;spoke butt
    mov  edi,8		  ;draw 4 button's
    mov  esi,cl_Grey
    call menubutton
no_drawhf:
 
;Draw head->view buttons
    cmp [drawhv],1
    jne  no_drawhv
    mov  ebx,(8+6*8)*65536+6*12 ;start pos x
    mov  ecx,35*65536+10      ;start pos y
    mov  edx,40  ;spoke butt
    mov  edi,4		  ;draw 4 button's
    mov  esi,cl_Grey
    call menubutton
no_drawhv:
 
;Draw head->info buttons
    cmp [drawhi],1
    jne  no_drawhi
    mov  ebx,(8+12*8)*65536+6*12 ;start pos x
    mov  ecx,35*65536+10      ;start pos y
    mov  edx,50  ;spoke butt
    mov  edi,2		  ;draw 2 button's
    mov  esi,cl_Grey
    call menubutton
no_drawhi:
 
nob2:
 
;Draw buttons instruments
    mov  eax,8
    cmp  [browser], 1 ;it's browser
    jne  nob3
    mov  ebx,10*65536+16+5 ;start pos x
    mov  ecx,37*65536+15      ;start pos y
    jmp isb3
nob3:
    mov  ebx,16*65536+16+5 ;start pos x
    mov  ecx,29*65536+15      ;start pos y
isb3:
    mov  edx,8;+1000000000000000000000000000000b  ;spoke butt
    mov  edi,13        ;draw 13 button's
    mov  esi,cl_Grey
    mcall
    dec edi
nextbut:
    add  ebx,(16+6)*65536
    inc  edx
    mcall
    dec  edi
    jnz  nextbut
 
 
    cmp  [browser], 1 ;it's browser
    jne  nob4
;But img browser
    setimg 10,37,butimg
;left logo
    add eax,[procinfo.box.width]
    sub eax,80
    mov [temp],eax
    setimg [temp],37,logoimg
    jmp isb4
nob4:
;But img dialog
    setimg 16,29,butimg
isb4:
 
    cmp  [browser], 1 ;it's browser
    jne  nob5
 
    mov [urlx],48
    mov [urly],55
    mov eax,[procinfo.box.width]
    sub eax,48+10
    mov [urlxsize],eax
    mov [urlysize],12
 
    glabel 20,57,"URL:",cl_Black
 
;Out view mode info
	movzx	edx, [viewmode]
	shl	edx, 4
    mov eax,4
    mov ebx,180*65536+25
    mov ecx,cl_Black
    add edx,modetext
    mov esi,16
    mcall
 
;List size
    outcount [listsize],294,25,cl_Black,4*65536
    jmp isb5
 
iglobal
 
 
 
but_dlg:  db 'OPEN'
          db 'SAVE'
endg
 
nob5:
 
    mov [urlx],10
    mov eax,[procinfo.box.height]
    sub eax,24
    mov [urly],eax
    mov eax,[procinfo.box.width]
    sub eax,80
    mov [urlxsize],eax
    mov [urlysize],12
 
    cmp byte [dlg_type],'O'    ;if byte O - is Open dialog
    jne no_openh
    mcall 71,1,open_dlg	      ;draw in head OPEN FILE
    jmp no_saveh
no_openh:
    cmp byte [dlg_type],'S'    ;if byte S - is Save dialog
    jne no_saveh
    mcall 71,1,save_dlg	      ;draw in head SAVE FILE
    
 
 
 
 
 
 
no_saveh:
 
 
;Draw OPEN\SAVE button
    mov ebx,0*65536+50
    mov ecx,0*65536+12
    mov eax,[procinfo.box.width]
    sub eax,63
    shl eax,16
    add ebx,eax
    mov eax,[procinfo.box.height]
    sub eax,25
    shl eax,16
    add ecx,eax
    mov  eax,8
    mov  edx,5 ;button ID
    mov  esi,0x006699aa  ;gradient!!!
    mcall
 
; label OPEN or SAVE
    mov ebx,[procinfo.box.width]
    sub ebx,48
    mov eax,[procinfo.box.height]
    sub eax,22
    shl ebx,16
    add ebx,eax
 
    cmp byte [dlg_type],'O'    ;if byte O - is Open dialog
    jne no_openb
    mov edx,but_dlg	   ;draw in head OPEN FILE
    jmp out_labx
no_openb:
    cmp byte [dlg_type],'S'    ;if byte S - is Save dialog
    jne no_saveb
    mov edx,but_dlg+4	       ;draw in head SAVE FILE
out_labx:
    mov ecx,cl_White
    mov esi,4
    mov eax,4
    mcall
no_saveb:
 
isb5:
 
anti_flick:
 
    cmp [flick],2
    je draw_url
    cmp [flick],0
    jne no_flick_url
 
;***************************
;    DRAW URL LINE
;***************************
draw_url:
 
;Draw URL focus button
    mov ebx,[urlx]
    shl ebx,16
    add ebx,[urlxsize]
    mov ecx,[urly]
    shl ecx,16
    add ecx,[urlysize]
    dec ebx
    dec ecx
    mov  eax,8
    mov  edx,2 ;button ID
    mov  esi,0x00aaaaaa  ;gradient!!!
    mcall
 
;Draw URL String
    mov eax,13
    mov edx,cl_Black
    mcall
    add ebx,1*65536-2+1
    add ecx,1*65536-2+1
    mov edx,cl_White
    mcall
 
;Draw URL Cursor
    mov eax,6
    mul [cursor]
    mov ebx,[urlx]
    add ebx,eax
    shl ebx,16
    add ebx,2*65536+1
    mov ecx,[urly]
    shl ecx,16
    add ecx,[urlysize]
    add ecx,2*65536-4
    mov eax,13
    mov edx,cl_Black
    mcall
 
; OUT TEXT
    mov eax,[urlxsize]	    ;calculating text leight
    sub eax,8
    mov ebx,6
    div ebx
    mov esi,eax
 
    mov  ebx,[urlx]
    shl  ebx,16
    add  ebx,[urly]
    add  ebx,3*65536+2
    mov  eax,4		   ; function 4 : write text to window
    mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
    mov  edx,path	 ; pointer to text beginning
    mcall
 
    cmp  [flick],2
    jne  no_flick_url
    mov  [flick],0
    jmp  still
no_flick_url:
 
 
;***************************
;    DRAW FILE LIST
;***************************
 
;Draw Scroll Line
    mov eax,13
 
    mov ebx,[listx]
    add ebx,[listxsize]
    sub ebx,[scrollsize]
    shl ebx,16
    add ebx,dword [scrollsize]
    mov ecx,[listy]
    add ecx,scrollbutsize
    shl ecx,16
    add ecx,[listysize]
    sub ecx,scrollbutsize*2
    mov edx,[scrollcolor] ;0x00006600
    mcall
 
;Draw Scroll Box
    mov  edx,0
    mov  eax,[listysize]
    sub  eax,2
    mov  ebx,dword 10
    div  ebx
 
    mov ebx,eax
    cmp ebx,[listsize]	    ;filelistsize in ebx
    jae    notusescroll
;usescroll
; calculate scroll size
	mov	eax, [listysize]
	sub	eax, 2*scrollbutsize
	push	eax
	mul	ebx
	div	[listsize]
	cmp	eax, 5
	jae	@f
	mov	al, 5
@@:
	mov	[scroll_height], eax
; calculate scroll pos
	sub	[esp], eax
	mov	eax, [listsize]
	sub	eax, ebx
	mov	ecx, eax
	cmp	eax, [filecursor]
	jb	@f
	mov	eax, [filecursor]
@@:
	mul	dword [esp]
	div	ecx
	mov	[scroll_pos], eax
	pop	ecx
; draw
	lea	ecx, [eax+scrollbutsize]
	add	ecx, [listy]
	shl	ecx, 16
	mov	cx, word [scroll_height]
	mov	eax, 13
	mov	ebx, [listx]
	add	ebx, [listxsize]
	sub	ebx, [scrollsize]
	shl	ebx, 16
	mov	bx, word [scrollsize]
	mov	edx, [scrollboxcol]
	mcall
notusescroll:
 
 
;Draw list button for get file name
    mov  ebx,[listx]
    shl  ebx,16
    add  ebx,[listxsize]
    sub  ebx,15      ;right free zone
    sub  ebx,[scrollsize]
    mov  ecx,[listy]
    shl  ecx,16
    add  ecx,[listysize]
 
    mov  eax,8
    mov  edx,4+0x60000000
    mcall
 
    add  ebx,15
    mov  eax,13
	sub  ebx,[scrollsize]   ;leency
    mov  edx,[listcolor] ;ffffff
    mcall
 
;Draw up/down buttons
    mov  ebx,[listx]
    add  ebx,[listxsize]
    sub  ebx,[scrollsize]
    shl  ebx,16
    add  ebx,[scrollsize]
    mov  ecx,[listy]
    shl  ecx,16
    add  ecx,scrollbutsize-1
    mov  eax,8
    mov  edx,6+1000000000000000000000000000000b  ;spoke butt
    mcall
 
    inc  ecx
    mov  eax,13
    mov  edx,[scrollbutcol]
    mcall
 
; Draw image on up button
    pushad
    shr  ebx,16
    mov  edx,ebx
    shl  edx,16
    shr  ecx,16
    add  edx,ecx
    mov  ecx,8*65536+9
    mov  ebx,upsb+8
    mov  eax,7
    mcall
    popad
 
 
    dec  ecx	 ;correction
    mov  edx,7+1000000000000000000000000000000b  ;spoke butt
    mov  eax,[listysize]
    sub  eax,scrollbutsize
    shl  eax,16
    add  ecx,eax
 
    mov  eax,8
    mcall
 
    inc  ecx
    mov  eax,13
    mov  edx,[scrollbutcol] ;ffffff
    mcall
 
; Draw image on down button
    pushad
    shr  ebx,16
    mov  edx,ebx
    shl  edx,16
    shr  ecx,16
    add  edx,ecx
    mov  ecx,8*65536+9
    mov  ebx,dnsb+8
    mov  eax,7
    mcall
    popad
 
 
; Draw text in file list
 
;    mov  eax,[listxsize]
;    sub  eax,40*6  ;leight of string
;    shr  eax,1
;    add  eax,[listx]
	mov	eax, [listx]
	add	eax, 12+4 ; for icons
    shl  eax,16
    add  eax,[listy]
    add  eax,2
 
    mov  [filelistxy],eax ;dword 19*65536+58
 
    mov  edx,0
    mov  eax,[listysize]
    sub  eax,2
    mov  ebx,dword 10
    div  ebx
    mov  [filelistsize],eax  ;dword 40
 
; OUT FILE DATA
    mov  eax,[filecursor]     ;calc cursor position
    mov  ebx,27
    mul  ebx
 
;OUT TEXT
    mov  ebp,4096 ; 16             ;out strings process
    sub  ebp,[filecursor]
    mov  edx,convinfo ;fileinfo+11
    add  edx,eax
    mov  ebx,dword [filelistxy]
loo:
	cmp	dword [edx], -1
	jz	noout
    mov  ecx,0x00888888        ;for another file's color white
    cmp  [edx+15],dword 'FOL ' ;folder yellow
    jne  nb
    mov  ecx,0x00006666
    jmp cset1
nb:
	mov	eax, [edx]
	xor	edi, edi
; find extension and set color
@@:
	inc	eax
	cmp	byte [eax-1], 0
	jz	@f
	cmp	byte [eax-1], '.'
	jnz	@b
	mov	edi, eax
	jmp	@b
@@:
	test	edi, edi
	jz	@f
	mov	edi, [edi]
	and	edi, not 0x20202020	; toupper
@@:
;Color set
; text's blue
	mov	ecx, 0x00446666
	cmp	edi, 'TXT'
	jz	cset
	cmp	edi, 'INC'
	jz	cset
	cmp	edi, 'ASM'
	jz	cset
	cmp	edi, 'RTF'
	jz	cset
; picture's pure
	mov	ecx, 0x00226688
	cmp	edi, 'BMP'
	jz	cset
	cmp	edi, 'JPG'
	jz	cset
	cmp	edi, 'JPEG'
	jz	cset
	cmp	edi, 'GIF'
	jz	cset
	cmp	edi, 'PNG'
	jz	cset
	cmp	edi, 'WAV'
	jz	cset
	cmp	edi, 'MID'
	jz	cset
; execute's green
	mov	ecx, 0x00008866
	test	edi, edi
	jz	cset
; for another file's color white
	mov	ecx, 0x00888888
cset:
 
cset1:
    push edx
    mov  edx,[edx]
	push	ebx edx
	mov	eax, [listxsize]
	sub	eax, [scrollsize]
	sub	eax, 12+4
	xor	edx, edx
	mov	ebx, 6
	div	ebx
	pop	edx ebx
	sub	eax, 25
	xor	esi, esi
@@:
	cmp	byte [edx+esi], 0
	jz	@f
	inc	esi
	cmp	esi, eax
	jbe	@b
	dec	esi
@@:
	push	eax
    mov  eax,4
    mcall
	cmp	byte [edx+esi], 0
	jz	@f
	pushad
	mov	edx, more_char
	mov	eax, esi
	imul	eax, 6*65536
	add	ebx, eax
	mov	esi, 1
	mov	eax, 4
	mcall
	popad
@@:
	pop	eax
    pop  edx
    push ebx edx
	inc	eax
	imul	eax, 6*65536
	add	ebx, eax
    add  edx,4
    mov  esi,23
    mov  eax,4
    mcall
    pop  edx ebx
 
    pushad
    cmp  [edx+15],dword 'Fvol' ;volume label
    jne  no_volico
    push hdico+8
    jmp out_ico
no_volico:
    cmp  [edx+15],dword 'FOL '
    jne  no_folico
    cmp  [edx+4],dword 'HARD'
    jne  no_hdico
    push hdico+8
    jmp out_ico
no_hdico:
    cmp  [edx+4],dword 'RAMD'
    jne  no_rdico
    push rdico+8
    jmp out_ico
no_rdico:
    cmp  [edx+4],dword 'FLOP'
    jne  no_fdico
    push rdico+8
    jmp out_ico
no_fdico:
    cmp  [edx+4],dword 'CD-R'
    jne  no_cdico
    push cdico+8
    jmp out_ico
no_cdico:
    push folico+8
    jmp out_ico
no_folico:
    cmp  edi,dword 'BMP'
    je	     is_imgico
    cmp  edi,dword 'JPG'
    je	     is_imgico
    cmp  edi,dword 'JPEG'
    je	     is_imgico
    cmp  edi,dword 'GIF'
    je	     is_imgico
 
    cmp  edi,dword 'PNG'
    je	     is_imgico
    cmp  edi,dword 'ICO'
    je	     is_imgico
	
    cmp  edi,dword 'WAV'
    je	     is_imgico
    cmp  edi,dword 'MID'
    je	     is_imgico
    cmp  edi,dword 'MP3'
    je	     is_imgico
    cmp  edi,dword 'XM'
    je	     is_imgico
    jmp  no_imgico
is_imgico:
    push imgico+8
    jmp out_ico
no_imgico:
    cmp  edi,dword 'ASM'
    je	     is_asmincico
    cmp  edi,dword 'INC'
    je	     is_asmincico
    cmp  edi,dword 'INI'
    je	     is_asmincico
    cmp  edi,dword 'CONF'
    je	     is_asmincico
    jmp  no_asmincico
is_asmincico:
    push asmincico+8
    jmp out_ico
no_asmincico:
    cmp  edi,dword 'RTF'
    je	 @f
    cmp  edi,dword 'TXT'
    jne  no_txtico
    cmp  edi,dword 'LOG'
    jne  no_txtico
 @@:
    push txtico+8
    jmp out_ico
no_txtico:
    test edi,edi
    jne  no_execico
    push execico+8
    jmp out_ico
no_execico:
    cmp  [edx+15],dword 'DAT '
    jne  no_datico
    push datico+8
    jmp out_ico
no_datico:
    cmp  [edx+15],dword 'DEL '
    jne  no_out_ico
    push delico+8
    jmp out_ico
out_ico:
 
    mov  edx,ebx
    sub  edx,14*65536+1
    mov  ecx,12*65536+9
;    mov  ebx,upsb+8
    pop  ebx
    mov  eax,7
    mcall
no_out_ico:
    popad
 
 
    add  ebx,10
noout:
    add  edx,27
 
    dec  [filelistsize]
    jz	     extloo
 
    dec  ebp
    jnz  loo
dext:
    mov [downstop],1
 
extloo:
 
    cmp  [browser], 1 ;it's browser
    jne  nob8
 
;Draw text for head->file buttons
    cmp [drawhf],1
    jne  no_drawhftext
    drawfbox 8,35,(6*12)+1,11*8,0x00000000
    drawfbox 9,36,(6*12)-1,(11*8)-2,0x00ffffff
 
    mov edi,8
    mov ebx,9*65536+37
    mov ecx,cl_Black
    mov edx,file_text_label
    call drawmenu
 
iglobal
file_text_label:
    db	     '    Open    '
    db	     '    Copy    '
    db	     '    Paste   '
    db	     '   Delete   '
    db	     '   Tinypad  '
    db	     '    Edit    '
    db	     '            '
    db	     '    Exit    '
endg
 
no_drawhftext:
 
;Draw text for head->view buttons
    cmp [drawhv],1
    jne  no_drawhvtext
    drawfbox (8+6*8),35,(6*12)+1,(11*4),0x00000000
    drawfbox (9+6*8),36,(6*12)-1,(11*4)-2,0x00ffffff
 
    mov edi,4
    mov ebx,(9+6*8)*65536+37
    mov ecx,cl_Black
    mov edx,view_text_label
    call drawmenu
 
iglobal
view_text_label:
    db	     '  Name sort '
    db	     '  Ext. sort '
    db	     '  Size sort '
    db	     '  Date sort '
endg
 
no_drawhvtext:
 
;Draw text for head->info buttons
    cmp [drawhi],1
    jne  no_drawhitext
    drawfbox (8+12*8),35,(6*12)+1,(11*2),0x00000000
    drawfbox (9+12*8),36,(6*12)-1,(11*2)-2,0x00ffffff
 
    mov edi,2
    mov eax,4
    mov ebx,(9+12*8)*65536+37
    mov ecx,cl_Black
    mov edx,info_text_label
    call drawmenu
 
iglobal
info_text_label:
    db	     '   Help     '
    db	     '   About    '
endg
 
no_drawhitext:
 
nob8:
    cmp  [flick],1
    jne  no_flick
    mov  [flick],0
    jmp  still
no_flick:
 
 
 
 
 
    ret
 
;FILE LIST PARAMETRS
 
iglobal
listx	    dd 15
listy	    dd 72
listxsize dd 350
listysize dd 41
 
filelistxy    dd 0
filelistsize  dd 0
scrollsize    dd 8
listcolor     dd 0xffffff ;0xeeeeee
scrollcolor   dd 0x778877
scrollboxcol  dd 0x335533
scrollbutcol  dd 0x224422
scrollbutsize = 9
 
;URL LINE PARAMETRS
 
urlx	 dd 10
urly	 dd 20
urlxsize dd 350
urlysize dd 12
endg
 
drawmenu:
    mov eax,4
    mov esi,12
menuloo:
    mcall
    add ebx,11
    add edx,12
    dec edi
    jnz menuloo
    ret
 
menubutton:
    mov  eax,8
nextmenubut:
    mcall
    add  ecx,11*65536
    inc  edx
    dec  edi
    jnz  nextmenubut
    ret
 
;*****************************
; READ FILE STRUCTURE PROC
;*****************************
 
read_directory:
 
;STEP 1 CLEAR CONVINFO
    mov  edi,convinfo
    mov  al,255
    mov  ecx,4096*27
    cld
    push edi
    rep  stosb
    pop  edi
 
;STEP 2 TEST ON HD OR PARTITION
    cmp [path],byte '/'
    je nstep
; copy info on RD and FD
	mov	esi, hdimg
	mov	ecx, 2*27
	rep	movsb
; hard disks
	mov	eax, 4
.1:
	mov	ecx, 27
	cmp	dword [esi], 0
	jz	.2
	rep	movsb
	jmp	.3
.2:
	add	esi, ecx
.3:
	dec	eax
	jnz	.1
	mov	[listsize], 0
	ret
nstep:
    cmp [path+3],byte '/'
    je nstep2
    cmp [path+4],byte '/'
    je nstep2
    mov ecx,1
    cmp [path+1],word 'RD'
    jz	loxpt
    cmp [path+1],word 'CD'
    jz	loxpt
    mov ecx,2
    cmp [path+1],word 'FD'
    jz	loxpt
    cmp [path+1],dword 'HD0'
    jne nostep_HD0
    movzx ecx,byte [table_area+2]
    jmp loxpt
nostep_HD0:
    cmp [path+1],dword 'HD1'
    jne nostep_HD1
    movzx ecx,byte [table_area+3]
    jmp loxpt
nostep_HD1:
    cmp [path+1],dword 'HD2'
    jne nostep_HD2
    movzx ecx,byte [table_area+4]
    jmp loxpt
nostep_HD2:
    cmp [path+1],dword 'HD3'
    jne nostep_HD3
    movzx ecx,byte [table_area+5]
    jmp loxpt
nostep_HD3:
 
    mov ecx,2
 
loxpt:
	cmp	ecx, 20
	jbe	@f
	mov	ecx, 20
@@:
	mov	eax, a1
	mov	esi, ptimg
@@:
	stosd
	add	eax, 3
	push	ecx esi
	mov	ecx, 23
	rep	movsb
	pop	esi ecx
	loop	@b
    mov [listsize],0
    ret
nstep2:
 
;STEP 3 was deleted
 
;STEP 4 READ DATA FROM HD
 
loorhd:
    mov  eax,70
    mov  ebx,fileinfoblock
    mcall
 
    cmp eax,6
    je	    end_of_dir
 
;  It's erorr's test is poor code
 
    cmp eax,1
    jne no_inv_part
    glabel 10,10,'Invalid partition or hd base',cl_Red+font_Big
    jmp end_of_dir
no_inv_part:
    cmp eax,3
    jne no_unk_fs
    glabel 10,10,'Unknown file system',cl_Red+font_Big
    jmp end_of_dir
no_unk_fs:
 
end_of_dir:
; -1 -> 0
	cmp	ebx, -1
	sbb	ebx, -1
    mov  [dirlen],ebx
 
    ; command successful
 
	mov	esi, outinfo+32
	and	[listsize], 0
	test	ebx, ebx
	jz	nofiles
 
  newlineb:
	push	ebx
 
	mov	edi, fileinfo
	push	edi
	mov	al, ' '
	mov	ecx, 27
	rep	stosb
	pop	edi
	push	esi
	add	esi, 40
	mov	[edi], esi
	pop	esi
 
	mov	eax, 'DAT '	; data or ... ?
	mov	cl, [esi]
	test	cl, 0x10
	jz	@f
	mov	eax, 'FOL '
	mov	[edi+15], eax
	jmp	nosize
@@:
	test	cl, 8
	jz	novol
	mov	eax, 'Fvol'
	mov	[edi+15], eax
	jmp	nosize
novol:
	mov	[edi+15], eax
 
; size
	mov	eax, [esi+32]
	push	esi
	lea	esi, [edi+26]
	mov	ebx, 10
	mov	ecx, 8
newnum:
	xor	edx, edx
	div	ebx
	add	dl, '0'
	mov	[esi], dl
	test	eax, eax
	jz	zernum
	dec	esi
	loop	newnum
zernum:
	pop	esi
nosize:
 
; date
	mov	dword [edi+6], '.  .'
; year
	movzx	eax, word [esi+28+2]
	mov	ecx, 4
newdel1:
	xor	edx, edx
	mov	ebx, 10
	div	ebx
	add	edx, '0'
	mov	[edi+ecx+9], dl
	loop	newdel1
; month
	movzx	eax, byte [esi+28+1]
	xor	edx, edx
	div	ebx
	add	al, '0'
	add	dl, '0'
	mov	[edi+7], al
	mov	[edi+8], dl
; day
	movzx	eax, byte [esi+28]
	xor	edx, edx
	div	ebx
	add	al, '0'
	add	dl, '0'
	mov	[edi+4], al
	mov	[edi+5], dl
 
;STEP 5 Test on WRITE OR NOTWRITE
	cmp	word [esi+40], '.'
	jz	nextfl
	cmp	word [esi+40], '..'
	jnz	@f
	cmp	byte [esi+42], 0
	jz	nextfl
@@:
 
; STEP 6 SORT ALGORYTHM
 
	push	esi
	xor	esi, esi
 
; At first Fold after Dat
 
ftestname:
	cmp	dword [convinfo+esi], -1
	jz	writefile
    cmp byte [fileinfo+15],'F'
    je	    F
    cmp byte [fileinfo+15],'D'
    jne add_element
D:  cmp byte [convinfo+esi+15],'D'
    je	    add_element
    cmp byte [convinfo+esi+15],'F'
    je	    skipfile
    jmp add_element
F:  cmp byte [convinfo+esi+15],'D'
    je writenow
;    cmp byte [convinfo+esi+15],'F'
;    je  add_element
;    jmp add_element
 
add_element:
; compare items
	movzx	eax, [viewmode]
	call	[compare+eax*4]
	jb	writenow
skipfile:
    add esi,27
    jmp ftestname
 
writenow:
    mov ecx,4096*27-1
    sub ecx,esi
ldloop:
    mov al,[convinfo+ecx+esi]
    mov [convinfo+ecx+esi+27],al
    dec ecx
    jns ldloop
 
writefile:
    mov ecx,26
wfloop:
    mov al,[fileinfo+ecx]
    mov [convinfo+ecx+esi],al
    dec ecx
    jns wfloop
	inc	[listsize]
	pop	esi
 
nextfl:
	add	esi, 304
	pop	ebx
	dec	ebx
	jnz	newlineb
 
nofiles:
	ret
 
toupper:
	cmp	al, 'a'
	jb	.ret
	cmp	al, 'z'
	ja	@f
.sub20:
	sub	al, 0x20
.ret:
	ret
@@:
	cmp	al, 0xA0
	jb	.ret
	cmp	al, 0xB0
	jb	.sub20
	cmp	al, 0xE0
	jb	.ret
	cmp	al, 0xF0
	jae	@f
	sub	al, 0xE0-0x90
	ret
@@:
	cmp	al, 0xF1
	jnz	.ret
	dec	eax
	ret
 
compare_date:
	pushad
	mov	al, [fileinfo+10]
	cmp	al, [convinfo+esi+10]
	jnz	.ret
	mov	al, [fileinfo+11]
	cmp	al, [convinfo+esi+11]
	jnz	.ret
	mov	al, [fileinfo+12]
	cmp	al, [convinfo+esi+12]
	jnz	.ret
	mov	al, [fileinfo+13]
	cmp	al, [convinfo+esi+13]
	jnz	.ret
	mov	al, [fileinfo+7]
	cmp	al, [convinfo+esi+7]
	jnz	.ret
	mov	al, [fileinfo+8]
	cmp	al, [convinfo+esi+8]
	jnz	.ret
	mov	al, [fileinfo+4]
	cmp	al, [convinfo+esi+4]
	jnz	.ret
	mov	al, [fileinfo+5]
	cmp	al, [convinfo+esi+5]
	jz	compare_name.1
.ret:
	popad
	ret
compare_name:
	pushad
.1:
	mov	edi, dword [convinfo+esi]
	mov	esi, dword [fileinfo]
	call	strcmpi
	popad
	ret
compare_ext:
	pushad
	mov	esi, dword [convinfo+esi]
	mov	edi, dword [fileinfo]
	call	find_ext
	xchg	esi, edi
	call	find_ext
	call	strcmpi
	popad
	jz	compare_name
	ret
compare_size:
	pushad
	lea	edi, [convinfo+esi+19]
	lea	esi, [fileinfo+19]
	mov	ecx, 8
	repz	cmpsb
	popad
	jz	compare_name
	ret
 
strcmpi:
	lodsb
	call	toupper
	push	eax
	mov	al, [edi]
	inc	edi
	call	toupper
	cmp	[esp], al
	pop	eax
	jnz	@f
	test	al, al
	jnz	strcmpi
@@:
	ret
 
find_ext:
	lodsb
	test	al, al
	jz	.noext
	cmp	al, '.'
	jnz	find_ext
	ret
.noext:
	dec	esi
	ret
 
;******************************************************************************
title_browser db 'SYSTEM X-TREE FILE BROWSER',0
open_dlg  db 'OPEN FILE',0
save_dlg  db 'SAVE FILE',0
 
; DATA AREA
pmenu_draw dd 0  ;if poup menu is draw,update all window
flick	     dd 0  ;anti flick on ?
drawhf	       dd 0  ;draw file menu?
drawhv	       dd 0  ;draw view menu?
drawhi	       dd 0  ;draw info menu?
cursor	       dd 0  ;cursor in prompt line
focus	     dd 0  ;prompt edit or window?
downstop   dd 0
filecursor dd 0
mousex	       dd 0
mousey	       dd 0
blocksread dd 0
listsize   dd 0  ;num of files in directory
temp	   dd 0
readblock  dd 1
dlg_type   db 0 ;S-save O-open
browser    db 0  ;0-dialog, 1-browser
viewmode   db 0  ;folder sort
 
compare dd	compare_name
	dd	compare_ext
	dd	compare_size
	dd	compare_date
 
aRD	db	'RD',0
aFD	db	'FD',0
aHD0	db	'HD0',0
aHD1	db	'HD1',0
aHD2	db	'HD2',0
aHD3	db	'HD3',0
aCD0	db	'CD0',0
aCD1	db	'CD1',0
aCD2	db	'CD2',0
aCD3	db	'CD3',0
a1	db	'1',0,0
a2	db	'2',0,0
a3	db	'3',0,0
a4	db	'4',0,0
a5	db	'5',0,0
a6	db	'6',0,0
a7	db	'7',0,0
a8	db	'8',0,0
a9	db	'9',0,0
a10	db	'10',0
a11	db	'11',0
a12	db	'12',0
a13	db	'13',0
a14	db	'14',0
a15	db	'15',0
a16	db	'16',0
a17	db	'17',0
a18	db	'18',0
a19	db	'19',0
a20	db	'20',0
 
hdimg:
	dd	aRD
	db	'RAMDISK    FOL         '
	dd	aFD
	db	'FLOPPYDISK FOL         '
hdimg1	dd	0
	db	'HARDDISK   FOL         '
hdimg2	dd	0
	db	'HARDDISK   FOL         '
hdimg3	dd	0
	db	'HARDDISK   FOL         '
hdimg4	dd	0
	db	'HARDDISK   FOL         '
ptimg	db	'PARTITION  FOL         '
 
modetext:
      ;0123456789012345
   db 'SORT BY NAME   0'
   db 'SORT BY EXT.   1'
   db 'SORT BY SIZE   2' ;type sort
   db 'SORT BY DATE   3'
   db 'DEL SORT NAME  4'
   db 'DEL SORT EXT.  5'
   db 'DEL SORT SIZE  6' ;type sort
   db 'DEL SORT DATE  7'
 
dirlen	      dd     0x1
b_color   dd   0x6677cc
 
; //// Willow
;MRUfile:
;   dd 0x0
;   dd 0x0
;   dd 0x1
;   dd path
;   dd tempzone
;   db '/RD/1/MRU.LST',0
; //// Willow
 
;Name of programs
editor	  db '/sys/tinypad',0
 
kiv       db '/sys/media/kiv',0
ac97	  db '/sys/media/ac97snd',0
midamp	  db '/sys/media/midamp',0
htmlv	  db '/sys/network/htmlv',0
rtfread   db '/sys/rtfread',0
 
 
 
 
view3ds   db '/sys/3d/view3ds',0
life2	  db '/sys/demos/life2',0
 
more_char db 10h
 
IncludeIGlobals
 
fileinfo_start:
	dd	7
	dd	0
fileinfo_params:
	dd	0
	dd	0
	dd	0
	db	0
fileinfo_name:
	dd	0
 
clipfile_info:
	dd	?
	dd	0
	dd	0
	dd	?
	dd	paramtest
	db	'/SYS/CLIPFILE.TXT',0
copyr_run:
	dd	7
	dd	0
	dd	copyr_param
	dd	0
	dd	0
	db	'/SYS/COPYR',0
 
fileinfoblock:
   dd 0x1    ; read folder
   dd 0x0    ; first block
   dd 0x0    ; flags (ANSI names)
   dd 4095   ; number of blocks to read
   dd outinfo	  ; ret offset
path:
times 1024 db 0     ;path
 
table_area:
rb 10
 
;rb 256
but_file:
file 'systr12.GIF'
 
I_END:
 
scroll_height dd ?
scroll_pos dd ?
 
butimg:
rb 400*16*3+8	  ;buttons (left pice of picture)
logoimg:
rb 70*16*3+8	;logo (right pice of picture)
logoinfimg:
rb 60*60*3+8	;logoinfo (right pice of picture)
upsb:
rb 8*9*3+8    ;up scroll button
dnsb:
rb 8*9*3+8    ;down scroll button
 
;ICONS RESERVE AREA
hdico:
rb 12*9*3+8
rdico:
rb 12*9*3+8
folico:
rb 12*9*3+8
datico:
rb 12*9*3+8
delico:
rb 12*9*3+8
imgico:
rb 12*9*3+8
txtico:
rb 12*9*3+8
asmincico:
rb 12*9*3+8
execico:
rb 12*9*3+8
cdico:
rb 12*9*3+8
 
tempimg:    ;reserve ram for images
rb 400*100*3+8	     ;for picture
rb 8000
 
MYPID:
rd 8
 
param_area:
rb 256
paramtest:
rb 1024
filedir:
rb 1024
 
IncludeUGlobals
 
procinfo process_information
sc system_colors
 
fileinfo:
rb 200 ;4096*62+1024
 
copyr_param	rb	256
 
outinfo:
rb 32+4096*304
 
convinfo:
rb 4096*27
; stack
	align 4
	rb	1024
RAM_END:

Rev 993	Rev 2706
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	; ;	2	; ;
3	; SYSTEM X-TREE BROWSER ;	3	; SYSTEM X-TREE BROWSER ;
4	; ;	4	; ;
5	; Author: Pavlushin Evgeni waptap@mail.ru ;	5	; Author: Pavlushin Evgeni waptap@mail.ru ;
6	; site: www.deck4.narod.ru ;	6	; site: www.deck4.narod.ru ;
7	; ;	7	; ;
8	; Compile with FASM for MenuetOS ;	8	; Compile with FASM for MenuetOS ;
9	; ;	9	; ;
10	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	10	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11		11
12	;Bug report +bug deleted -bug not deleted	12	;Bug report +bug deleted -bug not deleted
13	;show/fade del notwork+	13	;show/fade del notwork+
14	;64Ver Run file from HD bug deleted.	14	;64Ver Run file from HD bug deleted.
15	;65Ver The bad scroll realization	15	;65Ver The bad scroll realization
16	;66Ver The good scroll realization, url line anti-flick	16	;66Ver The good scroll realization, url line anti-flick
17	;67Ver Url line monolith procedure	17	;67Ver Url line monolith procedure
18	;68Ver Mini icon on left of file name	18	;68Ver Mini icon on left of file name
19	;69Ver Getimg proc size minus 900 bytes	19	;69Ver Getimg proc size minus 900 bytes
20	;70Ver Del data area ramsize minus 140000 bytes	20	;70Ver Del data area ramsize minus 140000 bytes
21	;72Ver Quick sort, ramsize minus 200000 bytes	21	;72Ver Quick sort, ramsize minus 200000 bytes
22	;73Ver Url flick and out bugs delete	22	;73Ver Url flick and out bugs delete
23	;74Ver scroll bug deleted	23	;74Ver scroll bug deleted
24	;75Ver hd partition fast change button. Add bmp,txt,exec,asm and inc icons.	24	;75Ver hd partition fast change button. Add bmp,txt,exec,asm and inc icons.
25	; sort type in headmenu bug del	25	; sort type in headmenu bug del
26	;78Ver directory extension bug fix by Asko Vuori	26	;78Ver directory extension bug fix by Asko Vuori
27	;79Ver Asko Vuori volume label add and "put in command line" bug fix	27	;79Ver Asko Vuori volume label add and "put in command line" bug fix
28	;80Ver prompt edit fatal bug deleted, antiflick when move list up/down	28	;80Ver prompt edit fatal bug deleted, antiflick when move list up/down
29	;81Ver Save Dialog bug deleted	29	;81Ver Save Dialog bug deleted
30	;82Ver Rewritten to function 70. Corrected work with scrollbar.	30	;82Ver Rewritten to function 70. Corrected work with scrollbar.
31	;83Ver CD-ROM support	31	;83Ver CD-ROM support
32	;84Ver URL line editor corrected	32	;84Ver URL line editor corrected
33	;1560000 bytes memory!	33	;1560000 bytes memory!
34		34
35	;******************************************************************************	35	;******************************************************************************
36	use32	36	use32
37	org 0x0	37	org 0x0
38	db 'MENUET01' ; 8 byte id	38	db 'MENUET01' ; 8 byte id
39	dd 0x01 ; header version	39	dd 0x01 ; header version
40	dd START ; program start	40	dd START ; program start
41	dd I_END ; program image size	41	dd I_END ; program image size
42	dd RAM_END ; memory	42	dd RAM_END ; memory
43	dd RAM_END ; stack	43	dd RAM_END ; stack
44	dd param_area ,0x0 ; param,icon	44	dd param_area ,0x0 ; param,icon
45	; dd 0,0	45	; dd 0,0
46		46
47	;******************************************************************************	47	;******************************************************************************
48	include 'macros.inc'	48	include '../../../macros.inc' ;
49	include 'ascl.inc'	49	include 'ascl.inc'
50	include 'ascgl.inc'	50	include 'ascgl.inc'
51		51
52	START: ; start of execution	52	START: ; start of execution
53	; //// Willow	53	; //// Willow
54	; mov eax,58	54	; mov eax,58
55	; mov ebx,MRUfile	55	; mov ebx,MRUfile
56	; mcall	56	; mcall
57	; //// Willow	57	; //// Willow
58	mcall 18,11,1,table_area	58	mcall 18,11,1,table_area
59	cmp [edx+2],byte 0	59	cmp [edx+2],byte 0
60	je no_hdpartition_on_hd0	60	je no_hdpartition_on_hd0
61	mov [hdimg1], aHD0	61	mov [hdimg1], aHD0
62	no_hdpartition_on_hd0:	62	no_hdpartition_on_hd0:
63	cmp [edx+3],byte 0	63	cmp [edx+3],byte 0
64	je no_hdpartition_on_hd1	64	je no_hdpartition_on_hd1
65	mov [hdimg2], aHD1	65	mov [hdimg2], aHD1
66	no_hdpartition_on_hd1:	66	no_hdpartition_on_hd1:
67	cmp [edx+4],byte 0	67	cmp [edx+4],byte 0
68	je no_hdpartition_on_hd2	68	je no_hdpartition_on_hd2
69	mov [hdimg3], aHD2	69	mov [hdimg3], aHD2
70	no_hdpartition_on_hd2:	70	no_hdpartition_on_hd2:
71	cmp [edx+5],byte 0	71	cmp [edx+5],byte 0
72	je no_hdpartition_on_hd3	72	je no_hdpartition_on_hd3
73	mov [hdimg4], aHD3	73	mov [hdimg4], aHD3
74	no_hdpartition_on_hd3:	74	no_hdpartition_on_hd3:
75	test byte [edx+1], 80h	75	test byte [edx+1], 80h
76	jz @f	76	jz @f
77	mov [hdimg1], aCD0	77	mov [hdimg1], aCD0
78	mov [hdimg1+4], 'CD-R'	78	mov [hdimg1+4], 'CD-R'
79	mov [hdimg1+8], 'OM '	79	mov [hdimg1+8], 'OM '
80	@@:	80	@@:
81	test byte [edx+1], 20h	81	test byte [edx+1], 20h
82	jz @f	82	jz @f
83	mov [hdimg2], aCD1	83	mov [hdimg2], aCD1
84	mov [hdimg2+4], 'CD-R'	84	mov [hdimg2+4], 'CD-R'
85	mov [hdimg2+8], 'OM '	85	mov [hdimg2+8], 'OM '
86	@@:	86	@@:
87	test byte [edx+1], 8	87	test byte [edx+1], 8
88	jz @f	88	jz @f
89	mov [hdimg3], aCD2	89	mov [hdimg3], aCD2
90	mov [hdimg3+4], 'CD-R'	90	mov [hdimg3+4], 'CD-R'
91	mov [hdimg3+8], 'OM '	91	mov [hdimg3+8], 'OM '
92	@@:	92	@@:
93	test byte [edx+1], 2	93	test byte [edx+1], 2
94	jz @f	94	jz @f
95	mov [hdimg4], aCD3	95	mov [hdimg4], aCD3
96	mov [hdimg4+4], 'CD-R'	96	mov [hdimg4+4], 'CD-R'
97	mov [hdimg4+8], 'OM '	97	mov [hdimg4+8], 'OM '
98	@@:	98	@@:
99		99
100	mov eax,40	100	mov eax,40
101	mov ebx,0100111b	101	mov ebx,0100111b
102	mcall	102	mcall
103		103
104	cmp byte [param_area],0 ;test parameters line	104	cmp byte [param_area],0 ;test parameters line
105	jne no_brow ;it's dialog	105	jne no_brow ;it's dialog
106	mov [browser], 1 ;it's browser	106	mov [browser], 1 ;it's browser
107	jmp no_dlg	107	jmp no_dlg
108	no_brow:	108	no_brow:
109		109
110	mov al,byte [param_area+5]	110	mov al,byte [param_area+5]
111	mov [dlg_type],al	111	mov [dlg_type],al
112		112
113	mov eax,9	113	mov eax,9
114	mov ebx,procinfo	114	mov ebx,procinfo
115	mov ecx,-1	115	mov ecx,-1
116	mcall	116	mcall
117		117
118	mov eax,dword [procinfo+30]	118	mov eax,dword [procinfo+30]
119	mov edi,MYPID+4-1	119	mov edi,MYPID+4-1
120	mov ecx,4	120	mov ecx,4
121	mov ebx,10	121	mov ebx,10
122	cld	122	cld
123		123
124	new_d:	124	new_d:
125	xor edx,edx	125	xor edx,edx
126	div ebx	126	div ebx
127	add dl,'0'	127	add dl,'0'
128	mov [edi],dl	128	mov [edi],dl
129	dec edi	129	dec edi
130	loop new_d	130	loop new_d
131		131
132	movzx eax,byte [param_area]	132	movzx eax,byte [param_area]
133	sub eax,48	133	sub eax,48
134	imul eax,10	134	imul eax,10
135	movzx ebx,byte [param_area+1]	135	movzx ebx,byte [param_area+1]
136	add eax,ebx	136	add eax,ebx
137	sub eax,48	137	sub eax,48
138	imul eax,10	138	imul eax,10
139	movzx ebx,byte [param_area+2]	139	movzx ebx,byte [param_area+2]
140	add eax,ebx	140	add eax,ebx
141	sub eax,48	141	sub eax,48
142	imul eax,10	142	imul eax,10
143	movzx ebx,byte [param_area+3]	143	movzx ebx,byte [param_area+3]
144	add eax,ebx	144	add eax,ebx
145	sub eax,48	145	sub eax,48
146		146
147	mov ecx,eax ;pid to ecx	147	mov ecx,eax ;pid to ecx
148	mov eax,60	148	mov eax,60
149	mov ebx,2	149	mov ebx,2
150	mov edx,MYPID	150	mov edx,MYPID
151	mov esi,4	151	mov esi,4
152	mcall	152	mcall
153	no_dlg:	153	no_dlg:
154		154
155	giftoimg but_file,tempimg	155	giftoimg but_file,tempimg
156		156
157	;************************	157	;************************
158	; Get images	158	; Get images
159	;************************	159	;************************
160		160
161	mov eax,0 ;x	161	mov eax,0 ;x
162	mov ebx,0 ;y	162	mov ebx,0 ;y
163	mov esi,286 ;xs	163	mov esi,286 ;xs
164	mov edi,16 ;ys	164	mov edi,16 ;ys
165	mov ecx,tempimg ;src	165	mov ecx,tempimg ;src
166	mov edx,butimg ;dest	166	mov edx,butimg ;dest
167	call getimgproc	167	call getimgproc
168	mov eax,288	168	mov eax,288
169	mov esi,60	169	mov esi,60
170	mov edx,logoimg ;dest	170	mov edx,logoimg ;dest
171	call getimgproc	171	call getimgproc
172	mov eax,0 ;x	172	mov eax,0 ;x
173	mov ebx,16 ;y	173	mov ebx,16 ;y
174	mov esi,51 ;xs	174	mov esi,51 ;xs
175	mov edi,esi ;ys	175	mov edi,esi ;ys
176	mov edx,logoinfimg ;dest	176	mov edx,logoinfimg ;dest
177	call getimgproc	177	call getimgproc
178	mov eax,51 ;x	178	mov eax,51 ;x
179	mov esi,8 ;xs	179	mov esi,8 ;xs
180	mov edi,9 ;ys	180	mov edi,9 ;ys
181	mov edx,upsb ;dest	181	mov edx,upsb ;dest
182	call getimgproc	182	call getimgproc
183	mov eax,51+8 ;x	183	mov eax,51+8 ;x
184	mov edx,dnsb ;dest	184	mov edx,dnsb ;dest
185	call getimgproc	185	call getimgproc
186		186
187	mov eax,51+16 ;x	187	mov eax,51+16 ;x
188	mov ebx,16 ;y	188	mov ebx,16 ;y
189	mov esi,12 ;xs	189	mov esi,12 ;xs
190	mov edi,9 ;ys	190	mov edi,9 ;ys
191		191
192	mov ecx,tempimg ;src	192	mov ecx,tempimg ;src
193	mov edx,hdico ;dest	193	mov edx,hdico ;dest
194	mov ebp,10	194	mov ebp,10
195	loogetimg:	195	loogetimg:
196	call getimgproc	196	call getimgproc
197	add edx,9123+8	197	add edx,9123+8
198	add eax,12	198	add eax,12
199	dec ebp	199	dec ebp
200	jnz loogetimg	200	jnz loogetimg
201		201
202	call read_directory	202	call read_directory
203	; call convertation	203	; call convertation
204	red:	204	red:
205	call draw_window ; at first, draw the window	205	call draw_window ; at first, draw the window
206		206
207	still:	207	still:
208	mov eax,9	208	mov eax,9
209	mov ebx,procinfo	209	mov ebx,procinfo
210	mov ecx,-1	210	mov ecx,-1
211	mcall	211	mcall
212		212
213	wtevent red,key,button	213	wtevent red,key,button
214		214
215	scrolltest:	215	scrolltest:
216	mov eax,37	216	mov eax,37
217	mov ebx,2	217	mov ebx,2
218	mcall	218	mcall
219	dec eax	219	dec eax
220	jne still	220	jne still
221		221
222	scrl:	222	scrl:
223	mov eax,37	223	mov eax,37
224	mov ebx,1	224	mov ebx,1
225	mcall	225	mcall
226	movzx ebx, ax ; y	226	movzx ebx, ax ; y
227	shr eax, 16 ; x	227	shr eax, 16 ; x
228	mov ebp,eax	228	mov ebp,eax
229	sub ebp,[listx] ;[procinfo.box.width]	229	sub ebp,[listx] ;[procinfo.box.width]
230	sub ebp,[listxsize]	230	sub ebp,[listxsize]
231	add ebp,[scrollsize]	231	add ebp,[scrollsize]
232	cmp ebp,dword [scrollsize] ;8	232	cmp ebp,dword [scrollsize] ;8
233	jae menu_test ; still	233	jae menu_test ; still
234		234
235	lea ebp, [ebx-scrollbutsize]	235	lea ebp, [ebx-scrollbutsize]
236	sub ebp, [listy] ; up scroll	236	sub ebp, [listy] ; up scroll
237	jl menu_test	237	jl menu_test
238	mov ecx, [listysize]	238	mov ecx, [listysize]
239	sub ecx, 2*scrollbutsize	239	sub ecx, 2*scrollbutsize
240	mov eax, [scroll_height]	240	mov eax, [scroll_height]
241	cmp ebp, ecx	241	cmp ebp, ecx
242	jge menu_test	242	jge menu_test
243	sub ecx, eax	243	sub ecx, eax
244	shr eax, 1	244	shr eax, 1
245	sub ebp, eax	245	sub ebp, eax
246	jge @f	246	jge @f
247	xor ebp, ebp	247	xor ebp, ebp
248	@@:	248	@@:
249	cmp ebp, ecx	249	cmp ebp, ecx
250	jl @f	250	jl @f
251	mov ebp, ecx	251	mov ebp, ecx
252	@@:	252	@@:
253	xor edx, edx	253	xor edx, edx
254	mov eax, [listysize]	254	mov eax, [listysize]
255	sub eax, 2	255	sub eax, 2
256	mov ebx, 10	256	mov ebx, 10
257	div ebx	257	div ebx
258	mov ebx, eax	258	mov ebx, eax
259	cmp ebx, [listsize]	259	cmp ebx, [listsize]
260	jae notusescrl	260	jae notusescrl
261	mov eax, [listsize]	261	mov eax, [listsize]
262	sub eax, ebx	262	sub eax, ebx
263	mul ebp	263	mul ebp
264	div ecx	264	div ecx
265	cmp eax, [filecursor]	265	cmp eax, [filecursor]
266	jz still	266	jz still
267	mov [filecursor], eax	267	mov [filecursor], eax
268	jmp usescrl	268	jmp usescrl
269	notusescrl:	269	notusescrl:
270	cmp [filecursor], 0	270	cmp [filecursor], 0
271	jz still	271	jz still
272	mov [filecursor],0 ;ebp	272	mov [filecursor],0 ;ebp
273	usescrl:	273	usescrl:
274		274
275	mov [flick],1	275	mov [flick],1
276	jmp anti_flick ;red	276	jmp anti_flick ;red
277		277
278	menu_test:	278	menu_test:
279	cmp [pmenu_draw],1 ;if menu is show, update all	279	cmp [pmenu_draw],1 ;if menu is show, update all
280	jne still	280	jne still
281	mov [pmenu_draw],0	281	mov [pmenu_draw],0
282	jmp red ;update all window	282	jmp red ;update all window
283		283
284	;this function not use in dialog when poup menu's is not used	284	;this function not use in dialog when poup menu's is not used
285	;in dialog's	285	;in dialog's
286		286
287	;===================	287	;===================
288	; Test keyboard	288	; Test keyboard
289	;===================	289	;===================
290	key: ; key	290	key: ; key
291	mov eax,2	291	mov eax,2
292	mcall	292	mcall
293	cmp dword [focus],0	293	cmp dword [focus],0
294	jne con_edit	294	jne con_edit
295	cmp ah,key_Up	295	cmp ah,key_Up
296	jne no_upk	296	jne no_upk
297	mov ebx,1	297	mov ebx,1
298	jmp up	298	jmp up
299	no_upk:	299	no_upk:
300	cmp ah,key_Down	300	cmp ah,key_Down
301	jne no_downk	301	jne no_downk
302	mov ebx,1	302	mov ebx,1
303	jmp down	303	jmp down
304	no_downk:	304	no_downk:
305	cmp ah,key_PgUp	305	cmp ah,key_PgUp
306	jne no_pgup	306	jne no_pgup
307	mov ebx,10	307	mov ebx,10
308	jmp up	308	jmp up
309	no_pgup:	309	no_pgup:
310	cmp ah,key_PgDown	310	cmp ah,key_PgDown
311	jne no_pgdown	311	jne no_pgdown
312	mov ebx,10	312	mov ebx,10
313	jmp down	313	jmp down
314	no_pgdown:	314	no_pgdown:
315	cmp ah,key_Enter	315	cmp ah,key_Enter
316	je kfad	316	je kfad
317	cmp ah,key_Bspace	317	cmp ah,key_Bspace
318	je back	318	je back
319	cmp ah,key_F2	319	cmp ah,key_F2
320	je viewset	320	je viewset
321	cmp ah,key_F3	321	cmp ah,key_F3
322	je textopen	322	je textopen
323	cmp ah,key_F5	323	cmp ah,key_F5
324	je copy_to_clip	324	je copy_to_clip
325	cmp ah,key_F6	325	cmp ah,key_F6
326	je paste_from_clip	326	je paste_from_clip
327	cmp ah,key_F11	327	cmp ah,key_F11
328	je edit_prompt	328	je edit_prompt
329	cmp ah,key_F12	329	cmp ah,key_F12
330	je update	330	je update
331	jmp still	331	jmp still
332		332
333	; test input string	333	; test input string
334	con_edit:	334	con_edit:
335	cmp ah,key_Enter	335	cmp ah,key_Enter
336	jne no_con_ent	336	jne no_con_ent
337	not [focus]	337	not [focus]
338	jmp savetest	338	jmp savetest
339	; jmp update	339	; jmp update
340	no_con_ent:	340	no_con_ent:
341	cmp ah,key_Left	341	cmp ah,key_Left
342	jne no_con_left	342	jne no_con_left
343	cmp [cursor], 0	343	cmp [cursor], 0
344	jz still	344	jz still
345	dec [cursor]	345	dec [cursor]
346	mov [flick],2	346	mov [flick],2
347	jmp anti_flick ;red	347	jmp anti_flick ;red
348	no_con_left:	348	no_con_left:
349	cmp ah,key_Right	349	cmp ah,key_Right
350	jne no_con_right	350	jne no_con_right
351	mov eax, [cursor]	351	mov eax, [cursor]
352	cmp byte [path+eax], 0	352	cmp byte [path+eax], 0
353	jz still	353	jz still
354	inc [cursor]	354	inc [cursor]
355	mov [flick],2	355	mov [flick],2
356	jmp anti_flick ;red	356	jmp anti_flick ;red
357	no_con_right:	357	no_con_right:
358	cmp ah,key_Bspace	358	cmp ah,key_Bspace
359	jne no_con_bspace	359	jne no_con_bspace
360		360
361	mov ebp, [cursor]	361	mov ebp, [cursor]
362	test ebp, ebp	362	test ebp, ebp
363	jz still	363	jz still
364	lobsp:	364	lobsp:
365	mov bl,byte [path+ebp]	365	mov bl,byte [path+ebp]
366	mov byte [path+ebp-1],bl	366	mov byte [path+ebp-1],bl
367	inc ebp	367	inc ebp
368	cmp ebp,1024	368	cmp ebp,1024
369	jne lobsp	369	jne lobsp
370	dec [cursor]	370	dec [cursor]
371	mov [flick],2	371	mov [flick],2
372	jmp anti_flick ;red	372	jmp anti_flick ;red
373	no_con_bspace:	373	no_con_bspace:
374		374
375	mov ecx,[cursor]	375	mov ecx,[cursor]
376	mov ebp,1022	376	mov ebp,1022
377	cmp byte [path+ebp], 0	377	cmp byte [path+ebp], 0
378	jnz still	378	jnz still
379	losx:	379	losx:
380	cmp ebp, ecx	380	cmp ebp, ecx
381	jbe @f	381	jbe @f
382	mov bl,byte [path+ebp]	382	mov bl,byte [path+ebp]
383	mov byte [path+ebp+1],bl	383	mov byte [path+ebp+1],bl
384	dec ebp	384	dec ebp
385	jmp losx	385	jmp losx
386	@@:	386	@@:
387		387
388	mov byte [path+ebp],ah	388	mov byte [path+ebp],ah
389	inc dword [cursor]	389	inc dword [cursor]
390		390
391	mov [flick],2	391	mov [flick],2
392	jmp anti_flick	392	jmp anti_flick
393		393
394		394
395	;----------------------------	395	;----------------------------
396	;Test on mouse button	396	;Test on mouse button
397	;-----------------------------	397	;-----------------------------
398		398
399	button: ; button	399	button: ; button
400	mov eax,17	400	mov eax,17
401	mcall	401	mcall
402		402
403	cmp ah,2 ;Edit prompt line?	403	cmp ah,2 ;Edit prompt line?
404	je edit_prompt	404	je edit_prompt
405		405
406	cmp ah,4	406	cmp ah,4
407	jne no_filelist	407	jne no_filelist
408		408
409	mousetest:	409	mousetest:
410	mov eax,37	410	mov eax,37
411	mov ebx,1	411	mov ebx,1
412	mcall	412	mcall
413	mov ebx,eax	413	mov ebx,eax
414	shr eax,16 ;x	414	shr eax,16 ;x
415	and ebx,0xffff ;y	415	and ebx,0xffff ;y
416		416
417	sub ebx,[listy] ;80	417	sub ebx,[listy] ;80
418	mov [mousey],ebx	418	mov [mousey],ebx
419		419
420	mov ecx,[listx]	420	mov ecx,[listx]
421	cmp eax,ecx	421	cmp eax,ecx
422	jl still	422	jl still
423	add ecx,[listxsize]	423	add ecx,[listxsize]
424	cmp eax,ecx	424	cmp eax,ecx
425	jg still	425	jg still
426		426
427	filexadd:	427	filexadd:
428		428
429	; Enter in directory	429	; Enter in directory
430	file_add:	430	file_add:
431	mov edx,0 ;for div correct work div	431	mov edx,0 ;for div correct work div
432	mov eax,dword [mousey]	432	mov eax,dword [mousey]
433	mov ebx,10	433	mov ebx,10
434	div ebx	434	div ebx
435		435
436	add eax,[filecursor]	436	add eax,[filecursor]
437	jmp no_kfad	437	jmp no_kfad
438	kfad:	438	kfad:
439	mov eax,[filecursor]	439	mov eax,[filecursor]
440	no_kfad:	440	no_kfad:
441	mov ebx,27	441	mov ebx,27
442	mul ebx	442	mul ebx
443	lea ebp,[convinfo+eax]	443	lea ebp,[convinfo+eax]
444	mov esi,[ebp]	444	mov esi,[ebp]
445	cmp esi,-1	445	cmp esi,-1
446	jz still	446	jz still
447		447
448	mov edi,paramtest ;clear param string	448	mov edi,paramtest ;clear param string
449	mov ecx,1024/4	449	mov ecx,1024/4
450	xor eax,eax	450	xor eax,eax
451	rep stosd	451	rep stosd
452		452
453	mov edi, path	453	mov edi, path
454	mov ecx, 1024	454	mov ecx, 1024
455	repnz scasb	455	repnz scasb
456	dec edi	456	dec edi
457	cmp [ebp+15], dword 'FOL '	457	cmp [ebp+15], dword 'FOL '
458	jnz openf	458	jnz openf
459	; open directory - append its name to path	459	; open directory - append its name to path
460	cmp ecx, 2	460	cmp ecx, 2
461	jb still	461	jb still
462	push edi	462	push edi
463	mov al, '/'	463	mov al, '/'
464	stosb	464	stosb
465	dec ecx	465	dec ecx
466	@@:	466	@@:
467	lodsb	467	lodsb
468	stosb	468	stosb
469	test al, al	469	test al, al
470	jz @f	470	jz @f
471	dec ecx	471	dec ecx
472	jnz @b	472	jnz @b
473	; name is too long - do not do anything	473	; name is too long - do not do anything
474	pop edi	474	pop edi
475	xor eax, eax	475	xor eax, eax
476	mov ecx, path+1024	476	mov ecx, path+1024
477	sub ecx, edi	477	sub ecx, edi
478	rep stosb	478	rep stosb
479	jmp still	479	jmp still
480	@@:	480	@@:
481	sub edi, path+1	481	sub edi, path+1
482	mov [cursor], edi	482	mov [cursor], edi
483	pop edi	483	pop edi
484	; name appended, now read new directory	484	; name appended, now read new directory
485	mov [filecursor],0	485	mov [filecursor],0
486		486
487	call read_directory	487	call read_directory
488	;; call convertation	488	;; call convertation
489	call draw_window	489	call draw_window
490	jmp still	490	jmp still
491		491
492	;Savetest	492	;Savetest
493	savetest:	493	savetest:
494	cmp byte [dlg_type],'S'	494	cmp byte [dlg_type],'S'
495	jne still	495	jne still
496	; always force open file - this is better	496	; always force open file - this is better
497	; because there exists files without extension and folders with extension	497	; because there exists files without extension and folders with extension
498	jmp openf	498	jmp openf
499	; mov ecx,100	499	; mov ecx,100
500	;savetestloop:	500	;savetestloop:

Subversion Repositories Kolibri OS

(root)/programs/fs/sysxtree/trunk/sysxtree.asm – Rev 993 → 2706