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


use32
        db      'MENUET01'
        dd      1
        dd      start
        dd      i_end
memsize dd      mem
        dd      stacktop
        dd      0, app_path
 
version equ '0.65'
version_dword equ 0*10000h + 65
 
min_width = 54
max_width = 255
min_height = 8
max_height = 255
 
include '../../../KOSfuncs.inc'
include '../../../macros.inc'
include 'lang.inc'
include 'font.inc'
include 'sort.inc'
include 'kglobals.inc'
include 'dialogs.inc'
include 'search.inc'
include 'viewer.inc'
include 'editor.inc'
include 'tools.inc'
include 'filetool.inc'
 
struct PanelData
left     dd      ?
top      dd      ?
width    dd      ?
height   dd      ?
index    dd      ?
start    dd      ?
colsz    dd      ?
colst    dd      ?
sortmode db      ?
                rb      3
nfa      dd      ?
numfiles dd      ?
files    dd      ?
hPlugin  dd      ?
hFile    dd      ?
parents          dd      ?
parents_sz       dd      ?
parents_alloc    dd      ?
colmode          dd      ?
colwidths        rd      16+1
total_num        dd      ?
total_size       dq      ?
selected_num     dd      ?
selected_size    dq      ?
;plugin_info:
plugin_flags     dd      ?
dir      rb      1024
ends
 
cursor_normal_size = (font_height*15+50)/100
cursor_big_size = font_height
 
align 4
start:
        mov     eax,SF_SET_EVENTS_MASK
        mov     ebx,(11b shl 30) or 100111b
        int     0x40
        mov     edi, identical_table
        mov     ecx, 0x100
        xor     eax, eax
@@:
        stosb
        inc     eax
        loop    @b
        mov     cl, 'A'
@@:
        stosb
        inc     eax
        loop    @b
        add     al, 0x20
        mov     cl, 'Z'-'A'+1
@@:
        stosb
        inc     eax
        loop    @b
        sub     al, 0x20
        mov     cl, ''-'Z'-1
@@:
        stosb
        inc     eax
        loop    @b
        add     al, 0x20
        mov     cl, ''-''
@@:
        stosb
        inc     eax
        loop    @b
        add     al, 0x30
        mov     cl, ''-''+1
@@:
        stosb
        inc     eax
        loop    @b
        sub     al, 0x50
        mov     cl, 256-''-1
@@:
        stosb
        inc     eax
        loop    @b
        mov     byte [edi-256+'ð'], 'ñ'
        mov     cl, 'A'
        inc     eax
        rep     stosb
        mov     cl, 'Z'-'A'+1
        dec     eax
        rep     stosb
        mov     cl, 'a'-'Z'-1
        inc     eax
        rep     stosb
        mov     byte [edi-'a'+'_'], 0
        mov     cl, 'z'-'a'+1
        dec     eax
        rep     stosb
        mov     cl, ''-'z'-1
        inc     eax
        rep     stosb
        mov     cl, '¯'-''+1
        dec     eax
        rep     stosb
        mov     cl, 'à'-'¯'-1
        inc     eax
        rep     stosb
        mov     cl, 'ñ'-'à'+1
        dec     eax
        rep     stosb
        mov     cl, 256-'ñ'-1
        inc     eax
        rep     stosb
        mov     edi, SearchStringEditBuf
        mov     eax, SearchStringEditBuf.length
        stosd
        xor     eax, eax
        stosd
        stosd
        stosb
        push    SF_SYS_MISC
        pop     eax
        push    SSF_HEAP_INIT
        pop     ebx
        int     0x40
        call    init_console
        call    draw_window
        push    SF_KEYBOARD
        pop     eax
        push    SSF_SET_INPUT_MODE
        pop     ebx
        mov     ecx, ebx
        int     40h     ; set keyboard mode to scancodes
        mov     eax, 200
        mov     [panel1.nfa], eax
        mov     [panel2.nfa], eax
        mov     ecx, 200*4 + 32 + 200*304
        call    pgalloc
        mov     [panel1.files], eax
        call    pgalloc
        mov     [panel2.files], eax
        test    eax, eax
        jz      exit
        xor     eax, eax
        cmp     [panel1.files], eax
        jz      exit
        mov     [panel1.hPlugin], eax
        mov     [panel1.parents], eax
        mov     [panel1.parents_sz], eax
        mov     [panel1.parents_alloc], eax
        mov     [panel2.hPlugin], eax
        mov     [panel2.parents], eax
        mov     [panel2.parents_sz], eax
        mov     [panel2.parents_alloc], eax
        mov     [panel1.sortmode], al   ; sort by name
        mov     [panel2.sortmode], al
        mov     al, 2                   ; "áà¥¤­¨©" ä®à¬ â
        mov     [panel1.colmode], eax
        mov     [panel2.colmode], eax
        mov     [num_screens], 1
        mov     ecx, 0x1000
        call    pgalloc
        mov     [screens], eax
        test    eax, eax
        jz      exit
        mov     ecx, panels_vtable
        mov     [eax], ecx
        mov     [active_screen_vtable], ecx
        mov     [active_screen_keybar], keybar_panels
; load libini.obj and kfar.ini
        mov     eax, libini_name
        mov     esi, ini_import
        push    8
        pop     ebp     ; we use version 8 of libini
        call    load_dll_and_import
        test    eax, eax
        jnz     .noini
        mov     edi, app_path
        or      ecx, -1
        repnz   scasb
        mov     dword [edi-1], '.ini'
        mov     byte [edi+3], 0
        push    1
        push    dword aConfirmDelete
        push    dword aConfirmations
        push    dword app_path
        call    [ini.get_int]
        mov     [bConfirmDelete], al
        push    0
        push    dword aConfirmDeleteIncomplete
        push    dword aConfirmations
        push    dword app_path
        call    [ini.get_int]
        mov     [bConfirmDeleteIncomplete], al
        push    2
        push    aLeftViewMode
        push    aPanels
        push    app_path
        call    [ini.get_int]
        cmp     eax, 1
        jb      @f
        cmp     eax, 4
        ja      @f
        mov     [panel1.colmode], eax
@@:
        push    2
        push    aRightViewMode
        push    aPanels
        push    app_path
        call    [ini.get_int]
        cmp     eax, 1
        jb      @f
        cmp     eax, 4
        ja      @f
        mov     [panel2.colmode], eax
@@:
        push    0
        push    aLeftSortMode
        push    aPanels
        push    app_path
        call    [ini.get_int]
        cmp     eax, 14
        jae     @f
        mov     [panel1.sortmode], al
@@:
        push    0
        push    aRightSortMode
        push    aPanels
        push    app_path
        call    [ini.get_int]
        cmp     eax, 14
        jae     @f
        mov     [panel2.sortmode], al
@@:
        push    nullstr
        push    512
        push    saved_file_name
        push    aEolStyle
        push    aEditor
        push    app_path
        call    [ini.get_str]
        mov     cl, edit.eol_dos
        mov     al, [saved_file_name]
        or      al, 20h
        cmp     al, 'd'
        jz      @f
        mov     cl, edit.eol_mac
        cmp     al, 'm'
        jz      @f
        mov     cl, edit.eol_unix
@@:
        mov     [EditEOLStyle], cl
        mov     ecx, 0x1000
        call    xpgalloc
        test    eax, eax
        jz      .skip_assoc
        mov     [associations], eax
        push    enum_associations_callback
        push    aAssociations
        push    app_path
        call    [ini.enum_keys]
.skip_assoc:
        xor     ebp, ebp
        xor     esi, esi
.shortcut_loop:
        mov     edi, saved_file_name
        push    dword nullstr
        push    512
        push    edi
        push    dword aShortcut
        push    dword aFolderShortcuts
        push    dword app_path
        call    [ini.get_str]
        cmp     byte [edi], 0
        jz      .shortcut_cont
        or      ecx, -1
        xor     eax, eax
        repnz   scasb
        not     ecx
        cmp     ecx, 2
        jz      @f
        cmp     byte [edi-2], '/'
        jnz     @f
        mov     byte [edi-2], 0
        dec     ecx
@@:
        mov     al, [aShortcut.d]
        push    esi
        inc     esi
        mov     [FolderShortcuts+(eax-'0')*4], esi
        lea     esi, [esi+ecx-1]
        push    esi
        and     esi, 0xFFF
        cmp     esi, ecx
        pop     esi
        ja      .norealloc
        mov     edx, ebp
        mov     ecx, esi
        call    xpgrealloc
        test    eax, eax
        jnz     @f
        pop     esi
        mov     edi, FolderShortcuts
        mov     ecx, 10
        rep     stosd
        jmp     .skip_shortcuts
@@:
        mov     ebp, eax
.norealloc:
        pop     edi
        add     edi, ebp
        mov     ecx, saved_file_name
@@:
        mov     al, [ecx]
        inc     ecx
        stosb
        test    al, al
        jnz     @b
.shortcut_cont:
        inc     [aShortcut.d]
        cmp     [aShortcut.d], '9'
        jbe     .shortcut_loop
        mov     esi, FolderShortcuts
        mov     ecx, 10
        dec     ebp
.l3:
        lodsd
        test    eax, eax
        jz      @f
        add     [esi-4], ebp
@@:
        loop    .l3
.skip_shortcuts:
; load plugins
        push    enum_plugins_callback
        push    aPlugins
        push    app_path
        call    [ini.enum_keys]
; calculate info for editor
        xor     ebx, ebx
        mov     ecx, [num_plugins]
        mov     esi, [plugins]
@@:
        dec     ecx
        js      @f
        mov     [esi+PluginInfo.EditInfoOffs], ebx
        add     ebx, [esi+PluginInfo.EditInfoSize]
        jnc     @f
        sbb     ebx, ebx
@@:
; ¯®áª®«ìªã à §¬¥à ¡«®ª  ¢ à¥¤ ªâ®à¥ ®£à ­¨ç¥­, â® ¨ à §¬¥à ¯ ¬ïâ¨, à¥§¥à¢¨àã¥¬®© ¤«ï ¯« £¨­®¢, ®£à ­¨ç¥­
; 512 - £àã¡ ï ¢¥àå­ïï ®æ¥­ª , £ à ­â¨àãîé ï à ¡®âã à¥¤ ªâ®à , à¥ «ì­® ¯« £¨­ë ¤®«¦­ë âà¥¡®¢ âì ¬¥­ìè¥
        cmp     ebx, 512
        jb      @f
        or      ebx, -1
        mov     [EditPlugInfo], ebx     ; disable plugins for editor
        push    ContinueBtn
        push    1
        push    EditConfigErr_ptr
        push    2
        call    SayErr
@@:
        add     ebx, 3
        and     ebx, not 3
        mov     [EditPlugInfo], ebx
.noini:
        mov     eax, [EditPlugInfo]
        add     eax, editor_line.plugdata
        imul    eax, max_height
        add     eax, editor_data.basesize + 0xFFF
        shr     eax, 12
        mov     [EditDataSize], eax
        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
        call    draw_keybar
        call    draw_cmdbar
        mov     [prev_dir], 0
        mov     ebp, panel1
        call    calc_colwidths
        call    read_folder
        call    draw_panel
        mov     [bSilentFolderMode], 1
        mov     ebp, panel2
        call    calc_colwidths
        call    read_folder
        call    draw_panel
event:
        call    get_event
        dec     eax
        jz      redraw
        dec     eax
        jz      key
        sub     eax,4
        jz      mouse
; button - we have only one button, close
exit:
; close all screens
@@:
        mov     ecx, [num_screens]
        mov     eax, [screens]
        mov     ebp, [eax+ecx*8-4]
        mov     eax, [eax+ecx*8-8]
        push    ebp
        call    [eax+screen_vtable.OnExit]
        pop     ecx
        call    pgfree
        dec     [num_screens]
        jnz     @b
; unload all plugins
        mov     ecx, [num_plugins]
        imul    esi, ecx, PluginInfo.size
        add     esi, [plugins]
.unload:
        dec     ecx
        js      .unload_done
        sub     esi, PluginInfo.size
        push    ecx esi
        call    [esi+PluginInfo.unload]
        pop     esi ecx
        jmp     .unload
.unload_done:
        cmp     [ini.set_int], aIniSetInt
        jz      .nosave
        push    [panel1.colmode]
        push    aLeftViewMode
        push    aPanels
        push    app_path
        call    [ini.set_int]
        push    [panel2.colmode]
        push    aRightViewMode
        push    aPanels
        push    app_path
        call    [ini.set_int]
        movzx   eax, [panel1.sortmode]
        push    eax
        push    aLeftSortMode
        push    aPanels
        push    app_path
        call    [ini.set_int]
        movzx   eax, [panel2.sortmode]
        push    eax
        push    aRightSortMode
        push    aPanels
        push    app_path
        call    [ini.set_int]
.nosave:
if CHECK_FOR_LEAKS
        mov     ecx, [panel1.files]
        call    pgfree
        mov     ecx, [panel2.files]
        call    pgfree
        mov     ecx, [screens]
        call    pgfree
        mov     ecx, [associations]
        call    pgfree
        mov     ecx, [console_data_ptr]
        call    pgfree
        mov     ecx, [MemForImage]
        call    pgfree
        mov     esi, FolderShortcuts
        push    10
        pop     ecx
@@:
        lodsd
        test    eax, eax
        jnz     @f
        loop    @b
        jmp     .nofreefs
@@:
        mov     ecx, eax
        call    pgfree
        mov     ecx, [plugins]
        call    pgfree
        mov     ecx, [panel1.parents]
        call    pgfree
        mov     ecx, [panel2.parents]
        call    pgfree
.nofreefs:
        mov     eax, [numallocatedregions]
        test    eax, eax
        jz      @f
        mov     edi, allocatedregions
        int3
        jmp     $
@@:
end if
        or      eax, SF_TERMINATE_PROCESS
        int     40h
 
align 16
get_event:
        push    ebx
        mov     ebx, [idle_interval]
        cmp     ebx, -1
        jz      .infinite
        push    SF_WAIT_EVENT_TIMEOUT
        pop     eax
        int     40h
        pop     ebx
        test    eax, eax
        jnz     .ret
        mov     ebp, [active_screen_data]
        mov     eax, [active_screen_vtable]
        mov     eax, [eax+screen_vtable.OnIdle]
        test    eax, eax
        jz      get_event
        call    eax
        jmp     get_event
.infinite:
        pop     ebx
        push    SF_WAIT_EVENT
        pop     eax
        int     40h
.ret:
        ret
 
redraw:
; query kbd state from OS
        mov     al, SF_KEYBOARD
        push    SSF_GET_CONTROL_KEYS
        pop     ebx
        int     0x40
        and     eax, 0x3F
        cmp     al, [ctrlstate]
        mov     [ctrlstate], al
        jz      @f
        call    draw_keybar
@@:
        mov     al, SF_THREAD_INFO
        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, SF_REDRAW
        push    SSF_BEGIN_DRAW
        pop     ebx
        int     0x40
        xor     eax, eax
; ebx, ecx, edi are ignored by function 0 after first redraw
        mov     edx, 0x53000000
        int     0x40
        mov     al, SF_REDRAW
        inc     ebx
        int     0x40
        jmp     event
@@:
        xor     ecx, ecx
        mov     eax, [ebx+42]
        mov     [wnd_width], eax
        sub     eax, 5*2-1
        jae     @f
        xor     eax, eax
@@:
        cdq
        mov     esi, font_width
        div     esi
        cmp     eax, min_width
        jae     @f
        mov     al, min_width
        mov     ch, 1
@@:
        cmp     eax, max_width
        jbe     @f
        mov     eax, max_width
        mov     ch, 1
@@:
        cmp     eax, [cur_width]
        mov     [cur_width], eax
        setnz   cl
        or      cl, ch
        test    edx, edx
        mov     [fill_width], edx
        setnz   ch
        mov     eax, [ebx+46]
        mov     [wnd_height], eax
        sub     eax, [skinh]
        sub     eax, 5-1
        jns     @f
        xor     eax, eax
@@:
        cdq
        mov     esi, font_height
        div     esi
        cmp     eax, min_height
        jae     @f
        mov     al, min_height
        mov     cl, 1
@@:
        cmp     eax, max_height
        jbe     @f
        mov     eax, max_height
        mov     cl, 1
@@:
        mov     [fill_height], edx
        cmp     eax, [cur_height]
        mov     [cur_height], eax
        jnz     .resize
        test    cl, cl
        jnz     .resize
        test    edx, edx
        setnz   cl
        or      cl, ch
        jz      @f
        test    byte [ebx+70], 1
        jnz     @f
.resize:
        push    SF_CHANGE_WINDOW
        pop     eax
        or      ebx, -1
        or      ecx, -1
        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, 5-1
        int     40h
.resize_draw:
        mov     ecx, [MemForImage]
        call    pgfree
        and     [MemForImage], 0
        call    init_console
;        call    draw_window
        call    draw_keybar
        mov     ebp, [active_screen_data]
        mov     eax, [active_screen_vtable]
        mov     [cursor_size], cursor_normal_size
        call    dword [eax+screen_vtable.OnRedraw]
        jmp     event
@@:
        call    draw_window
        jmp     event
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    SF_STYLE_SETTINGS
        pop     eax
        push    SSF_GET_SCREEN_AREA
        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    SF_CHANGE_WINDOW
        pop     eax
        int     0x40
        jmp     redraw.resize_draw
key:
        mov     al, SF_GET_KEY
        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
 
align 16
mouse:
        cmp     dword[active_screen],0
        jg      event
        mov     eax,SF_MOUSE_GET
        mov     ebx,SSF_BUTTON_EXT
        int     0x40
        mov     byte[mousestate], 1
        bt      eax,24 ;left but. double click
        jc      @f
        mov     byte[mousestate], 0
        bt      eax,8 ;left but. down
        jc      @f
        jmp     event
@@:
        mov     eax,SF_MOUSE_GET
        mov     ebx,SSF_WINDOW_POSITION
        int     0x40
        cmp     ax, word[skinh]
        jl      event
        sub     ax, word[skinh]
        xor     dx,dx
        mov     bx, font_height
        div     bx
        movzx   edx,ax
        dec     edx ;¢¥àå­ïï à ¬ª 
        dec     edx ;§ £®«®¢ª¨
        shr     eax,16
 
        cmp     edx, 0
        jl      .no_ch_pos
        mov     ebx, [cur_height]
        sub     ebx, 3
        cmp     edx, ebx
        je      .on_panel
        sub     ebx, 7-3
        cmp     edx, ebx
        jge     .no_ch_pos
 
        push    edx eax
        mov     ecx, [cur_width]
if font_width & 3
        imul    ecx, font_width
        shr     ecx, 2
else
        imul    ecx, font_width/4
end if
        xor     dx,dx
        sub     ax, 5 ;window border
        div     cx
        bt      ax, 0
        jnc     @f
        add     [esp+4], ebx ;¥á«¨ 2-© áâ®«¡¥æ
@@:
        pop     eax ;edx in stack
        jmp @f
.no_ch_pos:
        push    -1 ;edx = -1 - no change position
@@:
 
        mov     ebx, [cur_width]
        imul    ebx, font_width/2
        add     ebx, 5 ;window border
        cmp     eax,ebx
        jg      @f
        cmp     [active_panel], panel1
        je      .move
        jmp     .tab
@@:
        cmp     [active_panel], panel2
        je      .move
.tab:
        xor     [active_panel], panel1 xor panel2
        call    draw_cmdbar
        mov     ebp, [active_panel]
        xor     ebp, panel1 xor panel2
        call    draw_panel
.move:
        mov     ebp, [active_panel]
        pop     edx
        mov     eax, [ebp + PanelData.numfiles]
        add     edx, [ebp + PanelData.start] ;ç¨á«® ¯à®ªàãç¥­ëå ä ©«®¢
        dec     eax
        cmp     edx, eax
        jle     @f
        mov     edx, eax
@@:
        cmp     edx, 0
        jl      @f
        mov     [ebp + PanelData.index], edx
        cmp     byte[mousestate], 0
        je      @f
        call    panels_OnKey.enter
        jmp     event
@@:
        call    draw_panel
        jmp     event
align 4
.on_panel:
        call    get_keybar_ind
        lea     eax, [panels_mouse+4*eax]
        cmp     dword[eax], 0
        je      event
        mov     ebp, [active_panel]
        mov     ecx, [ebp + PanelData.index]
        call    dword[eax]
        jmp     event
 
;input:
; eax - coord x
;output:
; eax - key bar index (0 to 95) if press F1 index = 0
align 16
get_keybar_ind:
        push    ebx ecx edx esi edi
        xor     edx, edx
        mov     ebx, font_width
        sub     eax, 5 ;border
        div     ebx
        mov     edi, eax
 
        xor     esi, esi
        test    [ctrlstate], 3
        jz      @f
        inc     esi
@@:
        test    [ctrlstate], 0xC
        jz      @f
        or      si, 2
@@:
        test    [ctrlstate], 0x30
        jz      @f
        or      si, 4
@@:
        imul    esi, 12 ;ç¨á«® ª­®¯®ª F1-F12
        xor     ecx, ecx
        inc     ecx
        mov     ebx, 6
        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     ecx, 10
        jb      @f
        inc     edx
@@:
        cmp     edx, edi
        ja      .ret
        cmp     edx, [cur_width]
        ja      .ret
        cmp     ecx, 12
        jz      .ret
        lea     edx, [edx+ebx-6]
        inc     edx
        cmp     edx, [cur_width]
        ja      .ret
        inc     ecx
        jmp     .l
.ret:
        lea     eax, [esi+ecx-1]
        pop     edi esi edx ecx ebx   
        ret
 
align 4
OnMouse_ctrl_f3_9:
        sub     eax, panels_mouse.ctrl+8
        shr     eax, 2
        add     eax, 0x3D
        call    panels_OnKey.ctrl_f3_9
        ret
 
align 4
OnMouse_alt_f1_2:
        sub     eax, panels_mouse.alt
        shr     eax, 2
        add     eax, 0x3B
        call    panels_OnKey.alt_f1_2
        ret
 
align 16
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
 
enum_associations_callback:
; LongBool __stdcall callback(f_name,sec_name,key_name,key_value);
; [esp+4] = f_name, [esp+8] = sec_name, [esp+12] = key_name, [esp+16] = key_value
        mov     esi, [esp+12]
        mov     edi, esi
@@:
        lodsb
        test    al, al
        jnz     @b
        sub     esi, edi        ; esi = size of key name
        mov     eax, [esp+16]
@@:
        inc     esi
        inc     eax
        cmp     byte [eax-1], 0
        jnz     @b
; esi = total size of entry
        push    esi
        add     esi, [associations_size]
        mov     ecx, [associations_allocated]
@@:
        cmp     esi, ecx
        jbe     @f
        add     ecx, ecx
        jmp     @b
@@:
        pop     esi
        cmp     [associations_allocated], ecx
        jz      @f
        mov     [associations_allocated], ecx
        mov     edx, [associations]
        call    xpgrealloc
        mov     [associations], eax
        test    eax, eax
        jz      .err
@@:
        mov     eax, esi
        mov     esi, edi
        mov     edi, [associations]
        add     edi, [associations_size]
        dec     edi
        add     [associations_size], eax
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        mov     esi, [esp+16]
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
.ret:
        mov     al, 1
        ret     16
.err:
        mov     ecx, edx
        call    pgfree
        xor     eax, eax
        ret     16
 
align 4
enum_plugins_callback:
; LongBool __stdcall callback(f_name,sec_name,key_name,key_value);
; [esp+4] = f_name, [esp+8] = sec_name, [esp+12] = key_name, [esp+16] = key_value
        mov     esi, [esp+16]
        cmp     byte [esi], '/'
        jz      .absolute
; convert path to absolute
        mov     edi, execdata
@@:
        cmp     edi, execdata+1024
        jae     .overflow
        lodsb
        stosb
        test    al, al
        jnz     @b
        mov     edi, saved_file_name
        mov     [esp+16], edi
        mov     esi, app_path
        push    esi
        xor     ecx, ecx
@@:
        lodsb
        test    al, al
        jz      @f
        cmp     al, '/'
        jnz     @b
        mov     ecx, esi
        jmp     @b
@@:
        pop     esi
        sub     ecx, esi
        push    edi
        add     edi, ecx
        cmp     edi, saved_file_name+1024
        pop     edi
        ja      .overflow
        rep     movsb
        mov     esi, execdata
.z:
        cmp     word [esi], '.'
        jz      .ret
        cmp     word [esi], './'
        jnz     @f
        add     esi, 2
        jmp     .z
@@:
        cmp     word [esi], '..'
        jnz     .c
        cmp     byte [esi+2], 0
        jz      .ret
        cmp     byte [esi+2], '/'
        jnz     .c
        add     esi, 3
@@:
        dec     edi
        cmp     edi, saved_file_name
        jbe     .ret
        cmp     byte [edi-1], '/'
        jnz     @b
        jmp     .z
.c:
        cmp     edi, saved_file_name+1024
        jae     .overflow
        lodsb
        stosb
        test    al, al
        jnz     .c
        jmp     .absolute
.overflow:
        mov     esi, execdata
        mov     byte [esi+1023], 0
        call    load_dll_and_import.big
.ret:
        mov     al, 1
        ret     16
.absolute:
; allocate space for plugin info
        mov     eax, [num_plugins]
        inc     eax
        mov     [num_plugins], eax
        imul    ecx, eax, PluginInfo.size
        cmp     ecx, [alloc_plugins]
        jbe     .norealloc
        mov     edx, [plugins]
        call    xpgrealloc
        test    eax, eax
        jnz     @f
.dec_ret:
        dec     [num_plugins]
        jmp     .ret
@@:
        mov     [plugins], eax
        lea     eax, [ecx+0xFFF]
        and     eax, not 0xFFF
        mov     [alloc_plugins], eax
.norealloc:
        mov     esi, [plugins]
        lea     esi, [esi+ecx-PluginInfo.size]
; load plugin DLL
        or      ebp, -1
        mov     eax, [esp+16]
        call    load_dll_and_import.do
        test    eax, eax
        jnz     .dec_ret
; find exported functions
        mov     eax, aVersion
        call    load_dll_and_import.find_exported_function
        jnc     @f
        xor     eax, eax
@@:
MIN_INTERFACE_VER = 3
MAX_INTERFACE_VER = 3
        cmp     eax, MIN_INTERFACE_VER
        jb      @f
        cmp     eax, MAX_INTERFACE_VER
        jbe     .version_ok
@@:
        push    aIncompatibleVersion
.cantload:
        push    dword [esp+4+16]
        push    aCannotLoadPlugin
        mov     eax, esp
        push    ContinueBtn
        push    1
        push    eax
        push    3
        call    SayErr
        add     esp, 12
        jmp     .dec_ret
.version_ok:
        mov     edi, esi
        mov     esi, plugin_exported
.import:
        lodsd
        test    eax, eax
        jz      .import_done
        call    load_dll_and_import.find_exported_function
        jnc     @f
        mov     eax, [esi-4+plugin_exported_default-plugin_exported]
@@:
        stosd
        jmp     .import
.import_done:
; initialize plugin
        mov     eax, aPluginLoad
        call    load_dll_and_import.find_exported_function
        jc      .ok
        push    kfar_info
        call    eax
        cmp     eax, 1
        jb      .ok
        ja      .dec_ret
        push    aInitFailed
        jmp     .cantload
.ok:
        mov     al, 1
        ret     16
 
plugin_unload_default:
        ret
 
OpenFilePlugin_default:
        xor     eax, eax
        ret     28
GetFiles_default:
        xor     eax, eax
        ret     20
 
ClosePlugin_default:
        ret     4
 
GetOpenPluginInfo_default:
        ret     8
 
SetFolder_default:
open_default:
        xor     eax, eax
        ret     12
 
new_screen:
; in: ecx=sizeof(screen data), edx->vtable
; out: ebp=pointer or NULL, eax!=0 if successful
; destroys ebx,ecx
        call    xpgalloc
        test    eax, eax
        jnz     @f
        ret
@@:
        mov     ebp, eax
        mov     eax, [screens]
        mov     ecx, [num_screens]
        inc     ecx
        shl     ecx, 3
        test    ecx, 0xFFF
        jnz     .norealloc
        push    edx
        mov     edx, eax
        call    xpgrealloc
        pop     edx
        test    eax, eax
        jnz     @f
        mov     ecx, ebp
        call    pgfree
        xor     eax, eax
        ret
@@:
        mov     [screens], eax
.norealloc:
        inc     [num_screens]
        mov     [eax+ecx-8], edx
        mov     [eax+ecx-4], ebp
        mov     eax, [num_screens]
        dec     eax
        mov     [active_screen], eax
        mov     [active_screen_vtable], edx
        mov     [active_screen_data], ebp
        or      [idle_interval], -1
        mov     edx, [edx+screen_vtable.keybar]
        test    edx, edx
        jz      @f
        mov     [active_screen_keybar], edx
@@:
        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     change_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     ecx, [num_screens]
        shl     ecx, 3
        test    ecx, 0xFFF
        jnz     .norealloc
        mov     edx, [screens]
        call    pgrealloc               ; must succeed, because we decrease size
        mov     [screens], eax
.norealloc:
        pop     ecx
        call    pgfree
        dec     [active_screen]
 
change_screen:
        pusha
        or      [idle_interval], -1
        mov     eax, [active_screen]
        mov     esi, [screens]
        mov     ebp, [esi+eax*8+4]
        mov     eax, [esi+eax*8]
        push    eax ebp
        mov     eax, [eax+screen_vtable.OnActivate]
        test    eax, eax
        jz      @f
        call    eax
@@:
        pop     ebp eax
        mov     [active_screen_vtable], eax
        mov     [active_screen_data], ebp
        mov     edx, [eax+screen_vtable.keybar]
        test    edx, edx
        jz      @f
        mov     [active_screen_keybar], edx
@@:
        call    draw_keybar
        mov     [cursor_size], cursor_normal_size
        call    [eax+screen_vtable.OnRedraw]
        popa
        ret
 
F12:
        mov     eax, [cur_width]
        add     eax, 8
        mov     esi, eax
        mul     [num_screens]
        mov     ecx, eax
        call    xpgalloc
        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    dword aScreens
        push    eax
        call    menu
        cmp     eax, -1
        jz      @f
        sub     eax, ebx
        div     esi
        mov     [active_screen], eax
@@:
        mov     ecx, ebx
        call    pgfree
        jmp     change_screen
 
panels_OnKey:
; restore screen hidden by quick search box
        cmp     [bDisplayQuickSearch], 0
        jz      @f
        mov     [bDisplayQuickSearch], 0
        push    0
        push    QuickSearchDlg
        call    HideDialogBox
@@:
        mov     ebp, [active_panel]
        mov     ecx, [ebp + PanelData.index]
        mov     edx, [ebp + PanelData.start]
        mov     ebx, [ebp + PanelData.colst]
        add     ebx, edx
        mov     esi, panels_ctrlkeys
        call    process_ctrl_keys
        jc      .nostdkey
        mov     [bQuickSearchMode], 0
        ret
.leaveqsmode:
        mov     [bQuickSearchMode], 0
        call    draw_image
        ret
.keepqsmode:
        push    QuickSearchDlg
        call    ShowDialogBox
        mov     [bDisplayQuickSearch], 1
        ret
.nostdkey:
        cmp     [bQuickSearchMode], 0
        jz      .noqsmode
        test    al, al
        js      .keepqsmode
        cmp     al, 40h
        jae     .leaveqsmode
        cmp     al, 0Eh
        jz      .qsbackspace
        cmp     al, 1Ch
        jz      .test_enter
        movzx   eax, al
        cmp     byte [scan2ascii+eax], 0
        jz      .leaveqsmode
        call    get_ascii_char
        mov     ecx, dword [quick_search_buf + 4]
        cmp     ecx, quicksearch_maxlen
        jae     .keepqsmode
        mov     byte [quick_search_buf + 12 + ecx], al
        mov     byte [quick_search_buf + 12 + ecx + 1], 0
        push    ecx
        call    quick_find
        pop     ecx
        jnc     @f
        mov     byte [quick_search_buf + 12 + ecx], 0
        jmp     .keepqsmode
@@:
        inc     dword [quick_search_buf + 4]
        sub     ecx, 16
        jae     @f
        xor     ecx, ecx
@@:
        mov     dword [quick_search_buf + 8], ecx
        jmp     .keepqsmode
.qsbackspace:
        mov     ecx, dword [quick_search_buf + 4]
        jecxz   .keepqsmode2
        dec     ecx
        mov     byte [quick_search_buf + 12 + ecx], 0
        dec     dword [quick_search_buf + 4]
.keepqsmode2:
        jmp     .keepqsmode
.test_enter:
        test    [ctrlstate], 0Ch        ; LCtrl or RCtrl pressed?
        jz      .keepqsmode2
        test    [ctrlstate], 3          ; Shift pressed?
        jnz     @f
        call    quick_find_next
        jmp     .keepqsmode2
@@:
        call    quick_find_prev
        jmp     .keepqsmode2
.noqsmode:
; handle Alt+ combinations for quick search
        test    [ctrlstate], 30h        ; LAlt or RAlt pressed?
        jz      .noalt                  ; no => skip
        test    [ctrlstate], 0Ch        ; LCtrl or RCtrl pressed?
        jnz     .noalt                  ; yes => skip
        cmp     al, 40h
        jae     .noalt
        movzx   eax, al
        cmp     byte [scan2ascii+eax], 0
        jz      .noalt
        call    get_ascii_char
        mov     edi, quick_search_buf + 12
        mov     dword [edi-12], quicksearch_maxlen-1
        mov     dword [edi-8], 1
        and     dword [edi-4], 0
        stosb
        mov     byte [edi], 0
        call    quick_find
        jnc     @f
        mov     byte [quick_search_buf + 12], 0
        and     dword [quick_search_buf + 4], 0
@@:
        mov     ebx, QuickSearchDlg
        mov     eax, [ebp + PanelData.left]
        add     eax, 10
        mov     edx, [cur_width]
        sub     edx, 21
        cmp     eax, edx
        jb      @f
        mov     eax, edx
@@:
        mov     [ebx + dlgtemplate.x], eax
        mov     eax, [ebp + PanelData.top]
        add     eax, [ebp + PanelData.height]
        mov     edx, [cur_height]
        sub     edx, 2
        cmp     eax, edx
        jb      @f
        mov     eax, edx
@@:
        mov     [ebx + dlgtemplate.y], eax
        push    ebx
        call    ShowDialogBox
        mov     [bQuickSearchMode], 1
        mov     [bDisplayQuickSearch], 1
.find_letter_done:
.noalt:
.ret:
        ret
.up:
        jecxz   .ret
        dec     ecx
        mov     [ebp + PanelData.index], ecx
        cmp     ecx, edx
        jae     .done_redraw
        mov     [ebp + PanelData.start], ecx
.done_redraw:
;        call    draw_panel
;        ret
        jmp     draw_panel
.insert:
        lea     eax, [ecx*4]
        add     eax, [ebp + PanelData.files]
        mov     eax, [eax]
        cmp     word [eax+40], '..'
        jnz     @f
        cmp     byte [eax+42], 0
        jz      .insert.down
@@:
        xor     byte [eax+303], 1
        mov     edx, [eax+32]
        test    byte [eax+303], 1
        mov     eax, [eax+36]
        jnz     .insert.increase
        sub     dword [ebp + PanelData.selected_size], edx
        sbb     dword [ebp + PanelData.selected_size+4], eax
        dec     [ebp + PanelData.selected_num]
        jmp     .insert.down
.insert.increase:
        add     dword [ebp + PanelData.selected_size], edx
        adc     dword [ebp + PanelData.selected_size+4], eax
        inc     [ebp + PanelData.selected_num]
.insert.down:
        inc     ecx
        cmp     ecx, [ebp + PanelData.numfiles]
        jae     .done_redraw
        jmp     @f
.down:
        inc     ecx
        cmp     ecx, [ebp + PanelData.numfiles]
        jae     .ret
@@:
        mov     [ebp + PanelData.index], ecx
        cmp     ecx, ebx
        jb      .done_redraw
        sub     ecx, [ebp + PanelData.colst]
        inc     ecx
        mov     [ebp + PanelData.start], ecx
        jmp     .done_redraw
.left:
        test    ecx, ecx
        jnz     @f
        ret
@@:
        mov     eax, [ebp + PanelData.colsz]
        sub     ecx, eax
        jae     @f
        xor     ecx, ecx
@@:
        mov     [ebp + PanelData.index], ecx
.finalize_left:
        cmp     ecx, edx
        jae     .done_redraw
        sub     edx, eax
        jae     @f
        xor     edx, edx
@@:
        mov     [ebp + PanelData.start], edx
        jmp     .done_redraw
.pgup:
        mov     eax, [ebp + PanelData.colst]
        dec     eax
        jnz     @f
        inc     eax
@@:
        test    ecx, ecx
        jnz     @f
        ret
@@:
        sub     ecx, eax
        jae     @f
        xor     ecx, ecx
@@:
        mov     [ebp + PanelData.index], ecx
        dec     ecx
        jmp     .finalize_left
.right:
        mov     eax, [ebp + PanelData.colsz]
        add     ecx, eax
        cmp     ecx, [ebp + PanelData.numfiles]
        jb      @f
        mov     ecx, [ebp + PanelData.numfiles]
        dec     ecx
@@:
        mov     [ebp + PanelData.index], ecx
.finalize_right:
        cmp     ecx, ebx
        jb      .done_redraw
        add     ebx, eax
        cmp     ebx, [ebp + PanelData.numfiles]
        jbe     @f
        mov     ebx, [ebp + PanelData.numfiles]
@@:
        sub     ebx, [ebp + PanelData.colst]
        jae     @f
        xor     ebx, ebx
@@:
        mov     [ebp + PanelData.start], ebx
        jmp     .done_redraw
.pgdn:
        mov     eax, [ebp + PanelData.colst]
        dec     eax
        jnz     @f
        inc     eax
@@:
        add     ecx, eax
        cmp     ecx, [ebp + PanelData.numfiles]
        jb      @f
        mov     ecx, [ebp + PanelData.numfiles]
        dec     ecx
@@:
        mov     [ebp + PanelData.index], ecx
        inc     ecx
        jmp     .finalize_right
.tab:
        xor     [active_panel], panel1 xor panel2
        call    draw_cmdbar
        call    draw_panel
        mov     ebp, [active_panel]
        jmp     .done_redraw
.home:
        and     [ebp + PanelData.start], 0
        and     [ebp + PanelData.index], 0
        jmp     .done_redraw
.end:
        mov     eax, [ebp + PanelData.numfiles]
        dec     eax
        mov     [ebp + PanelData.index], eax
        inc     eax
        sub     eax, [ebp + PanelData.colst]
        jae     @f
        xor     eax, eax
@@:
        mov     [ebp + PanelData.start], eax
        jmp     .done_redraw
.enter:
        cmp     [bQuickSearchMode], 0
        jz      @f
        call    draw_image
@@:
        call    get_curfile_folder_entry
        test    byte [ecx], 10h
        jnz     .enter_folder
; todo: add  handling on plugin panel
        cmp     [ebp + PanelData.hPlugin], 0
        jnz     .ret
; generate full file name
        lea     esi, [ebp + PanelData.dir]
        mov     edi, execdata
@@:
        lodsb
        test    al, al
        jz      @f
        stosb
        cmp     edi, execdataend-1
        jae     .bigfilename
        jmp     @b
@@:
        lea     esi, [ecx+40]
        mov     al, '/'
        stosb
@@:
        lodsb
        stosb
        cmp     edi, execdataend
        ja      .bigfilename
        test    al, al
        jnz     @b
; try to open file and look for all plugins
        push    O_READ
        push    execdata
        call    open
        test    eax, eax
        jz      .noplugins      ; if can't open, just try to execute
        mov     esi, eax        ; save handle
        push    filedata_buffer_size
        push    filedata_buffer
        push    esi
        call    read
        mov     edi, eax        ; save size of read data
; test for Kolibri executable
        cmp     eax, 24h
        jb      .enter.noexec
        cmp     dword [filedata_buffer], 'MENU'
        jnz     @f
        cmp     word [filedata_buffer+4], 'ET'
        jnz     @f
.close_run:
        push    esi
        call    close
        jmp     .run_app
@@:
        cmp     dword [filedata_buffer], 'KPCK'
        jnz     @f
        cmp     dword [filedata_buffer+12], 0x26914601
        jz      .close_run
@@:
.enter.noexec:
        mov     ecx, [num_plugins]
        mov     edx, [plugins]
        sub     edx, PluginInfo.size
.plugloop:
        add     edx, PluginInfo.size
        dec     ecx
        js      .plugdone
        pushad
        push    execdata
        push    [ebp+ PanelData.hFile]
        push    [ebp+ PanelData.hPlugin]
        push    edi
        push    filedata_buffer
        call    get_curfile_folder_entry
        push    ecx
        push    esi
        call    [edx+PluginInfo.OpenFilePlugin]
        mov     [esp+28], eax
        popad
        test    eax, eax
        jz      .plugloop
        cmp     eax, -1
        jnz     .pluginok
        push    esi
        call    close
        ret
.pluginok:
; save current directory and set root directory of hPlugin
        mov     edi, eax        ; save handle
        mov     esi, execdata
@@:
        lodsb
        test    al, al
        jnz     @b
        sub     esi, execdata-9
; allocate esi bytes in buffer 'parents'
        mov     ecx, [ebp + PanelData.parents_sz]
        add     ecx, esi
        cmp     ecx, [ebp + PanelData.parents_alloc]
        jbe     .enter.norealloc
        push    edx
        mov     edx, [ebp + PanelData.parents]
        call    xpgrealloc
        pop     edx
        test    eax, eax
        jnz     @f
        push    edi
        call    [edx+PluginInfo.ClosePlugin]
        ret
@@:
        mov     [ebp + PanelData.parents], eax
.enter.norealloc:
        mov     [ebp + PanelData.parents_sz], ecx
; save current state to the end of buffer
        sub     ecx, esi
        add     ecx, [ebp + PanelData.parents]
        xchg    edx, [ebp + PanelData.hPlugin]
        mov     [ecx], edx
        xchg    edi, [ebp + PanelData.hFile]
        mov     [ecx+4], edi
        mov     byte [ecx+8], 0
        lea     edi, [ecx+9]
        lea     ecx, [esi-9]
        mov     esi, execdata
        rep     movsb
        mov     word [ebp + PanelData.dir], '/'
        mov     eax, [ebp + PanelData.hPlugin]
        lea     ebx, [ebp + PanelData.plugin_flags] ;plugin_info
        and     dword [ebx], 0
        push    ebp
        push    ebx
        push    [ebp + PanelData.hFile]
        call    [eax+PluginInfo.GetOpenPluginInfo]
        pop     ebp
        call    get_curfile_folder_entry
        mov     esi, ecx
        mov     edi, left_dotdot_entry
        cmp     ebp, panel1
        jz      @f
        add     edi, right_dotdot_entry-left_dotdot_entry
@@:
        mov     ecx, 10
        rep     movsd
        mov     byte [edi-40], 10h      ; attributes: folder
        mov     eax, '..'
        stosd
        jmp     .reread
.plugdone:
        push    esi
        call    close
.noplugins:
; run program or association
        call    get_curfile_folder_entry
        call    find_extension
        jc      .run_app
.run_association:
        cmp     byte [edi], 0
        jz      .l1
        cmp     byte [edi], ';'
        jnz     @f
.l1:
        ret
@@:
        mov     esi, edi
@@:
        lodsb
        test    al, al
        jz      @f
        cmp     al, ';'
        jnz     @b
        dec     esi
        mov     byte [esi], 0
        mov     [restore_semicolon], esi
@@:
.run_association2:
        mov     [execparams], execdata
        mov     [execptr], edi
        jmp     .dorun
.run_app:
        mov     [execptr], execdata
        and     [execparams], 0
.dorun:
        lea     esi, [ebp + PanelData.dir]
        mov     edi, execdata
@@:
        lodsb
        test    al, al
        jz      @f
        stosb
        cmp     edi, execdataend-1
        jae     .bigfilename
        jmp     @b
@@:
        lea     esi, [ecx+40]
        mov     al, '/'
        stosb
@@:
        lodsb
        stosb
        cmp     edi, execdataend
        ja      .bigfilename
        test    al, al
        jnz     @b
; 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
        mov     esi, [execptr]
@@:
        lodsb
        test    al, al
        jnz     @b
        mov     eax, [esi-5]
        or      eax, 0x20202020
        cmp     eax, 'fasm'
        jnz     .nofasm
        cmp     edi, execdata+(execdataend-execdata)/2
        ja      .bigfilename
        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
        cmp     edi, execdataend-4
        ja      .bigfilename
        mov     dword [edi-1], '.bin'
        mov     byte [edi+3], 0
        jmp     .nofasm
.ptfound:
        mov     byte [edi], 0
        pop     edi
.nofasm:
        mov     ebx, execinfo
; if command line is more than 256 symbols, the kernel will truncate it
; we do 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:
        push    SF_FILE
        pop     eax
        int     40h
        xor     esi, esi
        xchg    esi, [restore_semicolon]
        test    esi, esi
        jz      @f
        mov     byte [esi], ';'
@@:
        neg     eax
        js      @f
        call    get_error_msg
        push    eax
        push    dword aRunError
        mov     eax, esp
        push    ContinueBtn
        push    1
        push    eax
        push    2
        call    SayErr
        pop     eax
        pop     eax
        ret
@@:
        test    edx, edx
        jz      @f
        push    SF_SLEEP
        pop     eax
        push    20
        pop     ebx
        int     0x40
        jmp     .ctrl_r
@@:
        ret
.bigfilename3:
        pop     esi
.bigfilename2:
        pop     esi
.bigfilename:
        mov     eax, aFileNameTooBig
.l2:
        xor     esi, esi
        xchg    esi, [restore_semicolon]
        test    esi, esi
        jz      @f
        mov     byte [esi], ';'
@@:
        push    eax
        mov     eax, esp
        push    ContinueBtn
        push    1
        push    eax
        push    1
        call    SayErr
        pop     eax
        ret
.bigcmdline:
        mov     eax, aCmdLineTooBig
        jmp     .l2
.bigfoldername2:
        mov     esi, prev_dir
        lea     edi, [ebp + PanelData.dir]
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
.bigfoldername:
        mov     eax, aFolderNameTooBig
        jmp     .l2
.enter_folder:
        lea     esi, [ecx+40]
        cmp     word [esi], '..'
        jnz     @f
        cmp     byte [esi+2], 0
        jz      .dotdot
@@:
        push    esi
        lea     esi, [ebp + PanelData.dir]
        mov     edi, prev_dir
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        lea     edi, [esi-1]
        lea     edx, [ebp + PanelData.dir + 1024]
        cmp     esi, edx
        pop     esi
        jae     .bigfoldername
        mov     al, '/'
        cmp     [edi-1], al
        jz      @f
        stosb
@@:
        lodsb
        cmp     edi, edx
        jae     .bigfoldername2
        stosb
        test    al, al
        jnz     @b
        mov     eax, [ebp + PanelData.hPlugin]
        test    eax, eax
        jz      .reread
        push    ebp
        lea     esi, [ebp + PanelData.dir]
        push    esi
        add     ecx, 40
        push    ecx
        push    [ebp + PanelData.hFile]
        call    [eax+PluginInfo.SetFolder]
        pop     ebp
        test    al, al
        jnz     .reread
        mov     esi, prev_dir
        lea     edi, [ebp + PanelData.dir]
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
.retd:
        ret
.reread:
        call    read_folder
.done_cmdbar:
        call    draw_cmdbar
        jmp     .done_redraw
.dotdot:
        lea     edi, [ebp + PanelData.dir]
        cmp     word [edi], '/'
        jnz     .dotdot_noroot
        cmp     [ebp + PanelData.hPlugin], 0
        jz      .retd
        call    close_plugin_panel
        jmp     .dotdot
.dotdot_noroot:
        mov     edx, edi
        mov     al, 0
        or      ecx, -1
        repnz   scasb
        dec     edi
        mov     al, '/'
        std
        repnz   scasb
        cld
        inc     edi
        cmp     edi, edx
        jnz     @f
        inc     edi
@@:
        push    dword [edi]
        mov     byte [edi], 0
        push    edi
        mov     eax, [ebp + PanelData.hPlugin]
        test    eax, eax
        jz      .dotdot_native
        push    ebp
        lea     esi, [ebp + PanelData.dir]
        push    esi
        push    aDotDot
        push    [ebp + PanelData.hFile]
        call    [eax+PluginInfo.SetFolder]
        pop     ebp
        test    al, al
        jnz     .dotdot_native
        pop     edi
        pop     dword [edi]
        ret
.dotdot_native:
        call    read_folder
        pop     edi
        pop     dword [edi]
        push    edi
        cmp     byte [edi], '/'
        jnz     @f
        inc     edi
@@:
        mov     edx, [ebp + PanelData.files]
        mov     ecx, [ebp + PanelData.numfiles]
.scanloop:
        mov     esi, [edx]
        add     esi, 40
        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 + PanelData.files]
        shr     edx, 2
        mov     [ebp + PanelData.index], edx
        sub     edx, [ebp + PanelData.colst]
        jb      .scandone
        inc     edx
        mov     [ebp + PanelData.start], edx
.scandone:
        pop     edi
        mov     byte [edi], 0
        jmp     .done_cmdbar
.ctrl_f3_9:
        sub     al, 0x3D
        add     al, al
        mov     ah, [ebp + PanelData.sortmode]
        and     ah, 0xFE
        cmp     al, ah
        jnz     @f
        and     [ebp + PanelData.sortmode], 1
        or      al, [ebp + PanelData.sortmode]
        xor     al, 1
@@:
        mov     [ebp + PanelData.sortmode], al
        mov     eax, [ebp + PanelData.index]
        mov     ecx, [ebp + PanelData.files]
        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 + PanelData.index], ecx
        sub     ecx, [ebp + PanelData.start]
        jb      .less_start
        sub     ecx, [ebp + PanelData.colst]
        jae     .gr_end
@@:     jmp     .done_redraw
.less_start:
        add     [ebp + PanelData.start], ecx
        jmp     @b
.gr_end:
        inc     ecx
        add     [ebp + PanelData.start], ecx
        jmp     @b
.alt_f1_2:
        mov     ebp, panel1
        cmp     al, 0x3B
        jz      @f
        mov     ebp, panel2
@@:
; get drives list
        mov     ebx, dirinfo
        mov     [ebx+dirinfo.size-dirinfo], 1
        mov     [ebx+dirinfo.dirdata-dirinfo], driveinfo
        mov     [ebx+dirinfo.name-dirinfo], tmpname
        mov     byte [tmpname], '/'
        xor     edx, edx
        xor     ecx, ecx
.drive_loop_e:
        mov     byte [tmpname+1], 0
        push    SF_FILE
        pop     eax
        int     40h
        mov     ebx, dirinfo
        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+dirinfo.first-dirinfo]
        and     [ebx+dirinfo.first-dirinfo], 0
.drive_loop_i:
        push    SF_FILE
        pop     eax
        int     40h
        mov     ebx, dirinfo
        test    eax, eax
        jnz     .drive_loop_i_done
        add     ecx, 32+8
        push    ecx
        and     ecx, 0xFFF
        cmp     ecx, 32+8
        pop     ecx
        ja      @f
        call    xpgrealloc
        mov     edx, eax
        test    eax, eax
        jnz     @f
        pop     eax
        ret
@@:
        lea     edi, [edx+ecx-32]
        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+dirinfo.first-dirinfo]
        jmp     .drive_loop_i
.drive_loop_i_done:
        pop     [ebx+dirinfo.first-dirinfo]
        inc     [ebx+dirinfo.first-dirinfo]
        jmp     .drive_loop_e
.drive_loop_e_done:
        and     [ebx+dirinfo.first-dirinfo], 0
        mov     edi, edx
        xor     esi, esi
        add     ecx, edx
@@:
        and     dword [edi], 0
        mov     dword [edi+4], esi
        mov     esi, edi
        add     edi, 32+8
        cmp     edi, ecx
        jae     @f
        mov     [esi], edi
        jmp     @b
@@:
        mov     ecx, edx
        lea     edi, [ebp + PanelData.dir]
        cmp     [ebp + PanelData.hPlugin], 0
        jz      .find_cur_drive_loop
        mov     edi, [ebp + PanelData.parents]
        add     edi, 8
.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], 0
        jz      @f
        pop     edi
        mov     ecx, [ecx]
        jmp     .find_cur_drive_loop
@@:
        mov     ecx, edx
.cur_drive_found:
        pop     edi
        push    1
        push    aDrive
        push    ecx
        mov     eax, [ebp + PanelData.height]
        sub     eax, 2
        jae     @f
        add     eax, 2
@@:
        push    eax
        push    [ebp + PanelData.width]
        push    [ebp + PanelData.top]
        push    [ebp + PanelData.left]
        call    menu_centered_in
        cmp     eax, -1
        jnz     @f
        mov     ecx, edx
        call    pgfree
        ret
@@:
        push    eax
        push    edx
        call    close_plugin_panels
        pop     edx
        lea     edi, [ebp + PanelData.dir]
        push    edi
        mov     esi, edi
        mov     edi, prev_dir
        mov     ecx, 1024/4
        rep     movsd
        pop     edi
        pop     esi
        add     esi, 8
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        mov     ecx, edx
        call    pgfree
        call    read_folder
        jmp     .done_redraw
.shift_f5:
; todo: copy to plugin panel
        cmp     [ebp + PanelData.hPlugin], 0
        jz      @f
        ret
@@:
        mov     esi, ebp
        cmp     [ebp + PanelData.selected_num], 0
        jnz     .f5_2
        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:
; todo: copy to plugin panel
        mov     esi, ebp
        xor     esi, panel1 xor panel2
        cmp     [esi + PanelData.hPlugin], 0
        jz      .f5_2
        ret
.f5_2:
        add     esi, PanelData.dir
        mov     edi, CopyDestEditBuf
        mov     eax, CopyDestEditBuf.length
        stosd
        scasd
        xor     eax, eax
        stosd
        mov     edx, edi
@@:
        lodsb
        test    al, al
        jz      @f
        cmp     edi, CopyDestEditBuf+12+511
        jae     .bigfoldername
        stosb
        jmp     @b
@@:
        mov     al, '/'
        stosb
.f5_common:
        mov     eax, [ebp + PanelData.hPlugin]
        mov     [source_hModule], eax
        mov     eax, [ebp + PanelData.hFile]
        mov     [source_hPlugin], eax
        mov     eax, left_dotdot_entry
        cmp     ebp, panel1
        jz      @f
        add     eax, right_dotdot_entry-left_dotdot_entry
@@:
        mov     [default_attr], eax
        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
@@:
        mov     eax, [ebp + PanelData.selected_num]
        test    eax, eax
        jz      .f5_noselected1
        mov     ebx, eax
        push    10
        pop     ecx
        push    -'0'
@@:
        xor     edx, edx
        div     ecx
        push    edx
        test    eax, eax
        jnz     @b
@@:
        pop     eax
        add     al, '0'
        jz      @f
        stosb
        jmp     @b
@@:
if lang eq ru
        mov     dword [edi], ' í«¥'
        mov     dword [edi+4], '¬¥­â'
        add     edi, 8
        cmp     ebx, 1
        jz      @f
        mov     al, ' '
        stosb
        cmp     ebx, 4
        jbe     @f
        mov     word [edi-1], '®¢'
        inc     edi
@@:
else
        mov     dword [edi], ' ite'
        mov     byte [edi+4], 'm'
        add     edi, 5
        cmp     ebx, 1
        jz      @f
        mov     al, 's'
        stosb
@@:
end if
        jmp     .f5_selected1
 
.f5_noselected1:
        mov     al, '"'
        stosb
        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     al, '"'
        stosb
.f5_selected1:
        mov     esi, aCopy2
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        mov     ebx, copy_dlgdata
        mov     eax, [cur_width]
        sub     eax, 12
        mov     [ebx + dlgtemplate.width], eax
        dec     eax
        dec     eax
        mov     [ebx - copy_dlgdata + copy_dlgdata.lcopy.x2], eax
        mov     [ebx - copy_dlgdata + copy_dlgdata.ename.x2], 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.ename.flags], 0xC
        and     byte [ebx - copy_dlgdata + copy_dlgdata.copy.flags], not 4
        and     byte [ebx - copy_dlgdata + copy_dlgdata.cnl.flags], not 4
        push    ebx
        call    DialogBox
        cmp     eax, copy_dlgdata.copy
        jnz     .ret2
; ®¯¨àã¥¬
        mov     esi, CopyDestEditBuf+12
        mov     edi, esi
        xor     eax, eax
        or      ecx, -1
        repnz   scasb
        dec     edi
        dec     edi
        cmp     edi, esi
        jb      .ret2
        mov     [bEndSlash], 0
        cmp     byte [edi], '/'
        jnz     @f
        cmp     edi, esi
        jz      @f
        mov     byte [edi], 0
        dec     edi
        mov     [bEndSlash], 1
@@:
; á«¨ ¯ãâì ­¥ ­ ç¨­ ¥âáï á® á«íè , áç¨â ¥¬ ¥£® ®â­®á¨â¥«ì­® â¥ªãé¥© ¯ ¯ª¨
        cmp     byte [esi], '/'
        jz      .copy_absolute_path
        push    esi
        push    edi
        lea     edi, [ebp + PanelData.dir]
        or      ecx, -1
        xor     eax, eax
        repnz   scasb
        not     ecx
        pop     edi
        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 + PanelData.dir]
        push    edi
        mov     ecx, edx
        rep     movsb
        mov     byte [edi-1], '/'
        pop     esi
.copy_absolute_path:
; ­ ç «  á®§¤ ñ¬ ¢á¥ ¢ëè¥«¥¦ é¨¥ ¯ ¯ª¨, ª®â®àë¥ ¥éñ ­¥ áãé¥áâ¢ãîâ
; ®á«¥¤­¨© ¨§ í«¥¬¥­â®¢ ¬®¦¥â ¡ëâì ª ª ä ©«®¬, â ª ¨ ¯ ¯ª®©;
; ä®àá¨àã¥¬ ¯ ¯ªã ¢ á«ãç ¥, ¥á«¨ å®âï ¡ë ®¤¨­ ¨§ ¨áâ®ç­¨ª®¢ ï¢«ï¥âáï ¯ ¯ª®©
        xor     edx, edx
        cmp     [ebp + PanelData.selected_num], 0
        jz      .f5_noselected2
        mov     ecx, [ebp + PanelData.numfiles]
        mov     edi, [ebp + PanelData.files]
.scanselected2:
        mov     eax, [edi]
        add     edi, 4
        test    byte [eax+303], 1
        jz      @f
        test    byte [eax], 10h
        jz      @f
        inc     edx
@@:
        loop    .scanselected2
        jmp     .f5_selected2
.f5_noselected2:
        call    get_curfile_folder_entry
        test    byte [ecx], 10h
        setnz   dl
.f5_selected2:
        xor     eax, eax
        mov     edi, esi
.countslashloop:
        cmp     byte [edi], '/'
        jnz     @f
        inc     eax
        mov     ecx, edi
@@:
        inc     edi
        cmp     byte [edi], 0
        jnz     .countslashloop
        mov     [bNeedRestoreName], 0
; "/file-system/partition" folders already exist, so we don't need to create them
        cmp     eax, 2
        jbe     .createupdone
; we interpret destination as folder if edx!=0 or bEndSlash!=0
        test    edx, edx
        jnz     @f
        cmp     [bEndSlash], 0
        jnz     @f
        mov     edi, ecx
        dec     eax
@@:
        mov     [attrinfo.name], esi
        mov     ecx, eax
; ¨é¥¬ ¯®á«¥¤­îî ¯ ¯ªã, ª®â®à ï ¥éñ áãé¥áâ¢ã¥â
.createuploop1:
        cmp     eax, 2
        jbe     .createupdone1
        mov     dl, [edi]
        mov     byte [edi], 0
        push    eax
        push    SF_FILE
        pop     eax
        mov     ebx, attrinfo
        int     0x40
        test    eax, eax
        pop     eax
        mov     byte [edi], dl
        jnz     .createupcont1
        test    byte [attrinfo.attr], 10h
        jnz     .createupdone1
; the item required to be a folder, but is file
        push    aNotFolder
        push    esi
        mov     eax, esp
        push    ContinueBtn
        push    1
        push    eax
        push    2
        call    SayErr
        pop     eax
        pop     eax
.ret3:
        ret
.createupcont1:
        dec     eax
@@:
        dec     edi
        cmp     byte [edi], '/'
        jnz     @b
        jmp     .createuploop1
.createupdone1:
; á®§¤ ñ¬ ¢á¥ ¯ ¯ª¨, ª®â®àë¥ ­ ¬ ­ã¦­ë
        cmp     eax, ecx
        jae     .createupdone
@@:
        inc     edi
        cmp     byte [edi], 0
        jz      @f
        cmp     byte [edi], '/'
        jnz     @b
@@:
        mov     dl, byte [edi]
        mov     byte [edi], 0
        push    eax
        push    RetryOrCancelBtn
        push    2
        call    makedir
        mov     byte [edi], dl
        mov     [bNeedRestoreName], 1
        pop     eax
        jnz     .ret3
        inc     eax
        jmp     .createupdone1
.createupdone:
        mov     dl, 1
        cmp     byte [edi], 1
        sbb     eax, -1
        cmp     eax, 2
        jbe     .docopy
        mov     [attrinfo.attr], 0      ; assume zero attributes if error
        push    SF_FILE
        pop     eax
        mov     ebx, attrinfo
        int     0x40
        test    [attrinfo.attr], 10h
        setnz   dl
.docopy:
        call    get_curfile_folder_entry
        mov     eax, ecx
        cmp     [bNeedRestoreName], 0
        jz      @f
        cmp     [bEndSlash], 0
        jnz     @f
        cmp     [ebp + PanelData.selected_num], 0
        jnz     @f
        test    byte [eax], 10h
        jz      @f
        mov     dl, 0
@@:
; ­ ç¨­ ¥¬ á®¡áâ¢¥­­® ª®¯¨à®¢ ­¨¥
        mov     [bDestIsFolder], dl
        mov     [copy_bSkipAll], 0
        mov     [copy_bSkipAll2], 0
        mov     [copy_bSkipAll3], 0
        test    [ebp + PanelData.plugin_flags], 2
        jnz     .copy_GetFiles
        cmp     [ebp + PanelData.selected_num], 0
        jnz     .f5_selected3
        call    copy_file
.copydone:
        push    ebp
        call    .ctrl_r
        pop     ebp
        xor     ebp, panel1 xor panel2
        jmp     .ctrl_r
.f5_selected3:
        mov     ecx, [ebp + PanelData.numfiles]
        mov     esi, [ebp + PanelData.files]
.f5_selected_copyloop:
        lodsd
        test    byte [eax+303], 1
        jz      .f5_selected_copycont
        mov     [bDestIsFolder], dl
        call    copy_file
        ja      .f5_multiple_cancel
        and     byte [eax+303], not 1
        pushad
        call    draw_panel
        cmp     [bNeedRestoreName], 0
        jz      @f
        mov     esi, CopyDestEditBuf+12
        call    delete_last_name_from_end
@@:
        popad
.f5_selected_copycont:
        loop    .f5_selected_copyloop
.f5_multiple_cancel:
        jmp     .copydone
.copy_GetFiles:
        mov     ecx, [ebp + PanelData.selected_num]
        cmp     ecx, 1
        adc     ecx, 0
        shl     ecx, 2
        call    xpgalloc
        test    eax, eax
        jnz     @f
        ret
@@:
        push    ebp eax ; save
        push    copy_AddDir     ; adddir
        push    copy_AddFile    ; addfile
        push    eax             ; items
        shr     ecx, 2
        push    ecx             ; NumItems
        push    [ebp + PanelData.hFile]
        mov     edi, eax
        call    get_curfile_folder_entry
        mov     [edi], ecx
        cmp     [ebp + PanelData.selected_num], 0
        jz      .cgf1
        mov     esi, [ebp + PanelData.files]
        mov     ecx, [ebp + PanelData.numfiles]
.cgf0:
        lodsd
        test    byte [eax+303], 1
        jz      @f
        stosd
@@:
        loop    .cgf0
.cgf1:
        mov     eax, [ebp + PanelData.hPlugin]
        call    [eax+PluginInfo.GetFiles]
        pop     ecx ebp
        call    pgfree
        jmp     .copydone
 
.f3:
        mov     eax, [ebp + PanelData.files]
        mov     ecx, [eax+ecx*4]
        test    byte [ecx], 10h
        jnz     .ret2
        lea     esi, [ebp + PanelData.dir]
        xor     eax, eax
        call    view_file
.ret2:
        ret
.f4:
        call    edit_file
        ret
.f8_has_selected:
        mov     edi, saved_file_name+511
        mov     byte [edi], 0
        mov     eax, [ebp + PanelData.selected_num]
if lang eq ru
        cmp     eax, 1
        jz      @f
        dec     edi
        mov     byte [edi], ' '
        cmp     eax, 4
        jbe     @f
        dec     edi
        mov     word [edi], '®¢'
@@:
        mov     dword [edi-4], '¬¥­â'
        mov     dword [edi-8], ' í«¥'
        sub     edi, 8
else
        cmp     eax, 1
        jz      @f
        dec     edi
        mov     byte [edi], 's'
@@:
        mov     dword [edi-4], 'item'
        mov     byte [edi-5], ' '
        sub     edi, 5
end if
        xor     edx, edx
        push    10
        pop     ecx
@@:
        div     ecx
        add     dl, '0'
        dec     edi
        mov     [edi], dl
        xor     edx, edx
        test    eax, eax
        jnz     @b
        push    edi
        push    aConfirmDeleteText
        mov     eax, esp
        push    DeleteOrCancelBtn
        push    2
        push    eax
        push    2
        push    aDeleteCaption
        call    Message
        add     esp, 8
        test    eax, eax
        jnz     .ret2
        mov     [del_bSkipAll], 0
        mov     ecx, [ebp + PanelData.numfiles]
        jecxz   .ret2
        mov     esi, [ebp + PanelData.files]
.f8_loop:
        lodsd
        test    byte [eax+303], 1
        jz      @f
        call    delete_file
        ja      .f8_multiple_cancel
@@:
        loop    .f8_loop
.f8_multiple_cancel:
        jmp     .copydone
.f8:
; todo: delete files from plugin panel
        cmp     [ebp + PanelData.hPlugin], 0
        jz      @f
        ret
@@:
        cmp     [ebp + PanelData.selected_num], 0
        jnz     .f8_has_selected
        call    get_curfile_folder_entry
        cmp     word [ecx+40], '..'
        jnz     @f
        cmp     byte [ecx+42], 0
        jz      .f8_not_allowed
@@:
        cmp     [bConfirmDelete], 0
        jz      .f8_allowed
        lea     eax, [ecx+40]
        push    eax
        mov     esi, aConfirmDeleteText
        mov     edi, aConfirmDeleteTextBuf
        push    edi
@@:
        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
        mov     eax, esp
        push    DeleteOrCancelBtn
        push    2
        push    eax
        push    2
        push    aDeleteCaption
        call    Message
        add     esp, 8
        test    eax, eax
        jz      .f8_allowed
.f8_not_allowed:
        ret
.f8_allowed:
        mov     [del_bSkipAll], 0
        mov     eax, ecx
        call    delete_file
        jmp     .copydone
.ctrl_r:
; Rescan panel
;       call    read_folder
;       jmp     .done_redraw
        mov     eax, [ebp + PanelData.index]
        push    eax
        call    get_curfile_name
        mov     esi, ecx
        mov     edi, saved_file_name
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
.ctrl_r.doread:
        push    [ebp + PanelData.start]
        call    read_folder
        pop     [ebp + PanelData.start]
        pop     [ebp + PanelData.index]
        or      eax, -1
@@:
        inc     eax
        cmp     eax, [ebp + PanelData.numfiles]
        jae     .ctrl_r.notfound
        mov     ecx, [ebp + PanelData.files]
        mov     esi, [ecx+eax*4]
        add     esi, 40
        mov     edi, saved_file_name
        call    strcmpi
        jnz     @b
.ctrl_r.found:
        mov     [ebp + PanelData.index], eax
.ctrl_r.notfound:
        mov     eax, [ebp + PanelData.numfiles]
        dec     eax
        cmp     [ebp + PanelData.index], eax
        jbe     @f
        mov     [ebp + PanelData.index], eax
@@:
        mov     eax, [ebp + PanelData.index]
        cmp     [ebp + PanelData.start], eax
        jbe     @f
        mov     [ebp + PanelData.start], eax
@@:
        inc     eax
        sub     eax, [ebp + PanelData.colst]
        jae     @f
        xor     eax, eax
@@:
        cmp     [ebp + PanelData.start], eax
        jae     @f
        mov     [ebp + PanelData.start], eax
@@:
        mov     eax, [ebp + PanelData.numfiles]
        sub     eax, [ebp + PanelData.colst]
        jbe     @f
        cmp     [ebp + PanelData.start], eax
        jbe     @f
        mov     [ebp + PanelData.start], eax
@@:
        jmp     .done_redraw
.menu:
; todo: context menu for plugin panel
        cmp     [ebp + PanelData.hPlugin], 0
        jz      @f
        ret
@@:
; display context menu
; ignore folders
        call    get_curfile_folder_entry
        test    byte [ecx], 10h
        jz      @f
.menuret:
        ret
@@:
        call    find_extension
        jc      .menuret
; known extension
@@:
        cmp     byte [edi], 0
        jz      .menuret
        cmp     byte [edi], ';'
        jz      @f
        inc     edi
        jmp     @b
@@:
        inc     edi
@@:
        inc     edi
        cmp     byte [edi-1], ' '
        jz      @b
        cmp     byte [edi-1], 9
        jz      @b
        dec     edi
        cmp     byte [edi], 0
        jz      .menuret
        mov     ecx, esi
@@:
        inc     ecx
        cmp     byte [ecx-1], 0
        jnz     @b
        sub     ecx, esi        ; ecx = ¤«¨­  ¨¬¥­¨ ä ©« +1 = ¤«¨­  § £®«®¢ª +1
        cmp     ecx, 15
        jb      @f
        mov     cl, 15
@@:
        xor     edx, edx
        xor     ebp, ebp
        push    edx
.menucreateloop:
        mov     eax, edi
        xor     ebx, ebx
@@:
        cmp     byte [edi], ','
        jz      @f
        cmp     byte [edi], bl
        jz      @f
        inc     edi
        jmp     @b
@@:
        xchg    bl, [edi]
        pushad
        push    nullstr
        push    1024
        push    saved_file_name
        push    eax
        push    aMenu
        push    app_path
        call    [ini.get_str]
        popad
        mov     [edi], bl
        mov     eax, saved_file_name
@@:
        cmp     byte [eax], 0
        jz      .menucreatecont
        cmp     byte [eax], ','
        jz      @f
        inc     eax
        jmp     @b
@@:
        mov     byte [eax], 0
        push    eax
        sub     eax, saved_file_name-1
        cmp     eax, ecx
        ja      @f
        mov     eax, ecx
@@:
        xchg    eax, [esp]
        inc     eax
        push    eax
@@:
        inc     eax
        cmp     byte [eax-1], 0
        jnz     @b
        sub     eax, [esp]
        add     [esp+4], eax
        pop     eax eax
        add     eax, 8
        add     ebp, eax
        push    ebp
        and     ebp, 0xFFF
        cmp     ebp, eax
        pop     ebp
        ja      @f
        push    eax
        xchg    edx, [esp+4]
        push    ecx
        mov     ecx, ebp
        call    xpgrealloc
        pop     ecx
        pop     edx
        xchg    edx, [esp]
        test    eax, eax
        xchg    eax, [esp]
        jz      .menucreated
@@:
        neg     eax
        add     eax, ebp
        add     eax, [esp]
        and     dword [eax], 0
        and     dword [eax+4], 0
        test    edx, edx
        jz      @f
        sub     eax, [esp]
        mov     [edx], eax
        add     eax, [esp]
        sub     edx, [esp]
        mov     [eax+4], edx
@@:
        mov     edx, eax
        push    esi edi
        mov     esi, saved_file_name
        lea     edi, [eax+8]
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        push    esi
        sub     esi, saved_file_name
        sub     esi, ecx
        jae     .menunoadd
        neg     esi
@@:
        mov     byte [edi-1], ' '
        stosb
        dec     esi
        jnz     @b
.menunoadd:
        pop     esi
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        pop     edi esi
.menucreatecont:
        inc     edi
        cmp     byte [edi-1], ','
        jz      .menucreateloop
.menucreated:
        test    edx, edx
        jz      .menuret_free
        and     dword [edx], 0
        pop     edx
        mov     ecx, edx
        add     [ecx], edx
@@:
        mov     ecx, [ecx]
        cmp     dword [ecx], 0
        jz      @f
        add     [ecx], edx
        add     [ecx+4], edx
        jmp     @b
@@:
        add     [ecx+4], edx
        push    edx
        push    1
        push    esi
        push    edx
        call    menu
        cmp     eax, -1
        jz      .menuret_free
        lea     edi, [eax+8]
@@:
        inc     edi
        cmp     byte [edi-1], 0
        jnz     @b
        mov     ebp, [active_panel]
        call    get_curfile_folder_entry
        call    .run_association2
.menuret_free:
        pop     ecx
        jmp     pgfree
.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 + dlgtemplate.width], eax
        dec     eax
        dec     eax
        mov     [ebx + MkDir_Dlgdata.dnam.x2], eax
        shr     eax, 1
        dec     eax
        dec     eax
        mov     [ebx + MkDir_Dlgdata.cont.x2], eax
        sub     eax, a_ContinueLength-1
        mov     [ebx + MkDir_Dlgdata.cont.x1], eax
        add     eax, a_ContinueLength+3
        mov     [ebx + MkDir_Dlgdata.cnl.x1], eax
        add     eax, aCancelBLength - 1
        mov     [ebx + MkDir_Dlgdata.cnl.x2], eax
        mov     byte [ebx + MkDir_Dlgdata.dnam.flags], 0xC
        and     byte [ebx + MkDir_Dlgdata.cont.flags], not 4
        and     byte [ebx + MkDir_Dlgdata.cnl.flags], not 4
        push    ebx
        call    DialogBox
        cmp     eax, mkdir_dlgdata.cont
        jnz     .ret2
        mov     esi, CopyDestEditBuf+12
        cmp     byte [esi], 0
        jz      .ret2
        cmp     byte [esi], '/'
        jz      .mkdir_absolute_path
        push    esi
        lea     edi, [ebp + PanelData.dir]
        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 + PanelData.dir]
        push    edi
        mov     ecx, edx
        rep     movsb
        mov     byte [edi-1], '/'
        pop     esi
.mkdir_absolute_path:
        push    RetryOrCancelBtn
        push    2
        call    makedir
        jmp     .copydone
.change_mode:
        dec     eax
        mov     [ebp + PanelData.colmode], eax
        call    calc_colwidths
        jmp     draw_panel
.quick_jump:
        dec     eax
        cmp     al, 10
        jnz     @f
        xor     eax, eax
@@:
        mov     eax, [FolderShortcuts+eax*4]
        test    eax, eax
        jnz     @f
        ret
@@:
        push    eax
        call    close_plugin_panels
        lea     esi, [ebp + PanelData.dir]
        push    esi
        mov     edi, prev_dir
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        pop     edi esi
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        jmp     .reread
.greyplus:
        push    0
        mov     ecx, aSelect
        jmp     @f
.greyminus:
        push    1
        mov     ecx, aDeselect
@@:
        mov     eax, mark_dlgdata
        mov     [eax+mark_dlgdata.title-mark_dlgdata], ecx
        mov     [eax+mark_dlgdata.edit.flags-mark_dlgdata], 0xC
        mov     edi, enter_string_buf+12
        mov     dword [edi-12], 512
        mov     dword [edi-8], 1
        and     dword [edi-4], 0
        mov     word [edi], '*'
        push    eax
        call    DialogBox
        inc     eax
        jnz     @f
.noselect:
        pop     eax
        ret
@@:
        xor     eax, eax
        mov     esi, edi
@@:
        lodsb
        mov     al, [tolower_table+eax]
        mov     [esi-1], al
        test    al, al
        jnz     @b
@@:
        mov     ecx, [ebp + PanelData.numfiles]
        mov     ebx, [ebp + PanelData.files]
        jecxz   .noselect
        mov     eax, [ebx]
        cmp     word [eax+40], '..'
        jnz     .selectloop
        cmp     byte [eax+42], 0
        jnz     .selectloop
        dec     ecx
        jz      .noselect
        add     ebx, 4
.selectloop:
        xor     eax, eax
        mov     esi, [ebx]
        add     esi, 40
        mov     edx, lower_file_name-1
@@:
        lodsb
        inc     edx
        mov     al, [tolower_table+eax]
        mov     [edx], al
        test    al, al
        jnz     @b
        mov     esi, lower_file_name
        call    match_mask_rev_lowercase
        jc      @f
        mov     esi, [ebx]
        mov     eax, [esi+32]
        cmp     byte [esp], 0
        jz      .doselect
        test    byte [esi+303], 1
        jz      @f
        and     byte [esi+303], not 1
        sub     dword [ebp + PanelData.selected_size], eax
        mov     eax, [esi+36]
        sbb     dword [ebp + PanelData.selected_size+4], eax
        dec     dword [ebp + PanelData.selected_num]
        jmp     @f
.doselect:
        test    byte [esi+303], 1
        jnz     @f
        or      byte [esi+303], 1
        add     dword [ebp + PanelData.selected_size], eax
        mov     eax, [esi+36]
        adc     dword [ebp + PanelData.selected_size+4], eax
        inc     dword [ebp + PanelData.selected_num]
@@:
        add     ebx, 4
        dec     ecx
        jnz     .selectloop
        pop     eax
        jmp     .done_redraw
.greyasterisk:
        mov     ecx, [ebp + PanelData.numfiles]
        mov     esi, [ebp + PanelData.files]
        jecxz   .galoopdone
.galoop:
        lodsd
        cmp     word [eax+40], '..'
        jnz     @f
        cmp     byte [eax+42], 0
        jz      .gacont
@@:
        xor     byte [eax+303], 1
        mov     edx, [eax+32]
        test    byte [eax+303], 1
        jz      .gadel
        add     dword [ebp + PanelData.selected_size], edx
        mov     edx, [eax+36]
        adc     dword [ebp + PanelData.selected_size+4], edx
        inc     dword [ebp + PanelData.selected_num]
        jmp     .gacont
.gadel:
        sub     dword [ebp + PanelData.selected_size], edx
        mov     edx, [eax+36]
        sbb     dword [ebp + PanelData.selected_size+4], edx
        dec     dword [ebp + PanelData.selected_num]
.gacont:
        loop    .galoop
.galoopdone:
        jmp     .done_redraw
 
@@:
        call    close_plugin_panel
close_plugin_panels:
        cmp     [ebp + PanelData.hPlugin], 0
        jnz     @b
        ret
 
align 4
close_plugin_panel:
; close plugin and restore old directory
        mov     esi, [ebp + PanelData.parents]
        add     esi, [ebp + PanelData.parents_sz]
@@:
        dec     esi
        cmp     byte [esi-1], 0
        jnz     @b
        push    esi
        lea     edi, [ebp + PanelData.dir]
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        pop     esi
        sub     esi, 9
        mov     edx, [esi]      ; hPlugin
        mov     ebx, [esi+4]    ; hFile
        sub     esi, [ebp + PanelData.parents]
        mov     [ebp + PanelData.parents_sz], esi
        xchg    edx, [ebp + PanelData.hPlugin]
        xchg    ebx, [ebp + PanelData.hFile]
        push    edx ebx
        lea     ebx, [ebp + PanelData.plugin_flags] ;plugin_info
        and     dword [ebx], 0
        mov     eax, [ebp + PanelData.hPlugin]
        test    eax, eax
        jz      @f
        push    ebp
        push    ebx
        push    [ebp + PanelData.hFile]
        call    [eax+PluginInfo.GetOpenPluginInfo]
        pop     ebp
@@:
        pop     ebx edx
 
align 4
close_handle_if_unused:
; edx=hPlugin, ebx=hFile
        push    ebp
        xor     ecx, ecx
@@:
        mov     eax, [screens]
        mov     ebp, [eax+ecx*8+4]
        mov     eax, [eax+ecx*8]
        call    [eax+screen_vtable.IsHandleUsed]
        jz      .used
        inc     ecx
        cmp     ecx, [num_screens]
        jb      @b
        push    ebx
        call    [edx+PluginInfo.ClosePlugin]
.used:
        pop     ebp
        ret
 
align 4
panels_IsHandleUsed:
; edx=hPlugin, ebx=hFile
        mov     ebp, panel1
        call    .1
        jz      .ret
        mov     ebp, panel2
 
.1:
        cmp     edx, [ebp+ PanelData.hPlugin]
        jnz     @f
        cmp     ebx, [ebp+ PanelData.hFile]
        jz      .ret
@@:
        mov     esi, [ebp + PanelData.parents_sz]
        test    esi, esi
        jnz     @f
        inc     esi
.ret:
        ret
@@:
        add     esi, [ebp + PanelData.parents]
@@:
        dec     esi
        cmp     byte [esi-1], 0
        jnz     @b
        sub     esi, 9
        cmp     edx, [esi]      ; hPlugin
        jnz     .no
        mov     ebx, [esi+4]    ; hFile
        jz      .ret
.no:
        cmp     esi, [ebp + PanelData.parents]
        jnz     @b
        inc     esi
        ret
 
align 4
panels_OnExit:
; close plugin panels
        mov     ebp, panel1
        call    close_plugin_panels
        mov     ebp, panel2
        call    close_plugin_panels
        ret
 
align 4
panels_OnRedraw:
        or      [cursor_x], -1
        or      [cursor_y], -1
        call    draw_cmdbar
        mov     ebp, panel1
        call    calc_colwidths
        call    draw_panel
        mov     ebp, panel2
        call    calc_colwidths
        call    draw_panel
        ret
 
align 4
init_console:
        mov     ecx, [console_data_ptr]
        call    pgfree
        mov     eax, [cur_width]
        mul     [cur_height]
        mov     ecx, eax
        push    ecx
        shl     ecx, 2
        call    pgalloc
        pop     ecx
        test    eax, eax
        jz      exit
        mov     [console_data_ptr], eax
        mov     edi, eax
        mov     ax, 0720h
        rep     stosw
        mov     [panel1.left], ecx
        mov     [panel1.top], ecx
        mov     [panel2.top], ecx
        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
 
align 4
get_curfile_folder_entry:
        mov     ecx, [ebp + PanelData.index]
        shl     ecx, 2
        add     ecx, [ebp + PanelData.files]
        mov     ecx, [ecx]
        ret
 
align 4
get_curfile_name:
        call    get_curfile_folder_entry
        add     ecx, 40
        ret
 
quick_find:
        cmp     [ebp + PanelData.numfiles], 0
        jz      .nof
        mov     ecx, [ebp + PanelData.index]
.scanloop:
        mov     edi, ecx
        shl     edi, 2
        add     edi, [ebp + PanelData.files]
        mov     edi, [edi]
        add     edi, 40
        mov     esi, quick_search_buf + 12
@@:
        lodsb
        test    al, al
        jz      .ok
        call    match_symbol
        jnz     .no
        inc     edi
        jmp     @b
.no:
        inc     ecx
        cmp     ecx, [ebp + PanelData.numfiles]
        jb      @f
        xor     ecx, ecx
@@:
        cmp     ecx, [ebp + PanelData.index]
        jnz     .scanloop
.nof:
        stc
        ret
.ok:
        cmp     ecx, [ebp + PanelData.index]
        jz      .ret
        mov     [ebp + PanelData.index], ecx
        mov     eax, [ebp + PanelData.height]
        shr     eax, 1
        sub     ecx, eax
        jae     @f
        xor     ecx, ecx
@@:
        mov     eax, [ebp + PanelData.numfiles]
        sub     eax, [ebp + PanelData.colst]
        jnc     @f
        xor     eax, eax
        xor     ecx, ecx
@@:
        cmp     ecx, eax
        jb      @f
        mov     ecx, eax
@@:
        mov     [ebp + PanelData.start], ecx
        call    draw_panel
.ret:
        clc
        ret
 
quick_find_next:
        cmp     [ebp + PanelData.numfiles], 0
        jz      quick_find.nof
        mov     ecx, [ebp + PanelData.index]
        jmp     quick_find.no
 
quick_find_prev:
        cmp     [ebp + PanelData.numfiles], 0
        jz      quick_find.nof
        mov     ecx, [ebp + PanelData.index]
.scanloop:
        dec     ecx
        jns     @f
        mov     ecx, [ebp + PanelData.numfiles]
        dec     ecx
@@:
        cmp     ecx, [ebp + PanelData.index]
        jz      quick_find.nof
        mov     edi, ecx
        shl     edi, 2
        add     edi, [ebp + PanelData.files]
        mov     edi, [edi]
        add     edi, 40
        mov     esi, quick_search_buf + 12
@@:
        lodsb
        test    al, al
        jz      quick_find.ok
        call    match_symbol
        jnz     .scanloop
        inc     edi
        jmp     @b
 
panels_getname:
if lang eq ru
        mov     eax, ' ­¥'
        stosd
        mov     eax, '«¨  '
        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]
        push    3
        pop     edx
        cmp     [ebp + PanelData.hPlugin], 0
        jz      .native
        mov     esi, [ebp + PanelData.parents]
        add     esi, [ebp + PanelData.parents_sz]
@@:
        dec     esi
        cmp     byte [esi-1], 0
        jz      @f
        cmp     byte [esi-1], '/'
        jnz     @b
@@:
        push    ecx edi
        shr     ecx, 1
@@:
        lodsb
        test    al, al
        jz      @f
        stosb
        loop    @b
@@:
        sub     edi, [esp]
        sub     [esp+4], edi
        add     [esp], edi
        pop     edi ecx
        lea     esi, [ebp + PanelData.dir]
        cmp     byte [esi+1], 0
        jnz     @f
        inc     esi
@@:
        jmp     .main
.native:
        lea     esi, [ebp + PanelData.dir]
@@:
        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
@@:
.main:
        push    esi
@@:
        lodsb
        test    al, al
        jnz     @b
        dec     esi
        mov     ebx, esi
        sub     ebx, [esp]
        dec     esi
        push    esi
        mov     esi, [ebp + PanelData.index]
        shl     esi, 2
        add     esi, [ebp + PanelData.files]
        mov     esi, [esi]
        add     esi, 40
        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     esi, [esp+4]
        mov     al, '/'
        stosb
        dec     ecx
        jz      .nodir
@@:
        cmp     esi, [esp+8]
        jb      .nodir
        movsb
        loop    @b
.nodir:
        cld
        pop     eax
        pop     eax
        pop     eax
        ret
 
draw_window:
        push    SF_REDRAW
        pop     eax
        push    SSF_BEGIN_DRAW
        pop     ebx
        int     40h
        mov     al, SF_STYLE_SETTINGS
        mov     bl, SSF_GET_SKIN_HEIGHT
        int     40h
        mov     [skinh], eax
        mov     ebx, [cur_width]
        imul    ebx, font_width
        add     ebx, 100*65536 + 5*2-1
        mov     ecx, [cur_height]
        imul    ecx, font_height
        lea     ecx, [eax+ecx+5-1+100*65536]
        xor     eax, eax
        mov     edx, 0x53000000
        mov     edi, header
        int     40h
        mov     al, SF_DRAW_RECT
        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
        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
@@:
;        xor     ecx, ecx
;        call    draw_image
        mov     al, SF_PUT_IMAGE_EXT
        mov     ebx, [MemForImage]
        test    ebx, ebx
        jz      @f
        mov     ecx, [cur_width]
        imul    ecx, font_width*10000h
        mov     cx, word [cur_height]
        imul    cx, font_height
        mov     edx, [skinh]
        add     edx, 5*10000h
        mov     esi, 8
        mov     edi, console_colors
        xor     ebp, ebp
        int     0x40
@@:
        mov     al, SF_REDRAW
        push    SSF_END_DRAW
        pop     ebx
        int     40h
        ret
 
draw_image.nomem:
        mov     al, SF_DRAW_RECT
        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, SF_DRAW_TEXT
        mov     ebx, 32*65536+32
        mov     ecx, 0xFFFFFF
        mov     edx, nomem_draw
        push    nomem_draw.size
        pop     esi
        int     40h
        ret
 
align 16
draw_image:
        mov     [bMemForImageValidData], byte 1
        cmp     [MemForImage], 0
        jnz     .allocated
; allocate memory for image
        mov     ecx, [cur_width]
        imul    ecx, [cur_height]
        imul    ecx, font_width*font_height
        call    pgalloc
        test    eax, eax
        jz      draw_image.nomem
        mov     [MemForImage], eax
        mov     [bMemForImageValidData], byte 0
.allocated:
        push    ebp
        and     [max_x], 0
        or      [min_x], -1
        and     [max_y], 0
        or      [min_y], -1
        mov     eax, [cursor_y]
        mul     [cur_width]
        add     eax, [cursor_x]
        add     eax, eax
        add     eax, [console_data_ptr]
        xchg    [cur_cursor_pos], eax
        mov     [old_cursor_pos], eax
        mov     edi, [MemForImage]
        mov     esi, [console_data_ptr]
        mov     ecx, [cur_height]
.lh:
        push    ecx
        mov     ecx, [cur_width]
.lw:
        push    ecx
        mov     eax, [cur_width]
        imul    eax, [cur_height]
        mov     ebx, [esi]
        cmp     [bMemForImageValidData], 0
        jz      @f
        cmp     esi, [cur_cursor_pos]
        jz      @f
        cmp     esi, [old_cursor_pos]
        jz      @f
        cmp     bx, [eax*2+esi]
        jnz     @f
        inc     esi
        inc     esi
        jmp     .skip_symbol
@@:
        mov     [eax*2+esi], bx
        cmp     ecx, [min_x]
        ja      @f
        mov     [min_x], ecx
@@:
        cmp     ecx, [max_x]
        jb      @f
        mov     [max_x], ecx
@@:
        mov     eax, [esp+4]
        mov     [min_y], eax
        cmp     eax, [max_y]
        jb      @f
        mov     [max_y], eax
@@:
        push    edi
        xor     eax, eax
        mov     al, [esi+1]
        and     al, 0xF
        mov     ebx, eax
        mov     al, [esi+1]
        shr     al, 4
        mov     ebp, eax
        sub     ebx, ebp
        lodsb
        inc     esi
if font_width > 8
        lea     edx, [eax+eax+font]
else
        lea     edx, [eax+font]
end if
.sh:
        mov     ecx, [edx]
repeat font_width
        shr     ecx, 1
        sbb     eax, eax
        and     eax, ebx
        add     eax, ebp
        mov     [edi+%-1], al
end repeat
        mov     eax, [cur_width]
;        imul    eax, font_width
;        add     edi, eax
if font_width = 6
        lea     eax, [eax*2+eax]
        lea     edi, [edi+eax*2]
else if font_width = 7
        lea     edi, [edi+eax*8]
        sub     edi, eax
else if font_width = 8
        lea     edi, [edi+eax*8]
else if font_width = 9
        lea     edi, [edi+eax*8]
        add     edi, eax
else if font_width = 10
        lea     eax, [eax*4+eax]
        lea     edi, [edi+eax*2]
else
Unknown font_width value!
end if
if font_width > 8
        add     edx, 256*2
        cmp     edx, font+256*2*font_height
else
        add     edx, 256
        cmp     edx, font+256*font_height
end if
        jb      .sh
        pop     edi
.skip_symbol:
        pop     ecx
        add     edi, font_width
        dec     ecx
        jnz     .lw
        mov     eax, [cur_width]
        imul    eax, (font_height-1)*font_width
        add     edi, eax
        pop     ecx
        dec     ecx
        jnz     .lh
; cursor
        mov     eax, [cursor_y]
        inc     eax
        jz      .nocursor
        mul     [cur_width]
        imul    eax, font_height*font_width
        mov     edx, [cursor_x]
        inc     edx
        imul    edx, font_width
        add     eax, edx
        add     eax, [MemForImage]
        mov     edx, [cur_width]
        imul    edx, font_width
        neg     edx
        mov     ecx, [cursor_size]
.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
        pop     eax
        pop     ecx
        loop    .cursor_loop
.nocursor:
        cmp     [min_y], -1
        jz      .nodraw
        mov     ecx, [cur_width]
        mov     ebx, [cur_height]
        mov     eax, ebx
        sub     ebx, [max_y]
        sub     eax, [min_y]
        sub     eax, ebx
        inc     eax
        imul    ebp, eax, font_height
        mov     edx, ecx
        sub     edx, [max_x]
        imul    edx, font_width
        mov     eax, edx
        shl     edx, 16
        imul    dx, bx, font_height
        imul    ebx, [cur_width]
        mov     ecx, [max_x]
        sub     ecx, [min_x]
        inc     ecx
        imul    ecx, font_width*10000h
        add     ecx, ebp
        imul    ebx, font_width*font_height
        add     ebx, [MemForImage]
        add     ebx, eax
        add     edx, [skinh]
        add     edx, 5*10000h
        imul    esi, [cur_width], font_width
        mov     ebp, ecx
        shr     ebp, 16
        sub     esi, ebp
        mov     ebp, esi
        push    SF_PUT_IMAGE_EXT
        pop     eax
        mov     edi, console_colors
        push    8
        pop     esi
        int     40h
.nodraw:
        pop     ebp
        ret
 
get_console_ptr:
; in: eax=x, edx=y
; out: edi->console data
        push    edx
        imul    edx, [cur_width]
        add     edx, eax
        mov     edi, [console_data_ptr]
        lea     edi, [edi + edx*2]
        pop     edx
        ret
 
;description:
; draw keys F1-F12
align 16
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 ;¤«¨­  â¥ªáâ  * ç¨á«® ª­®¯®ª F1-F12
        mov     esi, [active_screen_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
        xor     eax, eax
        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 ;§ ªà áª  ª®­æ  ¯ ­¥«¨ ¯®¤ æ¢¥â ª­®¯ª¨
 
        cmp     [bDisplayQuickSearch], 0
        jz      @f
        push    QuickSearchDlg
        call    DrawDialogBox
@@:
        popad
        ret
 
align 16
draw_cmdbar:
        mov     esi, [active_panel]
        add     esi, PanelData.dir
        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
 
align 16
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
 
calc_colwidths:
; in: ebp->panel data
        imul    esi, [ebp + PanelData.colmode], PanelMode.size
        add     esi, colmodes
        lodsd
        mov     ecx, eax
        lea     edx, [ecx-1]
        xor     ebx, ebx
        add     esi, PanelMode.ColumnWidths-4
        push    ecx esi
        xor     eax, eax
.loop:
        lodsb
        add     edx, eax
        cmp     al, 1
        adc     ebx, 0
        loop    .loop
        pop     esi ecx
        lea     edi, [ebp + PanelData.colwidths]
        test    ebx, ebx
        jz      .loop2
        mov     eax, [ebp + PanelData.width]
        dec     eax
        dec     eax
        sub     eax, edx
        jae     @f
        xor     eax, eax
@@:
        xor     edx, edx
        div     ebx
        test    eax, eax
        jnz     @f
        xor     edx, edx
        inc     eax
@@:
        push    eax
.loop2:
        movzx   eax, byte [esi]
        inc     esi
        test    eax, eax
        jnz     @f
        pop     eax
        push    eax
        dec     ebx
        cmp     ebx, edx
        jae     @f
        inc     eax
@@:
        stosd
        loop    .loop2
        pop     eax
        and     dword [edi], 0
        ret
 
GetPanelTitle_default:
        mov     edi, [esp+8]
        mov     ecx, 1024
        mov     esi, [esp+12]
        test    esi, esi
        jz      .nohost
        mov     edx, esi
@@:
        lodsb
        test    al, al
        jz      @f
        cmp     al, '/'
        jnz     @b
        mov     edx, esi
        jmp     @b
@@:
        mov     esi, edx
@@:
        lodsb
        stosb
        test    al, al
        loopnz  @b
        dec     edi
        inc     ecx
.nohost:
        mov     esi, [esp+16]
        cmp     word [esi], '/'
        jz      .nodir
@@:
        lodsb
        stosb
        test    al, al
        loopnz  @b
        dec     edi
.nodir:
        mov     byte [edi], 0
        ret     10h
 
;input:
; ebp - pointer to panel1 or panel2
align 16
draw_panel:
        mov     eax, [ebp + PanelData.left]
        mov     edx, [ebp + PanelData.top]
        call    get_console_ptr
; draw border
        mov     ah, [panel_border_color]
        mov     ebx, [ebp + PanelData.width]
        mov     edx, [ebp + PanelData.height]
        call    draw_border
        push    eax
        mov     eax, [ebp + PanelData.left]
        mov     edx, [ebp + PanelData.top]
        add     edx, [ebp + PanelData.height]
        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
 
        imul    esi, [ebp + PanelData.colmode], PanelMode.size
        add     esi, colmodes
        lodsd
        mov     ecx, eax        ; number of columns
        lea     ebx, [ebp + PanelData.colwidths]
        mov     eax, [ebp + PanelData.left]
        inc     eax
        mov     [column_left], eax
        mov     eax, [ebp + PanelData.top]
        inc     eax
        mov     [column_top], eax
        mov     eax, [ebp + PanelData.height]
        sub     eax, 4
        mov     [column_height], eax
        dec     eax
        mov     [ebp + PanelData.colsz], eax
        and     [ebp + PanelData.colst], 0
        mov     eax, [ebp + PanelData.start]
        mov     [column_index], eax
        mov     [last_column_index], eax
.columns_loop:
        push    ecx
        mov     eax, [ebx]
        add     ebx, 4
        mov     [column_width], eax
        cmp     ecx, 1
        jz      .skip_right_border
        add     eax, [column_left]
        mov     edx, [ebp + PanelData.top]
        call    get_console_ptr
        mov     ah, [panel_header_color]
        mov     al, 0xD1
        mov     [edi], ax
        add     edi, [cur_width]
        add     edi, [cur_width]
        mov     ecx, [column_height]
        mov     al, 0xB3
@@:
        mov     [edi], ax
        add     edi, [cur_width]
        add     edi, [cur_width]
        loop    @b
        mov     al, 0xC1
        stosw
.skip_right_border:
        mov     eax, [column_left]
        mov     edx, [column_top]
        call    get_console_ptr
; § £®«®¢®ª áâ®«¡æ 
        push    edi
        mov     edx, [esi]
        and     edx, 0xF
        mov     edx, [column_headers+edx*4]
        movzx   ecx, byte [edx]
        inc     edx
        cmp     ecx, [column_width]
        jb      @f
        mov     ecx, [column_width]
@@:
        push    ecx
        sub     ecx, [column_width]
        neg     ecx
        shr     ecx, 1
        mov     al, ' '
        mov     ah, [column_header_color]
        rep     stosw
        pop     ecx
        jecxz   .skipcopyhdr
        push    ecx
@@:
        mov     al, [edx]
        inc     edx
        stosw
        loop    @b
        pop     ecx
.skipcopyhdr:
        sub     ecx, [column_width]
        neg     ecx
        inc     ecx
        shr     ecx, 1
        mov     al, ' '
        rep     stosw
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
; á ¬ áâ®«¡¥æ
        mov     eax, [esi]
        and     eax, 0xF
        push    ebx esi
        call    dword [draw_column_proc+eax*4]
        pop     esi ebx
        inc     esi
        mov     eax, [column_width]
        inc     eax
        add     [column_left], eax
        pop     ecx
        dec     ecx
        jnz     .columns_loop
;  £®«®¢®ª ¯ ­¥«¨ (â¥ªãé ï ¯ ¯ª )
        lea     esi, [ebp + PanelData.dir]
        mov     eax, [ebp + PanelData.hPlugin]
        test    eax, eax
        jz      .native
        push    ebp
        push    esi
        mov     esi, [ebp + PanelData.parents]
        add     esi, [ebp + PanelData.parents_sz]
@@:
        dec     esi
        cmp     byte [esi-1], 0
        jnz     @b
        push    esi
        push    execdata
        push    [ebp + PanelData.hFile]
        call    [eax+PluginInfo.GetPanelTitle]
        pop     ebp
        mov     esi, execdata
.native:
        mov     edi, cur_header
        mov     ecx, [ebp + PanelData.width]
        sub     ecx, 6
        cmp     byte [esi], '/'
        jnz     .copy_rest
        dec     ecx
        movsb
@@:
        lodsb
        stosb
        dec     ecx
        test    al, al
        jz      .header_created
        cmp     al, '/'
        jnz     @b
.copy_rest:
        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 + PanelData.top]
        mov     eax, [ebp + PanelData.left]
        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 + PanelData.top]
        inc     edx
        mov     eax, [ebp + PanelData.left]
        inc     eax
        call    get_console_ptr
        movzx   eax, [ebp + PanelData.sortmode]
        mov     al, [compare_names+eax]
        stosb
        mov     eax, [ebp + PanelData.selected_num]
        test    eax, eax
        jz      .skip_selected_info
; ­ä®à¬ æ¨ï ® ¢ë¤¥«¥­­ëå ä ©« å
        push    dword [ebp + PanelData.selected_size+4]
        push    dword [ebp + PanelData.selected_size]
        call    fill_total_info
        mov     eax, [ebp + PanelData.width]
        sub     eax, 2
        cmp     ecx, eax
        jbe     @f
        mov     ecx, eax
        mov     edi, saved_file_name+512
        sub     edi, eax
        mov     byte [edi], '.'
        mov     word [edi+1], '..'
@@:
        mov     esi, edi
        sub     eax, ecx
        shr     eax, 1
        inc     eax
        add     eax, [ebp + PanelData.left]
        mov     edx, [ebp + PanelData.top]
        add     edx, [ebp + PanelData.height]
        sub     edx, 3
        call    get_console_ptr
        mov     ah, [panel_numselected_color]
@@:
        lodsb
        stosw
        loop    @b
.skip_selected_info:
; ­ä®à¬ æ¨ï ®¡ ®¡é¥¬ ç¨á«¥ ¨ à §¬¥à¥ ä ©«®¢ ¯ ­¥«¨
        mov     eax, [ebp + PanelData.total_num]
        push    dword [ebp + PanelData.total_size+4]
        push    dword [ebp + PanelData.total_size]
        call    fill_total_info
        mov     eax, [ebp + PanelData.width]
        sub     eax, 2
        cmp     ecx, eax
        jbe     @f
        mov     ecx, eax
        mov     byte [edi+ecx-3], '.'
        mov     word [edi+ecx-2], '..'
@@:
        sub     eax, ecx
        shr     eax, 1
        inc     eax
        add     eax, [ebp + PanelData.left]
        add     edx, [ebp + PanelData.top]
        add     edx, [ebp + PanelData.height]
        dec     edx
        mov     esi, edi
        call    get_console_ptr
        mov     ah, [panel_number_color]
@@:
        lodsb
        stosw
        loop    @b
        cmp     [ebp + PanelData.numfiles], 0
        jz      .skip_curinfo
; ­ä®à¬ æ¨ï ® â¥ªãé¥¬ ä ©«¥
        mov     ebx, [ebp + PanelData.index]
        mov     eax, [ebp + PanelData.files]
        mov     ebx, [eax+ebx*4]
        mov     eax, [ebp + PanelData.left]
        add     eax, [ebp + PanelData.width]
        dec     eax
        mov     edx, [ebp + PanelData.top]
        add     edx, [ebp + PanelData.height]
        dec     edx
        dec     edx
        call    get_console_ptr
        mov     ecx, [ebp + PanelData.width]
        dec     ecx
        dec     ecx
        cmp     [ebp + PanelData.colmode], 3
        jz      .show_curname
; à¥¬ï ¬®¤¨ä¨ª æ¨¨
        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], ' '
;  â  ¬®¤¨ä¨ª æ¨¨
        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 ' '
;  §¬¥à
        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
; ¢ £¨£ ¡ ©â å
        mov     al, 'G'
        shl     edx, 2
        jmp     .size_letter
.size_tera:
; ¢ â¥à ¡ ©â å
        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
.show_curname:
; ¬ï
        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
 
fill_total_info:
        mov     edi, saved_file_name+511
        mov     byte [edi], ' '
if lang eq ru
        mov     byte [edi-1], '¥'
        dec     edi
        cmp     eax, 1
        jz      @f
        mov     word [edi-1], ' å'
        dec     edi
@@:
        mov     dword [edi-4], 'ä ©«'
        mov     byte [edi-5], ' '
        sub     edi, 5
else
        cmp     eax, 1
        jz      @f
        dec     edi
        mov     byte [edi], 's'
@@:
        mov     dword [edi-4], 'file'
        mov     byte [edi-5], ' '
        sub     edi, 5
end if
        xor     edx, edx
        push    10
        pop     ecx
@@:
        div     ecx
        dec     edi
        add     dl, '0'
        mov     [edi], dl
        xor     edx, edx
        test    eax, eax
        jnz     @b
if lang eq ru
        mov     dword [edi-4], 'â ¢ '
        mov     dword [edi-8], ' ¡ ©'
        sub     edi, 8
else
        mov     dword [edi-4], ' in '
        mov     dword [edi-8], 'ytes'
        mov     word [edi-10], ' b'
        sub     edi, 10
end if
        lea     esi, [edi-3]
        mov     edx, [esp+8]
        mov     eax, [esp+4]
.selsizel:
        push    edx
        mov     ebx, edx
        xor     edx, edx
        add     ebx, ebx
        adc     edx, edx
        push    ebx
        push    edx
        add     ebx, ebx
        adc     edx, edx
        add     ebx, [esp+4]
        adc     edx, [esp]
        add     esp, 8
        add     eax, ebx
        adc     edx, 0
        div     ecx
        dec     edi
        cmp     edi, esi
        jae     @f
        mov     byte [edi], ','
        dec     edi
        sub     esi, 4
@@:
        pop     ebx
        add     dl, '0'
        mov     byte [edi], dl
        xchg    eax, ebx
        mul     [muldiv10]
        add     eax, ebx
        adc     edx, 0
        mov     ebx, eax
        or      ebx, edx
        jnz     .selsizel
        dec     edi
        mov     byte [edi], ' '
        mov     ecx, saved_file_name+512
        sub     ecx, edi
        ret     8
 
align 4
get_file_color:
        mov     ah, [esi + 6]
        cmp     ebp, [active_panel]
        jnz     @f
        cmp     ecx, [ebp + PanelData.index]
        jnz     @f
        mov     ah, [esi + 7]
@@:
        test    byte [esi + 303], 1
        jnz     @f
        mov     ah, [esi + 4]
        cmp     ebp, [active_panel]
        jnz     @f
        cmp     ecx, [ebp + PanelData.index]
        jnz     @f
        mov     ah, [esi + 5]
@@:
        ret
 
align 4
draw_name_column:
        mov     eax, [column_index]
        mov     [last_column_index], eax
        mov     edx, [ebp + PanelData.numfiles]
        mov     ecx, [column_height]
        dec     ecx
.l:
        cmp     [column_index], edx
        jae     .ret
        push    ecx
        mov     ecx, [column_index]
        mov     esi, [ebp + PanelData.files]
        mov     esi, [esi+ecx*4]
        mov     ebx, [esi]
        call    get_file_color
        add     esi, 40
        mov     ecx, [column_width]
        push    edi
@@:
        lodsb
        test    al, al
        jz      @f
        stosw
        loop    @b
        lodsb
        test    al, al
        jz      @f
        mov     byte [edi], '}'
        jmp     .continue
@@:
        test    bl, 10h
        jnz     .noalignext
        mov     ebx, [ebp + PanelData.colmode]
; sizeof(PanelMode) = 40
        lea     ebx, [ebx+ebx*4]
        cmp     [colmodes+ebx*8+PanelMode.bAlignExtensions], 0
        jz      .noalignext
        push    ecx
        sub     ecx, [column_width]
        neg     ecx
        jz      .noalignext2
        dec     esi
@@:
        dec     esi
        cmp     byte [esi], '.'
        loopnz  @b
        jnz     .noalignext2
        inc     esi
        sub     ecx, [column_width]
        neg     ecx
        sub     ecx, [esp]
        sub     edi, ecx
        sub     edi, ecx
        dec     ecx
        mov     ebx, [esp+4]
        cmp     ecx, 3
        ja      @f
        mov     cl, 3
@@:
        sub     ecx, [column_width]
        sub     ebx, edi
        sar     ebx, 1
        sub     ebx, ecx
        pop     ecx
        inc     ecx
        push    0
        cmp     ecx, ebx
        jbe     @f
        sub     ecx, ebx
        mov     [esp], ecx
        mov     ecx, ebx
@@:
        mov     al, ' '
        rep     stosw
@@:
        lodsb
        test    al, al
        jz      .noalignext2
        stosw
        jmp     @b
.noalignext2:
        pop     ecx
.noalignext:
        mov     al, ' '
        rep     stosw
.continue:
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        inc     [column_index]
        pop     ecx
        dec     ecx
        jnz     .l
.ret:
        mov     eax, [ebp + PanelData.colsz]
        add     [ebp + PanelData.colst], eax
        cmp     ebp, panel1
        jnz     .ret2
; ¨á«® íªà ­®¢
; calculate number of viewer and editor screens
        xor     ebx, ebx
        xor     edx, edx
        mov     ecx, [num_screens]
        mov     esi, [screens]
.3:
        lodsd
        cmp     eax, viewer_vtable
        jnz     @f
        inc     ebx
@@:
        cmp     eax, editor_vtable
        jnz     @f
        inc     edx
@@:
        lodsd
        loop    .3
        mov     eax, ebx
        mov     esi, edx
        or      eax, edx
        jz      .ret2
        xor     eax, eax
        xor     edx, edx
        call    get_console_ptr
        mov     al, '['
        stosb
        mov     al, [panel_nscreens_color]
        stosb
        xchg    eax, ebx
.5:
        push    -'0'
@@:
        xor     edx, edx
        div     [_10d]
        push    edx
        test    eax, eax
        jnz     @b
@@:
        pop     eax
        add     eax, '0'
        jz      @f
        stosb
        mov     al, bl
        stosb
        jmp     @b
@@:
        test    esi, esi
        jz      .4
        mov     al, '+'
        stosb
        mov     al, bl
        stosb
        xor     eax, eax
        xchg    eax, esi
        jmp     .5
.4:
        mov     al, ']'
        mov     ah, [panel_nscreens_color]
        stosw
.ret2:
draw_empty_column:
        ret
 
align 4
draw_size_column:
        add     edi, [column_width]
        add     edi, [column_width]
        dec     edi
        dec     edi
        std
        mov     ecx, [column_height]
        dec     ecx
        push    [last_column_index]
.l:
        mov     edx, [ebp + PanelData.numfiles]
        cmp     [last_column_index], edx
        jae     .ret
        push    ecx
        push    edi
        mov     ecx, [last_column_index]
        mov     esi, [ebp + PanelData.files]
        mov     esi, [esi+ecx*4]
        call    get_file_color
        mov     ecx, [column_width]
@@:
        mov     ebx, eax
        cmp     word [esi+40], '..'
        jnz     .nodotdot
        cmp     byte [esi+42], 0
        jnz     .nodotdot
if lang eq ru
        mov     al, 'å'
        stosw
        mov     al, 'à'
        stosw
        mov     al, '¥'
        stosw
        mov     al, '¢'
        stosw
        mov     al, ''
        stosw
        sub     ecx, 5
else
        mov     al, ' '
        stosw
        stosw
        mov     al, 'p'
        stosw
        mov     al, 'U'
        stosw
        sub     ecx, 4
end if
        jmp     .size_written
.nodotdot:
        test    byte [esi], 10h
        jz      .nofolder
if lang eq ru
        mov     al, ' '
        stosw
        mov     al, 'ª'
        stosw
        mov     al, '¯'
        stosw
        mov     al, ' '
        stosw
        mov     al, ''
        stosw
        sub     ecx, 5
else
        mov     al, 'r'
        stosw
        mov     al, 'e'
        stosw
        mov     al, 'd'
        stosw
        mov     al, 'l'
        stosw
        mov     al, 'o'
        stosw
        mov     al, 'F'
        stosw
        sub     ecx, 6
end if
        jmp     .size_written
.nofolder:
        mov     eax, [esi+32]
        mov     edx, [esi+36]
        test    edx, edx
        jz      .less_4G
        cmp     edx, 10000/4*1024
        jb      .giga
        mov     al, 'T'
        shr     edx, 10
        jmp     .write_letter
.giga:
        mov     al, 'G'
        shl     edx, 2
        jmp     .write_letter
.less_4G:
        mov     edx, eax
        cmp     eax, 1000000
        jb      .byte
        cmp     eax, 10000*1024
        jb      .kilo
        mov     al, 'M'
        shr     edx, 20
        jmp     .write_letter
.kilo:
        mov     al, 'K'
        shr     edx, 10
.write_letter:
        mov     ah, bh
        stosw
        mov     al, ' '
        stosw
        dec     ecx
        dec     ecx
.byte:
        xchg    eax, edx
        xor     edx, edx
        div     [_10d]
        xchg    eax, edx
        add     al, '0'
        mov     ah, bh
        stosw
        dec     ecx
        test    edx, edx
        jnz     .byte
.size_written:
        mov     eax, ebx
        test    ecx, ecx
        jle     @f
        mov     al, ' '
        rep     stosw
@@:
        mov     byte [edi+1], ah
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        inc     [last_column_index]
        pop     ecx
        dec     ecx
        jnz     .l
.ret:
        pop     [last_column_index]
        cld
        ret
 
align 4
draw_date_column:
        mov     ecx, [column_height]
        dec     ecx
        push    [last_column_index]
.l:
        mov     edx, [ebp + PanelData.numfiles]
        cmp     [last_column_index], edx
        jae     .ret
        push    ecx
        push    edi
        mov     ecx, [last_column_index]
        mov     esi, [ebp + PanelData.files]
        mov     esi, [esi+ecx*4]
        call    get_file_color
        mov     bh, ah
        mov     byte [edi-1], bh
        mov     al, [esi+28]
        aam
        add     eax, '00'
        push    eax
        mov     al, ah
        mov     ah, bh
        stosw
        pop     eax
        mov     ah, bh
        stosw
        mov     al, '.'
        stosw
        mov     al, [esi+29]
        aam
        add     eax, '00'
        push    eax
        mov     al, ah
        mov     ah, bh
        stosw
        pop     eax
        mov     ah, bh
        stosw
        mov     al, '.'
        stosw
        movzx   eax, word [esi+30]
        xor     edx, edx
        div     [_10d]
        xchg    eax, edx
        add     al, '0'
        mov     ah, bh
        mov     [edi+2], ax
        xchg    eax, edx
        xor     edx, edx
        div     [_10d]
        xchg    eax, edx
        add     al, '0'
        mov     ah, bh
        stosw
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        inc     [last_column_index]
        pop     ecx
        dec     ecx
        jnz     .l
.ret:
        pop     [last_column_index]
        cld
        ret
 
align 4
draw_time_column:
        mov     ecx, [column_height]
        dec     ecx
        push    [last_column_index]
.l:
        mov     edx, [ebp + PanelData.numfiles]
        cmp     [last_column_index], edx
        jae     .ret
        push    ecx
        push    edi
        mov     ecx, [last_column_index]
        mov     esi, [ebp + PanelData.files]
        mov     esi, [esi+ecx*4]
        call    get_file_color
        mov     bh, ah
        mov     byte [edi-1], bh
        mov     al, [esi+26]
        aam
        add     eax, '00'
        push    eax
        mov     al, ah
        mov     ah, bh
        stosw
        pop     eax
        mov     ah, bh
        stosw
        mov     al, ':'
        stosw
        mov     al, [esi+25]
        aam
        add     eax, '00'
        push    eax
        mov     al, ah
        mov     ah, bh
        stosw
        pop     eax
        mov     ah, bh
        stosw
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        inc     [last_column_index]
        pop     ecx
        dec     ecx
        jnz     .l
.ret:
        pop     [last_column_index]
        cld
        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
 
align 4
read_folder:
        mov     eax, [ebp + PanelData.nfa]
        mov     [dirinfo.size], eax
        shl     eax, 2
        add     eax, [ebp + PanelData.files]
        mov     [dirinfo.dirdata], eax
        lea     eax, [ebp + PanelData.dir]
        mov     [dirinfo.name], eax
        xor     eax, eax
        mov     [ebp + PanelData.total_num], eax
        mov     dword [ebp + PanelData.total_size], eax
        mov     dword [ebp + PanelData.total_size+4], eax
        mov     [ebp + PanelData.selected_num], eax
        mov     dword [ebp + PanelData.selected_size], eax
        mov     dword [ebp + PanelData.selected_size+4], eax
.retry:
        mov     eax, [ebp + PanelData.hPlugin]
        test    eax, eax
        jz      .native
        mov     ecx, [dirinfo.size]
        test    [ebp + PanelData.plugin_flags], 1
        jz      @f
        dec     ecx     ; reserve one entry for '..'
@@:
        push    ebp
        push    [dirinfo.dirdata]
        push    ecx
        push    0
        push    [ebp + PanelData.hFile]
        call    [eax + PluginInfo.ReadFolder]
        pop     ebp
        mov     ebx, [dirinfo.dirdata]
        mov     ebx, [ebx+4]
        jmp     .read
.native:
        push    SF_FILE
        pop     eax
        mov     ebx, dirinfo
        int     40h
.read:
        test    eax, eax
        jz      .ok
        cmp     eax, 6
        jz      .ok
; Failed to read folder, notify user
        cmp     [bSilentFolderMode], 0
        jnz     .dont_notify
        push    dword aContinue
        push    dword aRetry
        mov     edx, esp
        call    get_error_msg
        push    [dirinfo.name]
        push    dword aCannotReadFolder
        push    eax
        mov     eax, esp
        push    edx
        push    2
        push    eax
        push    3
        call    SayErr
        add     esp, 5*4
        test    eax, eax
        jz      .retry
.dont_notify:
; If not on plugin panel, try to return to previous directory
        cmp     [ebp + PanelData.hPlugin], 0
        jnz     @f
        mov     esi, prev_dir
        cmp     byte [esi], 0
        jz      @f
        lea     edi, [ebp + PanelData.dir]
        mov     ecx, 1024/4
        rep     movsd
        mov     byte [prev_dir], 0
        ret
@@:
        mov     [bSilentFolderMode], 1  ; enter silent mode
; Try to read parent folder
        mov     esi, [dirinfo.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     [ebp + PanelData.hPlugin], 0
        jz      .4
        cmp     edx, 1
        ja      .up
; çâ¥­¨¥ á ¯ ­¥«¨ ¯« £¨­  ®¡«®¬ «®áì ¯® ¯®«­®©
; ¯à¨ íâ®¬ ¬ë ã¦¥ ¢ ª®à­¥
; ¤¥« ¥¬ ¢¨¤, çâ® äã­ªæ¨ï çâ¥­¨ï ¢¥à­ã«  0 í«¥¬¥­â®¢
; (¥á«¨ ­ã¦¥­ ¢å®¤ "..", ®­ ¡ã¤¥â ¤®¡ ¢«¥­  ¢â®¬ â¨ç¥áª¨)
        xor     ebx, ebx        ; 0 items read
        mov     eax, [dirinfo.dirdata]
        mov     [eax+8], ebx    ; 0 items total
        jmp     .ok
.4:
        cmp     edx, 2
        jbe     .noup
.up:
        stosb
        jmp     read_folder
.noup:
; There is no parent folder, and we are not on plugin panel
; Try to read ramdisk
        mov     esi, [dirinfo.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:
;  ¦¥ à ¬¤¨áª ­¥ ¯à®ç¨â «áï. ­ ç¨â, ­¥ áã¤ì¡ ...
        and     dword [ebp + PanelData.numfiles], 0
        and     dword [ebp + PanelData.index], 0
        and     dword [ebp + PanelData.start], 0
        mov     [bSilentFolderMode], 0  ; leave silent mode
        ret
.ok:
        mov     eax, [dirinfo.dirdata]
        cmp     [eax+8], ebx
        jz      .readdone
        push    dword [eax+8]
        mov     ecx, [ebp + PanelData.files]
        call    pgfree
        pop     ecx
        add     ecx, 0xF
        and     ecx, not 0xF
        push    ecx
        imul    ecx, 4+304
        add     ecx, 32
        call    xpgalloc
        test    eax, eax
        jnz     .succ1
        pop     eax
        jmp     .readdone
.succ1:
        mov     [ebp + PanelData.files], eax
        pop     [ebp + PanelData.nfa]
        mov     [prev_dir], 0
        jmp     read_folder
.readdone:
        xor     edx, edx
        mov     [ebp + PanelData.start], edx
        mov     [ebp + PanelData.index], edx
        mov     [ebp + PanelData.start], edx
        mov     edi, [ebp + PanelData.files]
        mov     eax, [ebp + PanelData.nfa]
        lea     eax, [edi + eax*4 + 32]
        mov     ecx, [eax-32+4]
        test    ecx, ecx
        jz      .loopdone
; £­®à¨àã¥¬ á¯¥æ¨ «ì­ë¥ ¢å®¤ë, á®®â¢¥âáâ¢ãîé¨¥ ¯ ¯ª¥ '.' ¨ ¬¥âª¥ â®¬ 
.ptrinit:
        cmp     word [eax+40], '.'
        jz      .loopcont
        test    byte [eax], 8
        jnz     .loopcont
        mov     byte [eax+303], 0
        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 + PanelData.files]
        jbe     @f
        push    dword [edi-4]
        pop     dword [edi]
        sub     edi, 4
        jmp     @b
@@:
        stosd
        pop     edi
        scasd
        jmp     .dotdot
.nodotdot:
        stosd
        xor     ebx, ebx
        test    byte [eax], 10h
        setz    bl
        add     [ebp + PanelData.total_num], ebx
        mov     ebx, dword [eax+32]
        add     dword [ebp + PanelData.total_size], ebx
        mov     ebx, dword [eax+36]
        adc     dword [ebp + PanelData.total_size+4], ebx
.dotdot:
; ¯®¤á¢¥âª 
;        call    insert_last_dot
        call    highlight_init
;        call    delete_last_dot
.loopcont:
        add     eax, 304
        dec     ecx
        jnz     .ptrinit
.loopdone:
        push    edi
        sub     edi, [ebp + PanelData.files]
        shr     edi, 2
        mov     [ebp + PanelData.numfiles], edi
        pop     edi
        test    edx, edx
        jnz     @f
        test    [ebp + PanelData.plugin_flags], 1
        jz      @f
        mov     ecx, [ebp + PanelData.numfiles]
        inc     [ebp + PanelData.numfiles]
        lea     esi, [edi-4]
        std
        rep     movsd
        cld
        mov     eax, left_dotdot_entry
        cmp     ebp, panel1
        jz      .zq
        add     eax, right_dotdot_entry-left_dotdot_entry
.zq:
        stosd
        call    highlight_init
@@:
; ®àâ¨à®¢ª 
sort_files:
        movzx   eax, [ebp + PanelData.sortmode]
        mov     ebx, [compare_fns + eax*4]
.mode:
        mov     edx, [ebp + PanelData.files]
        mov     ecx, [ebp + PanelData.numfiles]
        jecxz   .skip
        mov     eax, [edx]
        cmp     word [eax+40], '..'
        jnz     .nodotdot
        cmp     byte [eax+42], 0
        jnz     .nodotdot
        dec     ecx
        add     edx, 4
.nodotdot:
        call    sort
.skip:
        mov     [bSilentFolderMode], 0  ; leave silent mode
        ret
 
highlight_init:
        pushad
        mov     ebp, eax
        lea     esi, [ebp+40]
        mov     edi, lower_file_name
        mov     edx, edi
        xor     eax, eax
@@:
        lodsb
        mov     al, [tolower_table+eax]
        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+4], ah
        mov     ah, [ebx + highlight.CursorColor]
        test    ah, ah
        jnz     @f
        mov     ah, [panel_cursor_color]
@@:
        mov     [ebp+5], ah
        mov     ah, [ebx + highlight.SelectedColor]
        test    ah, ah
        jnz     @f
        mov     ah, [panel_selected_color]
@@:
        mov     [ebp+6], ah
        mov     ah, [ebx + highlight.SelectedCursorColor]
        test    ah, ah
        jnz     @f
        mov     ah, [panel_selected_cursor_color]
@@:
        mov     [ebp+7], 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+4], ah
        mov     ah, [panel_cursor_color]
        mov     [ebp+5], ah
        mov     ah, [panel_selected_color]
        mov     [ebp+6], ah
        mov     ah, [panel_selected_cursor_color]
        mov     [ebp+7], ah
.doname:
        popad
        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
@@:
        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
 
ReadFolder_default:
        mov     eax, 2
        ret     10h
 
if 0
; Following subroutines work, but are slow
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 ...*...
.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 ...*...
.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
 
;tolower:
;        push    ecx
;        movzx   ecx, al
;        mov     al, [tolower_table+ecx]
;        pop     ecx
;        ret
 
match_symbol:
; in: al,[edi]=symbols
; out: flags as 'cmp al,[edi]'
        push    eax ecx
        movzx   ecx, al
        mov     al, [tolower_table+ecx]
        movzx   ecx, byte [edi]
        cmp     al, [tolower_table+ecx]
        pop     ecx eax
        ret
 
match_mask_rev_lowercase:
; 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, ';'
        jz      @f
        cmp     al, '|'
        jnz     @b
@@:
        dec     esi
        mov     [esi], byte 0
        call    match_single_mask_rev_lowercase
        mov     [esi], al
        inc     esi
        jnc     .found
        cmp     al, ','
        jz      .main_cycle
        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, ','
        jz      @f
        cmp     al, ';'
        jnz     @b
@@:
        dec     esi
        mov     byte [esi], 0
        call    match_single_mask_rev_lowercase
        mov     [esi], al
        inc     esi
        jnc     .done_fail
        test    al, al
        jz      .done_succ
        jmp     .test_exclude
 
match_single_mask_rev_lowercase:
; in: esi->end of mask, ecx->start of mask, edi->end of name, edx->start of name
; out: CF clear <=> match
        push    esi edi eax
.mask_symbol:
        dec     esi
        cmp     esi, ecx
        jb      .mask_done
        mov     al, [esi]
        cmp     al, '*'
        jz      .asterisk
        dec     edi
        cmp     edi, edx
        jb      .done_fail
        cmp     al, '?'
        jz      .mask_symbol
        cmp     al, ']'
        jz      .list_check
        cmp     al, [edi]
        jz      .mask_symbol
.done_fail:
        stc
        pop     eax edi esi
        ret
.mask_done:
        cmp     edi, edx
        jnz     .done_fail
.done_succ:
        clc
        pop     eax edi esi
        ret
.list_check:
        dec     esi
        cmp     esi, ecx
        jbe     .done_fail
        mov     al, [esi]
        cmp     al, '['
        jz      .done_fail
        cmp     byte [esi-1], '-'
        jz      .range
        cmp     al, [edi]
        jnz     .list_check
.listok:
@@:
        dec     esi
        cmp     esi, ecx
        jb      .done_fail
        cmp     byte [esi], '['
        jnz     @b
        jmp     .mask_symbol
.range:
        cmp     al, [edi]
        jb      @f
        mov     al, [esi-2]
        cmp     al, [edi]
        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
        dec     edi
        jmp     .asterisk
@@:
        cmp     byte [esi-1], ']'
        jz      .asterisk_common
; the mask is ...*...
.asterisk_normal:
        mov     al, [esi-1]
@@:
        dec     edi
        cmp     edi, edx
        jb      .done_fail
        cmp     al, [edi]
        jnz     @b
@@:
        dec     esi
        call    match_single_mask_rev_lowercase
        jnc     .done_succ
        inc     esi
        jmp     .asterisk_normal
.asterisk_common:
        push    edi
@@:
        call    match_single_mask_rev_lowercase
        jnc     @f
        dec     edi
        cmp     edi, edx
        jae     @b
        pop     edi
        jmp     .done_fail
@@:
        pop     edi
        jmp     .done_succ
 
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]
        test    edi, edi
        jz      .notfound
.find_loop:
        push    esi edi
        call    strcmpi
        pop     edi esi
        pushf
@@:
        inc     edi
        cmp     byte [edi-1], 0
        jnz     @b
        popf
        jz      .found
@@:
        inc     edi
        cmp     byte [edi-1], 0
        jnz     @b
        cmp     byte [edi], 0
        jnz     .find_loop
.notfound:
; unknown extension
        stc
.found:
        pop     esi
        ret
 
header  db      'Kolibri Far ',version,0
 
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
 
bSilentFolderMode db    1
 
bQuickSearchMode db     0
bDisplayQuickSearch db  0
 
if lang eq ru
aFolder         db      ' ¯ª '
.size = $-aFolder
aUp             db      '¢¥àå'
.size = $-aUp
aDrive          db      '¨áª',0
aScreens        db      'ªà ­ë',0
else
aFolder         db      'Folder'
.size = $-aFolder
aUp             db      'Up'
.size = $-aUp
aDrive          db      'Drive',0
aScreens        db      'Screens',0
end if
 
align 4
_10d dd 10
_100d dd 100
muldiv10 dd 429496729
_10 db 10
_100 db 100
 
fpu_cw  dw      000011100111111b
 
keybar_panels:
if lang eq ru
; ¡¥§ ª« ¢¨è-¬®¤¨ä¨ª â®à®¢
        db      '®¬®éì'
        db      '®«ì§'
        db      'à®á¬ '
        db      '¥¤ ªâ'
        db      '®¯¨à '
        db      '¥à¥­ '
        db      ' ¯ª  '
        db      '¤ «¥­'
        db      '®­ä­'
        db      'ëå®¤ '
        db      '®¤ã«¨'
        db      'ªà ­ë'
; Shift
        db      '®¡ ¢«'
        db      ' á¯ ª'
        db      'àå®¬'
        db      '¥¤ ª.'
        db      '®¯¨à '
        db      '¥à¥¨¬'
        db      '      '
        db      '¤ «¥­'
        db      '®åà ­'
        db      '®á«¤­'
        db      'àã¯¯ë'
        db      'ë¡à ­'
; Ctrl
        db      '¥¢ ï '
        db      'à ¢ ï'
        db      '¬ï   '
        db      ' áè¨à'
        db      '®¤¨ä '
        db      ' §¬¥à'
        db      '¥á®àâ'
        db      '®§¤ ­'
        db      '®áâã¯'
        db      '¯¨á ­'
        db      '« ¤¥«'
        db      '®àâ  '
; Ctrl+Shift
        db      '      '
        db      '      '
        db      'à®á¬ '
        db      '¥¤ ªâ'
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
; Alt
        db      '¥¢ ï '
        db      'à ¢ ï'
        db      '¬®âà.'
        db      '      '
        db      '¥ç âì'
        db      '¢ï§ì '
        db      'áª âì'
        db      'áâ®à '
        db      '¨¤¥® '
        db      '¥à¥¢®'
        db      'áâà '
        db      'áâ ¯'
; Alt+Shift
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '®­ä«'
        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      '      '
        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
; ¡¥§ ª« ¢¨è-¬®¤¨ä¨ª â®à®¢
        db      '®¬®éì'
        db      ' §¢¥à'
        db      'ëå®¤ '
        db      '®¤   '
        db      '      '
        db      '¥¤ ªâ'
        db      '®¨áª '
keybar_cp:
        db      'cp1251'
        db      '      '
        db      'ëå®¤ '
        db      '®¤ã«¨'
        db      'ªà ­ë'
; Shift
        db      '      '
        db      '«®¢  '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      ' «ìè¥'
        db      ' ¡«¨æ'
        db      '      '
        db      '      '
        db      '      '
        db      '      '
; Ctrl
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '®§¨æ '
        db      '      '
        db      '      '
; Ctrl+Shift
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
; Alt
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '¥ç âì'
        db      '      '
        db      ' § ¤ '
        db      '¥à¥©â'
        db      '¨¤¥® '
        db      '      '
        db      'áâà '
        db      '      '
; Alt+Shift
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '®­ä¨£'
        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
 
keybar_editor:
if lang eq ru
; ¡¥§ ª« ¢¨è-¬®¤¨ä¨ª â®à®¢
        db      '®¬®éì'
        db      '®åà ­'
        db      '      '
        db      '      '
        db      '      '
        db      'à®á¬ '
        db      '®¨áª '
keybar_cp2:
        db      'cp1251'
        db      '      '
        db      'ëå®¤ '
        db      '®¤ã«¨'
        db      'ªà ­ë'
; Shift
        db      '      '
        db      '®åà.¢'
        db      '      '
        db      '¥¤ ª.'
        db      '      '
        db      '      '
        db      ' «ìè¥'
        db      ' ¡«¨æ'
        db      '      '
        db      'åàëå'
        db      '      '
        db      '      '
; Ctrl
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      ' ¬¥­ '
        db      '      '
        db      '      '
        db      '®§¨æ '
        db      '      '
        db      '      '
; Ctrl+Shift
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
; Alt
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '¥ç âì'
        db      '      '
        db      '      '
        db      'âà®ª '
        db      '¨¤¥® '
        db      '      '
        db      'áâà '
        db      '      '
; Alt+Shift
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '®­ä¨£'
        db      '      '
        db      '      '
        db      '      '
; Alt+Ctrl
times 12 db     '      '
; Alt+Ctrl+Shift
times 12 db     '      '
else
; No modificators
        db      'Help  '
        db      'Save  '
        db      '      '
        db      '      '
        db      '      '
        db      'View  '
        db      'Search'
keybar_cp2:
        db      'cp1251'
        db      '      '
        db      'Quit  '
        db      'Plugin'
        db      'Screen'
; Shift
        db      '      '
        db      'SaveAs'
        db      '      '
        db      'Edit..'
        db      '      '
        db      '      '
        db      'Next  '
        db      'Table '
        db      '      '
        db      'SaveQ '
        db      '      '
        db      '      '
; Ctrl
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      '      '
        db      'Replac'
        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      '      '
        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
saved_width     dd      -1
saved_height    dd      -1
fill_width      dd      0 ;®áâ â®ª ®â ¤¥«¥­¨ï è¨à¨­ë ®ª­  ­  è¨à¨­ã èà¨äâ 
fill_height     dd      0
max_width = 256
max_height = 256
console_data_ptr dd     0
 
cursor_x        dd      -1
cursor_y        dd      -1
cursor_size     dd      cursor_normal_size
cur_cursor_pos  dd      -1
old_cursor_pos  dd      -1
 
idle_interval   dd      -1
 
active_panel    dd      panel1
 
associations    dd      0
associations_size dd    1               ; terminating zero
associations_allocated dd 0x1000        ; start with one page
 
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      ?
        .OnActivate     dd      ?
        .OnIdle         dd      ?
        .OnKey          dd      ?
        .keybar         dd      ?
        .getname        dd      ?
        .OnExit         dd      ?
        .IsHandleUsed   dd      ?
end virtual
 
panels_vtable:
        dd      panels_OnRedraw
        dd      0
        dd      0
        dd      panels_OnKey
        dd      keybar_panels
        dd      panels_getname
        dd      panels_OnExit
        dd      panels_IsHandleUsed
 
viewer_vtable:
        dd      viewer_OnRedraw
        dd      0
        dd      0
        dd      viewer_OnKey
        dd      keybar_viewer
        dd      viewer_getname
        dd      viewer_OnExit
        dd      viewer_IsHandleUsed
 
editor_vtable:
        dd      editor_OnRedraw
        dd      0
        dd      0
        dd      editor_OnKey
        dd      keybar_editor
        dd      editor_getname
        dd      editor_OnExit
        dd      editor_IsHandleUsed
 
filesearch_vtable:
        dd      filesearch_OnRedraw
        dd      filesearch_OnActivate
        dd      filesearch_OnIdle
        dd      filesearch_OnKey
        dd      0
        dd      filesearch_getname
        dd      filesearch_OnExit
        dd      filesearch_IsHandleUsed
 
; 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
 
encodings:
.cp866 = 0
.cp1251 = 1
.koi8r = 2
.unicode = 3
 
.names:
        db      'cp866   '
        db      'cp1251  '
        db      'koi8-r  '
        db      'Unicode '
 
.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
; koi8-r
        db      0xC4,0xB3,0xDA,0xBF,0xC0,0xD9,0xC3,0xB4,0xC2,0xC1,0xC5,0xDF,0xDC,0xDB,0xDD,0xDE
        db      0xB0,0xB1,0xB2,0xF4,0xFE,0xF9,0xFB,0xF7,0xF3,0xF2,0xFF,0xF5,0xF8,0xFD,0xFA,0xF6
        db      0xCD,0xBA,0xD5,0xF1,0xD6,0xC9,0xB8,0xB7,0xBB,0xD4,0xD3,0xC8,0xBE,0xBD,0xBC,0xC6
        db      0xC7,0xCC,0xB5,0xF0,0xB6,0xB9,0xD1,0xD2,0xCB,0xCF,0xD0,0xCA,0xD8,0xD7,0xCE,0xFC
        db      0xEE,0xA0,0xA1,0xE6,0xA4,0xA5,0xE4,0xA3,0xE5,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE
        db      0xAF,0xEF,0xE0,0xE1,0xE2,0xE3,0xA6,0xA2,0xEC,0xEB,0xA7,0xE8,0xED,0xE9,0xE7,0xEA
        db      0x9E,0x80,0x81,0x96,0x84,0x85,0x94,0x83,0x95,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E
        db      0x8F,0x9F,0x90,0x91,0x92,0x93,0x86,0x82,0x9C,0x9B,0x87,0x98,0x9D,0x99,0x97,0x9A
 
.menu:
        db      .cp866
.menu.1:
        dd      .menu.2
        dd      0
if lang eq ru
        db      '&DOS â¥ªáâ (cp866)',0
else
        db      '&DOS text (cp866)',0
end if
        db      .cp1251
.menu.2:
        dd      .menu.3
        dd      .menu.1
if lang eq ru
        db      '&Windows â¥ªáâ (cp1251)',0
else
        db      '&Windows text (cp1251)',0
end if
        db      .koi8r
.menu.3:
        dd      .menu.4
        dd      .menu.2
if lang eq ru
        db      '&Linux â¥ªáâ (koi8-r)',0
else
        db      '&Linux text (koi8-r)',0
end if
        db      .unicode
.menu.4:
        dd      0
        dd      .menu.3
        db      '&Unicode',0
 
active_screen   dd      0
viewer_tabsize  dd      8
editor_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
scan2ascii:
        db      0,0,'1234567890-=',0,0
        db      'qwertyuiop[]',0,0,'as'
        db      'dfghjkl;',27h,'`',0,'\zxcv'
        db      'bnm,./',0,0,0,' ',0,0,0,0,0,0
 
align 4
panels_mouse:
        dd 0 ;f1
        dd 0 ;f2
        dd panels_OnKey.f3
        dd panels_OnKey.f4
        dd panels_OnKey.f5
        dd 0 ;f6
        dd panels_OnKey.f7
        dd panels_OnKey.f8
        dd 0,0,0 ;f9-f11
        dd F12
; Shift
        rd 4
        dd panels_OnKey.shift_f5
        rd 7
.ctrl:
        rd 2
repeat 9-3+1
        dd OnMouse_ctrl_f3_9
end repeat
        rd 3
; Ctrl+Shift
        rd 12
.alt:
        dd OnMouse_alt_f1_2
        dd OnMouse_alt_f1_2
        rd 4
        dd panels_OnKey.alt_f7
        rd 5
; Alt+Shift
        rd 12
; Alt+Ctrl
        rd 12
; Alt+Ctrl+Shift
        rd 12
 
; « ¢¨è­ë¥ á®ç¥â ­¨ï
; db scancode, reserved
; dw ctrlstate
; dd handler
; ctrlstate: ¬« ¤è¨¥ 4 ¡¨â  - ¤«ï Shift, á«¥¤ãîé¨¥ - ¤«ï Ctrl, á«¥¤ãîé¨¥ - ¤«ï Alt
; 0 = ­¨ ®¤­  ª« ¢¨è  ­¥ ­ ¦ â 
; 1 = à®¢­® ®¤­  ­ ¦ â 
; 2 = ®¡¥ ­ ¦ âë
; 3 = «¥¢ ï ­ ¦ â , ¯à ¢ ï ­¥â
; 4 = ¯à ¢ ï ­ ¦ â , «¥¢ ï ­¥â
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      0x51, 0
        dd      panels_OnKey.pgdn
        dw      0x49, 0
        dd      panels_OnKey.pgup
        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
        dw      0x3E, 0
        dd      panels_OnKey.f4
        dw      0x3F, 0
        dd      panels_OnKey.f5
        dw      0x3F, 1
        dd      panels_OnKey.shift_f5
        dw      0x41, 0
        dd      panels_OnKey.f7
        dw      0x41, 0x100
        dd      panels_OnKey.alt_f7
        dw      0x42, 0
        dd      panels_OnKey.f8
        dw      0x43, 0x100
        dd      alt_f9
        dw      0x44, 0
        dd      exit
        dw      0x5D, 0
        dd      panels_OnKey.menu
repeat 9-3+1
        dw      0x3D+%-1, 0x10
        dd      panels_OnKey.ctrl_f3_9
end repeat
        dw      0x3B, 0x100
        dd      panels_OnKey.alt_f1_2
        dw      0x3C, 0x100
        dd      panels_OnKey.alt_f1_2
        dw      0x58, 0
        dd      F12
        dw      0x13, 0x10
        dd      panels_OnKey.ctrl_r
        dw      2, 0x30
        dd      panels_OnKey.change_mode
        dw      3, 0x30
        dd      panels_OnKey.change_mode
        dw      4, 0x30
        dd      panels_OnKey.change_mode
        dw      5, 0x30
        dd      panels_OnKey.change_mode
repeat 10
        dw      %+1, 0x40
        dd      panels_OnKey.quick_jump
end repeat
        dw      0x52, 0
        dd      panels_OnKey.insert
        dw      0x4E, 0
        dd      panels_OnKey.greyplus
        dw      0x4A, 0
        dd      panels_OnKey.greyminus
        dw      0x37, 0
        dd      panels_OnKey.greyasterisk
        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      0x41, 0
        dd      viewer_OnKey.f7
        dw      0x41, 1
        dd      viewer_OnKey.shift_f7
        dw      0x42, 0
        dd      viewer_OnKey.f8
        dw      0x42, 1
        dd      viewer_OnKey.shift_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
        dw      0x43, 0x100
        dd      alt_f9
        db      0
 
editor_ctrlkeys:
        dw      1, 0
        dd      editor_OnKey.exit_confirm
        dw      0x0E, 0
        dd      editor_OnKey.backspace
        dw      0x3C, 0
        dd      editor_OnKey.f2
        dw      0x41, 0
        dd      editor_OnKey.f7
        dw      0x41, 1
        dd      editor_OnKey.shift_f7
        dw      0x43, 0x100
        dd      alt_f9
        dw      0x44, 0
        dd      editor_OnKey.exit_confirm
        dw      0x44, 1
        dd      editor_OnKey.exit_save
        dw      0x47, 0
        dd      editor_OnKey.home
        dw      0x48, 0
        dd      editor_OnKey.up
        dw      0x49, 0
        dd      editor_OnKey.pgup
        dw      0x4B, 0
        dd      editor_OnKey.left
        dw      0x4D, 0
        dd      editor_OnKey.right
        dw      0x4F, 0
        dd      editor_OnKey.end
        dw      0x50, 0
        dd      editor_OnKey.down
        dw      0x51, 0
        dd      editor_OnKey.pgdn
        dw      0x52, 0
        dd      editor_OnKey.ins
        dw      0x53, 0
        dd      editor_OnKey.del
        dw      0x58, 0
        dd      F12
        dw      0xF, 0x100      ; Alt+Tab
        dd      dummy_key
        dw      0xF, 0x101      ; Shift+Alt+Tab
        dd      dummy_key
        db      0
 
dummy_key:
        ret
 
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
 
writeinfo:
.code           dd      2
.first          dq      0
.size           dd      0
.data           dd      0
                db      0
.name           dd      0
 
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
 
mkdirinfo:
                dd      9
                dd      0
                dd      0
                dd      0
                dd      0
                db      0
                dd      CopyDestEditBuf+12
 
if lang eq ru
compare_names   db      '¨à¬ ­á¤'
else
compare_names   db      'nNxXmMsSuUcCaA'
end if
 
; ¤¥áì ­ ç¨­ îâáï ª®­ä¨£ãà æ¨®­­ë¥ ¤ ­­ë¥ - ¢ â¥ªãé¥© à¥ «¨§ æ¨¨ ®­¨ § è¨âë ¢ ¡¨­ à­¨ª
 
;  ­¥«ì
panel_normal_color      db      1Bh
panel_selected_color    db      1Eh
panel_border_color      db      1Bh
panel_cursor_color      db      30h
panel_selected_cursor_color db  3Eh
panel_header_color      db      1Bh
panel_active_header_color db    30h
column_header_color     db      1Eh
panel_number_color      db      1Bh
panel_numselected_color db      3Eh
panel_nscreens_color    db      0Bh
; ¨ «®£¨
dialog_colors:
dialog_main_color       db      70h
dialog_border_color     db      70h
dialog_header_color     db      70h
dialog_edit_color       db      30h
dialog_unmodified_edit_color db 38h
dialog_normal_btn_color db      70h
dialog_selected_btn_color db    30h
dialog_list_color       db      70h
dialog_selected_list_color db   0Fh
dialog_scroll_list_color db     70h
; à¥¤ã¯à¥¦¤¥­¨ï ¨ ®è¨¡ª¨
warning_colors:
; !!! ¤®«¦­ë ¡ëâì â¥ ¦¥ ¯®«ï ¨ ¢ â®¬ ¦¥ ¯®àï¤ª¥, çâ® ¨ ¤«ï ®¡ëç­ëå ¤¨ «®£®¢ !!!
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
warning_list_color      db      3Fh
warning_selected_list_color db  70h
warning_scroll_list_color db    3Fh
; ¥­î
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
; ¨­¥©ª  ª« ¢¨è
keybar_number_color     db      7
keybar_name_color       db      30h
keybar_bgr_color        db      7
; ®¬ ­¤­ ï áâà®ª 
cmdbar_normal_color     db      7
cmdbar_prefix_color     db      7
; à®á¬®âàé¨ª
view_normal_color       db      1Bh
view_selected_color     db      30h
view_status_color       db      30h
view_arrows_color       db      1Eh
; ¥¤ ªâ®à
edit_normal_color       db      1Bh
edit_status_color       db      30h
 
; ®¤á¢¥âª  ä ©«®¢
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
 
; ®à¬ â ®¯¨á ­¨ï £àã¯¯ë ¯®¤á¢¥âª¨:
virtual at 0
highlight:
        .IncludeAttributes      db ?
        .NormalColor            db ?
        .CursorColor            db ?
        .SelectedColor          db ?
        .SelectedCursorColor    db ?
        .Mask:                  ; ASCIIZ-string
end virtual
 
; all highlight masks must be in lowercase!
highlight_group0:
        db      2
        db      13h, 38h, 0, 0
        db      '*',0
highlight_group1:
        db      4
        db      13h, 38h, 0, 0
        db      '*',0
highlight_group2:
        db      10h
        db      1Fh, 3Fh, 0, 0
        db      '*|..',0
highlight_group3:
        db      10h
        db      0, 0, 0, 0
        db      '..',0
highlight_group4:
        db      0
        db      1Ah, 3Ah, 0, 0
        db      '*.exe,*.com,*.bat,*.cmd,*.kex',0
highlight_group5:
        db      0
        db      1Ah, 3Ah, 0, 0
        db      '*|*.*,readme,makefile',0
highlight_group6:
        db      0
        db      1Dh, 3Dh, 0, 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      0
        db      16h, 36h, 0, 0
        db      '*.bak,*.tmp',0
highlight_group8:
        db      0
        db      17h, 37h, 0, 0
        db      '*.asm,*.inc',0
highlight_group9:
        db      10h
        db      1Fh, 3Fh, 0, 0
        db      '*',0
 
bConfirmDelete  db      1
bConfirmDeleteIncomplete db 0
 
FolderShortcuts dd      0,0,0,0,0,0,0,0,0,0
 
; ¤¥áì § ª ­ç¨¢ îâáï ª®­ä¨£ãà æ¨®­­ë¥ ¤ ­­ë¥
 
bWasE0          db      0
ctrlstate       db      0
mousestate      db      0
align 4
MemForImage     dd      0
restore_semicolon dd    0
bForHex         db      0
 
align   4
; ®®¡é¥­¨¥ ® ®¡«®¬¥ ¯à¨ ¢ë¤¥«¥­¨¨ ¯ ¬ïâ¨
nomem_dlgdata:
        dd      2
        dd      -1
        dd      -1
        dd      12
        dd      2
        dd      1
        dd      1
        dd      aError
        rb      8
        dd      0
        dd      0
        dd      2
; áâà®ª  "No memory"
        DlgLbl  ,1,0,10,0,aNoMemory,1
; ª­®¯ª  "Ok"
        DlgBtn  ,4,1,7,1,aOk,0xD
 
; ¤¨ «®£ ª®¯¨à®¢ ­¨ï
copy_dlgdata:
        dd      1
.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      ?
        dd      0
        dd      0
        dd      4
; áâà®ª  '®¯¨à®¢ âì "%s" ¢:'
.lcopy  DlgLbl  ,1,0,,0,CopySourceTextBuf,0
; ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï á ¨¬¥­¥¬ ä ©« /¯ ¯ª¨ ­ §­ ç¥­¨ï
.ename  DlgEdit ,1,1,,1,CopyDestEditBuf,0
; ª­®¯ª  "ª®¯¨à®¢ âì"
.copy   DlgBtn  ,,3,,3,aCopy,18h
; ª­®¯ª  "®â¬¥­¨âì"
.cnl    DlgBtn  ,,3,,3,aCancelB,8
 
struct MkDir_Dlgdata
        dd      1
        dd      -1, -1
width   dd      ?
height  dd      4
        dd      4, 2
        dd      aMkDirCaption
        dd      ?, ?
        dd      0
        dd      0
        dd      4
; âà®ª  "®§¤ âì ¯ ¯ªã"
        DlgLbl  ,1,0,aMkDirLen,0,aMkDir,0
; ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï á ¨¬¥­¥¬ á®§¤ ¢ ¥¬®© ¯ ¯ª¨
dnam    DlgEdit ,1,1,,1,CopyDestEditBuf,0xC
; ª­®¯ª  "à®¤®«¦¨âì"
cont    DlgBtn  ,,3,,3,a_Continue,18h
; ª­®¯ª  "®â¬¥­¨âì"
cnl     DlgBtn  ,,3,,3,aCancelB,8
ends
 
mkdir_dlgdata MkDir_Dlgdata
 
; ¤¨ «®£ ¢ë¤¥«¥­¨ï/á­ïâ¨ï
mark_dlgdata:
        dd      1
        dd      -1, -1
        dd      37, 1
        dd      4, 2
.title  dd      ?
        dd      ?, ?
        dd      0, 0
        dd      1
; ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï
.edit   DlgEdit ,1, 0, 35, 0, enter_string_buf,
 
; ¤¨ «®£ ¡ëáâà®£® ¯®¨áª  ¢ ¯ ­¥«¨ (Alt+¡ãª¢ë)
QuickSearchDlg:
        dd      5
.x      dd      ?
.y      dd      ?
        dd      20, 1
        dd      1, 1
        dd      aSearch
        dd      ?, ?
        dd      0, 0
        dd      1
; ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï
        DlgEdit ,1, 0, 18, 0, quick_search_buf, 1Ch
 
; ¤¨ «®£ ¯®¨áª  ¢ ä ©«¥ ¤«ï ¯à®á¬®âàé¨ª  ¨ à¥¤ ªâ®à 
struct FindInFileDlgdata
        dd      1
x       dd      -1
y       dd      -1
width   dd      ?
height  dd      7
        dd      4, 2
        dd      aSearch
        dd      ?, ?
        dd      0, 0
        dd      8
; âà®ª  "áª âì"
        DlgLbl  ,1,0,aSearchForLen,0,aSearchFor,0
; ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï á â¥ªáâ®¬ ¤«ï ¯®¨áª 
efind   DlgEdit ,1,1,,1,SearchStringEditBuf,0xC
; £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
        DlgLine ,-1,2,-1,2
; ä« ¦®ª "ç¨âë¢ âì à¥£¨áâà"
case    DlgCheck,1,3,-1,3,aCaseSensitive,18h     ; default: search is case sensitive
; ä« ¦®ª "®«ìª® æ¥«ë¥ á«®¢ "
whole   DlgCheck,1,4,-1,4,aWholeWords,8       ; default: do NOT search whole words only
; £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
        DlgLine ,-1,5,-1,5
; ª­®¯ª  "áª âì"
search  DlgBtn ,,6,,6,aSearchB,18h
; ª­®¯ª  "®â¬¥­¨âì"
cnl     DlgBtn ,,6,,6,aCancelB,8
ends
 
find_in_file_dlgdata FindInFileDlgdata
 
; ¯¥à¢ë© ¤¨ «®£ ¯®¨áª  ¢ ä ©« å (§ ¯à®á)
struct FileSearch_QueryTemplate
        dd      1
x       dd      ?
y       dd      ?
width   dd      ?
height  dd      9
        dd      4, 2
        dd      aFileSearch
        dd      ?
        dd      0
        dd      0, 0
        dd      10
; áâà®ª -¯à¨£« è¥­¨¥ ¤«ï ¢¢®¤  ¬ áª¨
        DlgLbl  ,1,0,aFileMasksLen,0,aFileMasks,0
; ¯®«¥ ¢¢®¤  ¤«ï ¬ áª¨
edit1   DlgEdit ,1,1,,1,,0xC
; áâà®ª -¯à¨£« è¥­¨¥ ¤«ï â¥ªáâ  ¯®¨áª 
        DlgLbl  ,1,2,aContainingTextLen,2,aContainingText,0
; ¯®«¥ ¢¢®¤  ¤«ï â¥ªáâ  ¯®¨áª 
edit2   DlgEdit ,1,3,,3,,8
; £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
        DlgLine ,-1,4,-1,4
; ä« ¦®ª "ç¨âë¢ âì à¥£¨áâà"
case    DlgCheck,1,5,-1,5,aCaseSensitive,       ; will be initialized from find_in_file_dlgdata
; ä« ¦®ª "®«ìª® æ¥«ë¥ á«®¢ "
whole   DlgCheck,1,6,-1,6,aWholeWords,       ; will be initialized from find_in_file_dlgdata
; £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
        DlgLine ,-1,7,-1,7
; ª­®¯ª  "áª âì"
search  DlgBtn  ,,8,,8,aSearchB,18h
; ª­®¯ª  "®â¬¥­¨âì"
cnl     DlgBtn  ,,8,,8,aCancelB,8
ends
 
filesearch_query_template FileSearch_QueryTemplate
 
; ¢â®à®© ¤¨ «®£ ¯®¨áª  ¢ ä ©« å (áª ­¨à®¢ ­¨¥)
struct FileSearch_SearchTemplate
        dd      1
x       dd      ?
y       dd      ?
width   dd      ?
height  dd      ?
        dd      4, 2
caption dd      ?
        dd      ?
        dd      0
        dd      0, 0
        dd      9
; á¯¨á®ª ­ ©¤¥­­ëå ä ©«®¢
list1   DlgList ,0,0,,,,0
; £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
lin1    DlgLine ,-1,,-1,
; áâà®ª  "®¨áª  ¢:" «¨¡® "®¨áª § ª®­ç¥­..."
lbl1    DlgLbl  ,1
; áâà®ª  á â¥ªãé¥© ¯ ¯ª®©
lbl2    DlgLbl
; £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
lin2    DlgLine ,-1,,-1,
; ª­®¯ª¨
btn1    DlgBtn  ,,,,,aNewSearch,8
btn2    DlgBtn  ,,,,,aGoto,1Ch
btn3    DlgBtn  ,,,,,aView,8
btn4    DlgBtn  ,,,,,aCancelB2,8
ends
 
filesearch_search_template FileSearch_SearchTemplate
 
RetryOrCancelBtn:
        dd      aRetry
        dd      a_Cancel
DeleteOrKeepBtn:
        dd      a_Delete
        dd      aKeep
RetryOrIgnoreBtn:
        dd      aRetry
        dd      aIgnore
DeleteOrCancelBtn:
        dd      a_Delete
        dd      a_Cancel
DeleteErrorBtn:
        dd      aRetry
SkipOrCancelBtn:
        dd      aSkip
        dd      aSkipAll
        dd      a_Cancel
ContinueBtn:
        dd      aContinue
EditorExitBtn:
        dd      aSave
        dd      aDontSave
        dd      aContinueEdit
YesOrNoBtn:
        dd      aYes
        dd      aNo
 
aCannotOpenFile_ptr     dd      aCannotOpenFile
aCannotCreateThread_ptr dd      aCannotCreateThread
ConfirmCancelMsg        dd      aConfirmCancel
EditConfigErr_ptr:
        dd      aEditConfigErr1
        dd      aEditConfigErr2
if lang eq ru
aDeleteCaption          db      '¤ «¥­¨¥',0
aConfirmDeleteText      db      'ë å®â¨â¥ ã¤ «¨âì',0
aDeleteFolder           db      ' ¯ ¯ªã',0
aConfirmDeleteTextMax = $ - aConfirmDeleteText - 2
aDeleteFile             db      ' ä ©«',0
aCancelB                db      '[ â¬¥­¨âì ]',0
aCancelBLength = $ - aCancelB - 1
aCancelB2               db      '[ â¬¥­  ]',0
aCancelB2Length = $ - aCancelB2 - 1
aCopyCaption            db      '®¯¨à®¢ ­¨¥',0
aCopy                   db      '[ ®¯¨à®¢ âì ]',0
aCopyLength = $ - aCopy - 1
a_Continue              db      '[ à®¤®«¦¨âì ]',0
a_ContinueLength = $ - a_Continue - 1
aCopy1                  db      '®¯¨à®¢ âì ',0
aCopy2                  db      ' ¢:',0
aError                  db      'è¨¡ª ',0
aContinue               db      'à®¤®«¦¨âì',0
aRetry                  db      '®¢â®à¨âì',0
a_Cancel                db      'â¬¥­¨âì',0
a_Delete                db      '¤ «¨âì',0
aSkip                   db      'à®¯ãáâ¨âì',0
aSkipAll                db      'à®¯ãáâ¨âì ¢á¥',0
aYes                    db      ' ',0
aNo                     db      '¥â',0
error0msg               db      'âà ­­®... ¥â ®è¨¡ª¨',0
error1msg               db      'âà ­­®... ¥ ®¯à¥¤¥«¥­  ¡ §  ¨/¨«¨ à §¤¥« ¦ñáâª®£® ¤¨áª ',0
error2msg               db      'ã­ªæ¨ï ­¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ­­®© ä ©«®¢®© á¨áâ¥¬ë',0
error3msg               db      '¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨áâ¥¬ ',0
error4msg               db      'âà ­­®... è¨¡ª  4',0
error5msg               db      ' ©« ­¥ ­ ©¤¥­',0
error6msg               db      ' ©« § ª®­ç¨«áï',0
error7msg               db      'âà ­­®... ª § â¥«ì ¢­¥ ¯ ¬ïâ¨ ¯à¨«®¦¥­¨ï',0
error8msg               db      '¨áª § ¯®«­¥­',0
error9msg               db      ' ©«®¢ ï áâàãªâãà  à §àãè¥­ ',0
error10msg              db      '®áâã¯ § ¯à¥éñ­',0
error11msg              db      'è¨¡ª  ãáâà®©áâ¢ ',0
error30msg              db      '¥¤®áâ â®ç­® ¯ ¬ïâ¨',0
error31msg              db      ' ©« ­¥ ï¢«ï¥âáï ¨á¯®«­ï¥¬ë¬',0
error32msg              db      '«¨èª®¬ ¬­®£® ¯à®æ¥áá®¢',0
aUnknownError           db      '¥¨§¢¥áâ­ë© ª®¤ ®è¨¡ª¨: ',0
aCannotReadFolder       db      '¥ ¬®£ã ¯à®ç¨â âì ¯ ¯ªã',0
aRunError               db      'è¨¡ª  ¯à¨ § ¯ãáª¥ ¯à®£à ¬¬ë:',0
aFileNameTooBig         db      '®«­®¥ ¨¬ï ä ©«  á«¨èª®¬ ¤«¨­­®¥',0
aFolderNameTooBig       db      '®«­®¥ ¨¬ï ¯ ¯ª¨ á«¨èª®¬ ¤«¨­­®¥',0
aCmdLineTooBig          db      '®¬ ­¤­ ï áâà®ª  ¯à¥¢ëè ¥â £à ­¨æã OS ¢ 256 á¨¬¢®«®¢',0
aCannotCopyToSelf       db      ' ©« ­¥ ¬®¦¥â ¡ëâì áª®¯¨à®¢ ­ ¢ á ¬®£® á¥¡ï',0
aCannotReadFile         db      '¥ ¬®£ã ¯à®ç¨â âì ä ©«',0
aIncompleteFile         db      'ë« ¯®«ãç¥­ ­¥¯®«­ë© ä ©«. ¤ «¨âì ¥£®?',0
aKeep                   db      'áâ ¢¨âì',0
aCannotWriteFile        db      '¥ ¬®£ã § ¯¨á âì ¢ ä ©«',0
aCannotDeleteFile       db      '¥ ¬®£ã ã¤ «¨âì ä ©«',0
aCannotDeleteFolder     db      '¥ ¬®£ã ã¤ «¨âì ¯ ¯ªã',0
aNotFolder              db      '­¥ ï¢«ï¥âáï ¯ ¯ª®©',0
aIgnore                 db      '£­®à¨à®¢ âì',0
aMkDirCaption           db      '®§¤ ­¨¥ ¯ ¯ª¨',0
aMkDir                  db      '®§¤ âì ¯ ¯ªã',0
aMkDirLen = $ - aMkDir - 1
aCannotMakeFolder       db      '¥ ¬®£ã á®§¤ âì ¯ ¯ªã',0
aName                   db      3,'¬ï'
aSize                   db      6,' §¬¥à'
aDate                   db      4,' â '
aTime                   db      5,'à¥¬ï'
aCannotLoadDLL          db      '¥ ¬®£ã § £àã§¨âì DLL',0
aCannotLoadPlugin       db      '¥ ¬®£ã § £àã§¨âì ¯« £¨­',0
aInvalidDLL             db      ' ©« ­¥ ­ ©¤¥­ ¨«¨ ¨¬¥¥â ­¥¢¥à­ë© ä®à¬ â',0
aMissingExport          db      '¥®¡å®¤¨¬ ï äã­ªæ¨ï ­¥ ­ ©¤¥­ ',0
aInitFailed             db      'è¨¡ª  ¯à¨ ¨­¨æ¨ «¨§ æ¨¨',0
aIncompatibleVersion    db      '¥á®¢¬¥áâ¨¬ ï ¢¥àá¨ï',0
aTables                 db      ' ¡«¨æë',0
aSelect                 db      '®¬¥â¨âì',0
aDeselect               db      '­ïâì',0
aCannotOpenFile         db      'è¨¡ª  ¯à¨ ®âªàëâ¨¨ ä ©« ',0
aCannotCreateThread     db      'è¨¡ª  ¯à¨ á®§¤ ­¨¨ ¯®â®ª ',0
aCannotSetFolder        db      '¥ ¬®£ã § ©â¨ ¢ ¯ ¯ªã',0
aSearch                 db      '®¨áª',0
aSearchB                db      '[ áª âì ]',0
aSearchBLength = $ - aSearchB - 1
aSearchFor              db      'áª âì',0
aSearchForLen = $ - aSearchFor - 1
aCaseSensitive          db      'ç¨âë¢ âì à¥£¨áâà',0
aWholeWords             db      '®«ìª® æ¥«ë¥ á«®¢ ',0
aReverseSearch          db      '¡à â­ë© ¯®¨áª',0
aStringNotFound         db      'âà®ª  ­¥ ­ ©¤¥­ ',0
aFileSearch             db      '®¨áª ä ©« ',0
aFileMasks              db      '¤­  ¨«¨ ­¥áª®«ìª® ¬ á®ª ä ©«®¢:',0
aFileMasksLen = $ - aFileMasks - 1
aContainingText         db      '®¤¥à¦ é¨å â¥ªáâ:',0
aContainingTextLen = $ - aContainingText - 1
aSearchingIn            db      '®¨áª "" ¢:',0
aSearchingInLen = $ - aSearchingIn - 1
aSearchDone             db      '®¨áª § ª®­ç¥­.  ©¤¥­® ? ä ©«(®¢)',0
aSearchDoneLen = $ - aSearchDone - 1
aNewSearch              db      '[ ®¢ë© ¯®¨áª ]',0
aNewSearchLen = $ - aNewSearch - 1
aGoto                   db      '[ ¥à¥©â¨ ]',0
aGotoLen = $ - aGoto - 1
aView                   db      '[ ¬®âà¥âì ]',0
aViewLen = $ - aView - 1
aEditConfigErr1         db      'è¨¡ª  ¢ ª®­ä¨£ãà æ¨¨ ¯« £¨­®¢ ¤«ï à¥¤ ªâ®à .',0
aEditConfigErr2         db      '®¯à®¡ã©â¥ ã¡à âì «¨è­¨¥ ¯« £¨­ë.',0
aEditNoMemory           db      ' ©« á«¨èª®¬ ¢¥«¨ª ¤«ï § £àã§ª¨ ¢ à¥¤ ªâ®à.',0
aLine                   db      '  âà®ª '
aCol                    db      '   ®« '
aEditorTitle            db      '¥¤ ªâ®à',0
aFileModified           db      ' ©« ¡ë« ¨§¬¥­ñ­',0
aSave                   db      '®åà ­¨âì',0
aDontSave               db      '¥ á®åà ­ïâì',0
aContinueEdit           db      'à®¤®«¦¨âì à¥¤ ªâ¨à®¢ ­¨¥',0
aCannotSaveToPlugin     db      '®åà ­¥­¨¥ ä ©«®¢ ­  ¯ ­¥«ïå ¯« £¨­®¢ ­¥ ¯®¤¤¥à¦¨¢ ¥âáï',0
aCannotSearchOnPlugin   db      '®¨áª ­  ¯ ­¥«ïå ¯« £¨­®¢ ­¥ ¯®¤¤¥à¦¨¢ ¥âáï',0
aCancelled              db      '¥©áâ¢¨¥ ¡ë«® ¯à¥à¢ ­®',0
aConfirmCancel          db      'ë ¤¥©áâ¢¨â¥«ì­® å®â¨â¥ ®â¬¥­¨âì ¤¥©áâ¢¨¥?',0
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
aCancelB                db      '[ Cancel ]',0
aCancelBLength = $ - aCancelB - 1
aCancelB2 = aCancelB
aCancelB2Length = $ - aCancelB2 - 1
aCopyCaption            db      'Copy',0
aCopy                   db      '[ Copy ]',0
aCopyLength = $ - aCopy - 1
a_Continue              db      '[ Continue ]',0
a_ContinueLength = $ - a_Continue - 1
aCopy1                  db      'Copy "',0
aCopy2                  db      '" to:',0
aError                  db      'Error',0
aContinue               db      'Continue',0
aRetry                  db      'Retry',0
a_Cancel                db      'Cancel',0
a_Delete                db      'Delete',0
aSkip                   db      'Skip',0
aSkipAll                db      'Skip all',0
aYes                    db      'Yes',0
aNo                     db      'No',0
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
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 to the file',0
aCannotDeleteFile       db      'Cannot delete the file',0
aCannotDeleteFolder     db      'Cannot delete the folder',0
aNotFolder              db      'is not a 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
aName                   db      4,'Name'
aSize                   db      4,'Size'
aDate                   db      4,'Date'
aTime                   db      4,'Time'
aCannotLoadDLL          db      'Cannot load DLL',0
aCannotLoadPlugin       db      'Cannot load plugin',0
aInvalidDLL             db      'File is not found or invalid',0
aMissingExport          db      'Required function is not present',0
aInitFailed             db      'Initialization failed',0
aIncompatibleVersion    db      'Incompatible version',0
aTables                 db      'Tables',0
aSelect                 db      'Select',0
aDeselect               db      'Deselect',0
aCannotOpenFile         db      'Cannot open the file',0
aCannotCreateThread     db      'Cannot create a thread',0
aCannotSetFolder        db      'Cannot enter to the folder',0
aSearch                 db      'Search',0
aSearchB                db      '[ Search ]',0
aSearchBLength = $ - aSearchB - 1
aSearchFor              db      'Search for',0
aSearchForLen = $ - aSearch - 1
aCaseSensitive          db      'Case sensitive',0
aWholeWords             db      'Whole words',0
aReverseSearch          db      'Reverse search',0
aStringNotFound         db      'Could not find the string',0
aFileSearch             db      'Find file',0
aFileMasks              db      'A file mask or several file masks:',0
aFileMasksLen = $ - aFileMasks - 1
aContainingText         db      'Containing text:',0
aContainingTextLen = $ - aContainingText - 1
aSearchingIn            db      'Searching "" in:',0
aSearchingInLen = $ - aSearchingIn - 1
aSearchDone             db      'Search done. Found ? file(s)',0
aSearchDoneLen = $ - aSearchDone - 1
aNewSearch              db      '[ New search ]',0
aNewSearchLen = $ - aNewSearch - 1
aGoto                   db      '[ Go to ]',0
aGotoLen = $ - aGoto - 1
aView                   db      '[ View ]',0
aViewLen = $ - aView - 1
aEditConfigErr1         db      'Error in configuration of plugins for the editor.',0
aEditConfigErr2         db      'Try to remove unnecessary plugins.',0
aEditNoMemory           db      'The file is too big for the editor.',0
aLine                   db      '    Line'
aCol                    db      '   Col '
aEditorTitle            db      'Editor',0
aFileModified           db      'File has been modified',0
aSave                   db      'Save',0
aDontSave               db      'Do not save',0
aContinueEdit           db      'Continue editing',0
aCannotSaveToPlugin     db      'Saving is not supported for plugin panels',0
aCannotSearchOnPlugin   db      'The search on plugin panels is not supported yet',0
aCancelled              db      'Operation has been interrupted',0
aConfirmCancel          db      'Do you really want to cancel it?',0
end if
 
aOk                     db      'OK',0
aNoMemory               db      'No memory!'
nullstr                 db      0
aUntitled               db      'untitled',0
aDotDot                 db      '..',0,0
standard_dll_path:
libini_name             db      '/sys/lib/'
standard_dll_path_size = $ - standard_dll_path
                        db      'libini.obj',0
aStart                  db      'START',0
aLibInit                db      'lib_init',0
aVersion                db      'version',0
aIniGetInt              db      'ini_get_int',0
aIniGetStr              db      'ini_get_str',0
aIniSetInt              db      'ini_set_int',0
aIniEnumKeys            db      'ini_enum_keys',0
aPluginLoad             db      'plugin_load',0
aPluginUnload           db      'plugin_unload',0
aGetattr                db      'getattr',0
aOpen                   db      'open',0
aRead                   db      'read',0
aSetpos                 db      'setpos',0
aClose                  db      'close',0
aOpenFilePlugin         db      'OpenFilePlugin',0
aClosePlugin            db      'ClosePlugin',0
aReadFolder             db      'ReadFolder',0
aSetFolder              db      'SetFolder',0
aGetOpenPluginInfo      db      'GetOpenPluginInfo',0
aGetPanelTitle          db      'GetPanelTitle',0
aGetFiles               db      'GetFiles',0
aEditInfoSize           db      'EditInfoSize',0
 
aConfirmations          db      'Confirmations',0
aConfirmDelete          db      'Delete',0
aConfirmDeleteIncomplete db     'DeleteIncomplete',0
 
aPanels                 db      'Panels',0
aLeftViewMode           db      'LeftViewMode',0
aRightViewMode          db      'RightViewMode',0
aLeftSortMode           db      'LeftSortMode',0
aRightSortMode          db      'RightSortMode',0
 
aEditor                 db      'Editor',0
aEolStyle               db      'EOLStyle',0
 
aAssociations           db      'Associations',0
aPlugins                db      'Plugins',0
aMenu                   db      'Menu',0
aFolderShortcuts        db      'FolderShortcuts',0
aShortcut               db      'Shortcut'
.d                      db      '0',0
 
align 4
ini_import:
ini.get_int     dd      aIniGetInt
ini.get_str     dd      aIniGetStr
ini.enum_keys   dd      aIniEnumKeys
ini.set_int     dd      aIniSetInt
                dd      0
 
plugin_exported:
        dd      aPluginUnload
        dd      aGetattr
        dd      aOpen
        dd      aRead
        dd      aSetpos
        dd      aClose
        dd      aOpenFilePlugin
        dd      aClosePlugin
        dd      aReadFolder
        dd      aSetFolder
        dd      aGetOpenPluginInfo
        dd      aGetPanelTitle
        dd      aGetFiles
        dd      aEditInfoSize
        dd      0
plugin_exported_default:
        dd      plugin_unload_default
        dd      getattr_default
        dd      open_default
        dd      read
        dd      setpos_default
        dd      close
        dd      OpenFilePlugin_default
        dd      ClosePlugin_default
        dd      ReadFolder_default
        dd      SetFolder_default
        dd      GetOpenPluginInfo_default
        dd      GetPanelTitle_default
        dd      GetFiles_default
        dd      0       ; default value for EditInfoSize
 
kfar_info:
        dd      .size
        dd      version_dword
        dd      open
        dd      open2
        dd      read
        dd      -1      ; write: to be implemented
        dd      seek
        dd      tell
        dd      -1      ; flush: to be implemented
        dd      filesize
        dd      close
        dd      xpgalloc
        dd      xpgrealloc
        dd      pgfree
        dd      getfreemem
        dd      libini_alloc
        dd      libini_realloc
        dd      libini_free
        dd      menu
        dd      menu_centered_in
        dd      DialogBox
        dd      SayErr
        dd      Message
        dd      cur_width
.size = $ - kfar_info
 
plugins         dd      0
num_plugins     dd      0
alloc_plugins   dd      0
 
EditPlugInfo    dd      0
EditEOLStyle    db      edit.eol_unix
 
virtual at 0
PluginInfo:
.unload         dd      ?
.getattr        dd      ?
.open           dd      ?
.read           dd      ?
.setpos         dd      ?
.close          dd      ?
.OpenFilePlugin dd      ?
.ClosePlugin    dd      ?
.ReadFolder     dd      ?
.SetFolder      dd      ?
.GetOpenPluginInfo dd   ?
.GetPanelTitle  dd      ?
.GetFiles       dd      ?
.EditInfoSize   dd      ?
.EditInfoOffs   dd      ?
.size = $
end virtual
 
virtual at 0
PanelMode:
; up to 16 columns on one panel
.NumColumns     dd      ?
; available column types:
COLUMN_TYPE_NONE = 0
COLUMN_TYPE_NAME = 1
        COLUMN_NAME_MARK = 10h          ; (reserved)
        COLUMN_NAME_NOPATH = 20h        ; (reserved)
        COLUMN_NAME_RIGHTALIGN = 40h    ; (reserved)
COLUMN_TYPE_SIZE = 2
        COLUMN_SIZE_COMMA = 10h         ; (reserved)
COLUMN_TYPE_PACKED_SIZE = 3             ; (reserved)
COLUMN_TYPE_DATE = 4
COLUMN_TYPE_TIME = 5
COLUMN_TYPE_DATETIME = 6                ; (reserved)
COLUMN_TYPE_DATETIME_CREATION = 7       ; (reserved)
COLUMN_TYPE_DATETIME_ACCESS = 8         ; (reserved)
COLUMN_TYPE_ATTRIBUTES = 9              ; (reserved)
COLUMN_TYPE_DESCRIPTION = 10            ; (reserved)
COLUMN_TYPE_OWNER = 11                  ; (reserved)
COLUMN_TYPE_NUMLINKS = 12               ; (reserved)
COLUMN_TYPE_CUSTOM = 13                 ; (reserved)
.ColumnTypes    rb      16
 
.ColumnWidths   rb      16
.bFullScreen    db      ?               ; (reserved)
.bAlignExtensions db    ?
                rb      2
.size = $
end virtual
 
align 4
column_headers:
        dd      nullstr
        dd      aName
        dd      aSize
        dd      nullstr
        dd      aDate
        dd      aTime
draw_column_proc:
        dd      draw_empty_column
        dd      draw_name_column
        dd      draw_size_column
        dd      -1
        dd      draw_date_column
        dd      draw_time_column
colmodes:
; à¥¦¨¬ 0 : NM,SC,D
        dd      3
        db      COLUMN_TYPE_NAME+COLUMN_NAME_MARK, COLUMN_TYPE_SIZE+COLUMN_SIZE_COMMA
                db      COLUMN_TYPE_DATE, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
        db      0, 10, 8
                times 13 db 0
        db      0, 1
                times 2 db 0
; à¥¦¨¬ 1 : N,N,N
        dd      3
        db      COLUMN_TYPE_NAME, COLUMN_TYPE_NAME, COLUMN_TYPE_NAME
                times 13 db 0
        times 16 db 0
        db      0, 1
                times 2 db 0
; à¥¦¨¬ 2 : N,N
        dd      2
        db      COLUMN_TYPE_NAME, COLUMN_TYPE_NAME
                times 14 db 0
        times 16 db 0
        db      0, 0
                times 2 db 0
; à¥¦¨¬ 3 : N,S,D,T
        dd      4
        db      COLUMN_TYPE_NAME, COLUMN_TYPE_SIZE, COLUMN_TYPE_DATE, COLUMN_TYPE_TIME
                times 12 db 0
        db      0, 6, 8, 5
                times 12 db 0
        db      0, 1
                times 2 db 0
; à¥¦¨¬ 4 : N,S
        dd      2
        db      COLUMN_TYPE_NAME, COLUMN_TYPE_SIZE
                times 14 db 0
        db      0, 6
                times 14 db 0
        db      0, 0
                times 2 db 0
; à¥¦¨¬ 5 : N,S,P,DM,DC,DA,A
; à¥¦¨¬ 6 : N,Z
; à¥¦¨¬ 7 : N,S,Z
; à¥¦¨¬ 8 : N,S,O
; à¥¦¨¬ 9 : N,S,LN
 
execinfo:
        dd      7
        dd      0
execparams dd   0
        dd      0
        dd      0
        db      0
execptr dd      ?
 
IncludeIGlobals
 
i_end:
 
IncludeUGlobals
 
execdata rb     1024
execdataend:
        align   4
attrinfo.attr   rb      40
 
panel1 PanelData
 
panel2 PanelData
 
;console_data    rb      max_width*max_height*2
 
nomem_dlgsavearea       rb      8 + (12+4)*(3+3)*2
 
quicksearch_savearea    rb      22*3*2
quicksearch_maxlen = 64
quick_search_buf        rb      12 + quicksearch_maxlen
 
cur_header      rb      max_width
tmp             dd      ?
 
skinh           dd      ?
std_colors      rd      10
 
min_y           dd      ?
max_y           dd      ?
min_x           dd      ?
max_x           dd      ?
used_width      dd      ?
used_height     dd      ?
 
wnd_width       dd      ?
wnd_height      dd      ?
 
column_left     dd      ?
column_top      dd      ?
column_width    dd      ?
column_height   dd      ?
column_index    dd      ?
last_column_index dd    ?
 
scrpos          dq      ?
viewer_right_side dq    ?
 
EditDataSize    dd      ?
EditBlockStart  dd      ?
EditBlockSize   dd      ?
 
saved_file_name:
procinfo        rb      1024
lower_file_name = procinfo + 512
 
app_path        rb      1100
 
error_msg       rb      128
 
prev_dir        rb      1024
 
driveinfo       rb      32+304
tmpname         rb      32
 
screens         dd      ?
num_screens     dd      ?
active_screen_vtable dd ?
active_screen_data dd   ?
active_screen_keybar dd ?
 
default_attr    dd      ?
left_dotdot_entry       rb      40+4    ; 40 bytes for attributes + '..'
right_dotdot_entry      rb      40+4
 
aConfirmDeleteTextBuf   rb      aConfirmDeleteTextMax + 1
CopySourceTextBuf       rb      512
CopyDestEditBuf         rb      12+512+1
.length = $ - CopyDestEditBuf - 13
 
SearchStringEditBuf     rb      12
SearchString            rb      253+1
SearchStringEditBuf.length = $ - SearchString - 1
                        db      ?       ; used for output (string -> "string")
 
enter_string_buf        rb      12+512+1
 
bMemForImageValidData   db      ?
 
align 4
identical_table rb      256
tolower_table   rb      256
isspace_table   rb      256
composite_table rb      256
layout          rb      128
 
copy_buffer_size = 65536
copy_buffer     rb      copy_buffer_size
 
filedata_buffer_size = 1024
filedata_buffer rb      filedata_buffer_size
 
source_hModule  dd      ?
source_hPlugin  dd      ?
source_hFile    dd      ?
; data for directory delete
; If directory nested level is >1024, then its full name is too big,
; so we see the overflow when creating full name (we check for this!)
del_dir_stack   rd      1024
del_dir_stack_ptr dd    ?
del_dir_query_size = 32
del_dir_query_area rb   32+304*del_dir_query_size
 
label copy_dir_stack dword at del_dir_stack
label copy_dir_stack_ptr dword at del_dir_stack_ptr
copy_dir_query_size = del_dir_query_size
copy_dir_query_area = del_dir_query_area
del_bSkipAll    db      ?       ; for directory errors
label copy_bSkipAll byte at del_bSkipAll
copy_bSkipAll2  db      ?       ; for file read/write errors
copy_bSkipAll3  db      ?       ; for SetFolder errors
 
bEndSlash       db      ?
bDestIsFolder   db      ?
bNeedRestoreName db     ?
 
; stack
        align   4
        rb      32768
stacktop:
 
mem:
Rev 9039	Rev 9059
1	use32	1	use32
2	db 'MENUET01'	2	db 'MENUET01'
3	dd 1	3	dd 1
4	dd start	4	dd start
5	dd i_end	5	dd i_end
6	memsize dd mem	6	memsize dd mem
7	dd stacktop	7	dd stacktop
8	dd 0, app_path	8	dd 0, app_path
9		9
10	version equ '0.65'	10	version equ '0.65'
11	version_dword equ 0*10000h + 65	11	version_dword equ 0*10000h + 65
12		12
13	min_width = 54	13	min_width = 54
14	max_width = 255	14	max_width = 255
15	min_height = 8	15	min_height = 8
16	max_height = 255	16	max_height = 255
17		17
18	include '../../../KOSfuncs.inc'	18	include '../../../KOSfuncs.inc'
19	include '../../../macros.inc'	19	include '../../../macros.inc'
20	include 'lang.inc'	20	include 'lang.inc'
21	include 'font.inc'	21	include 'font.inc'
22	include 'sort.inc'	22	include 'sort.inc'
23	include 'kglobals.inc'	23	include 'kglobals.inc'
24	include 'dialogs.inc'	24	include 'dialogs.inc'
25	include 'search.inc'	25	include 'search.inc'
26	include 'viewer.inc'	26	include 'viewer.inc'
27	include 'editor.inc'	27	include 'editor.inc'
28	include 'tools.inc'	28	include 'tools.inc'
29	include 'filetool.inc'	29	include 'filetool.inc'
30		30
31	struct PanelData	31	struct PanelData
32	left dd ?	32	left dd ?
33	top dd ?	33	top dd ?
34	width dd ?	34	width dd ?
35	height dd ?	35	height dd ?
36	index dd ?	36	index dd ?
37	start dd ?	37	start dd ?
38	colsz dd ?	38	colsz dd ?
39	colst dd ?	39	colst dd ?
40	sortmode db ?	40	sortmode db ?
41	rb 3	41	rb 3
42	nfa dd ?	42	nfa dd ?
43	numfiles dd ?	43	numfiles dd ?
44	files dd ?	44	files dd ?
45	hPlugin dd ?	45	hPlugin dd ?
46	hFile dd ?	46	hFile dd ?
47	parents dd ?	47	parents dd ?
48	parents_sz dd ?	48	parents_sz dd ?
49	parents_alloc dd ?	49	parents_alloc dd ?
50	colmode dd ?	50	colmode dd ?
51	colwidths rd 16+1	51	colwidths rd 16+1
52	total_num dd ?	52	total_num dd ?
53	total_size dq ?	53	total_size dq ?
54	selected_num dd ?	54	selected_num dd ?
55	selected_size dq ?	55	selected_size dq ?
56	;plugin_info:	56	;plugin_info:
57	plugin_flags dd ?	57	plugin_flags dd ?
58	dir rb 1024	58	dir rb 1024
59	ends	59	ends
60		60
61	cursor_normal_size = (font_height*15+50)/100	61	cursor_normal_size = (font_height*15+50)/100
62	cursor_big_size = font_height	62	cursor_big_size = font_height
63		63
64	align 4	64	align 4
65	start:	65	start:
66	mov eax,SF_SET_EVENTS_MASK	66	mov eax,SF_SET_EVENTS_MASK
67	mov ebx,(11b shl 30) or 100111b	67	mov ebx,(11b shl 30) or 100111b
68	int 0x40	68	int 0x40
69	mov edi, identical_table	69	mov edi, identical_table
70	mov ecx, 0x100	70	mov ecx, 0x100
71	xor eax, eax	71	xor eax, eax
72	@@:	72	@@:
73	stosb	73	stosb
74	inc eax	74	inc eax
75	loop @b	75	loop @b
76	mov cl, 'A'	76	mov cl, 'A'
77	@@:	77	@@:
78	stosb	78	stosb
79	inc eax	79	inc eax
80	loop @b	80	loop @b
81	add al, 0x20	81	add al, 0x20
82	mov cl, 'Z'-'A'+1	82	mov cl, 'Z'-'A'+1
83	@@:	83	@@:
84	stosb	84	stosb
85	inc eax	85	inc eax
86	loop @b	86	loop @b
87	sub al, 0x20	87	sub al, 0x20
88	mov cl, ''-'Z'-1	88	mov cl, ''-'Z'-1
89	@@:	89	@@:
90	stosb	90	stosb
91	inc eax	91	inc eax
92	loop @b	92	loop @b
93	add al, 0x20	93	add al, 0x20
94	mov cl, ''-''	94	mov cl, ''-''
95	@@:	95	@@:
96	stosb	96	stosb
97	inc eax	97	inc eax
98	loop @b	98	loop @b
99	add al, 0x30	99	add al, 0x30
100	mov cl, ''-''+1	100	mov cl, ''-''+1
101	@@:	101	@@:
102	stosb	102	stosb
103	inc eax	103	inc eax
104	loop @b	104	loop @b
105	sub al, 0x50	105	sub al, 0x50
106	mov cl, 256-''-1	106	mov cl, 256-''-1
107	@@:	107	@@:
108	stosb	108	stosb
109	inc eax	109	inc eax
110	loop @b	110	loop @b
111	mov byte [edi-256+'ð'], 'ñ'	111	mov byte [edi-256+'ð'], 'ñ'
112	mov cl, 'A'	112	mov cl, 'A'
113	inc eax	113	inc eax
114	rep stosb	114	rep stosb
115	mov cl, 'Z'-'A'+1	115	mov cl, 'Z'-'A'+1
116	dec eax	116	dec eax
117	rep stosb	117	rep stosb
118	mov cl, 'a'-'Z'-1	118	mov cl, 'a'-'Z'-1
119	inc eax	119	inc eax
120	rep stosb	120	rep stosb
121	mov byte [edi-'a'+'_'], 0	121	mov byte [edi-'a'+'_'], 0
122	mov cl, 'z'-'a'+1	122	mov cl, 'z'-'a'+1
123	dec eax	123	dec eax
124	rep stosb	124	rep stosb
125	mov cl, ''-'z'-1	125	mov cl, ''-'z'-1
126	inc eax	126	inc eax
127	rep stosb	127	rep stosb
128	mov cl, '¯'-''+1	128	mov cl, '¯'-''+1
129	dec eax	129	dec eax
130	rep stosb	130	rep stosb
131	mov cl, 'à'-'¯'-1	131	mov cl, 'à'-'¯'-1
132	inc eax	132	inc eax
133	rep stosb	133	rep stosb
134	mov cl, 'ñ'-'à'+1	134	mov cl, 'ñ'-'à'+1
135	dec eax	135	dec eax
136	rep stosb	136	rep stosb
137	mov cl, 256-'ñ'-1	137	mov cl, 256-'ñ'-1
138	inc eax	138	inc eax
139	rep stosb	139	rep stosb
140	mov edi, SearchStringEditBuf	140	mov edi, SearchStringEditBuf
141	mov eax, SearchStringEditBuf.length	141	mov eax, SearchStringEditBuf.length
142	stosd	142	stosd
143	xor eax, eax	143	xor eax, eax
144	stosd	144	stosd
145	stosd	145	stosd
146	stosb	146	stosb
147	push SF_SYS_MISC	147	push SF_SYS_MISC
148	pop eax	148	pop eax
149	push SSF_HEAP_INIT	149	push SSF_HEAP_INIT
150	pop ebx	150	pop ebx
151	int 0x40	151	int 0x40
152	call init_console	152	call init_console
153	call draw_window	153	call draw_window
154	push SF_KEYBOARD	154	push SF_KEYBOARD
155	pop eax	155	pop eax
156	push SSF_SET_INPUT_MODE	156	push SSF_SET_INPUT_MODE
157	pop ebx	157	pop ebx
158	mov ecx, ebx	158	mov ecx, ebx
159	int 40h ; set keyboard mode to scancodes	159	int 40h ; set keyboard mode to scancodes
160	mov eax, 200	160	mov eax, 200
161	mov [panel1.nfa], eax	161	mov [panel1.nfa], eax
162	mov [panel2.nfa], eax	162	mov [panel2.nfa], eax
163	mov ecx, 2004 + 32 + 200304	163	mov ecx, 2004 + 32 + 200304
164	call pgalloc	164	call pgalloc
165	mov [panel1.files], eax	165	mov [panel1.files], eax
166	call pgalloc	166	call pgalloc
167	mov [panel2.files], eax	167	mov [panel2.files], eax
168	test eax, eax	168	test eax, eax
169	jz exit	169	jz exit
170	xor eax, eax	170	xor eax, eax
171	cmp [panel1.files], eax	171	cmp [panel1.files], eax
172	jz exit	172	jz exit
173	mov [panel1.hPlugin], eax	173	mov [panel1.hPlugin], eax
174	mov [panel1.parents], eax	174	mov [panel1.parents], eax
175	mov [panel1.parents_sz], eax	175	mov [panel1.parents_sz], eax
176	mov [panel1.parents_alloc], eax	176	mov [panel1.parents_alloc], eax
177	mov [panel2.hPlugin], eax	177	mov [panel2.hPlugin], eax
178	mov [panel2.parents], eax	178	mov [panel2.parents], eax
179	mov [panel2.parents_sz], eax	179	mov [panel2.parents_sz], eax
180	mov [panel2.parents_alloc], eax	180	mov [panel2.parents_alloc], eax
181	mov [panel1.sortmode], al ; sort by name	181	mov [panel1.sortmode], al ; sort by name
182	mov [panel2.sortmode], al	182	mov [panel2.sortmode], al
183	mov al, 2 ; "áà¥¤¨©" ä®à¬ â	183	mov al, 2 ; "áà¥¤¨©" ä®à¬ â
184	mov [panel1.colmode], eax	184	mov [panel1.colmode], eax
185	mov [panel2.colmode], eax	185	mov [panel2.colmode], eax
186	mov [num_screens], 1	186	mov [num_screens], 1
187	mov ecx, 0x1000	187	mov ecx, 0x1000
188	call pgalloc	188	call pgalloc
189	mov [screens], eax	189	mov [screens], eax
190	test eax, eax	190	test eax, eax
191	jz exit	191	jz exit
192	mov ecx, panels_vtable	192	mov ecx, panels_vtable
193	mov [eax], ecx	193	mov [eax], ecx
194	mov [active_screen_vtable], ecx	194	mov [active_screen_vtable], ecx
195	mov [active_screen_keybar], keybar_panels	195	mov [active_screen_keybar], keybar_panels
196	; load libini.obj and kfar.ini	196	; load libini.obj and kfar.ini
197	mov eax, libini_name	197	mov eax, libini_name
198	mov esi, ini_import	198	mov esi, ini_import
199	push 8	199	push 8
200	pop ebp ; we use version 8 of libini	200	pop ebp ; we use version 8 of libini
201	call load_dll_and_import	201	call load_dll_and_import
202	test eax, eax	202	test eax, eax
203	jnz .noini	203	jnz .noini
204	mov edi, app_path	204	mov edi, app_path
205	or ecx, -1	205	or ecx, -1
206	repnz scasb	206	repnz scasb
207	mov dword [edi-1], '.ini'	207	mov dword [edi-1], '.ini'
208	mov byte [edi+3], 0	208	mov byte [edi+3], 0
209	push 1	209	push 1
210	push dword aConfirmDelete	210	push dword aConfirmDelete
211	push dword aConfirmations	211	push dword aConfirmations
212	push dword app_path	212	push dword app_path
213	call [ini.get_int]	213	call [ini.get_int]
214	mov [bConfirmDelete], al	214	mov [bConfirmDelete], al
215	push 0	215	push 0
216	push dword aConfirmDeleteIncomplete	216	push dword aConfirmDeleteIncomplete
217	push dword aConfirmations	217	push dword aConfirmations
218	push dword app_path	218	push dword app_path
219	call [ini.get_int]	219	call [ini.get_int]
220	mov [bConfirmDeleteIncomplete], al	220	mov [bConfirmDeleteIncomplete], al
221	push 2	221	push 2
222	push aLeftViewMode	222	push aLeftViewMode
223	push aPanels	223	push aPanels
224	push app_path	224	push app_path
225	call [ini.get_int]	225	call [ini.get_int]
226	cmp eax, 1	226	cmp eax, 1
227	jb @f	227	jb @f
228	cmp eax, 4	228	cmp eax, 4
229	ja @f	229	ja @f
230	mov [panel1.colmode], eax	230	mov [panel1.colmode], eax
231	@@:	231	@@:
232	push 2	232	push 2
233	push aRightViewMode	233	push aRightViewMode
234	push aPanels	234	push aPanels
235	push app_path	235	push app_path
236	call [ini.get_int]	236	call [ini.get_int]
237	cmp eax, 1	237	cmp eax, 1
238	jb @f	238	jb @f
239	cmp eax, 4	239	cmp eax, 4
240	ja @f	240	ja @f
241	mov [panel2.colmode], eax	241	mov [panel2.colmode], eax
242	@@:	242	@@:
243	push 0	243	push 0
244	push aLeftSortMode	244	push aLeftSortMode
245	push aPanels	245	push aPanels
246	push app_path	246	push app_path
247	call [ini.get_int]	247	call [ini.get_int]
248	cmp eax, 14	248	cmp eax, 14
249	jae @f	249	jae @f
250	mov [panel1.sortmode], al	250	mov [panel1.sortmode], al
251	@@:	251	@@:
252	push 0	252	push 0
253	push aRightSortMode	253	push aRightSortMode
254	push aPanels	254	push aPanels
255	push app_path	255	push app_path
256	call [ini.get_int]	256	call [ini.get_int]
257	cmp eax, 14	257	cmp eax, 14
258	jae @f	258	jae @f
259	mov [panel2.sortmode], al	259	mov [panel2.sortmode], al
260	@@:	260	@@:
261	push nullstr	261	push nullstr
262	push 512	262	push 512
263	push saved_file_name	263	push saved_file_name
264	push aEolStyle	264	push aEolStyle
265	push aEditor	265	push aEditor
266	push app_path	266	push app_path
267	call [ini.get_str]	267	call [ini.get_str]
268	mov cl, edit.eol_dos	268	mov cl, edit.eol_dos
269	mov al, [saved_file_name]	269	mov al, [saved_file_name]
270	or al, 20h	270	or al, 20h
271	cmp al, 'd'	271	cmp al, 'd'
272	jz @f	272	jz @f
273	mov cl, edit.eol_mac	273	mov cl, edit.eol_mac
274	cmp al, 'm'	274	cmp al, 'm'
275	jz @f	275	jz @f
276	mov cl, edit.eol_unix	276	mov cl, edit.eol_unix
277	@@:	277	@@:
278	mov [EditEOLStyle], cl	278	mov [EditEOLStyle], cl
279	mov ecx, 0x1000	279	mov ecx, 0x1000
280	call xpgalloc	280	call xpgalloc
281	test eax, eax	281	test eax, eax
282	jz .skip_assoc	282	jz .skip_assoc
283	mov [associations], eax	283	mov [associations], eax
284	push enum_associations_callback	284	push enum_associations_callback
285	push aAssociations	285	push aAssociations
286	push app_path	286	push app_path
287	call [ini.enum_keys]	287	call [ini.enum_keys]
288	.skip_assoc:	288	.skip_assoc:
289	xor ebp, ebp	289	xor ebp, ebp
290	xor esi, esi	290	xor esi, esi
291	.shortcut_loop:	291	.shortcut_loop:
292	mov edi, saved_file_name	292	mov edi, saved_file_name
293	push dword nullstr	293	push dword nullstr
294	push 512	294	push 512
295	push edi	295	push edi
296	push dword aShortcut	296	push dword aShortcut
297	push dword aFolderShortcuts	297	push dword aFolderShortcuts
298	push dword app_path	298	push dword app_path
299	call [ini.get_str]	299	call [ini.get_str]
300	cmp byte [edi], 0	300	cmp byte [edi], 0
301	jz .shortcut_cont	301	jz .shortcut_cont
302	or ecx, -1	302	or ecx, -1
303	xor eax, eax	303	xor eax, eax
304	repnz scasb	304	repnz scasb
305	not ecx	305	not ecx
306	cmp ecx, 2	306	cmp ecx, 2
307	jz @f	307	jz @f
308	cmp byte [edi-2], '/'	308	cmp byte [edi-2], '/'
309	jnz @f	309	jnz @f
310	mov byte [edi-2], 0	310	mov byte [edi-2], 0
311	dec ecx	311	dec ecx
312	@@:	312	@@:
313	mov al, [aShortcut.d]	313	mov al, [aShortcut.d]
314	push esi	314	push esi
315	inc esi	315	inc esi
316	mov [FolderShortcuts+(eax-'0')*4], esi	316	mov [FolderShortcuts+(eax-'0')*4], esi
317	lea esi, [esi+ecx-1]	317	lea esi, [esi+ecx-1]
318	push esi	318	push esi
319	and esi, 0xFFF	319	and esi, 0xFFF
320	cmp esi, ecx	320	cmp esi, ecx
321	pop esi	321	pop esi
322	ja .norealloc	322	ja .norealloc
323	mov edx, ebp	323	mov edx, ebp
324	mov ecx, esi	324	mov ecx, esi
325	call xpgrealloc	325	call xpgrealloc
326	test eax, eax	326	test eax, eax
327	jnz @f	327	jnz @f
328	pop esi	328	pop esi
329	mov edi, FolderShortcuts	329	mov edi, FolderShortcuts
330	mov ecx, 10	330	mov ecx, 10
331	rep stosd	331	rep stosd
332	jmp .skip_shortcuts	332	jmp .skip_shortcuts
333	@@:	333	@@:
334	mov ebp, eax	334	mov ebp, eax
335	.norealloc:	335	.norealloc:
336	pop edi	336	pop edi
337	add edi, ebp	337	add edi, ebp
338	mov ecx, saved_file_name	338	mov ecx, saved_file_name
339	@@:	339	@@:
340	mov al, [ecx]	340	mov al, [ecx]
341	inc ecx	341	inc ecx
342	stosb	342	stosb
343	test al, al	343	test al, al
344	jnz @b	344	jnz @b
345	.shortcut_cont:	345	.shortcut_cont:
346	inc [aShortcut.d]	346	inc [aShortcut.d]
347	cmp [aShortcut.d], '9'	347	cmp [aShortcut.d], '9'
348	jbe .shortcut_loop	348	jbe .shortcut_loop
349	mov esi, FolderShortcuts	349	mov esi, FolderShortcuts
350	mov ecx, 10	350	mov ecx, 10
351	dec ebp	351	dec ebp
352	.l3:	352	.l3:
353	lodsd	353	lodsd
354	test eax, eax	354	test eax, eax
355	jz @f	355	jz @f
356	add [esi-4], ebp	356	add [esi-4], ebp
357	@@:	357	@@:
358	loop .l3	358	loop .l3
359	.skip_shortcuts:	359	.skip_shortcuts:
360	; load plugins	360	; load plugins
361	push enum_plugins_callback	361	push enum_plugins_callback
362	push aPlugins	362	push aPlugins
363	push app_path	363	push app_path
364	call [ini.enum_keys]	364	call [ini.enum_keys]
365	; calculate info for editor	365	; calculate info for editor
366	xor ebx, ebx	366	xor ebx, ebx
367	mov ecx, [num_plugins]	367	mov ecx, [num_plugins]
368	mov esi, [plugins]	368	mov esi, [plugins]
369	@@:	369	@@:
370	dec ecx	370	dec ecx
371	js @f	371	js @f
372	mov [esi+PluginInfo.EditInfoOffs], ebx	372	mov [esi+PluginInfo.EditInfoOffs], ebx
373	add ebx, [esi+PluginInfo.EditInfoSize]	373	add ebx, [esi+PluginInfo.EditInfoSize]
374	jnc @f	374	jnc @f
375	sbb ebx, ebx	375	sbb ebx, ebx
376	@@:	376	@@:
377	; ¯®áª®«ìªã à §¬¥à ¡«®ª ¢ à¥¤ ªâ®à¥ ®£à ¨ç¥, â® ¨ à §¬¥à ¯ ¬ïâ¨, à¥§¥à¢¨àã¥¬®© ¤«ï ¯« £¨®¢, ®£à ¨ç¥	377	; ¯®áª®«ìªã à §¬¥à ¡«®ª ¢ à¥¤ ªâ®à¥ ®£à ¨ç¥, â® ¨ à §¬¥à ¯ ¬ïâ¨, à¥§¥à¢¨àã¥¬®© ¤«ï ¯« £¨®¢, ®£à ¨ç¥
378	; 512 - £àã¡ ï ¢¥àåïï ®æ¥ª , £ à â¨àãîé ï à ¡®âã à¥¤ ªâ®à , à¥ «ì® ¯« £¨ë ¤®«¦ë âà¥¡®¢ âì ¬¥ìè¥	378	; 512 - £àã¡ ï ¢¥àåïï ®æ¥ª , £ à â¨àãîé ï à ¡®âã à¥¤ ªâ®à , à¥ «ì® ¯« £¨ë ¤®«¦ë âà¥¡®¢ âì ¬¥ìè¥
379	cmp ebx, 512	379	cmp ebx, 512
380	jb @f	380	jb @f
381	or ebx, -1	381	or ebx, -1
382	mov [EditPlugInfo], ebx ; disable plugins for editor	382	mov [EditPlugInfo], ebx ; disable plugins for editor
383	push ContinueBtn	383	push ContinueBtn
384	push 1	384	push 1
385	push EditConfigErr_ptr	385	push EditConfigErr_ptr
386	push 2	386	push 2
387	call SayErr	387	call SayErr
388	@@:	388	@@:
389	add ebx, 3	389	add ebx, 3
390	and ebx, not 3	390	and ebx, not 3
391	mov [EditPlugInfo], ebx	391	mov [EditPlugInfo], ebx
392	.noini:	392	.noini:
393	mov eax, [EditPlugInfo]	393	mov eax, [EditPlugInfo]
394	add eax, editor_line.plugdata	394	add eax, editor_line.plugdata
395	imul eax, max_height	395	imul eax, max_height
396	add eax, editor_data.basesize + 0xFFF	396	add eax, editor_data.basesize + 0xFFF
397	shr eax, 12	397	shr eax, 12
398	mov [EditDataSize], eax	398	mov [EditDataSize], eax
399	mov esi, def_left_dir	399	mov esi, def_left_dir
400	mov edi, panel1.dir	400	mov edi, panel1.dir
401	@@:	401	@@:
402	lodsb	402	lodsb
403	stosb	403	stosb
404	test al, al	404	test al, al
405	jnz @b	405	jnz @b
406	mov esi, def_right_dir	406	mov esi, def_right_dir
407	mov edi, panel2.dir	407	mov edi, panel2.dir
408	@@:	408	@@:
409	lodsb	409	lodsb
410	stosb	410	stosb
411	test al, al	411	test al, al
412	jnz @b	412	jnz @b
413	call draw_keybar	413	call draw_keybar
414	call draw_cmdbar	414	call draw_cmdbar
415	mov [prev_dir], 0	415	mov [prev_dir], 0
416	mov ebp, panel1	416	mov ebp, panel1
417	call calc_colwidths	417	call calc_colwidths
418	call read_folder	418	call read_folder
419	call draw_panel	419	call draw_panel
420	mov [bSilentFolderMode], 1	420	mov [bSilentFolderMode], 1
421	mov ebp, panel2	421	mov ebp, panel2
422	call calc_colwidths	422	call calc_colwidths
423	call read_folder	423	call read_folder
424	call draw_panel	424	call draw_panel
425	event:	425	event:
426	call get_event	426	call get_event
427	dec eax	427	dec eax
428	jz redraw	428	jz redraw
429	dec eax	429	dec eax
430	jz key	430	jz key
431	sub eax,4	431	sub eax,4
432	jz mouse	432	jz mouse
433	; button - we have only one button, close	433	; button - we have only one button, close
434	exit:	434	exit:
435	; close all screens	435	; close all screens
436	@@:	436	@@:
437	mov ecx, [num_screens]	437	mov ecx, [num_screens]
438	mov eax, [screens]	438	mov eax, [screens]
439	mov ebp, [eax+ecx*8-4]	439	mov ebp, [eax+ecx*8-4]
440	mov eax, [eax+ecx*8-8]	440	mov eax, [eax+ecx*8-8]
441	push ebp	441	push ebp
442	call [eax+screen_vtable.OnExit]	442	call [eax+screen_vtable.OnExit]
443	pop ecx	443	pop ecx
444	call pgfree	444	call pgfree
445	dec [num_screens]	445	dec [num_screens]
446	jnz @b	446	jnz @b
447	; unload all plugins	447	; unload all plugins
448	mov ecx, [num_plugins]	448	mov ecx, [num_plugins]
449	imul esi, ecx, PluginInfo.size	449	imul esi, ecx, PluginInfo.size
450	add esi, [plugins]	450	add esi, [plugins]
451	.unload:	451	.unload:
452	dec ecx	452	dec ecx
453	js .unload_done	453	js .unload_done
454	sub esi, PluginInfo.size	454	sub esi, PluginInfo.size
455	push ecx esi	455	push ecx esi
456	call [esi+PluginInfo.unload]	456	call [esi+PluginInfo.unload]
457	pop esi ecx	457	pop esi ecx
458	jmp .unload	458	jmp .unload
459	.unload_done:	459	.unload_done:
460	cmp [ini.set_int], aIniSetInt	460	cmp [ini.set_int], aIniSetInt
461	jz .nosave	461	jz .nosave
462	push [panel1.colmode]	462	push [panel1.colmode]
463	push aLeftViewMode	463	push aLeftViewMode
464	push aPanels	464	push aPanels
465	push app_path	465	push app_path
466	call [ini.set_int]	466	call [ini.set_int]
467	push [panel2.colmode]	467	push [panel2.colmode]
468	push aRightViewMode	468	push aRightViewMode
469	push aPanels	469	push aPanels
470	push app_path	470	push app_path
471	call [ini.set_int]	471	call [ini.set_int]
472	movzx eax, [panel1.sortmode]	472	movzx eax, [panel1.sortmode]
473	push eax	473	push eax
474	push aLeftSortMode	474	push aLeftSortMode
475	push aPanels	475	push aPanels
476	push app_path	476	push app_path
477	call [ini.set_int]	477	call [ini.set_int]
478	movzx eax, [panel2.sortmode]	478	movzx eax, [panel2.sortmode]
479	push eax	479	push eax
480	push aRightSortMode	480	push aRightSortMode
481	push aPanels	481	push aPanels
482	push app_path	482	push app_path
483	call [ini.set_int]	483	call [ini.set_int]
484	.nosave:	484	.nosave:
485	if CHECK_FOR_LEAKS	485	if CHECK_FOR_LEAKS
486	mov ecx, [panel1.files]	486	mov ecx, [panel1.files]
487	call pgfree	487	call pgfree
488	mov ecx, [panel2.files]	488	mov ecx, [panel2.files]
489	call pgfree	489	call pgfree
490	mov ecx, [screens]	490	mov ecx, [screens]
491	call pgfree	491	call pgfree
492	mov ecx, [associations]	492	mov ecx, [associations]
493	call pgfree	493	call pgfree
494	mov ecx, [console_data_ptr]	494	mov ecx, [console_data_ptr]
495	call pgfree	495	call pgfree
496	mov ecx, [MemForImage]	496	mov ecx, [MemForImage]
497	call pgfree	497	call pgfree
498	mov esi, FolderShortcuts	498	mov esi, FolderShortcuts
499	push 10	499	push 10
500	pop ecx	500	pop ecx
Subversion Repositories Kolibri OS

(root)/programs/fs/kfar/trunk/kfar.asm – Rev 9039 → 9059
