2006-10-12 01:19:10 +02:00
use32
db 'MENUET01'
dd 1
dd start
dd i_end
memsize dd mem
dd stacktop
dd 0 , 0
include 'lang.inc'
include 'font.inc'
include 'sort.inc'
include 'kglobals.inc'
include 'memalloc.inc'
include 'dialogs.inc'
include 'viewer.inc'
2007-02-02 16:09:14 +01:00
include 'tools.inc'
2006-10-12 01:19:10 +02:00
start:
mov eax , mem
call mf_init
2007-01-19 16:02:33 +01:00
call init_console
2006-10-12 01:19:10 +02:00
call draw_window
push 66
pop eax
push 1
pop ebx
mov ecx , ebx
int 40h ; set keyboard mode to scancodes
mov esi , def_left_dir
mov edi , panel1_dir
@ @ :
lodsb
stosb
test al , al
jnz @ b
mov esi , def_right_dir
mov edi , panel2_dir
@ @ :
lodsb
stosb
test al , al
jnz @ b
2007-01-19 16:02:33 +01:00
mov eax , 200
2006-10-12 01:19:10 +02:00
mov [ panel1_nfa ], eax
mov [ panel2_nfa ], eax
2007-01-19 16:02:33 +01:00
mov eax , 200 * 4 + 32 + 200 * 304
push eax
call mf_alloc
mov [ panel1_files ], eax
pop eax
call mf_alloc
mov [ panel2_files ], eax
test eax , eax
jz exit
cmp [ panel1_files ], eax
jz exit
2006-10-12 01:19:10 +02:00
mov [ panel1_sortmode ], 0 ; sort by name
mov [ panel2_sortmode ], 0
mov [ num_screens ], 1
mov eax , 8
call mf_alloc
mov [ screens ], eax
2007-02-02 16:09:14 +01:00
test eax , eax
jz exit
2006-10-12 01:19:10 +02:00
mov ecx , panels_vtable
mov [ eax ], ecx
mov [ active_screen_vtable ], ecx
call draw_keybar
call draw_cmdbar
2007-02-02 16:09:14 +01:00
mov [ prev_dir ], 0
2006-10-12 01:19:10 +02:00
mov ebp , panel1_data
call read_folder
call draw_panel
2007-02-02 16:09:14 +01:00
mov [ bSilentFolderMode ], 1
2006-10-12 01:19:10 +02:00
mov ebp , panel2_data
call read_folder
call draw_panel
event:
push 10
pop eax
int 40h
dec eax
jz redraw
dec eax
jz key
; button - we have only one button, close
exit:
or eax , - 1
int 40h
redraw:
2007-01-19 16:02:33 +01:00
; query kbd state from OS
mov al , 66
push 3
pop ebx
int 0x40
and eax , 0x3F
cmp al , [ ctrlstate ]
mov [ ctrlstate ], al
jz @ f
call draw_keybar
@ @ :
2006-10-12 01:19:10 +02:00
mov al , 9
mov ebx , procinfo
or ecx , - 1
int 40h
; test if rolled up
; height of rolled up window is [skinh]+3
mov eax , [ ebx + 46 ]
sub eax , [ skinh ]
cmp eax , 5
ja @ f
mov al , 12
push 1
pop ebx
int 0x40
xor eax , eax
; ebx, ecx, edi are ignored by function 0 after first redraw
2007-02-02 16:09:14 +01:00
mov edx , 0x53000000
2006-10-12 01:19:10 +02:00
int 0x40
mov al , 12
inc ebx
int 0x40
jmp event
@ @ :
xor ecx , ecx
mov eax , [ ebx + 42 ]
2007-02-02 16:09:14 +01:00
mov [ wnd_width ], eax
2007-01-19 16:02:33 +01:00
sub eax , 5 * 2 - 1
2006-10-12 01:19:10 +02:00
jae @ f
xor eax , eax
@ @ :
cdq
mov esi , font_width
div esi
cmp eax , 54
jae @ f
mov al , 54
mov ch , 1
@ @ :
cmp eax , 255
jbe @ f
mov eax , 255
mov ch , 1
@ @ :
cmp eax , [ cur_width ]
mov [ cur_width ], eax
setnz cl
or cl , ch
test edx , edx
2007-02-02 16:09:14 +01:00
mov [ fill_width ], edx
2006-10-12 01:19:10 +02:00
setnz ch
mov eax , [ ebx + 46 ]
2007-02-02 16:09:14 +01:00
mov [ wnd_height ], eax
2006-10-12 01:19:10 +02:00
sub eax , [ skinh ]
2007-01-19 16:02:33 +01:00
sub eax , 5 - 1
2006-10-12 01:19:10 +02:00
jns @ f
xor eax , eax
@ @ :
cdq
mov esi , font_height
div esi
cmp eax , 8
jae @ f
mov al , 8
mov cl , 1
@ @ :
cmp eax , 255
jbe @ f
mov eax , 255
mov cl , 1
@ @ :
2007-02-02 16:09:14 +01:00
mov [ fill_height ], edx
2006-10-12 01:19:10 +02:00
cmp eax , [ cur_height ]
mov [ cur_height ], eax
2007-01-19 16:02:33 +01:00
jnz .resize
test cl , cl
jnz .resize
2006-10-12 01:19:10 +02:00
test edx , edx
2007-01-19 16:02:33 +01:00
setnz cl
or cl , ch
2006-10-12 01:19:10 +02:00
jz @ f
2007-01-19 16:02:33 +01:00
test byte [ ebx + 70 ], 1
jnz @ f
.resize:
2006-10-12 01:19:10 +02:00
push 67
pop eax
or ebx , - 1
or ecx , - 1
mov edx , [ cur_width ]
imul edx , font_width
2007-01-19 16:02:33 +01:00
add edx , 5 * 2 - 1
2006-10-12 01:19:10 +02:00
mov esi , [ cur_height ]
imul esi , font_height
add esi , [ skinh ]
2007-01-19 16:02:33 +01:00
add esi , 5 - 1
2006-10-12 01:19:10 +02:00
int 40h
2007-01-19 16:02:33 +01:00
.resize_draw:
call init_console
; call draw_window
2006-10-12 01:19:10 +02:00
call draw_keybar
mov ebp , [ active_screen_data ]
mov eax , [ active_screen_vtable ]
call dword [ eax + screen_vtable.OnRedraw ]
jmp event
@ @ :
call draw_window
jmp event
2007-01-19 16:02:33 +01:00
alt_f9:
cmp [ saved_width ], - 1
jz @ f
mov eax , [ saved_width ]
mov [ cur_width ], eax
or [ saved_width ], - 1
mov eax , [ saved_height ]
mov [ cur_height ], eax
or [ saved_height ], - 1
jmp redraw.resize
@ @ :
push 48
pop eax
push 5
pop ebx
int 0x40
push eax
sub eax , [ esp + 2 ]
inc eax
movzx eax , ax
sub eax , 10
xor edx , edx
mov ecx , font_width
div ecx
xchg [ cur_width ], eax
mov [ saved_width ], eax
mov eax , ebx
shr ebx , 16
sub eax , ebx
sub eax , 5 - 1
sub eax , [ skinh ]
xor edx , edx
mov ecx , font_height
div ecx
xchg [ cur_height ], eax
mov [ saved_height ], eax
mov ecx , ebx
pop ebx
shr ebx , 16
mov edx , [ cur_width ]
imul edx , font_width
add edx , 5 * 2 - 1
mov esi , [ cur_height ]
imul esi , font_height
add esi , [ skinh ]
add esi , 4
push 67
pop eax
int 0x40
jmp redraw.resize_draw
2006-10-12 01:19:10 +02:00
key:
mov al , 2
int 40h
test al , al
jnz event
xchg al , ah
cmp al , 0xE0
jnz @ f
mov [ bWasE0 ], 1
jmp event
@ @ :
xchg ah , [ bWasE0 ]
mov ebp , [ active_screen_data ]
mov edx , [ active_screen_vtable ]
cmp al , 0x1D
jz .ctrl_down
cmp al , 0x9D
jz .ctrl_up
cmp al , 0x2A
jz .lshift_down
cmp al , 0xAA
jz .lshift_up
cmp al , 0x36
jz .rshift_down
cmp al , 0xB6
jz .rshift_up
cmp al , 0x38
jz .alt_down
cmp al , 0xB8
jz .alt_up
call [ edx + screen_vtable.OnKey ]
jmp event
.ctrl_down:
test ah , ah
jnz .rctrl_down
or [ ctrlstate ], 4
jmp .keybar
.rctrl_down:
or [ ctrlstate ], 8
jmp .keybar
.ctrl_up:
test ah , ah
jnz .rctrl_up
and [ ctrlstate ], not 4
jmp .keybar
.rctrl_up:
and [ ctrlstate ], not 8
.keybar:
call draw_keybar
call draw_image
@ @ : jmp event
.lshift_down:
; ignore E0 2A sequence
; e.g. arrow keys with NumLock on generate sequence E0 2A E0 xx / E0 xx+80 E0 AA
; where xx is scancode, so we can safely ignore E0 2A
test ah , ah
jnz @ b
or [ ctrlstate ], 1
jmp .keybar
.lshift_up:
; ignore E0 AA sequence
test ah , ah
jnz @ b
and [ ctrlstate ], not 1
jmp .keybar
.rshift_down:
or [ ctrlstate ], 2
jmp .keybar
.rshift_up:
and [ ctrlstate ], not 2
jmp .keybar
.alt_down:
test ah , ah
jnz .ralt_down
or [ ctrlstate ], 0x10
jmp .keybar
.ralt_down:
or [ ctrlstate ], 0x20
jmp .keybar
.alt_up:
test ah , ah
jnz .ralt_up
and [ ctrlstate ], not 0x10
jmp .keybar
.ralt_up:
and [ ctrlstate ], not 0x20
jmp .keybar
process_ctrl_keys:
cmp byte [ esi ], 0
jz .done
push ecx
cmp al , [ esi ]
jz .check
.cont:
pop ecx
add esi , 8
jmp process_ctrl_keys
.done:
stc
ret
.check:
mov cl , 0
call .check_ctrlkey
jc .cont
mov cl , 2
call .check_ctrlkey
jc .cont
mov cl , 4
call .check_ctrlkey
jc .cont
pop ecx
call dword [ esi + 4 ]
clc
ret
.check_ctrlkey:
push eax edx
movzx edx , [ ctrlstate ]
shr edx , cl
add cl , cl
movzx eax , word [ esi + 2 ]
shr eax , cl
and eax , 15
cmp al , ctrlkey_tests_num
jae .fail
xchg eax , edx
and al , 3
call [ ctrlkey_tests + edx * 4 ]
cmp al , 1
pop edx eax
ret
.fail:
stc
pop edx eax
ret
ctrlkey_test0:
test al , al
setz al
ret
ctrlkey_test1:
test al , al
setnp al
ret
ctrlkey_test2:
cmp al , 3
setz al
ret
ctrlkey_test3:
cmp al , 1
setz al
ret
ctrlkey_test4:
cmp al , 2
setz al
ret
new_screen:
2007-02-02 16:09:14 +01:00
call xmalloc
2006-10-12 01:19:10 +02:00
test eax , eax
jnz @ f
ret
@ @ :
mov ebp , eax
mov ebx , [ num_screens ]
inc ebx
shl ebx , 3
mov eax , [ screens ]
2007-02-02 16:09:14 +01:00
call xrealloc
2006-10-12 01:19:10 +02:00
test eax , eax
jnz @ f
mov eax , ebp
call mf_free
xor eax , eax
ret
@ @ :
mov [ screens ], eax
inc [ num_screens ]
mov [ eax + ebx - 8 ], edx
mov [ eax + ebx - 4 ], ebp
mov eax , [ num_screens ]
dec eax
mov [ active_screen ], eax
mov [ active_screen_vtable ], edx
mov [ active_screen_data ], ebp
jmp draw_keybar
next_screen:
mov eax , [ active_screen ]
inc eax
cmp eax , [ num_screens ]
jnz @ f
xor eax , eax
@ @ : mov [ active_screen ], eax
jmp ch ange_screen
delete_active_screen:
mov edi , [ screens ]
mov eax , [ active_screen ]
shl eax , 3
add edi , eax
push dword [ edi + 4 ]
lea esi , [ edi + 8 ]
mov ecx , [ num_screens ]
sub ecx , [ active_screen ]
dec ecx
add ecx , ecx
rep movsd
dec [ num_screens ]
mov ebx , [ num_screens ]
shl ebx , 3
mov eax , [ screens ]
2007-02-02 16:09:14 +01:00
call mf_realloc ; must succeed, because we decrease size
2006-10-12 01:19:10 +02:00
pop eax
call mf_free
and [ active_screen ], 0
change_screen:
pusha
mov eax , [ active_screen ]
mov esi , [ screens ]
mov ebp , [ esi + eax * 8 + 4 ]
mov eax , [ esi + eax * 8 ]
mov [ active_screen_vtable ], eax
mov [ active_screen_data ], ebp
call draw_keybar
call [ eax + screen_vtable.OnRedraw ]
popa
ret
F12:
mov eax , [ cur_width ]
add eax , 8
mov esi , eax
mul [ num_screens ]
2007-02-02 16:09:14 +01:00
call xmalloc
2006-10-12 01:19:10 +02:00
test eax , eax
jnz @ f
ret
@ @ :
mov ebx , eax
mov edi , eax
xor ecx , ecx
.next:
xor eax , eax
stosd
inc ecx
cmp ecx , [ num_screens ]
jz @ f
lea eax , [ edi + esi - 4 ]
mov dword [ edi - 4 ], eax
@ @ :
xor eax , eax
stosd
dec ecx
jz @ f
lea eax , [ edi - 8 ]
sub eax , esi
mov dword [ edi - 4 ], eax
@ @ :
mov al , '&'
stosb
cmp ecx , 36
jae .noletter
lea eax , [ ecx + '0' ]
cmp al , '9'
jbe @ f
add al , 7
@ @ :
stosb
mov al , '.'
stosb
jmp .letter_done
.noletter:
mov al , ' '
stosb
stosb
.letter_done:
mov al , ' '
stosb
pushad
mov eax , [ screens ]
mov ebp , [ eax + ecx * 8 + 4 ]
mov eax , [ eax + ecx * 8 ]
mov ecx , [ cur_width ]
sub ecx , 12
call [ eax + screen_vtable.getname ]
popad
sub edi , 4
add edi , [ cur_width ]
inc ecx
cmp ecx , [ num_screens ]
jb .next
mov eax , [ active_screen ]
mul esi
add eax , ebx
push 1
push aScreens
push eax
call menu
cmp eax , - 1
jz @ f
sub eax , ebx
div esi
mov [ active_screen ], eax
@ @ :
mov eax , ebx
call mf_free
jmp ch ange_screen
panels_OnKey:
mov ebp , [ active_panel ]
mov ecx , [ ebp + panel1_index - panel1_data ]
mov edx , [ ebp + panel1_start - panel1_data ]
mov ebx , [ ebp + panel1_colst - panel1_data ]
add ebx , edx
mov esi , panels_ctrlkeys
jmp process_ctrl_keys
.ret:
ret
.up:
jecxz .ret
dec ecx
mov [ ebp + panel1_index - panel1_data ], ecx
cmp ecx , edx
jae .done_redraw
mov [ ebp + panel1_start - panel1_data ], ecx
.done_redraw:
; call draw_panel
; ret
jmp draw_panel
.down:
inc ecx
cmp ecx , [ ebp + panel1_numfiles - panel1_data ]
jae .ret
mov [ ebp + panel1_index - panel1_data ], ecx
cmp ecx , ebx
jb .done_redraw
sub ecx , [ ebp + panel1_colst - panel1_data ]
inc ecx
mov [ ebp + panel1_start - panel1_data ], ecx
jmp .done_redraw
.left:
jecxz .ret
sub ecx , [ ebp + panel1_colsz - panel1_data ]
jae @ f
xor ecx , ecx
@ @ :
mov [ ebp + panel1_index - panel1_data ], ecx
cmp ecx , edx
jae .done_redraw
sub edx , [ ebp + panel1_colsz - panel1_data ]
jae @ f
xor edx , edx
@ @ :
mov [ ebp + panel1_start - panel1_data ], edx
jmp .done_redraw
.right:
add ecx , [ ebp + panel1_colsz - panel1_data ]
cmp ecx , [ ebp + panel1_numfiles - panel1_data ]
jb @ f
mov ecx , [ ebp + panel1_numfiles - panel1_data ]
dec ecx
@ @ :
mov [ ebp + panel1_index - panel1_data ], ecx
cmp ecx , ebx
jb .done_redraw
add ebx , [ ebp + panel1_colsz - panel1_data ]
cmp ebx , [ ebp + panel1_numfiles - panel1_data ]
jbe @ f
mov ebx , [ ebp + panel1_numfiles - panel1_data ]
@ @ :
sub ebx , [ ebp + panel1_colst - panel1_data ]
jae @ f
xor ebx , ebx
@ @ :
mov [ ebp + panel1_start - panel1_data ], ebx
jmp .done_redraw
.tab:
xor [ active_panel ], panel1_data xor panel2_data
call draw_cmdbar
call draw_panel
mov ebp , [ active_panel ]
jmp .done_redraw
.home:
and [ ebp + panel1_start - panel1_data ], 0
and [ ebp + panel1_index - panel1_data ], 0
jmp .done_redraw
.end:
mov eax , [ ebp + panel1_numfiles - panel1_data ]
dec eax
mov [ ebp + panel1_index - panel1_data ], eax
inc eax
sub eax , [ ebp + panel1_colst - panel1_data ]
jae @ f
xor eax , eax
@ @ :
mov [ ebp + panel1_start - panel1_data ], eax
jmp .done_redraw
.enter:
2006-10-16 14:17:49 +02:00
call get_curfile_folder_entry
2006-10-12 01:19:10 +02:00
test byte [ ecx ], 10h
jnz .enter_folder
2007-01-19 16:02:33 +01:00
call find_extension
jc .run_app
jnz .run_app
2006-10-12 01:19:10 +02:00
.run_association:
mov eax , [ edi + 4 ]
2007-01-19 16:02:33 +01:00
.run_association2:
mov [ execparams ], execdata
2006-10-12 01:19:10 +02:00
mov [ execptr ], eax
jmp .dorun
.run_app:
mov [ execptr ], execdata
and [ execparams ], 0
.dorun:
lea esi , [ ebp + panel1_dir - panel1_data ]
mov edi , execdata
@ @ :
lodsb
test al , al
jz @ f
stosb
2007-02-05 15:20:36 +01:00
cmp edi , execdataend - 1
jae .bigfilename
2006-10-12 01:19:10 +02:00
jmp @ b
@ @ :
lea esi , [ ecx + 40 ]
mov al , '/'
stosb
@ @ :
lodsb
stosb
2007-02-05 15:20:36 +01:00
cmp edi , execdataend
ja .bigfilename
2006-10-12 01:19:10 +02:00
test al , al
jnz @ b
2007-01-19 16:02:33 +01:00
; for fasm call - special handling, because
; 1) fasm command line convention is different : fasm infile,outfile[,path] rather than tinypad infile
; 2) fasm will probably create new file in directory, so we want to reload panel data
xor edx , edx
cmp [ execparams ], edx
jz .nofasm
cmp [ execptr ], fasm
jnz .nofasm
2007-02-05 15:20:36 +01:00
cmp edi , execdata + ( execdataend - execdata ) / 2
ja .bigfilename
2007-01-19 16:02:33 +01:00
mov esi , execdata
@ @ :
lodsb
stosb
test al , al
jnz @ b
mov byte [ esi - 1 ], ','
inc edx
; output file: no extension if input file has extension, '.bin' otherwise
push edi
@ @ :
dec edi
cmp byte [ edi ], '.'
jz .ptfound
cmp byte [ edi ], '/'
jnz @ b
pop edi
2007-02-05 15:20:36 +01:00
cmp edi , execdataend - 4
ja .bigfilename
2007-01-19 16:02:33 +01:00
mov dword [ edi - 1 ], '.bin'
mov byte [ edi + 3 ], 0
jmp .nofasm
.ptfound:
mov byte [ edi ], 0
pop edi
.nofasm:
2007-02-05 15:20:36 +01:00
mov ebx , execinfo
; if command line is more than 256 symbols, the kernel will truncate it
; we does not want this!
; N.B. We know that command line is either NULL or execdata, which is always ASCIIZ string,
; but can be up to 1023 symbols
mov esi , [ ebx + 8 ]
test esi , esi
jz .cmdlinelenok
@ @ :
lodsb
test al , al
jnz @ b
sub esi , [ ebx + 8 ]
dec esi
cmp esi , 256
ja .bigcmdline
.cmdlinelenok:
2006-10-12 01:19:10 +02:00
push 70
pop eax
int 40h
2007-02-05 15:20:36 +01:00
neg eax
js @ f
push aContinue
mov esi , esp
call get_error_msg
push eax
push aRunError
mov eax , esp
push esi
push 1
push eax
push 2
push - 1
push - 1
push aError
call SayErr
add esp , 3 * 4
ret
@ @ :
2007-01-19 16:02:33 +01:00
test edx , edx
jz @ f
push 5
pop eax
push 20
pop ebx
int 0x40
jmp .ctrl_r
@ @ :
2006-10-12 01:19:10 +02:00
ret
2007-02-05 15:20:36 +01:00
.bigfilename3:
pop esi
.bigfilename2:
pop esi
.bigfilename:
mov eax , aFileNameTooBig
@ @ :
push aContinue
mov esi , esp
push eax
mov eax , esp
push esi
push 1
push eax
push 1
push - 1
push - 1
push aError
call SayErr
add esp , 2 * 4
ret
.bigcmdline:
mov eax , aCmdLineTooBig
jmp @ b
.bigfoldername2:
mov byte [ ecx ], 0
.bigfoldername:
mov eax , aFolderNameTooBig
jmp @ b
.copytoself:
mov eax , aCannotCopyToSelf
jmp @ b
2006-10-12 01:19:10 +02:00
.enter_folder:
lea esi , [ ecx + 40 ]
cmp word [ esi ], '..'
jnz @ f
cmp byte [ esi + 2 ], 0
jz .dotdot
@ @ :
2007-02-02 16:09:14 +01:00
push esi
lea esi , [ ebp + panel1_dir - panel1_data ]
mov edi , prev_dir
@ @ :
lodsb
stosb
test al , al
jnz @ b
lea edi , [ esi - 1 ]
2007-02-05 15:20:36 +01:00
lea edx , [ ebp + panel1_dir - panel1_data + 1024 ]
cmp esi , edx
2007-02-02 16:09:14 +01:00
pop esi
2007-02-05 15:20:36 +01:00
jae .bigfoldername
mov ecx , edi
2006-10-12 01:19:10 +02:00
mov al , '/'
cmp [ edi - 1 ], al
jz @ f
stosb
@ @ :
lodsb
2007-02-05 15:20:36 +01:00
cmp edi , edx
jae .bigfoldername2
2006-10-12 01:19:10 +02:00
stosb
test al , al
jnz @ b
.reread:
call read_folder
.done_cmdbar:
call draw_cmdbar
jmp .done_redraw
.dotdot:
lea edi , [ ebp + panel1_dir - panel1_data ]
mov al , 0
or ecx , - 1
repnz scasb
dec edi
mov al , '/'
std
repnz scasb
cld
inc edi
mov byte [ edi ], 0
inc edi
push edi
call read_folder
pop edi
mov edx , [ ebp + panel1_files - panel1_data ]
mov ecx , [ ebp + panel1_numfiles - panel1_data ]
.scanloop:
mov esi , [ edx ]
2007-02-05 15:20:36 +01:00
add esi , 40
2006-10-12 01:19:10 +02:00
push esi edi
@ @ :
lodsb
call match_symbol
jnz @ f
inc edi
test al , al
jnz @ b
@ @ :
pop edi esi
jz .scanfound
add edx , 4
loop .scanloop
jmp .scandone
.scanfound:
sub edx , [ ebp + panel1_files - panel1_data ]
shr edx , 2
mov [ ebp + panel1_index - panel1_data ], edx
sub edx , [ ebp + panel1_colst - panel1_data ]
jb .scandone
inc edx
mov [ ebp + panel1_start - panel1_data ], edx
.scandone:
jmp .done_cmdbar
.ctrl_f39:
sub al , 0x3D
add al , al
mov ah , [ ebp + panel1_sortmode - panel1_data ]
and ah , 0xFE
cmp al , ah
jnz @ f
and [ ebp + panel1_sortmode - panel1_data ], 1
or al , [ ebp + panel1_sortmode - panel1_data ]
xor al , 1
@ @ :
mov [ ebp + panel1_sortmode - panel1_data ], al
mov eax , [ ebp + panel1_index - panel1_data ]
mov ecx , [ ebp + panel1_files - panel1_data ]
push dword [ ecx + eax * 4 ]
push ecx
call sort_files
pop edi
pop eax
or ecx , - 1
repnz scasd
not ecx
dec ecx
mov [ ebp + panel1_index - panel1_data ], ecx
sub ecx , [ ebp + panel1_start - panel1_data ]
jb .less_start
sub ecx , [ ebp + panel1_colst - panel1_data ]
jae .gr_end
@ @ : jmp .done_redraw
.less_start:
add [ ebp + panel1_start - panel1_data ], ecx
jmp @ b
.gr_end:
inc ecx
add [ ebp + panel1_start - panel1_data ], ecx
jmp @ b
.alt_f12:
mov ebp , panel1_data
cmp al , 0x3B
jz @ f
mov ebp , panel2_data
@ @ :
; get drives list
mov ebx , di rinfo
mov [ ebx + di rinfo.size - di rinfo ], 1
mov [ ebx + di rinfo.dirdata - di rinfo ], driveinfo
mov [ ebx + di rinfo.name - di rinfo ], tmpname
mov byte [ tmpname ], '/'
xor ecx , ecx
.drive_loop_e:
mov byte [ tmpname + 1 ], 0
push 70
pop eax
int 40h
mov ebx , di rinfo
test eax , eax
jnz .drive_loop_e_done
mov esi , driveinfo + 32 + 40
mov edi , tmpname + 1
@ @ :
lodsb
stosb
test al , al
jnz @ b
push [ ebx + di rinfo.first - di rinfo ]
and [ ebx + di rinfo.first - di rinfo ], 0
.drive_loop_i:
push 70
pop eax
int 40h
mov ebx , di rinfo
test eax , eax
jnz .drive_loop_i_done
mov eax , 32 + 8
2007-02-02 16:09:14 +01:00
call xmalloc
2006-10-12 01:19:10 +02:00
test eax , eax
jz .drive_loop_i_done
jecxz @ f
mov [ ecx ], eax
@ @ :
and dword [ eax ], 0
mov [ eax + 4 ], ecx
mov ecx , eax
lea edi , [ eax + 8 ]
mov esi , tmpname
@ @ :
lodsb
test al , al
jz @ f
stosb
jmp @ b
@ @ :
mov esi , driveinfo + 32 + 40
mov al , '/'
stosb
@ @ :
lodsb
stosb
test al , al
jnz @ b
inc [ ebx + di rinfo.first - di rinfo ]
jmp .drive_loop_i
.drive_loop_i_done:
pop [ ebx + di rinfo.first - di rinfo ]
inc [ ebx + di rinfo.first - di rinfo ]
jmp .drive_loop_e
.drive_loop_e_done:
and [ ebx + di rinfo.first - di rinfo ], 0
lea edi , [ ebp + panel1_dir - panel1_data ]
.find_cur_drive_loop:
push edi
lea esi , [ ecx + 8 ]
@ @ :
lodsb
test al , al
jz .cur_drive_found
call match_symbol
jnz @ f
inc edi
jmp @ b
@ @ :
cmp dword [ ecx + 4 ], 0
jz @ f
pop edi
mov ecx , [ ecx + 4 ]
jmp .find_cur_drive_loop
@ @ :
.cur_drive_found:
pop edi
push 1
push aDrive
push ecx
mov eax , [ ebp + panel1_height - panel1_data ]
sub eax , 2
jae @ f
add eax , 2
@ @ :
push eax
push [ ebp + panel1_width - panel1_data ]
push [ ebp + panel1_top - panel1_data ]
push [ ebp + panel1_left - panel1_data ]
call menu_centered_in
cmp eax , - 1
jz .ret2
lea esi , [ eax + 8 ]
lea edi , [ ebp + panel1_dir - panel1_data ]
2007-02-02 16:09:14 +01:00
push ecx esi edi
mov esi , edi
mov edi , prev_dir
mov ecx , 1024 / 4
rep movsd
pop edi esi ecx
2006-10-12 01:19:10 +02:00
@ @ :
lodsb
stosb
test al , al
jnz @ b
@ @ :
cmp dword [ ecx + 4 ], 0
jz @ f
mov ecx , [ ecx + 4 ]
jmp @ b
@ @ :
mov eax , ecx
mov ecx , [ ecx ]
call mf_free
test ecx , ecx
jnz @ b
call read_folder
jmp .done_redraw
2007-01-19 16:02:33 +01:00
.shift_f5:
call get_curfile_folder_entry
lea esi , [ ecx + 40 ]
mov edi , CopyDestEditBuf
mov eax , CopyDestEditBuf.length
stosd
scasd
xor eax , eax
stosd
mov edx , edi
@ @ :
lodsb
test al , al
jz .f5_common
stosb
jmp @ b
.f5:
mov edi , CopyDestEditBuf
mov eax , CopyDestEditBuf.length
stosd
scasd
xor eax , eax
stosd
mov edx , edi
mov esi , ebp
xor esi , panel1_data xor panel2_data
add esi , panel1_dir - panel1_data
@ @ :
lodsb
test al , al
jz @ f
2007-02-05 15:20:36 +01:00
cmp edi , CopyDestEditBuf + 12 + 511
jae .bigfoldername
2007-01-19 16:02:33 +01:00
stosb
jmp @ b
@ @ :
mov al , '/'
stosb
.f5_common:
mov byte [ edi ], 0
sub edi , edx
mov [ edx - 8 ], edi
mov edi , CopySourceTextBuf
mov esi , aCopy1
@ @ :
lodsb
test al , al
jz @ f
stosb
jmp @ b
@ @ :
call get_curfile_folder_entry
lea esi , [ ecx + 40 ]
lea eax , [ esi + 1 ]
@ @ :
inc esi
cmp byte [ esi - 1 ], 0
jnz @ b
sub esi , eax
xchg eax , esi
dec esi
mov edx , [ cur_width ]
sub edx , 50
sub eax , edx
jbe @ f
add esi , eax
mov al , '.'
stosb
stosb
stosb
@ @ :
lodsb
test al , al
jz @ f
stosb
jmp @ b
@ @ :
mov esi , aCopy2
@ @ :
lodsb
stosb
test al , al
jnz @ b
mov ebx , copy_dlgdata
mov eax , [ cur_width ]
sub eax , 12
mov [ ebx + dl gtemplate.width ], eax
dec eax
dec eax
mov [ ebx - copy_dlgdata + copy_dlgdata.width2 ], eax
mov [ ebx - copy_dlgdata + copy_dlgdata.width3 ], eax
shr eax , 1
dec eax
dec eax
mov [ ebx - copy_dlgdata + copy_dlgdata.copy_x2 ], eax
sub eax , aCopyLength - 1
mov [ ebx - copy_dlgdata + copy_dlgdata.copy_x1 ], eax
add eax , aCopyLength + 3
mov [ ebx - copy_dlgdata + copy_dlgdata.cnl_x1 ], eax
add eax , aCancelBLength - 1
mov [ ebx - copy_dlgdata + copy_dlgdata.cnl_x2 ], eax
mov byte [ ebx - copy_dlgdata + copy_dlgdata.flags0 ], 0xC
and byte [ ebx - copy_dlgdata + copy_dlgdata.flags1 ], not 4
and byte [ ebx - copy_dlgdata + copy_dlgdata.flags2 ], not 4
push ebx
call Di al ogBox
cmp eax , copy_dlgdata.copy_btn
jnz .ret2
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 㥬
mov esi , CopyDestEditBuf + 12
mov edi , esi
xor eax , eax
or ecx , - 1
repnz scasb
dec edi
dec edi
cmp edi , esi
jb .ret2
cmp byte [ edi ], '/'
jnz @ f
; <20> <> <EFBFBD> <EFBFBD> 稥/<2F> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ⢨<EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 稢<EFBFBD> <E7A8A2> 饣<EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ⮫쪮 <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD>
cmp edi , esi
jz @ f
mov byte [ edi ], 0
dec edi
@ @ :
; <20> <20> <> <EFBFBD> <EFBFBD> <20> <> <20> <> 稭<EFBFBD> <E7A8AD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> , <20> <> <EFBFBD> ⠥<EFBFBD> <20> <> <EFBFBD> <20> ⭮<EFBFBD> <E2ADAE> ⥫쭮 ⥪<> 饩 <20> <> <EFBFBD> <EFBFBD> <EFBFBD>
cmp byte [ esi ], '/'
jz .copy_absolute_path
push esi
push edi
lea edi , [ ebp + panel1_dir - panel1_data ]
or ecx , - 1
xor eax , eax
repnz scasb
not ecx
pop edi
2007-02-05 15:20:36 +01:00
push edi
add edi , ecx
cmp edi , CopyDestEditBuf + 12 + 513
pop edi
jb @ f
pop esi
jmp .bigfilename
@ @ :
2007-01-19 16:02:33 +01:00
lea edx , [ edi + 2 ]
sub edx , esi
lea edi , [ edi + ecx + 1 ]
xchg ecx , edx
std
lea esi , [ esi + ecx - 1 ]
rep movsb
cld
pop edi
lea esi , [ ebp + panel1_dir - panel1_data ]
push edi
mov ecx , edx
rep movsb
mov byte [ edi - 1 ], '/'
pop esi
.copy_absolute_path:
; <20> <> <EFBFBD> <EFBFBD> 砥<EFBFBD> <20> <> ਡ<EFBFBD> <E0A8A1> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 祭<EFBFBD> <E7A5AD>
mov cl , 0x10
xor eax , eax
mov edi , esi
.countslashloop:
cmp byte [ edi ], '/'
jnz @ f
inc eax
@ @ :
inc edi
cmp byte [ edi ], 0
jnz .countslashloop
cmp eax , 2
jbe @ f
mov ebx , attrinfo
mov [ attrinfo.attr ], 0
mov [ ebx + attrinfo.name - attrinfo ], esi
push 70
pop eax
int 0x40
mov cl , byte [ attrinfo.attr ]
@ @ :
test cl , 0x10
jz .copyfile
; <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 㫨 <20> <> ⠫<EFBFBD> <E2A0AB> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 祭<EFBFBD> <E7A5AD> , <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 뢠<EFBFBD> <EBA2A0> <20> <> <EFBFBD> 䠩<> <E4A0A9>
2007-02-05 15:20:36 +01:00
cmp edi , CopyDestEditBuf + 12 + 513
jae .bigfilename
2007-01-19 16:02:33 +01:00
mov al , '/'
stosb
push esi
call get_curfile_folder_entry
lea esi , [ ecx + 40 ]
@ @ :
lodsb
2007-02-05 15:20:36 +01:00
cmp edi , CopyDestEditBuf + 12 + 513
jae .bigfilename2
2007-01-19 16:02:33 +01:00
stosb
test al , al
jnz @ b
pop esi
.copyfile:
; <20> <> <EFBFBD> <20> <> 室<EFBFBD> <E5AEA4> <EFBFBD> <EFBFBD> 䠩<> <E4A0A9>
push esi
lea esi , [ ebp + panel1_dir - panel1_data ]
mov edi , saved_file_name
push edi
@ @ :
lodsb
test al , al
jz @ f
stosb
jmp @ b
@ @ :
mov al , '/'
stosb
call get_curfile_folder_entry
lea esi , [ ecx + 40 ]
@ @ :
lodsb
2007-02-05 15:20:36 +01:00
cmp edi , saved_file_name + 1024
jae .bigfilename3
2007-01-19 16:02:33 +01:00
stosb
test al , al
jnz @ b
pop esi
pop edi
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <> <E1AAAE> <EFBFBD> <E0AEA2> <EFBFBD> 䠩<> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ᠬ<> <E1A0AC> <EFBFBD> ᥡ<> !
push esi edi
call strcmpi
pop edi esi
2007-02-05 15:20:36 +01:00
jz .copytoself
2007-01-19 16:02:33 +01:00
; <20> <> <EFBFBD> <EFBFBD> ⢥<EFBFBD> <E2A2A5> <EFBFBD> , <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 㥬
; esi->source name, edi->destination name
mov [ writeinfo.code ], 2
mov [ writeinfo.name ], edi
and dword [ writeinfo.first ], 0
and dword [ writeinfo.first + 4 ], 0
mov [ writeinfo.data ], copy_buffer
mov ebx , readinfo
and dword [ ebx + readinfo.first - readinfo ], 0
and dword [ ebx + readinfo.first + 4 - readinfo ], 0
mov [ ebx + readinfo.size - readinfo ], copy_buffer_size
mov [ ebx + readinfo.data - readinfo ], copy_buffer
mov [ ebx + readinfo.name - readinfo ], esi
.copyloop:
mov ebx , readinfo
push 70
pop eax
int 0x40
2007-02-05 15:20:36 +01:00
test eax , eax
jz .copyreadok
cmp eax , 6
jz .copyreadok
push esi
push aCannotReadFile
call get_error_msg
push eax
mov eax , esp
push RetryOrCancelBtn
push 2
push eax
push 3
push - 1
push - 1
push aError
call SayErr
add esp , 3 * 4
test eax , eax
jz .copyloop
jmp .copyfailed
.copyreadok:
2007-01-19 16:02:33 +01:00
test ebx , ebx
jz .copydone
add dword [ readinfo.first ], ebx
adc dword [ readinfo.first + 4 ], 0
mov [ writeinfo.size ], ebx
2007-02-05 15:20:36 +01:00
.copywrite:
2007-01-19 16:02:33 +01:00
mov ebx , writeinfo
push 70
pop eax
int 0x40
2007-02-05 15:20:36 +01:00
test eax , eax
jz .copywriteok
push edi
push aCannotWriteFile
call get_error_msg
push eax
mov eax , esp
push RetryOrCancelBtn
push 2
push eax
push 3
push - 1
push - 1
push aError
call SayErr
add esp , 3 * 4
test eax , eax
jz .copywrite
jmp .copyfailed
.copywriteok:
2007-01-19 16:02:33 +01:00
mov ecx , [ writeinfo.size ]
add dword [ writeinfo.first ], ecx
adc dword [ writeinfo.first + 4 ], 0
mov [ writeinfo.code ], 3
cmp ecx , copy_buffer_size
jz .copyloop
.copydone:
push ebp
call .ctrl_r
pop ebp
xor ebp , panel1_data xor panel2_data
jmp .ctrl_r
2007-02-05 15:20:36 +01:00
.copyfailed:
cmp [ bConfirmDeleteIncomplete ], 0
jz @ f
cmp [ writeinfo.code ], 2
jz .copydone
push aIncompleteFile
mov eax , esp
push DeleteOrKeepBtn
push 2
push eax
push 1
push - 1
push - 1
push aCopyCaption
call SayErr
add esp , 4
test eax , eax
jnz .copydone
@ @ :
mov ebx , delinfo
push dword [ ebx + 21 ]
mov dword [ ebx + 21 ], edi
push 70
pop eax
int 0x40
; ignore errors
pop dword [ delinfo + 21 ]
jmp .copydone
2007-01-19 16:02:33 +01:00
2006-10-12 01:19:10 +02:00
.f3:
call view_file
.ret2:
ret
.f8:
2006-10-16 14:17:49 +02:00
call get_curfile_folder_entry
cmp [ bConfirmDelete ], 0
jz .f8_allowed
mov ebx , f8_confirm_dlgdata
mov esi , aConfirmDeleteText
mov edi , aConfirmDeleteTextBuf
@ @ :
lodsb
stosb
test al , al
jnz @ b
dec edi
mov esi , aDeleteFolder
test byte [ ecx ], 10h
jnz @ f
mov esi , aDeleteFile
@ @ :
lodsb
stosb
test al , al
jnz @ b
lea esi , [ ecx + 40 ]
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.name ], esi
or eax , - 1
@ @ :
inc eax
cmp byte [ eax + esi ], 0
jnz @ b
sub edi , aConfirmDeleteTextBuf + 1
cmp eax , edi
jae @ f
mov eax , edi
@ @ :
inc eax
inc eax
mov edx , [ cur_width ]
sub edx , 8
cmp eax , edx
jbe @ f
mov eax , edx
@ @ :
mov [ ebx + dl gtemplate.width ], eax
dec eax
dec eax
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.width2 ], eax
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.width3 ], eax
shr eax , 1
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.del_x2 ], eax
sub eax , aDeleteLength - 1
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.del_x1 ], eax
add eax , aDeleteLength
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.cnl_x1 ], eax
add eax , aCancelLength - 1
mov [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.cnl_x2 ], eax
or byte [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.flags1 ], 4
and byte [ ebx - f8_confirm_dlgdata + f8_confirm_dlgdata.flags2 ], not 4
push ebx
call Di al ogBox
cmp eax , f8_confirm_dlgdata.del_btn
jnz .ret2
.f8_allowed:
2006-10-12 01:19:10 +02:00
lea esi , [ ebp + panel1_dir - panel1_data ]
mov edi , execdata
@ @ :
lodsb
test al , al
jz @ f
stosb
jmp @ b
@ @ :
lea esi , [ ecx + 40 ]
mov al , '/'
stosb
@ @ :
lodsb
2007-02-05 15:20:36 +01:00
cmp edi , execdataend
jae .bigfilename
2006-10-12 01:19:10 +02:00
stosb
test al , al
jnz @ b
2007-02-05 15:20:36 +01:00
.retrydel:
2006-10-12 01:19:10 +02:00
push 70
pop eax
mov ebx , delinfo
int 0x40
2007-02-05 15:20:36 +01:00
test eax , eax
jz .ctrl_r
push execdata
push aCannotDeleteFolder
call get_curfile_folder_entry
test byte [ ecx ], 10h
jnz @ f
mov dword [ esp ], aCannotDeleteFile
@ @ :
call get_error_msg
push eax
mov eax , esp
push RetryOrCancelBtn
push 2
push eax
push 3
push - 1
push - 1
push aError
call SayErr
add esp , 3 * 4
test eax , eax
jz .retrydel
2006-10-12 01:19:10 +02:00
.ctrl_r:
; Rescan panel
; call read_folder
; jmp .done_redraw
mov eax , [ ebp + panel1_index - panel1_data ]
push eax
2006-10-16 14:17:49 +02:00
call get_curfile_name
2007-01-19 16:02:33 +01:00
mov esi , ecx
2006-10-12 01:19:10 +02:00
mov edi , saved_file_name
@ @ :
lodsb
stosb
test al , al
jnz @ b
push [ ebp + panel1_start - panel1_data ]
call read_folder
pop [ ebp + panel1_start - panel1_data ]
pop [ ebp + panel1_index - panel1_data ]
or eax , - 1
@ @ :
inc eax
cmp eax , [ ebp + panel1_numfiles - panel1_data ]
jae .ctrl_r.notfound
mov ecx , [ ebp + panel1_files - panel1_data ]
2007-02-05 15:20:36 +01:00
mov esi , [ ecx + eax * 4 ]
add esi , 40
2006-10-12 01:19:10 +02:00
mov edi , saved_file_name
call strcmpi
jnz @ b
.ctrl_r.found:
mov [ ebp + panel1_index - panel1_data ], eax
.ctrl_r.notfound:
mov eax , [ ebp + panel1_numfiles - panel1_data ]
dec eax
cmp [ ebp + panel1_index - panel1_data ], eax
jbe @ f
mov [ ebp + panel1_index - panel1_data ], eax
@ @ :
mov eax , [ ebp + panel1_index - panel1_data ]
cmp [ ebp + panel1_start - panel1_data ], eax
jbe @ f
mov [ ebp + panel1_start - panel1_data ], eax
@ @ :
inc eax
sub eax , [ ebp + panel1_colst - panel1_data ]
jae @ f
xor eax , eax
@ @ :
cmp [ ebp + panel1_start - panel1_data ], eax
jae @ f
mov [ ebp + panel1_start - panel1_data ], eax
@ @ :
mov eax , [ ebp + panel1_numfiles - panel1_data ]
sub eax , [ ebp + panel1_colst - panel1_data ]
jbe @ f
cmp [ ebp + panel1_start - panel1_data ], eax
jbe @ f
mov [ ebp + panel1_start - panel1_data ], eax
@ @ :
jmp .done_redraw
2007-01-19 16:02:33 +01:00
.menu:
; display context menu
; ignore folders
call get_curfile_folder_entry
test byte [ ecx ], 10h
jz @ f
.menuret:
ret
@ @ :
call find_extension
jc .menuret
jnz .menuret
; known extension
mov ebx , [ edi + 8 ]
test ebx , ebx
jz .menuret
mov ecx , esi
@ @ :
inc ecx
cmp byte [ ecx - 1 ], 0
jnz @ b
sub ecx , esi ; ecx = <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 䠩<> <E4A0A9> +1 = <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> +1
cmp ecx , 15
jb @ f
mov cl , 15
@ @ :
xor edx , edx
.menucreateloop:
mov eax , [ ebx ]
test eax , eax
jz .menucreated
@ @ :
inc eax
cmp byte [ eax - 1 ], 0
jnz @ b
sub eax , [ ebx ]
cmp eax , ecx
ja @ f
mov eax , ecx
@ @ :
add eax , 12
2007-02-02 16:09:14 +01:00
call xmalloc
2007-01-19 16:02:33 +01:00
test eax , eax
jz .menucreated
add eax , 4
test edx , edx
jz @ f
mov [ edx ], eax
@ @ :
mov [ eax + 4 ], edx
mov edx , eax
push esi
mov esi , [ ebx + 4 ]
mov [ eax - 4 ], esi
mov esi , [ ebx ]
lea edi , [ eax + 8 ]
@ @ :
lodsb
stosb
test al , al
jnz @ b
sub esi , [ ebx ]
sub esi , ecx
jae .menunoadd
neg esi
@ @ :
mov byte [ edi - 1 ], ' '
stosb
dec esi
jnz @ b
.menunoadd:
pop esi
add ebx , 8
jmp .menucreateloop
.menucreated:
test edx , edx
jz .menuret
and dword [ edx ], 0
@ @ :
cmp dword [ edx + 4 ], 0
jz @ f
mov edx , [ edx + 4 ]
jmp @ b
@ @ :
push 1
push esi
push edx
call menu
cmp eax , - 1
jz .menuret
push dword [ eax - 4 ]
@ @ :
test edx , edx
jz @ f
lea eax , [ edx - 4 ]
mov edx , [ edx ]
call mf_free
jmp @ b
@ @ :
pop eax
call get_curfile_folder_entry
jmp .run_association2
2007-02-05 15:20:36 +01:00
.f7:
mov dword [ CopyDestEditBuf ], CopyDestEditBuf.length
and dword [ CopyDestEditBuf + 4 ], 0
and dword [ CopyDestEditBuf + 8 ], 0
mov byte [ CopyDestEditBuf + 12 ], 0
mov ebx , mkdir_dlgdata
mov eax , [ cur_width ]
sub eax , 12
mov [ ebx + dl gtemplate.width ], eax
dec eax
dec eax
mov [ ebx - mkdir_dlgdata + mkdir_dlgdata.width2 ], eax
shr eax , 1
dec eax
dec eax
mov [ ebx - mkdir_dlgdata + mkdir_dlgdata.cont_x2 ], eax
sub eax , a_ContinueLength - 1
mov [ ebx - mkdir_dlgdata + mkdir_dlgdata.cont_x1 ], eax
add eax , a_ContinueLength + 3
mov [ ebx - mkdir_dlgdata + mkdir_dlgdata.cnl_x1 ], eax
add eax , aCancelBLength - 1
mov [ ebx - mkdir_dlgdata + mkdir_dlgdata.cnl_x2 ], eax
mov byte [ ebx - mkdir_dlgdata + mkdir_dlgdata.flags0 ], 0xC
and byte [ ebx - mkdir_dlgdata + mkdir_dlgdata.flags1 ], not 4
and byte [ ebx - mkdir_dlgdata + mkdir_dlgdata.flags2 ], not 4
push ebx
call Di al ogBox
cmp eax , mkdir_dlgdata.cont_btn
jnz .ret2
mov esi , CopyDestEditBuf + 12
cmp byte [ esi ], 0
jz .ret2
cmp byte [ esi ], '/'
jz .mkdir_absolute_path
push esi
lea edi , [ ebp + panel1_dir - panel1_data ]
or ecx , - 1
xor eax , eax
repnz scasb
not ecx
mov edi , esi
@ @ :
cmp byte [ edi + 1 ], 0
jz @ f
inc edi
jmp @ b
@ @ :
push edi
add edi , ecx
cmp edi , CopyDestEditBuf + 12 + 513
pop edi
jb @ f
pop esi
jmp .bigfilename
@ @ :
lea edx , [ edi + 2 ]
sub edx , esi
lea edi , [ edi + ecx + 1 ]
xchg ecx , edx
std
lea esi , [ esi + ecx - 1 ]
rep movsb
cld
pop edi
lea esi , [ ebp + panel1_dir - panel1_data ]
push edi
mov ecx , edx
rep movsb
mov byte [ edi - 1 ], '/'
pop esi
.mkdir_absolute_path:
.mkdir_retry:
push 70
pop eax
mov ebx , mkdirinfo
int 0x40
test eax , eax
jz @ f
push CopyDestEditBuf + 12
push aCannotMakeFolder
call get_error_msg
push eax
mov eax , esp
push RetryOrCancelBtn
push 2
push eax
push 3
push - 1
push - 1
push aError
call SayErr
add esp , 3 * 4
test eax , eax
jz .mkdir_retry
@ @ :
jmp .copydone
2007-01-19 16:02:33 +01:00
panels_OnRedraw:
call draw_cmdbar
mov ebp , panel1_data
call draw_panel
mov ebp , panel2_data
call draw_panel
ret
2006-10-12 01:19:10 +02:00
init_console:
2007-01-19 16:02:33 +01:00
mov eax , [ console_data_ptr ]
call mf_free
mov eax , [ cur_width ]
mul [ cur_height ]
mov ecx , eax
add eax , eax
add eax , eax
call mf_alloc
test eax , eax
jz exit
mov [ console_data_ptr ], eax
mov edi , eax
2006-10-12 01:19:10 +02:00
mov ax , 0720h
rep stosw
2007-01-19 16:02:33 +01:00
mov [ panel1_left ], ecx
mov [ panel1_top ], ecx
mov [ panel2_top ], ecx
2006-10-12 01:19:10 +02:00
mov eax , [ cur_width ]
inc eax
shr eax , 1
mov [ panel1_width ], eax
mov [ panel2_left ], eax
sub eax , [ cur_width ]
neg eax
mov [ panel2_width ], eax
mov eax , [ cur_height ]
dec eax
dec eax
mov [ panel1_height ], eax
mov [ panel2_height ], eax
ret
2006-10-16 14:17:49 +02:00
get_curfile_folder_entry:
mov ecx , [ ebp + panel1_index - panel1_data ]
2007-02-05 15:20:36 +01:00
shl ecx , 2
2006-10-16 14:17:49 +02:00
add ecx , [ ebp + panel1_files - panel1_data ]
2007-02-05 15:20:36 +01:00
mov ecx , [ ecx ]
2006-10-16 14:17:49 +02:00
ret
get_curfile_name:
call get_curfile_folder_entry
add ecx , 40
ret
2006-10-12 01:19:10 +02:00
panels_getname:
if lang eq ru
mov eax , '<27> <> <EFBFBD> <EFBFBD> '
stosd
mov eax , '<27> <> '
stosd
mov eax , ' '
stosd
stosb
else
mov eax , 'Pane'
stosd
mov eax , 'ls '
stosd
mov eax , ' '
stosd
stosb
end if
sub ecx , 13
mov ebp , [ active_panel ]
lea esi , [ ebp + panel1_dir - panel1_data ]
push 3
pop edx
@ @ :
lodsb
stosb
dec ecx
test al , al
jz @ f
cmp al , '/'
jnz @ b
dec edx
jnz @ b
@ @ :
test al , al
jnz @ f
dec esi
dec edi
@ @ :
push esi
@ @ :
lodsb
test al , al
jnz @ b
dec esi
mov ebx , esi
sub ebx , [ esp ]
dec esi
push esi
mov esi , [ ebp + panel1_index - panel1_data ]
2007-02-05 15:20:36 +01:00
shl esi , 2
add esi , [ ebp + panel1_files - panel1_data ]
mov esi , [ esi ]
add esi , 40
2006-10-12 01:19:10 +02:00
push esi
@ @ :
lodsb
test al , al
jnz @ b
add ebx , esi
sub ebx , [ esp ]
dec esi
cmp ebx , ecx
jbe @ f
mov al , '.'
stosb
stosb
stosb
sub ecx , 3
mov ebx , ecx
@ @ :
add edi , ebx
inc ecx
std
@ @ :
movsb
dec ecx
jz .nodir
cmp esi , [ esp ]
jae @ b
mov al , '/'
stosb
dec ecx
jz .nodir
mov esi , [ esp + 4 ]
@ @ :
cmp esi , [ esp + 8 ]
jb .nodir
movsb
loop @ b
.nodir:
cld
pop eax
pop eax
pop eax
ret
draw_window:
push 12
pop eax
push 1
pop ebx
int 40h
mov al , 48
mov bl , 4
int 40h
mov [ skinh ], eax
mov ebx , [ cur_width ]
imul ebx , font_width
2007-01-19 16:02:33 +01:00
add ebx , 100 * 65536 + 5 * 2 - 1
2006-10-12 01:19:10 +02:00
mov ecx , [ cur_height ]
imul ecx , font_height
2007-01-19 16:02:33 +01:00
lea ecx , [ eax + ecx + 5 - 1 + 100 * 65536 ]
2006-10-12 01:19:10 +02:00
xor eax , eax
2007-02-02 16:09:14 +01:00
mov edx , 0x53000000
2006-10-12 01:19:10 +02:00
mov edi , header
int 40h
2007-02-02 16:09:14 +01:00
mov al , 13
xor edx , edx
cmp [ fill_width ], 0
jz @ f
mov ebx , [ wnd_width ]
sub ebx , [ fill_width ]
sub ebx , 5 - 1
shl ebx , 16
mov bx , word [ fill_width ]
mov ecx , [ skinh - 2 ]
mov cx , word [ wnd_height ]
sub cx , word [ skinh ]
sub cx , 5 - 1
int 0x40
@ @ :
cmp [ fill_height ], 0
jz @ f
mov al , 13
xor edx , edx
mov ebx , 50000h
mov bx , word [ wnd_width ]
sub ebx , 9
mov ecx , [ wnd_height ]
sub ecx , [ fill_height ]
sub ecx , 5 - 1
shl ecx , 16
mov cx , word [ fill_height ]
int 0x40
@ @ :
2007-01-19 16:02:33 +01:00
; xor ecx, ecx
; call draw_image
and [ min_x ], 0
and [ min_y ], 0
mov eax , [ cur_width ]
dec eax
mov [ max_x ], eax
mov eax , [ cur_height ]
dec eax
mov [ max_y ], eax
call draw_image.force
mov al , 12
2006-10-12 01:19:10 +02:00
push 2
pop ebx
int 40h
ret
draw_image.nomem:
mov al , 13
xor edx , edx
mov ebx , [ cur_width ]
imul ebx , font_width
add ebx , 5 * 65536
mov ecx , [ skinh - 2 ]
mov cx , word [ cur_height ]
imul cx , font_height
int 40h
mov al , 4
mov ebx , 32 * 65536 + 32
mov ecx , 0xFFFFFF
mov edx , nomem_draw
push nomem_draw.size
pop esi
int 40h
ret
draw_image:
2007-01-19 16:02:33 +01:00
; determine draw rectangle
and [ max_x ], 0
or [ min_x ], - 1
or [ min_y ], - 1
mov esi , [ console_data_ptr ]
xor eax , eax
xor edx , edx
mov ecx , [ cur_width ]
imul ecx , [ cur_height ]
.m1:
mov bx , [ esi ]
cmp bx , [ esi + ecx * 2 ]
jz .m2
cmp eax , [ min_x ]
ja @ f
mov [ min_x ], eax
@ @ :
cmp eax , [ max_x ]
jb @ f
mov [ max_x ], eax
@ @ :
cmp edx , [ min_y ]
jae @ f
mov [ min_y ], edx
@ @ :
mov [ max_y ], edx
.m2:
add esi , 2
inc eax
cmp eax , [ cur_width ]
jb .m1
xor eax , eax
inc edx
cmp edx , [ cur_height ]
jb .m1
mov eax , [ cursor_x ]
cmp eax , - 1
jz .m3
cmp eax , [ min_x ]
ja @ f
mov [ min_x ], eax
@ @ :
cmp eax , [ max_x ]
jb @ f
mov [ max_x ], eax
@ @ :
mov edx , [ cursor_y ]
cmp edx , [ min_y ]
ja @ f
mov [ min_y ], edx
@ @ :
cmp edx , [ max_y ]
jb @ f
mov [ max_y ], edx
@ @ :
.m3:
xchg eax , [ old_cursor_x ]
xchg edx , [ old_cursor_y ]
cmp eax , - 1
jz .m4
cmp eax , [ min_x ]
ja @ f
mov [ min_x ], eax
@ @ :
cmp eax , [ max_x ]
jb @ f
mov [ max_x ], eax
@ @ :
cmp edx , [ min_y ]
ja @ f
mov [ min_y ], edx
@ @ :
cmp edx , [ max_y ]
jb @ f
mov [ max_y ], edx
@ @ :
.m4:
cmp [ min_y ], - 1
jz .nodraw
.force:
2006-10-12 01:19:10 +02:00
; allocate memory for image
2007-01-19 16:02:33 +01:00
mov ecx , [ max_x ]
sub ecx , [ min_x ]
inc ecx
mov [ used_width ], ecx
mov edx , [ max_y ]
sub edx , [ min_y ]
inc edx
mov [ used_height ], edx
imul ecx , edx
imul ecx , font_width * font_height
add ecx , [ heapend ]
push 64
pop eax
push 1
pop ebx
int 0x40
2006-10-12 01:19:10 +02:00
test eax , eax
2007-01-19 16:02:33 +01:00
jnz draw_image.nomem
mov edi , [ heapend ]
mov esi , [ console_data_ptr ]
mov eax , [ min_y ]
imul eax , [ cur_width ]
add eax , [ min_x ]
lea esi , [ esi + eax * 2 ]
mov ecx , [ used_height ]
2006-10-12 01:19:10 +02:00
.lh:
2007-01-19 16:02:33 +01:00
push ecx esi
mov ecx , [ used_width ]
2006-10-12 01:19:10 +02:00
.lw:
2007-01-19 16:02:33 +01:00
push ecx
mov ebx , [ esi ]
mov eax , [ cur_width ]
imul eax , [ cur_height ]
mov [ eax * 2 + esi ], bx
movzx eax , bl
push edi
movzx ebx , bh
mov ebp , ebx
shr ebp , 4
and ebx , 0xF
sub ebx , ebp
add esi , 2
2006-10-12 01:19:10 +02:00
if font_width > 8
lea edx , [ eax + eax + font ]
else
lea edx , [ eax + font ]
end if
mov ecx , font_height
.sh:
2007-01-19 16:02:33 +01:00
push ecx edx edi
2006-10-12 01:19:10 +02:00
xor ecx , ecx
2007-01-19 16:02:33 +01:00
mov edx , [ edx ]
2006-10-12 01:19:10 +02:00
.sw:
2007-01-19 16:02:33 +01:00
shr edx , 1
sbb eax , eax
and eax , ebx
add eax , ebp
mov [ edi ], al
add ecx , 1
add edi , 1
2006-10-12 01:19:10 +02:00
cmp ecx , font_width
jb .sw
2007-01-19 16:02:33 +01:00
pop edi edx ecx
mov eax , [ used_width ]
imul eax , font_width
2006-10-12 01:19:10 +02:00
add edi , eax
if font_width > 8
add edx , 256 * 2
else
add edx , 256
end if
loop .sh
2007-01-19 16:02:33 +01:00
pop edi
.skip_symbol:
2006-10-12 01:19:10 +02:00
pop ecx
2007-01-19 16:02:33 +01:00
add edi , font_width
dec ecx
jnz .lw
mov eax , [ used_width ]
imul eax , ( font_height - 1 ) * font_width
add edi , eax
pop esi ecx
add esi , [ cur_width ]
add esi , [ cur_width ]
dec ecx
jnz .lh
; cursor
mov eax , [ cursor_y ]
inc eax
jz .nocursor
sub eax , [ min_y ]
mul [ used_width ]
imul eax , font_height * font_width
mov edx , [ cursor_x ]
sub edx , [ min_x ]
inc edx
imul edx , font_width
add eax , edx
add eax , [ heapend ]
mov edx , [ used_width ]
imul edx , font_width
neg edx
mov ecx , ( font_height * 15 + 50 ) / 100
.cursor_loop:
push ecx
mov ecx , font_width
add eax , edx
push eax
@ @ :
; add byte [eax-1], 0x10
xor byte [ eax - 1 ], 7
sub eax , 1
loop @ b
2006-10-12 01:19:10 +02:00
pop eax
2007-01-19 16:02:33 +01:00
pop ecx
loop .cursor_loop
.nocursor:
mov ecx , [ used_width ]
imul ecx , font_width * 65536
mov cx , word [ used_height ]
2006-10-12 01:19:10 +02:00
imul cx , font_height
2007-01-19 16:02:33 +01:00
mov edx , [ min_x ]
imul edx , font_width
add edx , 5
shl edx , 16
mov dx , word [ min_y ]
imul dx , font_height
add edx , [ skinh ]
push 65
pop eax
mov ebx , [ heapend ]
push 8
pop esi
mov edi , console_colors
2007-02-02 16:09:14 +01:00
xor ebp , ebp
2007-01-19 16:02:33 +01:00
int 0x40
push 64
pop eax
push 1
pop ebx
mov ecx , [ heapend ]
int 0x40
.nodraw:
2006-10-12 01:19:10 +02:00
ret
get_console_ptr:
; in: eax=x, edx=y
; out: edi->console data
push edx
imul edx , [ cur_width ]
add edx , eax
2007-01-19 16:02:33 +01:00
mov edi , [ console_data_ptr ]
lea edi , [ edi + edx * 2 ]
2006-10-12 01:19:10 +02:00
pop edx
ret
draw_keybar:
pushad
xor eax , eax
test [ ctrlstate ], 3
jz @ f
inc eax
@ @ :
test [ ctrlstate ], 0xC
jz @ f
or al , 2
@ @ :
test [ ctrlstate ], 0x30
jz @ f
or al , 4
@ @ :
imul eax , 6 * 12
mov esi , [ active_screen_vtable ]
mov esi , [ esi + screen_vtable.keybar ]
add esi , eax
xor ecx , ecx
inc ecx
xor eax , eax
mov edx , [ cur_height ]
dec edx
call get_console_ptr
push 6
pop ebx
mov eax , [ cur_width ]
sub eax , 11 + 9 + 3 * 2 + 6
cmp eax , 7 * 11
jl @ f
cdq
mov bl , 11
div ebx
mov ebx , eax
@ @ :
xor edx , edx
.l:
add edx , 7
cmp cl , 10
jb @ f
inc edx
@ @ :
cmp edx , [ cur_width ]
ja .ret
cmp cl , 10
jae .twodig
lea eax , [ ecx + '0' ]
stosb
mov al , [ keybar_number_color ]
stosb
jmp .cmn
.twodig:
mov al , cl
cbw
div [ _10 ]
add al , '0'
stosb
mov al , [ keybar_number_color ]
stosb
xchg al , ah
add al , '0'
stosw
.cmn:
mov ah , [ keybar_name_color ]
push ecx
mov cl , 6
@ @ :
lodsb
stosw
loop @ b
mov al , ' '
lea ecx , [ ebx - 6 ]
cmp byte [ esp ], 12
jz .ret_pop
add edx , ecx
rep stosw
pop ecx
inc edx
cmp edx , [ cur_width ]
ja .ret
mov ah , [ keybar_bgr_color ]
stosw
inc ecx
jmp .l
.ret_pop:
pop ecx
.ret:
cmp byte [ edi - 2 ], ' '
jnz @ f
dec edi
dec edi
@ @ :
push edi
2007-01-19 16:02:33 +01:00
xor eax , eax
2006-10-12 01:19:10 +02:00
mov edx , [ cur_height ]
call get_console_ptr
mov ecx , edi
pop edi
sub ecx , edi
shr ecx , 1
mov al , ' '
mov ah , [ keybar_name_color ]
rep stosw
.done:
popad
ret
draw_cmdbar:
mov esi , [ active_panel ]
add esi , panel1_dir - panel1_data
xor eax , eax
mov edx , [ cur_height ]
dec edx
dec edx
call get_console_ptr
mov ah , [ cmdbar_prefix_color ]
mov ecx , [ cur_width ]
dec ecx
@ @ :
lodsb
test al , al
jz @ f
stosw
loop @ b
@ @ :
mov al , '>'
stosw
mov al , ' '
mov ah , [ cmdbar_normal_color ]
rep stosw
ret
draw_border:
push edi
mov al , 0xC9
stosw
mov al , 0xCD
lea ecx , [ ebx - 2 ]
rep stosw
mov al , 0xBB
stosw
pop edi
add edi , [ cur_width ]
add edi , [ cur_width ]
lea ecx , [ edx - 2 ]
.l:
push edi
mov al , 0xBA
stosw
mov al , 0x20
push ecx
lea ecx , [ ebx - 2 ]
rep stosw
pop ecx
mov al , 0xBA
stosw
pop edi
add edi , [ cur_width ]
add edi , [ cur_width ]
loop .l
mov al , 0xC8
stosw
mov al , 0xCD
lea ecx , [ ebx - 2 ]
rep stosw
mov al , 0xBC
stosw
ret
draw_panel:
mov eax , [ ebp + panel1_left - panel1_data ]
mov edx , [ ebp + panel1_top - panel1_data ]
call get_console_ptr
; draw border
mov ah , [ panel_border_color ]
mov ebx , [ ebp + panel1_width - panel1_data ]
mov edx , [ ebp + panel1_height - panel1_data ]
call draw_border
push eax
mov eax , [ ebp + panel1_left - panel1_data ]
mov edx , [ ebp + panel1_top - panel1_data ]
add edx , [ ebp + panel1_height - panel1_data ]
sub edx , 3
call get_console_ptr
pop eax
mov al , 0xC7
stosw
mov al , 0xC4
lea ecx , [ ebx - 2 ]
rep stosw
mov al , 0xB6
stosw
mov eax , [ ebp + panel1_width - panel1_data ]
sub eax , 3
shr eax , 1
mov [ column_width ], eax
mov eax , [ ebp + panel1_left - panel1_data ]
inc eax
mov [ column_left ], eax
add eax , [ column_width ]
mov edx , [ ebp + panel1_top - panel1_data ]
inc edx
mov [ column_top ], edx
dec edx
call get_console_ptr
mov ah , [ panel_border_color ]
mov al , 0xD1
mov [ edi ], ax
add edi , [ cur_width ]
add edi , [ cur_width ]
mov ecx , [ ebp + panel1_height - panel1_data ]
sub ecx , 4
mov [ column_height ], ecx
mov al , 0xB3
@ @ :
mov [ edi ], ax
add edi , [ cur_width ]
add edi , [ cur_width ]
loop @ b
mov al , 0xC1
stosw
mov eax , [ column_height ]
dec eax
mov [ ebp + panel1_colsz - panel1_data ], eax
add eax , eax
mov [ ebp + panel1_colst - panel1_data ], eax
mov eax , [ ebp + panel1_start - panel1_data ]
mov [ column_index ], eax
call draw_column
mov eax , [ ebp + panel1_width - panel1_data ]
sub eax , 3
mov ecx , [ column_width ]
sub eax , ecx
mov [ column_width ], eax
inc ecx
add [ column_left ], ecx
call draw_column
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> (⥪<> <E2A5AA> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> )
lea esi , [ ebp + panel1_dir - panel1_data ]
mov edi , cur_header
mov ecx , [ ebp + panel1_width - panel1_data ]
sub ecx , 7
movsb
@ @ :
lodsb
stosb
dec ecx
test al , al
jz .header_created
cmp al , '/'
jnz @ b
mov edx , esi
@ @ :
lodsb
test al , al
jnz @ b
sub esi , edx
dec esi
cmp esi , ecx
jbe @ f
mov word [ edi ], '..'
mov byte [ edi + 2 ], '.'
add edi , 3
sub ecx , 3
add edx , esi
sub edx , ecx
@ @ :
mov esi , edx
@ @ :
lodsb
stosb
dec ecx
test al , al
jnz @ b
.header_created:
mov edx , [ ebp + panel1_top - panel1_data ]
mov eax , [ ebp + panel1_left - panel1_data ]
shr ecx , 1
lea eax , [ eax + ecx + 3 ]
call get_console_ptr
mov ah , [ panel_active_header_color ]
cmp ebp , [ active_panel ]
jz @ f
mov ah , [ panel_header_color ]
@ @ :
mov al , ' '
stosw
mov esi , cur_header
@ @ :
lodsb
test al , al
jz @ f
stosw
jmp @ b
@ @ :
mov al , ' '
stosw
mov edx , [ ebp + panel1_top - panel1_data ]
inc edx
mov eax , [ ebp + panel1_left - panel1_data ]
inc eax
call get_console_ptr
movzx eax , [ ebp + panel1_sortmode - panel1_data ]
mov al , [ compare_names + eax ]
stosb
cmp [ ebp + panel1_numfiles - panel1_data ], 0
jz .skip_curinfo
; <20> <> <EFBFBD> <EFBFBD> ଠ <EFBFBD> <E0ACA0> <EFBFBD> <20> <20> <> <EFBFBD> ࠭<EFBFBD> <E0A0AD> <EFBFBD> 䠩<> <E4A0A9>
mov ebx , [ ebp + panel1_index - panel1_data ]
mov eax , [ ebp + panel1_files - panel1_data ]
mov ebx , [ eax + ebx * 4 ]
mov eax , [ ebp + panel1_left - panel1_data ]
add eax , [ ebp + panel1_width - panel1_data ]
dec eax
mov edx , [ ebp + panel1_top - panel1_data ]
add edx , [ ebp + panel1_height - panel1_data ]
dec edx
dec edx
call get_console_ptr
mov ecx , [ ebp + panel1_width - panel1_data ]
dec ecx
dec ecx
; <20> ६<EFBFBD> <20> <> <EFBFBD> <EFBFBD> 䨪<EFBFBD> 樨
sub edi , 5 * 2
sub ecx , 6
mov al , [ ebx + 24 + 2 ]
aam
or ax , 0x3030
mov [ edi ], ah
mov [ edi + 2 ], al
mov [ edi + 4 ], byte ':'
mov al , [ ebx + 24 + 1 ]
aam
or ax , 0x3030
mov [ edi + 6 ], ah
mov [ edi + 8 ], al
mov al , [ panel_normal_color ]
mov [ edi + 1 ], al
mov [ edi + 3 ], al
mov [ edi + 5 ], al
mov [ edi + 7 ], al
mov [ edi + 9 ], al
dec edi
mov [ edi ], al
dec edi
mov byte [ edi ], ' '
; <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> 䨪<EFBFBD> 樨
sub edi , 8 * 2
sub ecx , 9
mov al , [ ebx + 28 + 0 ]
aam
or ax , 0x3030
mov [ edi ], ah
mov [ edi + 2 ], al
mov [ edi + 4 ], byte '.'
mov al , [ ebx + 28 + 1 ]
aam
or ax , 0x3030
mov [ edi + 6 ], ah
mov [ edi + 8 ], al
mov [ edi + 10 ], byte '.'
mov ax , [ ebx + 28 + 2 ]
div [ _100 ]
mov al , ah
aam
or ax , 0x3030
mov [ edi + 12 ], ah
mov [ edi + 14 ], al
mov al , [ panel_normal_color ]
mov [ edi + 1 ], al
mov [ edi + 3 ], al
mov [ edi + 5 ], al
mov [ edi + 7 ], al
mov [ edi + 9 ], al
mov [ edi + 11 ], al
mov [ edi + 13 ], al
mov [ edi + 15 ], al
dec edi
mov [ edi ], al
dec edi
mov [ edi ], byte ' '
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
std
mov ah , [ panel_normal_color ]
dec edi
dec edi
dec ecx
test byte [ ebx ], 0x10
jz .size_file
push ecx
mov esi , aFolder + aFolder.size - 1
mov ecx , aFolder.size
cmp word [ ebx + 40 ], '..'
jnz @ f
cmp byte [ ebx + 42 ], 0
jnz @ f
mov esi , aUp + aUp.size - 1
mov cl , aUp.size
@ @ :
sub [ esp ], ecx
@ @ :
lodsb
stosw
loop @ b
pop ecx
jmp .size_done
.size_file:
mov edx , [ ebx + 36 ]
test edx , edx
jz .size_less_4g
cmp edx , 10 * 256
jae .size_tera
; <20> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
mov al , 'G'
2007-01-19 16:02:33 +01:00
shl edx , 2
2006-10-12 01:19:10 +02:00
jmp .size_letter
.size_tera:
; <20> <20> <> ࠡ<EFBFBD> <E0A0A1> <EFBFBD> <EFBFBD> <EFBFBD>
shr edx , 8
mov al , 'T'
jmp .size_letter
.size_less_4g:
mov edx , [ ebx + 32 ]
cmp edx , 10 * ( 1 shl 20 )
jae .size_mega
cmp edx , 1 shl 20
jb .size_num
shr edx , 10
mov al , 'K'
jmp .size_letter
.size_mega:
mov al , 'M'
shr edx , 20
.size_letter:
stosw
dec ecx
mov al , ' '
stosw
dec ecx
.size_num:
xchg eax , edx
xor edx , edx
div [ _10d ]
xchg eax , edx
add al , '0'
mov ah , [ panel_normal_color ]
stosw
dec ecx
test edx , edx
jnz .size_num
.size_done:
cld
; <20> <> <EFBFBD>
sub edi , ecx
sub edi , ecx
lea esi , [ ebx + 40 ]
@ @ :
lodsb
test al , al
jnz @ b
sub esi , ebx
sub esi , 41
mov ah , [ panel_normal_color ]
cmp esi , ecx
lea edx , [ ebx + 40 ]
jbe @ f
mov al , '{'
mov [ edi - 2 ], ax
add edx , esi
sub edx , ecx
@ @ :
mov esi , edx
@ @ :
lodsb
test al , al
jz @ f
stosw
loop @ b
@ @ :
mov al , ' '
rep stosw
.skip_curinfo:
call draw_image
ret
draw_column:
mov eax , [ column_left ]
mov edx , [ column_top ]
call get_console_ptr
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> ⮫<EFBFBD> <E2AEAB> <EFBFBD>
push edi
mov ah , [ column_header_color ]
mov al , ' '
mov ecx , [ column_width ]
if lang eq ru
sub ecx , 3
else
sub ecx , 4
end if
shr ecx , 1
rep stosw
if lang eq ru
mov al , '<27> '
stosw
mov al , '<27> '
stosw
mov al , '<27> '
stosw
else
mov al , 'N'
stosw
mov al , 'a'
stosw
mov al , 'm'
stosw
mov al , 'e'
stosw
end if
mov al , ' '
mov ecx , [ column_width ]
if lang eq ru
sub ecx , 2
else
sub ecx , 3
end if
shr ecx , 1
rep stosw
pop edi
add edi , [ cur_width ]
add edi , [ cur_width ]
; 䠩<> <E4A0A9>
mov edx , [ ebp + panel1_numfiles - panel1_data ]
mov ecx , [ column_height ]
dec ecx
.l:
cmp [ column_index ], edx
jae .ret
push ecx
mov esi , [ column_index ]
mov ecx , [ ebp + panel1_files - panel1_data ]
mov esi , [ ecx + esi * 4 ]
2007-02-05 15:20:36 +01:00
add esi , 40
2007-01-19 16:02:33 +01:00
mov ah , [ esi - 40 + 5 ]
2006-10-12 01:19:10 +02:00
cmp ebp , [ active_panel ]
jnz @ f
mov ecx , [ column_index ]
cmp ecx , [ ebp + panel1_index - panel1_data ]
jnz @ f
2007-01-19 16:02:33 +01:00
mov ah , [ esi - 40 + 6 ]
2006-10-12 01:19:10 +02:00
@ @ :
mov ecx , [ column_width ]
push edi
@ @ :
lodsb
test al , al
jz @ f
stosw
loop @ b
cmp byte [ esi ], 0
jz @ f
mov byte [ edi ], '}'
@ @ :
mov al , ' '
rep stosw
pop edi
add edi , [ cur_width ]
add edi , [ cur_width ]
inc [ column_index ]
pop ecx
dec ecx
jnz .l
.ret:
cmp ebp , panel1_data
jnz .ret2
; <20> <> <20> <> ࠭<EFBFBD> <E0A0AD>
mov eax , [ num_screens ]
dec eax
jz .ret2
push eax
xor eax , eax
xor edx , edx
call get_console_ptr
mov ah , [ panel_nscreens_color ]
mov al , '['
stosw
pop eax
push - '0'
@ @ :
xor edx , edx
div [ _10d ]
push edx
test eax , eax
jnz @ b
@ @ :
pop eax
add eax , '0'
jz @ f
mov ah , [ panel_nscreens_color ]
stosw
jmp @ b
@ @ :
mov al , ']'
mov ah , [ panel_nscreens_color ]
stosw
.ret2:
ret
;insert_last_dot:
; push eax esi
; mov ah, 0
;.loop:
; lodsb
; test al, al
; jz .done
; cmp al, '.'
; jnz .loop
; mov ah, 1
; jmp .loop
;.done:
; test ah, ah
; jnz @f
; mov byte [esi-1], '.'
; mov byte [esi], 0
;@@:
; pop esi eax
; ret
;delete_last_dot:
; push esi
;@@:
; cmp byte [esi], 0
; jz @f
; inc esi
; jmp @b
;@@:
; cmp byte [esi-1], '.'
; jnz @f
; mov byte [esi-1], 0
;@@: pop esi
; ret
read_folder:
mov eax , [ ebp + panel1_nfa - panel1_data ]
mov [ di rinfo.size ], eax
shl eax , 2
add eax , [ ebp + panel1_files - panel1_data ]
mov [ di rinfo.dirdata ], eax
lea eax , [ ebp + panel1_dir - panel1_data ]
mov [ di rinfo.name ], eax
2007-02-02 16:09:14 +01:00
.retry:
2006-10-12 01:19:10 +02:00
push 70
pop eax
mov ebx , di rinfo
int 40h
test eax , eax
jz .ok
cmp eax , 6
jz .ok
2007-02-02 16:09:14 +01:00
; Failed to read folder, notify user
cmp [ bSilentFolderMode ], 0
jnz .dont_notify
push aContinue
push aRetry
mov edx , esp
call get_error_msg
push [ di rinfo.name ]
push aCannotReadFolder
push eax
mov eax , esp
push edx
push 2
push eax
push 3
push - 1
push - 1
push aError
call SayErr
add esp , 5 * 4
test eax , eax
jz .retry
.dont_notify:
mov esi , prev_dir
cmp byte [ esi ], 0
jz @ f
lea edi , [ ebp + panel1_dir - panel1_data ]
mov ecx , 1024 / 4
rep movsd
mov byte [ prev_dir ], 0
ret
@ @ :
mov [ bSilentFolderMode ], 1 ; enter silent mode
mov esi , [ di rinfo.name ]
xor edx , edx
.up1:
lodsb
test al , al
jz .up1done
cmp al , '/'
jnz .up1
inc edx
lea edi , [ esi - 1 ]
jmp .up1
.up1done:
cmp edx , 2
jbe .noup
stosb
jmp read_folder
.noup:
mov esi , [ di rinfo.name ]
mov edi , esi
lodsd
or eax , 0x00202000
cmp eax , '/rd/'
jnz @ f
lodsw
cmp ax , '1'
jz .nosetrd
@ @ :
mov eax , '/rd/'
stosd
mov ax , '1'
stosw
jmp read_folder
.nosetrd:
; <20> <> <EFBFBD> <EFBFBD> ࠬ<> <E0A0AC> <EFBFBD> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ⠫<EFBFBD> <E2A0AB> . <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> , <20> <> <20> <> <EFBFBD> 졠...
and dword [ ebp + panel1_numfiles - panel1_data ], 0
2006-10-12 01:19:10 +02:00
and dword [ ebp + panel1_index - panel1_data ], 0
and dword [ ebp + panel1_start - panel1_data ], 0
2007-02-02 16:09:14 +01:00
mov [ bSilentFolderMode ], 0 ; leave silent mode
2006-10-12 01:19:10 +02:00
ret
.ok:
mov eax , [ di rinfo.dirdata ]
cmp [ eax + 8 ], ebx
jz .readdone
push eax
mov eax , [ ebp + panel1_files - panel1_data ]
call mf_free
pop eax
mov eax , [ eax + 8 ]
add eax , 0xF
and eax , not 0xF
push eax
imul eax , 4 + 304
add eax , 32
2007-02-02 16:09:14 +01:00
call xmalloc
2006-10-12 01:19:10 +02:00
test eax , eax
jnz .succ1
pop eax
jmp .readdone
.succ1:
mov [ ebp + panel1_files - panel1_data ], eax
pop [ ebp + panel1_nfa - panel1_data ]
2007-02-05 15:20:36 +01:00
mov [ prev_dir ], 0
2006-10-12 01:19:10 +02:00
jmp read_folder
.readdone:
and [ ebp + panel1_start - panel1_data ], 0
and [ ebp + panel1_index - panel1_data ], 0
and [ ebp + panel1_start - panel1_data ], 0
mov edi , [ ebp + panel1_files - panel1_data ]
mov eax , [ ebp + panel1_nfa - panel1_data ]
2007-02-05 15:20:36 +01:00
lea eax , [ edi + eax * 4 + 32 ]
mov ecx , [ eax - 32 + 4 ]
2007-01-19 16:02:33 +01:00
test ecx , ecx
jz .loopdone
2007-02-05 15:20:36 +01:00
xor edx , edx
2006-10-12 01:19:10 +02:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 㥬 ᯥ樠<E1AFA5> <E6A8A0> <EFBFBD> <EFBFBD> <EFBFBD> <20> 室<EFBFBD> , ᮮ⢥<E1AEAE> <E2A2A5> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 騥 <20> <> <EFBFBD> <EFBFBD> <EFBFBD> '.' <20> <20> <> ⪥ ⮬<>
.ptrinit:
2007-02-05 15:20:36 +01:00
cmp word [ eax + 40 ], '.'
2006-10-12 01:19:10 +02:00
jz .loopcont
2007-02-05 15:20:36 +01:00
test byte [ eax ], 8
2006-10-12 01:19:10 +02:00
jnz .loopcont
2007-02-05 15:20:36 +01:00
test edx , edx
jnz .nodotdot
cmp word [ eax + 40 ], '..'
jnz .nodotdot
cmp byte [ eax + 42 ], 0
jnz .nodotdot
mov edx , eax
push edi
@ @ :
cmp edi , [ ebp + panel1_files - panel1_data ]
jbe @ f
push dword [ edi - 4 ]
pop dword [ edi ]
sub edi , 4
jmp @ b
@ @ :
2006-10-12 01:19:10 +02:00
stosd
2007-02-05 15:20:36 +01:00
pop edi
scasd
jmp .dotdot
.nodotdot:
stosd
.dotdot:
2007-01-19 16:02:33 +01:00
; <20> <> <EFBFBD> ᢥ⪠
; call insert_last_dot
pushad
2007-02-05 15:20:36 +01:00
mov ebp , eax
2007-01-19 16:02:33 +01:00
lea esi , [ ebp + 40 ]
mov edi , lower_file_name
mov edx , edi
@ @ :
lodsb
call tolower
stosb
test al , al
jnz @ b
mov esi , edx
lea edx , [ edi - 1 ]
xor ecx , ecx
.highlight_test_loop:
mov ebx , [ highlight_groups + ecx * 4 ]
mov al , [ ebx + highlight.IncludeAttributes ]
mov ah , [ ebp ]
and ah , al
cmp ah , al
jnz .highlight_test_failed
lea edi , [ ebx + highlight.Mask ]
call match_mask_rev_lowercase
jc .highlight_test_failed
mov ah , [ ebx + highlight.NormalColor ]
test ah , ah
jnz @ f
mov ah , [ panel_normal_color ]
@ @ :
mov [ ebp + 5 ], ah
mov ah , [ ebx + highlight.CursorColor ]
test ah , ah
jnz @ f
mov ah , [ panel_cursor_color ]
@ @ :
mov [ ebp + 6 ], ah
jmp .doname
.highlight_test_failed:
inc ecx
cmp ecx , [ highlight_num_groups ]
jb .highlight_test_loop
.nohighlight:
mov ah , [ panel_normal_color ]
mov [ ebp + 5 ], ah
mov ah , [ panel_cursor_color ]
mov [ ebp + 6 ], ah
.doname:
; call delete_last_dot
popad
2006-10-12 01:19:10 +02:00
.loopcont:
add eax , 304
2007-01-19 16:02:33 +01:00
dec ecx
jnz .ptrinit
2006-10-12 01:19:10 +02:00
.loopdone:
sub edi , [ ebp + panel1_files - panel1_data ]
shr edi , 2
mov [ ebp + panel1_numfiles - panel1_data ], edi
.done:
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2>
sort_files:
movzx eax , [ ebp + panel1_sortmode - panel1_data ]
mov ebx , [ compare_fns + eax * 4 ]
mov edx , [ ebp + panel1_files - panel1_data ]
mov ecx , [ ebp + panel1_numfiles - panel1_data ]
2007-02-05 15:20:36 +01:00
jecxz .skip
mov eax , [ edx ]
cmp word [ eax ], '..'
jnz .nodotdot
cmp byte [ eax + 2 ], 0
jnz .nodotdot
dec ecx
add edx , 4
.nodotdot:
2006-10-12 01:19:10 +02:00
call sort
2007-02-05 15:20:36 +01:00
.skip:
2007-02-02 16:09:14 +01:00
mov [ bSilentFolderMode ], 0 ; leave silent mode
2006-10-12 01:19:10 +02:00
ret
compare_name:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
add esi , 40
add edi , 40
jmp strcmpi
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_name_rev:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
add esi , 40
add edi , 40
xchg esi , edi
jmp strcmpi
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
strcmpi:
push eax
@ @ :
lodsb
call match_symbol
jnz .ret
inc edi
test al , al
jnz @ b
.ret:
pop eax
ret
compare_ext:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
add esi , 40
add edi , 40
push esi edi
call seek_ext
xchg esi , edi
call seek_ext
xchg esi , edi
call strcmpi
jnz .ret
pop edi esi
jmp strcmpi
.ret:
pop edi esi
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_ext_rev:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
add esi , 40
add edi , 40
push esi edi
call seek_ext
xchg esi , edi
call seek_ext
call strcmpi
jnz .ret
pop edi esi
xchg esi , edi
jmp strcmpi
.ret:
pop edi esi
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
seek_ext:
push eax
xor eax , eax
.l:
inc esi
cmp byte [ esi - 1 ], '.'
jnz @ f
mov eax , esi
@ @ :
cmp byte [ esi - 1 ], 0
jnz .l
test eax , eax
jnz @ f
lea eax , [ esi - 1 ]
@ @ :
mov esi , eax
pop eax
ret
compare_modified:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push edi
mov edi , [ edi + 28 ]
cmp edi , [ esi + 28 ]
pop edi
jnz @ f
push edi
mov edi , [ edi + 24 ]
cmp edi , [ esi + 24 ]
pop edi
jnz @ f
add esi , 40
add edi , 40
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_modified_rev:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push esi
mov esi , [ esi + 28 ]
cmp esi , [ edi + 28 ]
pop esi
jnz @ f
push esi
mov esi , [ esi + 24 ]
cmp esi , [ edi + 24 ]
pop esi
jnz @ f
add esi , 40
add edi , 40
xchg esi , edi
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_size:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push edi
mov edi , [ edi + 36 ]
cmp edi , [ esi + 36 ]
pop edi
jnz @ f
push edi
mov edi , [ edi + 32 ]
cmp edi , [ esi + 32 ]
pop edi
jnz @ f
add esi , 40
add edi , 40
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_size_rev:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push esi
mov esi , [ esi + 36 ]
cmp esi , [ edi + 36 ]
pop esi
jnz @ f
push esi
mov esi , [ esi + 32 ]
cmp esi , [ edi + 32 ]
pop esi
jnz @ f
add esi , 40
add edi , 40
xchg esi , edi
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_unordered:
cmp esi , edi
ret
compare_unordered_rev:
cmp edi , esi
ret
compare_created:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push edi
mov edi , [ edi + 12 ]
cmp edi , [ esi + 12 ]
pop edi
jnz @ f
push edi
mov edi , [ edi + 8 ]
cmp edi , [ esi + 8 ]
pop edi
jnz @ f
add esi , 40
add edi , 40
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_created_rev:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push esi
mov esi , [ esi + 12 ]
cmp esi , [ edi + 12 ]
pop esi
jnz @ f
push esi
mov esi , [ esi + 8 ]
cmp esi , [ edi + 8 ]
pop esi
jnz @ f
add esi , 40
add edi , 40
xchg esi , edi
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_accessed:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push edi
mov edi , [ edi + 20 ]
cmp edi , [ esi + 20 ]
pop edi
jnz @ f
push edi
mov edi , [ edi + 16 ]
cmp edi , [ esi + 16 ]
pop edi
jnz @ f
add esi , 40
add edi , 40
jmp strcmpi
@ @ :
2007-01-19 16:02:33 +01:00
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
compare_accessed_rev:
test byte [ esi ], 10h
jnz .1dir
test byte [ edi ], 10h
jnz .greater
.eq1:
push esi
mov esi , [ esi + 20 ]
cmp esi , [ edi + 20 ]
pop esi
jnz @ f
push esi
mov esi , [ esi + 16 ]
cmp esi , [ edi + 16 ]
pop esi
jnz @ f
add esi , 40
add edi , 40
xchg esi , edi
jmp strcmpi
@ @ :
ret
.greater:
test esi , esi
ret
.1dir:
test byte [ edi ], 10h
jnz .eq1
.less:
xor edi , edi
stc
ret
if 0
match_mask:
; in: esi->name, edi->mask
; out: CF clear <=> match
pusha
xchg esi , edi
.main_cycle:
push esi
@ @ :
lodsb
test al , al
jz @ f
cmp al , ','
jz @ f
cmp al , '|'
jnz @ b
@ @ :
mov [ esi - 1 ], byte 0
xchg esi , [ esp ]
call match_single_mask
pop esi
mov [ esi - 1 ], al
jnc .found
cmp al , ','
jz .main_cycle
.done_fail:
stc
popa
ret
.found:
test al , al
jz .done_succ
cmp al , '|'
jz .test_exclude
lodsb
jmp .found
.done_succ:
clc
popa
ret
.test_exclude:
push esi
@ @ :
lodsb
test al , al
jz @ f
cmp al , ','
jnz @ b
@ @ :
mov byte [ esi - 1 ], 0
xchg esi , [ esp ]
call match_single_mask
pop esi
mov [ esi - 1 ], al
jnc .done_fail
test al , al
jz .done_succ
jmp .test_exclude
match_single_mask:
; in: esi->mask, edi->name
; out: CF clear <=> match
pusha
.mask_symbol:
lodsb
test al , al
jz .mask_done
cmp al , '*'
jz .asterisk
cmp al , '?'
jz .quest
cmp al , '['
jz .list
call match_symbol
jnz .done_fail
inc edi
jmp .mask_symbol
.done_fail:
stc
popa
ret
.mask_done:
scasb
jnz .done_fail
.done_succ:
clc
popa
ret
.quest:
mov al , 0
scasb
jz .done_fail
jmp .mask_symbol
.list:
lodsb
cmp al , ']'
jz .done_fail
cmp byte [ esi + 1 ], '-'
jz .range
call match_symbol
jnz .list
.listok:
inc edi
@ @ :
lodsb
cmp al , ']'
jnz @ b
jmp .mask_symbol
.range:
call match_symbol
ja @ f
mov al , [ esi + 2 ]
call match_symbol
jae .listok
@ @ :
inc esi
jmp .list
.asterisk:
cmp byte [ esi ], 0
jz .done_succ
cmp byte [ esi ], '?'
jnz @ f
mov al , 0
scasb
jz .done_fail
inc esi
jmp .asterisk
@ @ :
cmp byte [ esi ], '['
jz .asterisk_common
; the mask is ...*<normal-symbol>...
.asterisk_normal:
mov al , [ esi ]
@ @ :
cmp byte [ edi ], 0
jz .done_fail
call match_symbol
jz @ f
inc edi
jmp @ b
@ @ :
inc edi
inc esi
call match_single_mask
jnc .done_succ
dec esi
jmp .asterisk_normal
.asterisk_common:
push edi
@ @ :
call match_single_mask
jnc @ f
mov al , 0
scasb
jnz @ b
pop edi
jmp .done_fail
@ @ :
pop edi
jmp .done_succ
match_mask_rev:
; in: esi->name, edx->end of name, edi->mask
; out: CF clear <=> match
pusha
xchg esi , edx
xchg esi , edi
.main_cycle:
mov ecx , esi
@ @ :
lodsb
test al , al
jz @ f
cmp al , ','
jz @ f
cmp al , '|'
jnz @ b
@ @ :
dec esi
mov [ esi ], byte 0
call match_single_mask_rev2
mov [ esi ], al
inc esi
jnc .found
cmp al , ','
jz .main_cycle
.done_fail:
stc
popa
ret
.found:
test al , al
jz .done_succ
cmp al , '|'
jz .test_exclude
lodsb
jmp .found
.done_succ:
clc
popa
ret
.test_exclude:
mov ecx , esi
@ @ :
lodsb
test al , al
jz @ f
cmp al , ','
jnz @ b
@ @ :
dec esi
mov byte [ esi ], 0
call match_single_mask_rev2
mov [ esi ], al
inc esi
jnc .done_fail
test al , al
jz .done_succ
jmp .test_exclude
match_single_mask_rev2:
pusha
jmp match_single_mask_rev.mask_symbol
match_single_mask_rev:
; in: esi->mask, edi->end of name, edx->start of name
; out: CF clear <=> match
pusha
mov ecx , esi
@ @ :
lodsb
test al , al
jnz @ b
dec esi
; esi->end of mask, ecx->start of mask
.mask_symbol:
dec esi
cmp esi , ecx
jb .mask_done
mov al , [ esi ]
cmp al , '*'
jz .asterisk
cmp al , '?'
jz .quest
cmp al , ']'
jz .list
dec edi
cmp edi , edx
jb .done_fail
call match_symbol
jz .mask_symbol
.done_fail:
stc
popa
ret
.mask_done:
cmp edi , edx
jnz .done_fail
.done_succ:
clc
popa
ret
.quest:
dec edi
cmp edi , edx
jb .done_fail
jmp .mask_symbol
.list:
dec edi
cmp edi , edx
jb .done_fail
.list_check:
dec esi
cmp esi , ecx
jbe .done_fail
mov al , [ esi ]
cmp al , '['
jz .done_fail
cmp byte [ esi - 1 ], '-'
jz .range
call match_symbol
jnz .list_check
.listok:
@ @ :
dec esi
cmp esi , ecx
jb .done_fail
cmp byte [ esi ], '['
jnz @ b
jmp .mask_symbol
.range:
call match_symbol
jb @ f
mov al , [ esi - 2 ]
call match_symbol
jbe .listok
@ @ :
dec esi
dec esi
jmp .list_check
.asterisk:
cmp esi , ecx
jz .done_succ
cmp byte [ esi - 1 ], '?'
jnz @ f
cmp edi , edx
jz .done_fail
dec esi
jmp .asterisk
@ @ :
cmp byte [ esi - 1 ], ']'
jz .asterisk_common
; the mask is ...<normal-symbol>*...
.asterisk_normal:
mov al , [ esi - 1 ]
@ @ :
cmp edi , edx
jz .done_fail
call match_symbol
jz @ f
dec edi
jmp @ b
@ @ :
dec edi
dec esi
call match_single_mask_rev2
jnc .done_succ
inc esi
jmp .asterisk_normal
.asterisk_common:
push edi
@ @ :
call match_single_mask_rev2
jnc @ f
dec edi
cmp edi , edx
jae @ b
pop edi
jmp .done_fail
@ @ :
pop edi
jmp .done_succ
end if
2006-10-12 01:19:10 +02:00
2007-01-19 16:02:33 +01:00
tolower:
cmp al , 'A'
jb @ f
cmp al , 'Z'
ja @ f
add al , ' '
@ @ : ret
match_symbol:
; in: al,[edi]=symbols
; out: flags as 'cmp al,[edi]'
2006-10-12 01:19:10 +02:00
push eax
2007-01-19 16:02:33 +01:00
call tolower
mov ah , [ edi ]
xchg al , ah
call tolower
cmp ah , al
2006-10-12 01:19:10 +02:00
pop eax
ret
2007-01-19 16:02:33 +01:00
match_mask_rev_lowercase:
; in: esi->name, edx->end of name, edi->mask
2006-10-12 01:19:10 +02:00
; out: CF clear <=> match
pusha
2007-01-19 16:02:33 +01:00
xchg esi , edx
2006-10-12 01:19:10 +02:00
xchg esi , edi
.main_cycle:
2007-01-19 16:02:33 +01:00
mov ecx , esi
2006-10-12 01:19:10 +02:00
@ @ :
lodsb
test al , al
jz @ f
cmp al , ','
jz @ f
cmp al , '|'
jnz @ b
@ @ :
2007-01-19 16:02:33 +01:00
dec esi
mov [ esi ], byte 0
call match_single_mask_rev_lowercase
mov [ esi ], al
inc esi
2006-10-12 01:19:10 +02:00
jnc .found
cmp al , ','
jz .main_cycle
.done_fail:
stc
popa
ret
.found:
test al , al
jz .done_succ
cmp al , '|'
jz .test_exclude
lodsb
jmp .found
.done_succ:
clc
popa
ret
.test_exclude:
2007-01-19 16:02:33 +01:00
mov ecx , esi
2006-10-12 01:19:10 +02:00
@ @ :
lodsb
test al , al
jz @ f
cmp al , ','
jnz @ b
@ @ :
2007-01-19 16:02:33 +01:00
dec esi
mov byte [ esi ], 0
call match_single_mask_rev_lowercase
mov [ esi ], al
inc esi
2006-10-12 01:19:10 +02:00
jnc .done_fail
test al , al
jz .done_succ
jmp .test_exclude
2007-01-19 16:02:33 +01:00
match_single_mask_rev_lowercase:
; in: esi->end of mask, ecx->start of mask, edi->end of name, edx->start of name
2006-10-12 01:19:10 +02:00
; out: CF clear <=> match
2007-01-19 16:02:33 +01:00
push esi edi eax
2006-10-12 01:19:10 +02:00
.mask_symbol:
2007-01-19 16:02:33 +01:00
dec esi
cmp esi , ecx
jb .mask_done
mov al , [ esi ]
2006-10-12 01:19:10 +02:00
cmp al , '*'
jz .asterisk
cmp al , '?'
jz .quest
2007-01-19 16:02:33 +01:00
cmp al , ']'
2006-10-12 01:19:10 +02:00
jz .list
2007-01-19 16:02:33 +01:00
dec edi
cmp edi , edx
jb .done_fail
cmp al , [ edi ]
jz .mask_symbol
2006-10-12 01:19:10 +02:00
.done_fail:
stc
2007-01-19 16:02:33 +01:00
pop eax edi esi
2006-10-12 01:19:10 +02:00
ret
.mask_done:
2007-01-19 16:02:33 +01:00
cmp edi , edx
2006-10-12 01:19:10 +02:00
jnz .done_fail
.done_succ:
clc
2007-01-19 16:02:33 +01:00
pop eax edi esi
2006-10-12 01:19:10 +02:00
ret
.quest:
2007-01-19 16:02:33 +01:00
dec edi
cmp edi , edx
jb .done_fail
2006-10-12 01:19:10 +02:00
jmp .mask_symbol
.list:
2007-01-19 16:02:33 +01:00
dec edi
cmp edi , edx
jb .done_fail
.list_check:
dec esi
cmp esi , ecx
jbe .done_fail
mov al , [ esi ]
cmp al , '['
2006-10-12 01:19:10 +02:00
jz .done_fail
2007-01-19 16:02:33 +01:00
cmp byte [ esi - 1 ], '-'
2006-10-12 01:19:10 +02:00
jz .range
2007-01-19 16:02:33 +01:00
cmp al , [ edi ]
jnz .list_check
2006-10-12 01:19:10 +02:00
.listok:
@ @ :
2007-01-19 16:02:33 +01:00
dec esi
cmp esi , ecx
jb .done_fail
cmp byte [ esi ], '['
2006-10-12 01:19:10 +02:00
jnz @ b
jmp .mask_symbol
.range:
2007-01-19 16:02:33 +01:00
cmp al , [ edi ]
jb @ f
mov al , [ esi - 2 ]
cmp al , [ edi ]
jbe .listok
2006-10-12 01:19:10 +02:00
@ @ :
2007-01-19 16:02:33 +01:00
dec esi
dec esi
jmp .list_check
2006-10-12 01:19:10 +02:00
.asterisk:
2007-01-19 16:02:33 +01:00
cmp esi , ecx
jz .done_succ
cmp byte [ esi - 1 ], '?'
jnz @ f
cmp edi , edx
jz .done_fail
dec esi
jmp .asterisk
@ @ :
cmp byte [ esi - 1 ], ']'
jz .asterisk_common
; the mask is ...<normal-symbol>*...
.asterisk_normal:
mov al , [ esi - 1 ]
@ @ :
cmp edi , edx
jz .done_fail
cmp al , [ edi ]
jz @ f
dec edi
jmp @ b
@ @ :
dec edi
dec esi
call match_single_mask_rev_lowercase
jnc .done_succ
inc esi
jmp .asterisk_normal
.asterisk_common:
2006-10-12 01:19:10 +02:00
push edi
@ @ :
2007-01-19 16:02:33 +01:00
call match_single_mask_rev_lowercase
2006-10-12 01:19:10 +02:00
jnc @ f
2007-01-19 16:02:33 +01:00
dec edi
cmp edi , edx
jae @ b
2006-10-12 01:19:10 +02:00
pop edi
jmp .done_fail
@ @ :
pop edi
jmp .done_succ
2007-01-19 16:02:33 +01:00
find_extension:
lea esi , [ ecx + 40 ]
push esi
@ @ :
lodsb
test al , al
jnz @ b
@ @ :
dec esi
cmp byte [ esi ], '.'
jz .found_ext
cmp esi , [ esp ]
ja @ b
; empty extension
pop esi
stc
ret
.found_ext:
inc esi
mov edi , associations
@ @ :
push esi edi
mov edi , [ edi ]
call strcmpi
pop edi esi
jz @ f
add edi , 12
cmp edi , associations_end
jb @ b
; unknown extension
inc edi
@ @ :
pop esi
2006-10-12 01:19:10 +02:00
ret
2007-02-05 15:20:36 +01:00
header db 'Kolibri Far 0.21' , 0
2006-10-12 01:19:10 +02:00
nomem_draw db 'No memory for redraw.' , 0
.size = $ - nomem_draw
def_left_dir db '/rd/1' , 0
def_right_dir db '/hd0/1' , 0
2007-02-02 16:09:14 +01:00
bSilentFolderMode db 1
2006-10-12 01:19:10 +02:00
if lang eq ru
aFolder db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
.size = $ - aFolder
aUp db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
.size = $ - aUp
aDrive db '<27> <> <EFBFBD> <EFBFBD> ' , 0
aScreens db '<27> <> ࠭<EFBFBD> ' , 0
else
aFolder db 'Folder'
.size = $ - aFolder
aUp db 'Up'
.size = $ - aUp
aDrive db 'Drive' , 0
aScreens db 'Screens' , 0
end if
_10d dd 10
_100d dd 100
_10 db 10
_100 db 100
fpu_cw dw 000011100111111b
keybar_panels:
if lang eq ru
; <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> -<2D> <> <EFBFBD> <EFBFBD> 䨪<EFBFBD> <E4A8AA> <EFBFBD>
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> 짌'
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> ७ '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> 䌭'
db '<27> <> 室 '
db '<27> <> <EFBFBD> 㫨'
db '<27> <> ࠭<EFBFBD> '
; Shift
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> ᯠ<EFBFBD> '
db '<27> <> 劮<EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> .'
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> २<EFBFBD> '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> ࠭'
db '<27> <> <EFBFBD> '
db '<27> <> 㯯<EFBFBD> '
db '<27> <> <EFBFBD> ࠭'
; Ctrl
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> ࠢ<EFBFBD> <E0A0A2> '
db '<27> <> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> ᠭ'
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> '
; Ctrl+Shift
db ' '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
; Alt
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> ࠢ<EFBFBD> <E0A0A2> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> .'
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> .'
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> ᪠<EFBFBD> <E1AAA0> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> ॢ<EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> ⏠<EFBFBD> '
; Alt+Shift
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db '<27> <> <EFBFBD> 䏫'
db ' '
db ' '
db ' '
; Alt+Ctrl
times 12 db ' '
; Alt+Ctrl+Shift
times 12 db ' '
else
; No modificators
db 'Help '
db 'UserMn'
db 'View '
db 'Edit '
db 'Copy '
db 'RenMov'
db 'MkFold'
db 'Delete'
db 'ConfMn'
db 'Quit '
db 'Plugin'
db 'Screen'
; Shift
db 'Add '
db 'Extrct'
db 'ArcCmd'
db 'Edit..'
db 'Copy '
db 'Rename'
db ' '
db 'Delete'
db 'Save '
db 'Last '
db 'Group '
db 'SelUp '
; Ctrl
db 'Left '
db 'Right '
db 'Name '
db 'Extens'
db 'Modifn'
db 'Size '
db 'Unsort'
db 'Creatn'
db 'Access'
db 'Descr '
db 'Owner '
db 'Sort '
; Ctrl+Shift
db ' '
db ' '
db 'View '
db 'Edit '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
; Alt
db 'Left '
db 'Right '
db 'View..'
db 'Edit..'
db 'Print '
db 'MkLink'
db 'Find '
db 'Histry'
db 'Video '
db 'Tree '
db 'ViewHs'
db 'FoldHs'
; Alt+Shift
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db 'ConfPl'
db ' '
db ' '
db ' '
; Alt+Ctrl
times 12 db ' '
; Alt+Ctrl+Shift
times 12 db ' '
end if
keybar_viewer:
if lang eq ru
; <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> -<2D> <> <EFBFBD> <EFBFBD> 䨪<EFBFBD> <E4A8AA> <EFBFBD>
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> 室 '
db '<27> <> <EFBFBD> '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
keybar_cp:
db 'cp1251'
db ' '
db '<27> <> 室 '
db '<27> <> <EFBFBD> 㫨'
db '<27> <> ࠭<EFBFBD> '
; Shift
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
db ' '
db ' '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
db ' '
db ' '
db ' '
; Ctrl
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
db ' '
; Ctrl+Shift
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
; Alt
db ' '
db ' '
db ' '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db '<27> <> ३<EFBFBD> '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> '
db ' '
; Alt+Shift
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db '<27> <> <EFBFBD> 䨣'
db ' '
db ' '
db ' '
; Alt+Ctrl
times 12 db ' '
; Alt+Ctrl+Shift
times 12 db ' '
else
; No modificators
db 'Help '
db 'Unwrap'
db 'Quit '
db 'Hex '
db ' '
db 'Edit '
db 'Search'
keybar_cp:
db 'cp1251'
db ' '
db 'Quit '
db 'Plugin'
db 'Screen'
; Shift
db ' '
db 'WWrap '
db ' '
db ' '
db ' '
db ' '
db 'Next '
db 'Table '
db ' '
db ' '
db ' '
db ' '
; Ctrl
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db 'GoFile'
db ' '
db ' '
; Ctrl+Shift
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
; Alt
db ' '
db ' '
db ' '
db ' '
db 'Print '
db ' '
db 'Prev '
db 'Goto '
db 'Video '
db ' '
db 'ViewHs'
db ' '
; Alt+Shift
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db ' '
db 'Config'
db ' '
db ' '
db ' '
; Alt+Ctrl
times 12 db ' '
; Alt+Ctrl+Shift
times 12 db ' '
end if
align 4
cur_width dd 80
cur_height dd 25
2007-01-19 16:02:33 +01:00
saved_width dd - 1
saved_height dd - 1
2007-02-02 16:09:14 +01:00
fill_width dd 0
fill_height dd 0
2006-10-12 01:19:10 +02:00
max_width = 256
max_height = 256
2007-01-19 16:02:33 +01:00
console_data_ptr dd 0
cursor_x dd - 1
cursor_y dd - 1
old_cursor_x dd - 1
old_cursor_y dd - 1
2006-10-12 01:19:10 +02:00
active_panel dd panel1_data
console_colors dd 0x000000 , 0x000080 , 0x008000 , 0x008080
dd 0x800000 , 0x800080 , 0x808000 , 0xC0C0C0
dd 0x808080 , 0x0000FF , 0x00FF00 , 0x00FFFF
dd 0xFF0000 , 0xFF00FF , 0xFFFF00 , 0xFFFFFF
compare_fns dd compare_name
dd compare_name_rev
dd compare_ext
dd compare_ext_rev
dd compare_modified
dd compare_modified_rev
dd compare_size
dd compare_size_rev
dd compare_unordered
dd compare_unordered_rev
dd compare_created
dd compare_created_rev
dd compare_accessed
dd compare_accessed_rev
ctrlkey_tests dd ctrlkey_test0
dd ctrlkey_test1
dd ctrlkey_test2
dd ctrlkey_test3
dd ctrlkey_test4
ctrlkey_tests_num = 5
virtual at 0
screen_vtable:
.OnRedraw dd ?
.OnKey dd ?
.keybar dd ?
.getname dd ?
end virtual
panels_vtable:
dd panels_OnRedraw
dd panels_OnKey
dd keybar_panels
dd panels_getname
viewer_vtable:
dd viewer_OnRedraw
dd viewer_OnKey
dd keybar_viewer
dd viewer_getname
2007-02-02 16:09:14 +01:00
; additions to this table require changes in tools.inc::get_error_msg
errors1:
dd error0msg
dd error1msg
dd error2msg
dd error3msg
dd error4msg
dd error5msg
dd error6msg
dd error7msg
dd error8msg
dd error9msg
dd error10msg
dd error11msg
errors2:
dd error30msg
dd error31msg
dd error32msg
2006-10-12 01:19:10 +02:00
encodings:
.cp866 = 0
.cp1251 = 1
.names:
db 'cp866 '
db 'cp1251 '
.tables:
; cp866 - trivial map
times 128 db %+ 127
; cp1251
db 0x3F , 0x3F , 0x27 , 0x3F , 0x22 , 0x3A , 0xC5 , 0xD8 , 0x3F , 0x25 , 0x3F , 0x3C , 0x3F , 0x3F , 0x3F , 0x3F
db 0x3F , 0x27 , 0x27 , 0x22 , 0x22 , 0x07 , 0x2D , 0x2D , 0x3F , 0x54 , 0x3F , 0x3E , 0x3F , 0x3F , 0x3F , 0x3F
db 0xFF , 0xF6 , 0xF7 , 0x3F , 0xFD , 0x3F , 0xB3 , 0x15 , 0xF0 , 0x63 , 0xF2 , 0x3C , 0xBF , 0x2D , 0x52 , 0xF4
db 0xF8 , 0x2B , 0x49 , 0x69 , 0x3F , 0xE7 , 0x14 , 0xFA , 0xF1 , 0xFC , 0xF3 , 0x3E , 0x3F , 0x3F , 0x3F , 0xF5
times 0x30 db %- 1 + 0x80
times 0x10 db %- 1 + 0xE0
active_screen dd 0
tabsize dd 8
ascii2scan:
times 32 db 0
db 0x39 , 0x02 , 0x03 , 0x04 , 0x05 , 0x06 , 0x08 , 0x28 , 0x0A , 0x0B , 0x09 , 0x0D , 0x33 , 0x0C , 0x34 , 0x35
db 0x0B , 0x02 , 0x03 , 0x04 , 0x05 , 0x06 , 0x07 , 0x08 , 0x09 , 0x0A , 0x27 , 0x27 , 0x33 , 0x0D , 0x34 , 0x35
db 0x03 , 0x1E , 0x30 , 0x2E , 0x20 , 0x12 , 0x21 , 0x22 , 0x23 , 0x17 , 0x24 , 0x25 , 0x26 , 0x32 , 0x31 , 0x18
db 0x19 , 0x10 , 0x13 , 0x1F , 0x14 , 0x16 , 0x2F , 0x11 , 0x2D , 0x15 , 0x2C , 0x1A , 0x2B , 0x1B , 0x07 , 0x0C
db 0x29 , 0x1E , 0x30 , 0x2E , 0x20 , 0x12 , 0x21 , 0x22 , 0x23 , 0x17 , 0x24 , 0x25 , 0x26 , 0x32 , 0x31 , 0x18
db 0x19 , 0x10 , 0x13 , 0x1F , 0x14 , 0x16 , 0x2F , 0x11 , 0x2D , 0x15 , 0x2C , 0x1A , 0x2B , 0x1B , 0x29 , 0x00
db 0x21 , 0x33 , 0x20 , 0x16 , 0x26 , 0x14 , 0x27 , 0x19 , 0x30 , 0x10 , 0x13 , 0x25 , 0x2F , 0x15 , 0x24 , 0x22
db 0x23 , 0x2E , 0x31 , 0x12 , 0x1E , 0x1A , 0x11 , 0x2D , 0x17 , 0x18 , 0x1B , 0x1F , 0x32 , 0x28 , 0x34 , 0x2C
db 0x21 , 0x33 , 0x20 , 0x16 , 0x26 , 0x14 , 0x27 , 0x19 , 0x30 , 0x10 , 0x13 , 0x25 , 0x2F , 0x15 , 0x24 , 0x22
times 48 db 0
db 0x23 , 0x2E , 0x31 , 0x12 , 0x1E , 0x1A , 0x11 , 0x2D , 0x17 , 0x18 , 0x1B , 0x1F , 0x32 , 0x28 , 0x34 , 0x2C
db 0x29 , 0x29 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00 , 0x00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> ⠭<EFBFBD> <E2A0AD>
; db scancode, reserved
; dw ctrlstate
; dd handler
; ctrlstate: <20> <> <EFBFBD> <EFBFBD> 訥 4 <20> <> <EFBFBD> <EFBFBD> - <20> <> <EFBFBD> Shift, <> <E1ABA5> <EFBFBD> 騥 - <20> <> <EFBFBD> Ctrl, <> <E1ABA5> <EFBFBD> 騥 - <20> <> <EFBFBD> Alt
; 0 = <20> <> <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
; 1 = <> <E0AEA2> <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
; 2 = <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
; 3 = <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> , <20> ࠢ<EFBFBD> <E0A0A2> <20> <> <EFBFBD>
; 4 = <20> ࠢ<EFBFBD> <E0A0A2> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> , <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD>
panels_ctrlkeys:
dw 0x48 , 0
dd panels_OnKey.up
dw 0x50 , 0
dd panels_OnKey.down
dw 0x4B , 0
dd panels_OnKey.left
dw 0x4D , 0
dd panels_OnKey.right
dw 0xF , 0
dd panels_OnKey.tab
dw 0x47 , 0
dd panels_OnKey.home
dw 0x4F , 0
dd panels_OnKey.end
dw 0x1C , 0
dd panels_OnKey.enter
dw 0x3D , 0
dd panels_OnKey.f3
2007-01-19 16:02:33 +01:00
dw 0x3F , 0
dd panels_OnKey.f5
dw 0x3F , 1
dd panels_OnKey.shift_f5
2007-02-05 15:20:36 +01:00
dw 0x41 , 0
dd panels_OnKey.f7
2006-10-12 01:19:10 +02:00
dw 0x42 , 0
dd panels_OnKey.f8
2007-01-19 16:02:33 +01:00
dw 0x43 , 0x100
dd al t_f9
2006-10-12 01:19:10 +02:00
dw 0x44 , 0
dd exit
2007-01-19 16:02:33 +01:00
dw 0x5D , 0
dd panels_OnKey.menu
2006-10-12 01:19:10 +02:00
repeat 9 - 3 + 1
dw 0x3D +%- 1 , 0x10
dd panels_OnKey.ctrl_f39
end repeat
dw 0x3B , 0x100
dd panels_OnKey.alt_f12
dw 0x3C , 0x100
dd panels_OnKey.alt_f12
dw 0x58 , 0
dd F12
dw 0x13 , 0x10
dd panels_OnKey.ctrl_r
db 0
viewer_ctrlkeys:
dw 1 , 0
dd viewer_OnKey.exit
dw 0x51 , 0
dd viewer_OnKey.pgdn
dw 0x49 , 0
dd viewer_OnKey.pgup
dw 0x50 , 0
dd viewer_OnKey.down
dw 0x48 , 0
dd viewer_OnKey.up
dw 0x4B , 0
dd viewer_OnKey.left
dw 0x4B , 0x10
dd viewer_OnKey.ctrl_left
dw 0x4B , 0x11
dd viewer_OnKey.ctrl_shift_left
dw 0x4C , 0
dd viewer_OnKey.exit
dw 0x4D , 0
dd viewer_OnKey.right
dw 0x4D , 0x10
dd viewer_OnKey.ctrl_right
dw 0x4D , 0x11
dd viewer_OnKey.ctrl_shift_right
dw 0x3C , 0
dd viewer_OnKey.f2
dw 0x3D , 0
dd viewer_OnKey.exit
dw 0x3E , 0
dd viewer_OnKey.f4
dw 0x42 , 0
dd viewer_OnKey.f8
dw 0x44 , 0
dd viewer_OnKey.exit
dw 0x47 , 0
dd viewer_OnKey.home
dw 0x4F , 0
dd viewer_OnKey.end
dw 0x58 , 0
dd F12
2007-01-19 16:02:33 +01:00
dw 0x43 , 0x100
dd al t_f9
2006-10-12 01:19:10 +02:00
db 0
dirinfo:
dd 1
.first dd 0
dd 0
.size dd 300
.dirdata dd 0
db 0
.name dd 0
readinfo:
dd 0
.first dq 0
.size dd 0
.data dd 0
db 0
.name dd 0
2007-01-19 16:02:33 +01:00
writeinfo:
.code dd 2
.first dq 0
.size dd 0
.data dd 0
db 0
.name dd 0
2006-10-12 01:19:10 +02:00
attrinfo:
dd 5
dd 0
dd 0
dd 0
dd .attr
db 0
.name dd 0
delinfo:
dd 8
dd 0
dd 0
dd 0
dd 0
db 0
dd execdata
2007-02-05 15:20:36 +01:00
mkdirinfo:
dd 9
dd 0
dd 0
dd 0
dd 0
db 0
dd CopyDestEditBuf + 12
2006-10-12 01:19:10 +02:00
if lang eq ru
compare_names db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ᑤ<EFBFBD> '
else
compare_names db 'nNxXmMsSuUcCaA'
end if
2006-10-16 14:17:49 +02:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> 稭<EFBFBD> <E7A8AD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> 䨣<EFBFBD> <E4A8A3> <EFBFBD> 樮<EFBFBD> <E6A8AE> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> - <20> ⥪<> 饩 ॠ<> <E0A5A0> <EFBFBD> <EFBFBD> 樨 <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <20> <> <EFBFBD> <EFBFBD> ୨ <EFBFBD>
2006-10-12 01:19:10 +02:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
panel_normal_color db 1Bh
panel_border_color db 1Bh
panel_cursor_color db 30h
panel_header_color db 1Bh
panel_active_header_color db 30h
column_header_color db 1Eh
panel_nscreens_color db 0Bh
2006-10-16 14:17:49 +02:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
2007-02-02 16:09:14 +01:00
dialog_colors:
2006-10-16 14:17:49 +02:00
dialog_main_color db 70h
dialog_border_color db 70h
dialog_header_color db 70h
2007-01-19 16:02:33 +01:00
dialog_edit_color db 30h
dialog_unmodified_edit_color db 38h
2007-02-02 16:09:14 +01:00
dialog_normal_btn_color db 70h
dialog_selected_btn_color db 30h
; <20> ।<EFBFBD> <E0A5A4> ० <EFBFBD> <E0A5A6> <EFBFBD> <EFBFBD> <EFBFBD> <20> <20> 訡<EFBFBD> <E8A8A1>
warning_colors:
; !!! <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <20> <> <20> <> <20> <> <EFBFBD> <EFBFBD> <20> <20> ⮬ <20> <> <20> <> <EFBFBD> 浪<EFBFBD> , <20> <> <EFBFBD> <20> <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> !!!
warning_main_color db 4Fh
warning_border_color db 4Fh
warning_header_color db 4Fh
warning_edit_color db 30h
warning_unmodified_edit_color db 38h
warning_normal_btn_color db 4Fh
warning_selected_btn_color db 70h
2006-10-12 01:19:10 +02:00
; <20> <> <EFBFBD> <EFBFBD>
menu_normal_color db 3Fh
menu_selected_color db 0Fh
menu_highlight_color db 3Eh
menu_selected_highlight_color db 0Eh
menu_border_color db 3Fh
menu_header_color db 3Fh
menu_scrollbar_color db 3Fh
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
keybar_number_color db 7
keybar_name_color db 30h
keybar_bgr_color db 7
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> ப<EFBFBD>
cmdbar_normal_color db 7
cmdbar_prefix_color db 7
; <20> <> <EFBFBD> ᬮ<EFBFBD> <E1ACAE> 騪
view_normal_color db 1Bh
view_status_color db 30h
view_arrows_color db 1Eh
; <20> <> <EFBFBD> ᢥ⪠ 䠩<> <E4A0A9> <EFBFBD>
highlight_num_groups dd 10
highlight_groups dd highlight_group0
dd highlight_group1
dd highlight_group2
dd highlight_group3
dd highlight_group4
dd highlight_group5
dd highlight_group6
dd highlight_group7
dd highlight_group8
dd highlight_group9
; <20> <> ଠ <EFBFBD> <20> <> <EFBFBD> ᠭ<EFBFBD> <E1A0AD> <20> <> 㯯<EFBFBD> <20> <> <EFBFBD> ᢥ⪨:
virtual at 0
highlight:
.NormalColor db ?
.CursorColor db ?
.IncludeAttributes db ?
.Mask: ; ASCIIZ-string
end virtual
2007-01-19 16:02:33 +01:00
; all highlight masks must be in lowercase!
2006-10-12 01:19:10 +02:00
highlight_group0:
db 13h
db 38h
db 2
db '*' , 0
highlight_group1:
db 13h
db 38h
db 4
db '*' , 0
highlight_group2:
db 1Fh
db 3Fh
db 10h
db '*|..' , 0
highlight_group3:
db 0
db 0
db 10h
db '..' , 0
highlight_group4:
db 1Ah
db 3Ah
db 0
db '*.exe,*.com,*.bat,*.cmd' , 0
highlight_group5:
db 1Ah
db 3Ah
db 0
db '*|*.*' , 0
highlight_group6:
db 1Dh
db 3Dh
db 0
db '*.rar,*.zip,*.[zj],*.[bg7]z,*.[bg]zip,*.tar,*.t[ag]z,*.ar[cj],*.r[0-9][0-9],'
db '*.a[0-9][0-9],*.bz2,*.cab,*.msi,*.jar,*.lha,*.lzh,*.ha,*.ac[bei],*.pa[ck],'
db '*.rk,*.cpio,*.rpm,*.zoo,*.hqx,*.sit,*.ice,*.uc2,*.ain,*.imp,*.777,*.ufa,*.boa,'
db '*.bs[2a],*.sea,*.hpk,*.ddi,*.x2,*.rkv,*.[lw]sz,*.h[ay]p,*.lim,*.sqz,*.chz' , 0
highlight_group7:
db 16h
db 36h
db 0
db '*.bak,*.tmp' , 0
highlight_group8:
db 17h
db 37h
db 0
db '*.asm,*.inc' , 0
highlight_group9:
db 1Fh
db 3Fh
db 10h
db '*' , 0
associations:
2007-01-19 16:02:33 +01:00
dd aAsm , tinypad , AsmMenu
dd aInc , tinypad , 0
dd aTxt , tinypad , 0
dd aJpg , jpegview , 0
dd aJpeg , jpegview , 0
dd aGif , gifview , GifMenu
dd aWav , ac97 , 0
dd aMp3 , ac97 , 0
dd aMid , midamp , 0
dd aBmp , mv , BmpMenu
dd aPng , archer , 0
dd aRtf , rtfread , 0
dd a3ds , view3ds , 0
dd aL if , life2 , 0
2006-10-12 01:19:10 +02:00
associations_end:
aAsm db 'asm' , 0
aInc db 'inc' , 0
aTxt db 'txt' , 0
tinypad db '/rd/1/TinyPad' , 0
aJpg db 'jpg' , 0
aJpeg db 'jpeg' , 0
jpegview db '/rd/1/JpegView' , 0
aGif db 'gif' , 0
gifview db '/rd/1/GIFVIEW' , 0
aWav db 'wav' , 0
aMp3 db 'mp3' , 0
2006-11-02 15:18:23 +01:00
ac97 db '/rd/1/AC97SND' , 0
2006-10-12 01:19:10 +02:00
aMid db 'mid' , 0
midamp db '/rd/1/MIDAMP' , 0
aBmp db 'bmp' , 0
mv db '/rd/1/MV' , 0
aPng db 'png' , 0
archer db '/rd/1/@rcher' , 0
aRtf db 'rtf' , 0
rtfread db '/rd/1/RtfRead' , 0
2006-11-02 15:18:23 +01:00
a3ds db '3ds' , 0
view3ds db '/rd/1/3d/view3ds' , 0
aLif db 'lif' , 0
life2 db '/rd/1/demos/life2' , 0
2007-01-19 16:02:33 +01:00
AsmMenu:
dd aEdit , tinypad
dd aCompile , fasm
dd 0
BmpMenu:
dd aView , mv
dd aEdit , animage
dd 0
GifMenu:
dd aView , gifview
dd aEdit , animage
dd 0
if lang eq en
aView db '&View' , 0
aCompile db '&Compile' , 0
aEdit db '&Edit' , 0
else
aView db '&<26> <> <EFBFBD> ᬮ<EFBFBD> <E1ACAE> ' , 0
aCompile db '&<26> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> ' , 0
aEdit db '&<26> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
end if
fasm db '/rd/1/develop/fasm' , 0
animage db '/rd/1/animage' , 0
2006-10-16 14:17:49 +02:00
bConfirmDelete db 1
2007-02-05 15:20:36 +01:00
bConfirmDeleteIncomplete db 0
2006-10-16 14:17:49 +02:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 稢<EFBFBD> <E7A8A2> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> 䨣<EFBFBD> <E4A8A3> <EFBFBD> 樮<EFBFBD> <E6A8AE> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
bWasE0 db 0
ctrlstate db 0
align 4
2007-02-02 16:09:14 +01:00
; <20> <> <EFBFBD> <EFBFBD> 饭<EFBFBD> <E9A5AD> <20> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <20> 뤥<EFBFBD> <EBA4A5> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
nomem_dlgdata:
dd 2
dd - 1
dd - 1
dd 12
dd 2
dd 1
dd 1
dd aError
rb 4
2006-10-16 14:17:49 +02:00
dd 0
2007-02-02 16:09:14 +01:00
dd 0
dd 2
; <20> <> ப<EFBFBD> "No memory"
dd 1
dd 1 , 0 , 10 , 0
dd aNoMemory
dd 1
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "Ok"
dd 2
dd 4 , 1 , 7 , 1
dd aOk
dd 0xD
f8_confirm_dlgdata:
dd 1
2006-10-16 14:17:49 +02:00
.x dd - 1
.y dd - 1
.width dd ?
.height dd 3
dd 4
dd 2
dd aDeleteCaption
.main_color db ?
.border_color db ?
.header_color db ?
db 0
dd 0
dd 0
dd 4
; <20> <> ப<EFBFBD> "<22> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 㤠<> <E3A4A0> <EFBFBD> <EFBFBD> ..."
dd 1
dd 1 , 0
.width2 dd ?
dd 0
dd aConfirmDeleteTextBuf
dd 1
; <20> <> ப<EFBFBD> <20> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 䠩<> <E4A0A9> /<2F> <> <EFBFBD> <EFBFBD> <EFBFBD>
dd 1
dd 1 , 1
.width3 dd ?
dd 1
.name dd ?
dd 1
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "㤠<> <E3A4A0> <EFBFBD> <EFBFBD> "
.del_btn:
dd 2
.del_x1 dd ?
dd 2
.del_x2 dd ?
dd 2
dd aDelete
2007-02-05 15:20:36 +01:00
.flags1 dd 0xC
2006-10-16 14:17:49 +02:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "<22> ⬥<EFBFBD> <E2ACA5> <EFBFBD> <EFBFBD> "
dd 2
.cnl_x1 dd ?
dd 2
.cnl_x2 dd ?
dd 2
dd aCancel
2007-02-05 15:20:36 +01:00
.flags2 dd 8
2006-10-16 14:17:49 +02:00
2007-01-19 16:02:33 +01:00
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> <EFBFBD>
copy_dlgdata:
2007-02-02 16:09:14 +01:00
dd 1
2007-01-19 16:02:33 +01:00
.x dd - 1
.y dd - 1
.width dd ?
.height dd 4
dd 4
dd 2
dd aCopyCaption
.main_color db ?
.border_color db ?
.header_color db ?
db 0
dd 0
dd 0
dd 4
; <20> <> ப<EFBFBD> '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> "%s" <20> :'
dd 1
dd 1 , 0
.width2 dd ?
dd 0
dd CopySourceTextBuf
dd 0
; <20> <> <EFBFBD> <EFBFBD> ।<> <E0A5A4> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> <EFBFBD> <20> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 䠩<> <E4A0A9> /<2F> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 祭<EFBFBD> <E7A5AD>
dd 3
dd 1 , 1
.width3 dd ?
dd 1
dd CopyDestEditBuf
.flags0 dd 0
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "<22> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> "
.copy_btn:
dd 2
.copy_x1 dd ?
dd 3
.copy_x2 dd ?
dd 3
dd aCopy
.flags1 dd 18h
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "<22> ⬥<EFBFBD> <E2ACA5> <EFBFBD> <EFBFBD> "
dd 2
.cnl_x1 dd ?
dd 3
.cnl_x2 dd ?
dd 3
dd aCancelB
.flags2 dd 8
2007-02-05 15:20:36 +01:00
mkdir_dlgdata:
dd 1
dd - 1 , - 1
.width dd ?
.height dd 4
dd 4 , 2
dd aMkDirCaption
dd ?
dd 0
dd 0
dd 4
; <20> <> ப<EFBFBD> "<22> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> "
dd 1
dd 1 , 0 , aMkDirLen , 0
dd aMkDir
dd 0
; <20> <> <EFBFBD> <EFBFBD> ।<> <E0A5A4> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> <EFBFBD> <20> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ᮧ<> <E1AEA7> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD>
dd 3
dd 1 , 1
.width2 dd ?
dd 1
dd CopyDestEditBuf
.flags0 dd 0xC
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "<22> த<EFBFBD> <E0AEA4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "
.cont_btn:
dd 2
.cont_x1 dd ?
dd 3
.cont_x2 dd ?
dd 3
dd a_Continue
.flags1 dd 18h
; <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> "<22> ⬥<EFBFBD> <E2ACA5> <EFBFBD> <EFBFBD> "
dd 2
.cnl_x1 dd ?
dd 3
.cnl_x2 dd ?
dd 3
dd aCancelB
.flags2 dd 8
RetryOrCancelBtn:
dd aRetry
dd a_Cancel
DeleteOrKeepBtn:
dd a_Delete
dd aKeep
RetryOrIgnoreBtn:
dd aRetry
dd aIgnore
2007-01-19 16:02:33 +01:00
2006-10-16 14:17:49 +02:00
if lang eq ru
aDeleteCaption db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aConfirmDeleteText db '<27> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 㤠<> <E3A4A0> <EFBFBD> <EFBFBD> ' , 0
aDeleteFolder db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aConfirmDeleteTextMax = $ - aConfirmDeleteText - 2
aDeleteFile db '䠩<> ' , 0
aDelete db ' <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aDeleteLength = $ - aDelete - 1
aCancel db ' <20> ⬥<EFBFBD> <E2ACA5> <EFBFBD> <EFBFBD> ' , 0
aCancelLength = $ - aCancel - 1
2007-01-19 16:02:33 +01:00
aCancelB db '[ <20> ⬥<EFBFBD> <E2ACA5> <EFBFBD> <EFBFBD> ]' , 0
aCancelBLength = $ - aCancelB - 1
aCopyCaption db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> <EFBFBD> ' , 0
aCopy db '[ <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> ]' , 0
aCopyLength = $ - aCopy - 1
2007-02-05 15:20:36 +01:00
a_Continue db '[ <20> த<EFBFBD> <E0AEA4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ]' , 0
a_ContinueLength = $ - a_Continue - 1
2007-01-19 16:02:33 +01:00
aCopy1 db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> "' , 0
aCopy2 db '" <20> :' , 0
2007-02-02 16:09:14 +01:00
aError db '<27> 訡<EFBFBD> <E8A8A1> ' , 0
aContinue db '<27> த<EFBFBD> <E0AEA4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aRetry db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
2007-02-05 15:20:36 +01:00
a_Cancel db '<27> ⬥<EFBFBD> <E2ACA5> <EFBFBD> <EFBFBD> ' , 0
a_Delete db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
2007-02-02 16:09:14 +01:00
error0msg db '<27> <> ࠭<EFBFBD> <E0A0AD> ... <20> <> <EFBFBD> <20> 訡<EFBFBD> <E8A8A1> ' , 0
error1msg db '<27> <> ࠭<EFBFBD> <E0A0AD> ... <20> <> <20> <> ।<EFBFBD> <E0A5A4> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <20> /<2F> <> <EFBFBD> ࠧ<> <E0A0A7> <EFBFBD> <20> <> <EFBFBD> ⪮<EFBFBD> <E2AAAE> <20> <> ᪠' , 0
error2msg db '<27> 㭪<EFBFBD> <E3ADAA> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ন<EFBFBD> <E0A6A8> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 䠩<> <E4A0A9> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> ⥬<EFBFBD> ' , 0
error3msg db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ⭠<EFBFBD> 䠩<> <E4A0A9> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> ⥬<EFBFBD> ' , 0
error4msg db '<27> <> ࠭<EFBFBD> <E0A0AD> ... <20> 訡<EFBFBD> <E8A8A1> 4' , 0
error5msg db '<27> <> <EFBFBD> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
error6msg db '<27> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 稫<EFBFBD> <E7A8AB> ' , 0
error7msg db '<27> <> ࠭<EFBFBD> <E0A0AD> ... <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ⥫<EFBFBD> <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> ਫ<EFBFBD> <E0A8AB> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
error8msg db '<27> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
error9msg db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ࠧ<> <E0A0A7> 襭<EFBFBD> ' , 0
error10msg db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
error11msg db '<27> 訡<EFBFBD> <E8A8A1> <20> <> <EFBFBD> ன<EFBFBD> ⢠' , 0
error30msg db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 筮 <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
error31msg db '<27> <> <EFBFBD> <EFBFBD> <20> <> <> <EFA2AB> <EFBFBD> <EFBFBD> <EFBFBD> <20> ᯮ<EFBFBD> <E1AFAE> 塞<EFBFBD> <EFA5AC> ' , 0
error32msg db '<27> <> <EFBFBD> 誮<EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ᮢ' , 0
aUnknownError db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <20> 訡<EFBFBD> <E8A8A1> : ' , 0
aCannotReadFolder db '<27> <> <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
2007-02-05 15:20:36 +01:00
aRunError db '<27> 訡<EFBFBD> <E8A8A1> <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> ᪥ <20> ணࠬ<E0AEA3> <E0A0AC> :' , 0
aFileNameTooBig db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> 䠩<> <E4A0A9> 誮<E1ABA8> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aFolderNameTooBig db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> 誮<E1ABA8> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aCmdLineTooBig db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> ப<EFBFBD> <20> ॢ<EFBFBD> 蠥<EFBFBD> <20> ࠭<EFBFBD> <E0A0AD> <EFBFBD> OS <20> 256 ᨬ<> <E1A8AC> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aCannotCopyToSelf db '<27> <> <EFBFBD> <EFBFBD> <20> <> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <> <E1AAAE> <EFBFBD> <E0AEA2> <20> ᠬ<> <E1A0AC> <EFBFBD> ᥡ<> ' , 0
aCannotReadFile db '<27> <> <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 䠩<> ' , 0
aIncompleteFile db '<27> <> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> 祭 <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 䠩<> . <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> ?' , 0
aKeep db '<27> <> ⠢<EFBFBD> <E2A0A2> <EFBFBD> ' , 0
aCannotWriteFile db '<27> <> <20> <> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> 䠩<> ' , 0
aCannotDeleteFile db '<27> <> <20> <> <EFBFBD> <EFBFBD> 㤠<> <E3A4A0> <EFBFBD> <EFBFBD> 䠩<> ' , 0
aCannotDeleteFolder db '<27> <> <20> <> <EFBFBD> <EFBFBD> 㤠<> <E3A4A0> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aIgnore db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <E0AEA2> <EFBFBD> ' , 0
aMkDirCaption db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aMkDir db '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
aMkDirLen = $ - aMkDir - 1
aCannotMakeFolder db '<27> <> <20> <> <EFBFBD> <EFBFBD> ᮧ<> <E1AEA7> <EFBFBD> <EFBFBD> <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ' , 0
2006-10-16 14:17:49 +02:00
else
aDeleteCaption db 'Delete' , 0
aConfirmDeleteText db 'Do you wish to delete ' , 0
aDeleteFolder db 'the folder' , 0
aConfirmDeleteTextMax = $ - aConfirmDeleteText - 2
aDeleteFile db 'the file' , 0
aDelete db ' Delete ' , 0
aDeleteLength = $ - aDelete - 1
aCancel db ' Cancel ' , 0
aCancelLength = $ - aCancel - 1
2007-01-19 16:02:33 +01:00
aCancelB db '[ Cancel ]' , 0
aCancelBLength = $ - aCancelB - 1
aCopyCaption db 'Copy' , 0
aCopy db '[ Copy ]' , 0
aCopyLength = $ - aCopy - 1
2007-02-05 15:20:36 +01:00
a_Continue db '[ Continue ]' , 0
a_ContinueLength = $ - a_Continue - 1
2007-01-19 16:02:33 +01:00
aCopy1 db 'Copy "' , 0
aCopy2 db '" to:' , 0
2007-02-02 16:09:14 +01:00
aError db 'Error' , 0
aContinue db 'Continue' , 0
aRetry db 'Retry' , 0
2007-02-05 15:20:36 +01:00
a_Cancel db 'Cancel' , 0
a_Delete db 'Delete' , 0
2007-02-02 16:09:14 +01:00
error0msg db 'Strange... No error' , 0
error1msg db 'Strange... Hard disk base and/or partition not defined' , 0
error2msg db 'The file system does not support this function' , 0
error3msg db 'Unknown file system' , 0
error4msg db 'Strange... Error 4' , 0
error5msg db 'File not found' , 0
error6msg db 'End of file' , 0
error7msg db 'Strange... Pointer lies outside of application memory' , 0
error8msg db 'Disk is full' , 0
error9msg db 'File structure is destroyed' , 0
error10msg db 'Access denied' , 0
error11msg db 'Device error' , 0
error30msg db 'Not enough memory' , 0
error31msg db 'File is not executable' , 0
error32msg db 'Too many processes' , 0
aUnknownError db 'Unknown error code: ' , 0
aCannotReadFolder db 'Cannot read folder' , 0
2007-02-05 15:20:36 +01:00
aRunError db 'Cannot execute program:' , 0
aFileNameTooBig db 'Full file name is too long' , 0
aFolderNameTooBig db 'Full folder name is too long' , 0
aCmdLineTooBig db 'Command line is too long (OS limit is 256 symbols)' , 0
aCannotCopyToSelf db 'File cannot be copied onto itself' , 0
aCannotReadFile db 'Cannot read file' , 0
aIncompleteFile db 'Incomplete file was retrieved. Delete it?' , 0
aKeep db 'Keep' , 0
aCannotWriteFile db 'Cannot write file' , 0
aCannotDeleteFile db 'Cannot delete file' , 0
aCannotDeleteFolder db 'Cannot delete folder' , 0
aIgnore db 'Ignore' , 0
aMkDirCaption db 'Make folder' , 0
aMkDir db 'Create the folder' , 0
aMkDirLen = $ - aMkDir - 1
aCannotMakeFolder db 'Cannot create folder' , 0
2006-10-16 14:17:49 +02:00
end if
2007-02-02 16:09:14 +01:00
aOk db 'OK' , 0
aNoMemory db 'No memory!' , 0
2006-10-16 14:17:49 +02:00
2006-10-12 01:19:10 +02:00
execinfo:
dd 7
dd 0
execparams dd 0
dd 0
dd 0
db 0
execptr dd ?
IncludeIGlobals
i_end:
IncludeUGlobals
execdata rb 1024
2007-02-05 15:20:36 +01:00
execdataend:
2006-10-12 01:19:10 +02:00
align 4
attrinfo.attr rb 40
panel1_data:
panel1_left dd ?
panel1_top dd ?
panel1_width dd ?
panel1_height dd ?
panel1_index dd ?
panel1_start dd ?
panel1_colsz dd ?
panel1_colst dd ?
panel1_sortmode db ?
rb 3
panel1_nfa dd ?
panel1_numfiles dd ?
panel1_files dd ?
panel1_dir rb 1024
panel2_data:
panel2_left dd ?
panel2_top dd ?
panel2_width dd ?
panel2_height dd ?
panel2_index dd ?
panel2_start dd ?
panel2_colsz dd ?
panel2_colst dd ?
panel2_sortmode db ?
rb 3
panel2_nfa dd ?
panel2_numfiles dd ?
panel2_files dd ?
panel2_dir rb 1024
2007-01-19 16:02:33 +01:00
;console_data rb max_width*max_height*2
2006-10-12 01:19:10 +02:00
2007-02-02 16:09:14 +01:00
nomem_dlgsavearea rb ( 12 + 4 ) * ( 3 + 3 ) * 2
2006-10-12 01:19:10 +02:00
cur_header rb max_width
tmp dd ?
skinh dd ?
std_colors rd 10
2007-01-19 16:02:33 +01:00
min_y dd ?
max_y dd ?
min_x dd ?
max_x dd ?
used_width dd ?
used_height dd ?
2007-02-02 16:09:14 +01:00
wnd_width dd ?
wnd_height dd ?
2006-10-12 01:19:10 +02:00
column_left dd ?
column_top dd ?
column_width dd ?
column_height dd ?
column_index dd ?
scrpos dq ?
viewer_right_side dq ?
saved_file_name:
procinfo rb 1024
2007-01-19 16:02:33 +01:00
lower_file_name = procinfo + 512
2006-10-12 01:19:10 +02:00
2007-02-02 16:09:14 +01:00
error_msg rb 128
prev_dir rb 1024
2006-10-12 01:19:10 +02:00
driveinfo rb 32 + 304
tmpname rb 32
screens dd ?
num_screens dd ?
active_screen_vtable dd ?
active_screen_data dd ?
2006-10-16 14:17:49 +02:00
aConfirmDeleteTextBuf rb aConfirmDeleteTextMax + 1
2007-01-19 16:02:33 +01:00
CopySourceTextBuf rb 512
CopyDestEditBuf rb 12 + 512 + 1
2007-02-05 15:20:36 +01:00
.length = $ - CopyDestEditBuf - 13
2007-01-19 16:02:33 +01:00
align 4
layout rb 128
copy_buffer_size = 32768
copy_buffer rb copy_buffer_size
2006-10-16 14:17:49 +02:00
2006-10-12 01:19:10 +02:00
; stack
2006-10-16 14:17:49 +02:00
align 4
2006-10-12 01:19:10 +02:00
rb 512
stacktop:
mem:
