Subversion Repositories Kolibri OS

;   2003-2004 (C) Mike Semenyako aka mike.dld

;   Compile with FASM for Menuet

org 0

  dd $01        ; header version

  dd START      ; start of code

  dd I_END      ; size of image

  dd MEM_USED   ; memory for app

  dd $007FF0    ; esp

  dd $00,$00    ; I_Param , I_Icon

;     START:SIZE

;

; +00000000:00007FF0 - image

; +00007FF0:00007FF0 - stack

; +00008000:00000300 - path strings buffer

; +00008300:0003FD00 - files data

; +00048000:00000300 - temporary file read area

; +00048300:00004000 - memory for OS (read/write buffer)

; +0004C300:FFFB3CFF - dinamically allocated for copy, view, edit etc.

;

include 'menuet.inc'

include 'mfar.inc'

        mov     edi,f_path0

        mov     ecx,p_rd.size

        rep     movsb

        mov     esi,p_hd                ; right panel = HD

        mov     edi,f_path1

        mov     ecx,p_hd.size

        rep     movsb

        call    draw_window_full

        jmp     still

redraw_files:

        call    draw_files

still:

        mcall   MF_WAITEVWTO,100        ; waiting 1 sec

        jmpe    al,,\

          EV_REDRAW,redraw_all,\

          EV_KEY,key,\

          EV_BUTTON,button

;  eg. requesting ACTIVE panel files data and drawing it

;; timed redraw {

        mov     dl,[active_panel]

        cmp     dl,0

        jne    ._00

        push    [d_ltsz]

        jmp     @f

   ._00:

        push    [d_rtsz]

    @@:

        call    get_files_data

        pop     eax

        cmp     dl,0

        jne    ._01

        cmp     eax,[d_ltsz]

        jmp     @f

   ._01:

        cmp     eax,[d_rtsz]

    @@:

        je      still                   ; nothing happened, waiting again

        mov     al,dl

        jmp     redraw_files

;; }

 key:

        mcall   MF_GETKEY               ; get key-code

          VK_RETURN,k_return,\          ; execute something

          VK_TAB,k_tab,\                ; change active panel

          VK_F5,k_f5,\                  ; copy

          VK_F10,mfar_exit,\            ; terminate

          VK_CTRLF3,k_ctrl_f3,\         ; sort by name

          VK_CTRLF4,k_ctrl_f4           ; sort by extension

;------------------------------------------------------------------------------

  k_return:

        call    execute_current_file

        jmp     still

;------------------------------------------------------------------------------

  k_tab:

        mov     edi,[fc.background]

        call    draw_sel                ; hide current file selection

        xor     [active_panel],1        ; changing active panel

        call    draw_path               ; drawing path of new panel

        mov     dl,[active_panel]

        call    get_files_data          ; requesting panel files info

        mov     edi,sel_color

        call    draw_sel                ; show current file

        mov     al,[active_panel]

        call    draw_file_info          ; and its info (size,date)

        jmp     still

;------------------------------------------------------------------------------

  k_f5:

        call    copy_file

        jc      still

        jmp     redraw_all

;------------------------------------------------------------------------------

  k_ctrl_f3:

        jecxz  ._00

        cmp     [r_sort],0

        je      still

        mov     [r_sort],0

        jmp     @f

   ._00:

        cmp     [l_sort],0

        je      still

        mov     [l_sort],0

    @@:

        mov     al,cl

        call    mfar_sort

        jmp     redraw_files

;------------------------------------------------------------------------------

  k_ctrl_f4:

        jecxz  ._00

        cmp     [r_sort],1

        je      still

        mov     [r_sort],1

        jmp     @f

   ._00:

        cmp     [l_sort],1

        je      still

        mov     [l_sort],1

    @@:

        mov     al,al

        call    mfar_sort

        jmp     redraw_files

;------------------------------------------------------------------------------

  k_directional:

        cmp     ah,VK_LEFT              ; non-directional keys ?

        jb      still                   ; ignore them

        cmp     ah,VK_END

        ja      still

        jecxz  ._00

        mov     edx,[d_rpos]

        mov     ebx,[d_rtop]

        mov     esi,[d_rcnt]

        jmp     @f

   ._00:

        mov     edx,[d_lpos]

        mov     ebx,[d_ltop]

        mov     esi,[d_lcnt]

    @@:

        xor     ebp,ebp                 ; redraw whole panel [0-no, 1-yes]

;------------------------------------------------------------------------------

        jmpe    ah,show_cur,\

          VK_LEFT,k_left,\

          VK_DOWN,k_down,\

          VK_UP,k_up,\

          VK_RIGHT,k_right,\

          VK_HOME,k_home,\

          VK_END,k_end

  k_left:

        cmp     edx,0

        je      still

        sub     edx,FPC

        jge     @f

        xor     edx,edx

    @@:

        mov     eax,edx

        sub     eax,ebx

        jge     show_cur

        inc     ebp

        sub     ebx,FPC

        jge     show_cur

        xor     ebx,ebx

        jmp     show_cur

;------------------------------------------------------------------------------

  k_down:

        lea     eax,[esi-1]

        cmp     edx,eax

        je      still

        inc     edx

        mov     eax,edx

        sub     eax,ebx

        cmp     eax,FPC*3-1

        jle     show_cur

        inc     ebp

        inc     ebx

        jmp     show_cur

;------------------------------------------------------------------------------

  k_up:

        cmp     edx,0

        je      still

        dec     edx

        mov     eax,ebx

        cmp     edx,eax

        jge     show_cur

        inc     ebp

        dec     ebx

        jmp     show_cur

;------------------------------------------------------------------------------

  k_right:

        lea     eax,[esi-1]

        cmp     edx,eax

        je      still

        add     edx,FPC

        cmp     edx,eax

        jle     @f

        mov     edx,eax

    @@:

        mov     eax,edx

        sub     eax,ebx

        cmp     eax,FPC*3-1

        jle     show_cur

        inc     ebp

        add     ebx,FPC

        jmp     show_cur

;------------------------------------------------------------------------------

  k_home:

        cmp     edx,0

        je      still

        inc     ebp

        xor     edx,edx

        xor     ebx,ebx

        jmp     show_cur

;------------------------------------------------------------------------------

  k_end:

        lea     eax,[esi-1]

        cmp     edx,eax

        je      still

        mov     edx,eax

        mov     edi,eax

        sub     edi,ebx

        cmp     edi,FPC*3-1

        jle     show_cur

        inc     ebp

        sub     eax,FPC*3-1

        mov     ebx,eax

;------------------------------------------------------------------------------

        call    draw_sel

        mov     [d_rpos],edx

        mov     [d_rtop],ebx

        jmp     @f

   ._00:

        mov     [d_lpos],edx

        mov     [d_ltop],ebx

    @@:

        mov     al,cl

        jne     redraw_files

        call    draw_sel

        call    draw_file_info

        jmp     still

        mcall   MF_GETPRSDBTNID

        cmp     ah,1

        jne     noclose

        mcall   MF_RDDELFILE,fcfile             ; delete existing mfar.dat

        mcall   MF_RDWRITEFILE,fcfile,fc,12*4,0 ; create new mfar.dat

  noclose:

        jmp     still

;///// DRAW WINDOW ////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        mcall   MF_WINPROPS,WP_GETSYSCLRS,sc,sizeof.system_colors

        mov     edx,[fc.background]

        or      edx,$14000000

		mov     edi,caption

        mcall2  MF_DEFWINDOW,90,oX+tW*80+4,45,oY+tH*25+4

        mmov    edi,oY+3,oY+tH*22+3

        mov     edx,[fc.default]

        call    draw_frame

        mmov    esi,oX+tW*40+2,oX+tW*79+2

        call    draw_frame

        madd    ebx,tW*13,tW*13

        mcall

        mcall2  ,oX+3,oX+tW*39+1,oY+tH*20+3,oY+tH*20+3

        mcall2  ,oX+tW*53+2,oX+tW*53+2,oY+tH,oY+tH*20+3

        madd    ebx,tW*13,tW*13

        mcall

        mcall2  ,oX+tW*40+3,oX+tW*79+1,oY+tH*20+3,oY+tH*20+3

        mcall1  ,oX+tW*18,oY+tH

        mcall1  ,oX+tW*31,oY+tH

        mcall1  ,oX+tW*45,oY+tH

        mcall1  ,oX+tW*58,oY+tH

        mcall1  ,oX+tW*71,oY+tH

        lea     edx,[edi+sort_kind]

        mcall1  ,oX+tW,oY+tH,$00ffff00,,1

        movzx   edi,[r_sort]

        lea     edx,[edi+sort_kind]

        mcall1  ,oX+tW*41,oY+tH

        call    draw_bottom_keys

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        call    draw_window

        mov     edx,1

        call    get_files_data

        mov     al,1

        call    draw_files

        mov     edx,0

        call    get_files_data

        mov     al,0

        call    draw_files

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

len dd ?

        pusha

        mov     ecx,5

        rep     movsb

        dec     esi

        dec     edi

        mov     ecx,5

        push    eax

    @@:

        dec     dword[esp]

        jz      @f

        lodsb

        cmp     al,0

        je      @b

        cmp     al,' '

        je      @b

        stosb

        inc     ecx

        jmp     @b

    @@:

        pop     eax

        mov     byte[edi],'>'

        mov     [len],ecx

        popa

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

; ECX = current length

; EDI = path string

func get_path_ellipses

        cmp     ecx,eax

        jbe     @f

        pushad

        lea     esi,[edi+ecx+3+6]       ; ... + /??/?/

        sub     esi,eax

        add     ecx,edi

        sub     ecx,esi

        mov     dword[edi+6],'... '

        add     edi,9

        cld

        rep     movsb

        mov     [len],eax

        popad

    @@:

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        pushad

        cmp     [active_panel],0

        jne    ._00

        mov     esi,f_path0

        mov     eax,[f_plen0]

        jmp     @f

   ._00:

        mov     esi,f_path1

        mov     eax,[f_plen1]

    @@:

        mov     edi,f_pathn

        call    get_normal_path

        mov     eax,39

        mov     ecx,[len]

        mov     edi,f_pathn

        call    get_path_ellipses

        mcall2  MF_FILLRECT,oX-1,tW*80+1,oY+tH*23-1,tH,[fc.pathbg]

        mcall1  MF_DRAWTEXT,oX,oY+tH*23,[fc.path],f_pathn,[len]

        popad

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

func draw_files

        push    eax

        mmov    ecx,oY+tH*2-1,tH*FPC

        mov     edx,[fc.background]

        cmp     al,0

        mov     eax,MF_FILLRECT

        jne    ._00

        mcall1  ,oX+tW-2,tW*12+3

        mcall1  ,oX+tW*14-2,tW*12+3

        mcall1  ,oX+tW*27-2,tW*12+3

        mmov    ebx,oX+tW,oY+tH*2

        mov     edx,[d_ltop]

        shl     edx,4

        add     edx,lstart

        mov     edi,[d_lcnt]

        mov     esi,edi

        sub     edi,[d_ltop]

        jmp     @f

   ._00:

        mcall1  ,oX+tW*41-2,tW*12+3

        mcall1  ,oX+tW*54-2,tW*12+3

        mcall1  ,oX+tW*67-2,tW*12+3

        mmov    ebx,oX+tW*41,oY+tH*2

        mov     edx,[d_rtop]

        shl     edx,4

        add     edx,rstart

        mov     edi,[d_rcnt]

        mov     esi,edi

        sub     edi,[d_rtop]

    @@:

        cmp     esi,0

        je     .exit_nok                ; no files

   .next_col:

        push    ecx

        mov     ecx,FPC

   .next_row:

        dec     edi

        jge     @f

        pop     eax

        jmp    .exit_ok

    @@:

        push    ecx

        call    get_file_color

        mov     esi,edx

        call    get_file_name

        push    edx

        mcall   4,,,f_name,12           ; draw file name

        pop     edx ecx

        add     ebx,tH

        dec     ecx

        jnz    .next_row

        pop     ecx

        dec     ecx

        jz     .exit_ok

        madd    ebx,tW*13,0

        mov     bx,oY+tH*2

        jmp    .next_col

        mov     edi,sel_color

        call    draw_sel

   .exit_nok:

        pop     eax

        call    draw_file_info

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        pushad

        mcall2  MF_FILLRECT,oX-1,tW*80+1,oY+tH*24-1,tH+1,[fc.pathbg]

        dec     ecx

        mcall1  ,oX+tW-1,tW*6+1,,[fc.keysbg]

        mov     esi,7

    @@:

        madd    ebx,tW*8,0

        mcall

        dec     esi

        jge     @b

        mcall1  ,oX+tW*73-1,tW*7+1

        mcall   MF_DRAWNUMBER,$00010100,1,oX*65536+(oY+tH*24),[fc.path]

        sub     edx,$00010000

    @@:

        inc     cl

        madd    edx,tW*8,0

        mcall

        cmp     cl,10

        jb      @b

        mcall1  MF_DRAWTEXT,oX+tW,oY+tH*24,[fc.keys],btmkeys,btmkeys.size

        popad

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

; EDI = Y1*65536+Y2

; EDX = color

func draw_frame

        mov     ecx,edi

        mov     ebx,edi

        shr     ebx,16

        mov     cx,bx

        mcall   MF_DRAWLINE,esi

        mov     ecx,edi

        shl     ecx,16

        mov     cx,di

        mcall

        mov     ebx,esi

        mov     ecx,esi

        shr     ecx,16

        mov     bx,cx

        mcall   ,,edi

        mov     ebx,esi

        shl     ebx,16

        mov     bx,si

        mcall

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

func get_file_color

        push    esi

        mov     cl,[edx+11]

        test    cl,(FA_HIDDEN or FA_SYSTEM)

        jz      @f

        mov     ecx,[fc.system]

        jmp    .exit

    @@:

        test    cl,FA_FOLDER

        jz      @f

        mov     ecx,[fc.folder]

        jmp    .exit

    @@:

        mov     ecx,[edx+7]

        and     ecx,$ffffff00

        or      ecx,$00000020

    @@:

        lodsd

        or      eax,eax

        jz      @f

        cmp     ecx,eax

        jne     @b

        mov     ecx,[fc.executable]

        jmp    .exit

    @@:

        lodsd

        or      eax,eax

        jz      @f

        cmp     ecx,eax

        jne     @b

        mov     ecx,[fc.bitmap]

        jmp    .exit

    @@:

        lodsd

        or      eax,eax

        je      @f

        cmp     ecx,eax

        jne     @b

        mov     ecx,[fc.source]

        jmp    .exit

    @@:

        mov     ecx,[fc.default]

   .exit:

        pop     esi

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

func draw_sel

        pushad

        cmp     [active_panel],0

        jne    ._00

        mov     eax,[d_lpos]

        sub     eax,[d_ltop]

        mov     esi,[d_lcnt]

        jmp     @f

   ._00:

        mov     eax,[d_rpos]

        sub     eax,[d_rtop]

        mov     esi,[d_rcnt]

    @@:

        cmp     esi,0

        je     .exit

        mov     cl,FPC

        div     cl

        mov     bp,ax

        and     eax,$000000FF

        mov     cl,tW*13

        mul     cl

        add     ax,oX+tW-2

        push    eax

        shl     eax,16

        mov     ax,tW*12+3

        mov     ebx,eax

        mov     ax,bp

        shr     eax,8

        and     eax,$000000FF

        mov     cl,tH

        mul     cl

        add     ax,oY+tH*2-1

        push    eax

        shl     eax,16

        mov     ax,tH

        mov     ecx,eax

        mov     edx,edi

        cmp     [active_panel],0

        je      @f

        madd    ebx,(40*6),0

    @@:

        mcall   MF_FILLRECT

        movzx   ebx,ax

        inc     bx

        pop     eax

        add     ax,2

        shl     eax,16

        or      ebx,eax

        cmp     [active_panel],0

        jne    ._01

        mov     edx,[d_lpos]

        shl     edx,4

        add     edx,lstart

        jmp     @f

   ._01:

        mov     edx,[d_rpos]

        shl     edx,4

        add     edx,rstart

    @@:

        mov     esi,edx

        call    get_file_name

        call    get_file_color

        cmp     ecx,edi

        jne     @f

        xor     ecx,ecx

    @@:

        cmp     [active_panel],0

        je      @f

        madd    ebx,tW*40,0

    @@:

        mcall   MF_DRAWTEXT,,,f_name,12

   .exit:

        popad

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

