kolibrios/programs/other/outdated/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 /SYS/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 '/SYS/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: