0,0 → 1,2688 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
; ; |
; 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: |
Property changes: |
Added: svn:eol-style |
+native |
\ No newline at end of property |