func draw_file_info

        push    eax

        mmov    ecx,oY+tH*21,tH

        mov     edx,[fc.background]

        cmp     al,0

        mov     eax,MF_FILLRECT

        jne    ._00

        mcall1  ,oX+tW,tW*38+1

        mov     esi,[d_lpos]

        shl     esi,4

        add     esi,lstart

        mov     edi,[d_lcnt]

        jmp     @f

   ._00:

        mcall1  ,oX+tW*41,tW*38+1

        mov     esi,[d_rpos]

        shl     esi,4

        add     esi,rstart

        mov     edi,[d_rcnt]

    @@:

        cmp     edi,0

        jne     @f

        pop     eax

        ret

    @@:

        call    get_file_info

        mov     dword[file_info+17],'    '

        mov     word[file_info+15],'  '

        test    byte[esi+11],FA_FOLDER

        jz      @f

        mov     dword[file_info+21],' DIR'

        jmp    .no_size

    @@:

        mov     dword[file_info+21],'    '

        mov     eax,[f_size]

        mov     esi,file_info+24

        mov     ebx,10

        mov     ecx,ebx

    @@:

        xor     edx,edx

        div     ebx

        add     dl,'0'

        mov     [esi],dl

        or      eax,eax

        jz     .no_size

        dec     esi

        loop    @b

   .no_size:

        pop     eax

        mmov    edx,oX+tW*35,oY+tH*21

        mmov    ebx,oX+tW,oY+tH*21

        cmp     al,0

        je      @f

        madd    edx,tW*40,0

        madd    ebx,tW*40,0

    @@:

        push    edx

        mcall   MF_DRAWTEXT,,[fc.default],file_info,34

        pop     edx

        mov     esi,ecx

        mov     cx,[f_year]

        mcall   MF_DRAWNUMBER,$00040000

        sub     edx,$00240000 ; 6*6 = $24

        movzx   ecx,[f_day]

        mcall   ,$00020000

        add     edx,$00120000

        mov     cl,[f_mnth]

        mcall

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        pushad

        mov     eax,[esi+0]

        mov     [f_name+0],eax

        mov     eax,[esi+4]

        mov     [f_name+4],eax

        mov     eax,[esi+8]

        shl     eax,8

        and     eax,$FFFFFF00

        or      al,$00000020

        mov     [f_name+8],eax

        popad

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

func get_file_info

        pushad

        mov     eax,[esi+12]

        mov     dword[f_info],FS_READ

        mov     [f_info+4],eax

        mov     dword[f_info+12],read_area

        mcall   MF_FSACCESS,f_info

        cmp     eax,ERR_SUCCESS

        je      @f

        cmp     eax,ERR_FS_LAST

        ja      @f

        popad

        stc

        ret

    @@:

        mov     eax,read_area

        mov     ecx,16

   .next_file:

        mov     edx,[esi+0]

        cmp     [eax+0],edx

        jne     @f

        mov     edx,[esi+4]

        cmp     [eax+4],edx

        jne     @f

        mov     edx,[esi+8]

        cmp     [eax+8],edx

        jne     @f

        mov     esi,eax

        jmp     .found

    @@:

        add     eax,32

        loop   .next_file

   .found:

        push    esi

        mov     eax,'    '

        mov     ecx,3

        mov     edi,file_info

        rep     stosd

        mov     edi,file_info

        mov     ecx,2

        rep     movsd

        mov     edi,file_info

    @@:

        cmp     byte[edi],' '

        jbe     @f

        inc     edi

        jmp     @b

    @@:

        mov     eax,[esi]

        shl     eax,8

        mov     al,'.'

        cmp     eax,'.   '

        je      @f

        mov     [edi],eax

    @@:

        pop     esi

        mov     eax,[esi+28]

        mov     [f_size],eax

        mov     eax,[esi+24]

        mov     [f_day],al

        and     [f_day],00011111b

        shr     eax,5

        mov     [f_mnth],al

        and     [f_mnth],00001111b

        shr     eax,4

        mov     [f_year],ax

        and     [f_year],01111111b

        add     [f_year],1980

        popad

        clc

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

func get_files_data

        pushad

        mov     [d_tcnt],0

        mov     [d_ttsz],0

        cmp     dl,0

        jne    ._00

        mov     esi,f_path0

        mov     ecx,[f_plen0]

        jmp     @f

   ._00:

        mov     esi,f_path1

        mov     ecx,[f_plen1]

    @@:

        push    edi

        mov     edi,f_info.path

        mov     byte[edi+ecx],0

        rep     movsb

        pop     edi

        cmp     dl,0

        jne    ._01

        mov     edi,lstart

        jmp     @f

   ._01:

        mov     edi,rstart

    @@:

        push    edx

        xor     ebp,ebp

        mov     dword[f_info],FS_READ          ; read

        mov     dword[f_info+8],1              ; 1 block

        mov     dword[f_info+12],read_area     ; to read_area

   .next_block:

        mov     dword[f_info+4],ebp            ; starting from block #ebp

        mcall   MF_FSACCESS,f_info

        cmp     eax,ERR_SUCCESS

        je      @f

        cmp     eax,ERR_FS_LAST

        ja      @f

        jmp    .exit

    @@:

        mov     esi,read_area

        mov     ecx,16

   .next_file:

        cmp     word[esi],0             ; end of entries

        je     .exit

        cmp     word[esi],'. '          ; self-pointer

        je     .skip

        test    byte[esi+11],FA_LABEL   ; disk label

        jnz    .skip

        cmp     byte[esi+11],$0F        ; fat32

        je     .skip

        cmp     byte[esi],$E5           ; erased

        je     .skip

        mov     eax,[esi+28]            ; add file size

        add     [d_ttsz],eax            ; to folder size

        push    ecx

        mov     ecx,3

        rep     movsd                   ; copy name, attriputes

        mov     [edi],ebp               ; and block number

        add     edi,4

        add     esi,20

        inc     [d_tcnt]                ; increase folder files counter

;       cmp     [d_tcnt],max_cnt

;       je     .exit

        pop     ecx

        jmp     @f

   .skip:

        add     esi,32

    @@:

        loop   .next_file

        je     .exit

        inc     ebp

        jmp    .next_block

   .exit:

        pop     edx

        push    [d_ttsz]

        mov     eax,[d_tcnt]

        cmp     dl,0

        jne    ._02

        mov     [d_lcnt],eax

        pop     [d_ltsz]

        jmp     @f

   ._02:

        mov     [d_rcnt],eax

        pop     [d_rtsz]

    @@:

        popad

        mov     al,dl

        call    mfar_sort

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        pushad

        cmp     [active_panel],0

        jne    ._00

        mov     esi,[d_lpos]

        shl     esi,4

        add     esi,lstart

        mov     edi,f_path0

        mov     ecx,f_plen0

        jmp     @f

   ._00:

        mov     esi,[d_rpos]

        shl     esi,4

        add     esi,rstart

        mov     edi,f_path1

        mov     ecx,f_plen1

    @@:

        call    get_file_info

        test    byte[esi+11],FA_FOLDER

        jz     .file

        cmp     word[esi],'..'

        jne    .enter_dir

        add     edi,[ecx]

        dec     edi

    @@:

        dec     [f_plen1]

        cmp     byte[edi],'/'

        je      @f

        dec     edi

        jmp     @b

    @@:

        mov     dword[edi],0

        jmp     @f

   .enter_dir:

        add     edi,[ecx]

        push    ecx edi

        mov     byte[edi],'/'

        inc     edi

        mov     esi,file_info

        mov     ecx,3

        cld

        rep     movsd

        mov     dword[edi],0

        pop     esi ecx

        sub     edi,esi

        add     dword[ecx],edi

        mov     [d_rpos],0

        mov     [d_rtop],0

    @@:

        mov     dl,[active_panel]

        call    get_files_data

        call    draw_path

        mov     al,dl

        call    draw_files

        jmp    .exit

   .file:

        mov     eax,[esi+8]

        shl     eax,8

        and     eax,$FFFFFF00

        or      eax,$00000020

        cmp     eax,'    '

        jne    .exit

        mov     eax,[ecx]

        mov     edi,f_pathn

        call    get_normal_path

        mov     esi,f_pathn

        mov     ecx,[len]

        dec     ecx

        mov     edi,f_info.path

        rep     movsb

        mov     byte[edi],'/'

        inc     edi

        mov     esi,file_info

    @@:

        movsb

        cmp     byte[esi],0

        je      @f

        cmp     byte[esi],' '

        jne     @b

    @@:

        mov     byte[edi],0

        mov     dword[f_info],FS_EXECUTE

        mov     dword[f_info+12],0

        mcall   MF_FSACCESS,f_info

   .exit:

        popad

        ret

endf

;//////////////////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

        pushad

        popad

        ret

endf

;///// INCLUDES ///////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

include 'mf-sort.inc'

;///// DATA ///////////////////////////////////////////////////////////////////

;------------------------------------------------------------------------------

f_day  db ?

f_mnth db ?

f_year dw ?

d_ltop dd 0

d_lcnt dd 0

d_ltsz dd 0

d_rpos dd 0

d_rtop dd 0

d_rcnt dd 0

d_rtsz dd 0

d_tpos dd ?

d_ttop dd ?

d_tcnt dd ?

d_ttsz dd ?

 dd 0

 dd 0

 dd ?

 dd read_area

 dd MEM_FOR_OS

.path: