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

 ; sort type in headmenu bug del
 ;78Ver directory extension bug fix by Asko Vuori
 ;79Ver Asko Vuori volume label add and "put in command line" bug fix
 ;80Ver prompt edit fatal bug deleted, antiflick when move list up/down
 ;81Ver Save Dialog bug deleted
+;82Ver Rewritten to function 70. Corrected work with scrollbar.
-;600000 bytes memory!
+;1560000 bytes memory!
 ;******************************************************************************
   use32
   org	   0x0
 ;    mov eax,58
 ;    mov ebx,MRUfile
 ;    int 0x40
 ; //// Willow
     mcall 18,11,1,table_area
-    mov edi,hdimg+62*2
-    cmp [table_area+2],byte 0
+    cmp [edx+2],byte 0
     je	  no_hdpartition_on_hd0
-    mov esi,hdimg1
+    mov [hdimg1], aHD0
-    mov ecx,62
-    rep movsb
  no_hdpartition_on_hd0:
-    cmp [table_area+3],byte 0
+    cmp [edx+3],byte 0
     je	  no_hdpartition_on_hd1
-    mov esi,hdimg2
+    mov [hdimg2], aHD1
-    mov ecx,62
-    rep movsb
  no_hdpartition_on_hd1:
-    cmp [table_area+4],byte 0
+    cmp [edx+4],byte 0
     je	  no_hdpartition_on_hd2
-    mov esi,hdimg3
+    mov [hdimg3], aHD2
-    mov ecx,62
-    rep movsb
  no_hdpartition_on_hd2:
-    cmp [table_area+5],byte 0
+    cmp [edx+5],byte 0
     je	  no_hdpartition_on_hd3
-    mov esi,hdimg4
+    mov [hdimg4], aHD3
-    mov ecx,62
-    rep movsb
  no_hdpartition_on_hd3:
     mov eax,40
     mov ebx,0100111b
     int 0x40
     cmp byte [param_area],0 ;test parameters line
+    jne no_brow     ;it's dialog
-    jne no_brow     ;it's dialog
+    mov [browser], 1   ;it's browser
-    mov [browser],dword 1   ;it's browser
-no_brow:
-    cmp [browser],dword 1
+    jmp no_dlg
-    je	    no_dlg
+no_brow:
     mov al,byte [param_area+5]
     call getimgproc
     add edx,9*12*3+8
     add eax,12
     dec ebp
     jnz loogetimg
-    jmp endgip
-getimgproc:
-    pushad
-    mov dword [edx],esi ;xs
-    mov dword [edx+4],edi ;ys
-    mov ebp,eax
-    mov eax,dword [ecx] ;getx size
-    push edx
-    push ecx
-    lea ecx,[eax+2*eax]
-    mul ebx
-    add eax,ebp ;x
-    mov edx,ecx
-    lea eax,[eax+2*eax]  ;eax=offset on imsrc
-    mov ecx,esi ;xs
-    mov ebx,edi ;ys
-    mov ebp,esi
-    pop edi
-    lea esi,[eax+8+edi]
-    pop edi
-    add edi,8
-    cld
-cyc:
-    movsw
-    movsb
-    dec ecx
-    jne cyc
-    add esi,edx
-    mov ecx,ebp ;xs
-    sub esi,ecx
-    sub esi,ecx
-    sub esi,ecx
-    dec ebx
-    jne cyc
-    popad
-    ret
-endgip:
     call read_directory
 ;    call convertation
 red:
 scrolltest:
     mov eax,37
     mov ebx,2
     int 0x40
-    cmp eax,1
+    dec eax
     jne still
 scrl:
     mov eax,37
     mov ebx,1
     int 0x40
-    mov ebx,eax
-    shr eax,16		 ;x
-    and ebx,0xffff   ;y
+        movzx   ebx, ax         ; y
         shr     eax, 16         ; x
     mov ebp,eax
     sub ebp,[listx] ;[procinfo.x_size]
     sub ebp,[listxsize]
     add ebp,[scrollsize]
     cmp ebp,dword [scrollsize] ;8
-    ja menu_test ; still
+    jae menu_test ; still
-    mov ebp,ebx
     sub ebp,[listy] ;76    ;up scroll
+        lea     ebp, [ebx-scrollbutsize]
+        sub     ebp, [listy]    ; up scroll
+        jl      menu_test
+        mov     ecx, [listysize]
+        sub     ecx, 2*scrollbutsize
+        mov     eax, [scroll_height]
+        cmp     ebp, ecx
+        jge     menu_test
+        sub     ecx, eax
-    sub ebp,[scrollbutsize]
+        shr     eax, 1
-    cmp ebp,0
+        sub     ebp, eax
+        jge     @f
+        xor     ebp, ebp
-    jl	    menu_test
+@@:
+        cmp     ebp, ecx
-    mov [mousey],ebp
+        jl      @f
         mov     ebp, ecx
-    push eax ebx edx
+@@:
-    mov  edx,0
+        xor     edx, edx
-    mov  eax,[listysize]
+        mov     eax, [listysize]
-    sub  eax,2
-    mov  ebx,dword 10
-    div  ebx
+        sub     eax, 2
+        mov     ebx, 10
-    mov  [filelistsize],eax
+        div     ebx
-    mov  ebx,eax
-    cmp  ebx,[listsize]  ;filelistsize in ebx
-    ja	     notusescrl
-    mov edx,0
-    mov eax,[listysize]
-    sub eax,[scrollbutsize]
-    sub eax,[scrollbutsize]
-    shl eax,16+6
-    div dword [listsize]
-    mul ebx
-    shr eax,16+6
-    mov ebp,eax    ; in ebp ysize of scroll
+        mov     ebx, eax
-    mov edx,0
-    mov eax,[listsize]
-    mov ebx,[listysize]
+        cmp     ebx, [listsize]
-    sub ebx,[scrollbutsize]
-    sub ebx,[scrollbutsize]
+        jae     notusescrl
-    shl eax,16
-    div ebx ;dword [listsize]
-    mul [mousey]
+        mov     eax, [listsize]
-    shr eax,16
+        sub     eax, ebx
-    mov ebx,[listsize]
-    sub ebx,[filelistsize]
-    cmp eax,ebx
+        mul     ebp
-    jnae no_cor
-    mov eax,[listsize]		;correction for full dirs (1000 files)
+        div     ecx
-    sub eax,[filelistsize]
-no_cor:
+        cmp     eax, [filecursor]
-    mov [filecursor],eax
+        jz      still
+        mov     [filecursor], eax
+        jmp     usescrl
 notusescrl:
-    jmp  usescrl
+        cmp     [filecursor], 0
-notusescrl:
-    mov [filecursor],0 ;ebp
-usescrl:
-    pop  edx ebx eax
-    mov esi,[listy];[procinfo.y_size]
-    add esi,[listysize]
-    sub esi,[scrollbutsize]
-    cmp ebx,esi
-    jna oks ;menu_test ;still
-    sub esi,ebp
-    inc esi ;correction
-    cmp ebx,esi
+        jz      still
-    ja	    menu_test ;still
+    mov [filecursor],0 ;ebp
-oks:
+usescrl:
     jne  no_pgdown
     mov  ebx,10
     jmp  down
 no_pgdown:
     cmp  ah,key_Enter
-    jne  no_k_ent
-    jmp  kfad
+    je   kfad
-no_k_ent:
     cmp  ah,key_Bspace
     je	     back
     cmp  ah,key_F2
     je	     viewset
     cmp  ah,key_F3
 con_edit:
     cmp  ah,key_Enter
     jne  no_con_ent
     not  [focus]
     jmp  savetest
-    jmp  update
+;    jmp  update
 no_con_ent:
     cmp  ah,key_Left
     jne  no_con_left
     dec  [cursor]
     mov  [flick],2
     jmp  anti_flick ;red
 no_con_right:
     cmp  ah,key_Bspace
     jne  no_con_bspace
-    mov ecx,[cursor]
-    cmp ecx,0
-    je	    still
     dec ecx
+        mov     ebp, [cursor]
+        test    ebp, ebp
-    mov  ebp,[cursor]
+        jz      still
 lobsp:
     mov  bl,byte [path+ebp]
     mov  byte [path+ebp-1],bl
     inc  ebp
-    cmp  ebp,100
+    cmp  ebp,1024
     jne  lobsp
     dec  [cursor]
     mov  [flick],2
     jmp  anti_flick ;red
 no_con_bspace:
     mov  ecx,[cursor]
+    dec  ecx
+    mov  ebp,1022
-    dec  ecx
+        cmp     byte [path+ebp], 0
+        jnz     still
+losx:
-    mov  ebp,100 ;[cursor]
+        cmp     ebp, ecx
-losx:
+        jbe     @f
     mov  bl,byte [path+ebp]
-    mov  byte [path+ebp+1],bl
-    dec  ebp
+    mov  byte [path+ebp+1],bl
-    cmp  ebp,ecx ;100
+    dec  ebp
-    jne  losx
-    mov  ebp, [cursor]
-    cmp  ebp,100
+    jmp  losx
-    ja	     still
+@@:
     add eax,[filecursor]
     jmp no_kfad
 kfad:
     mov eax,[filecursor]
 no_kfad:
-    mov ebx,62
+    mov ebx,27
     mul ebx
+    lea ebp,[convinfo+eax]
-    mov ebp,eax
+    mov esi,[ebp]
+    cmp esi,-1
+    jz  still
     mov edi,paramtest ;clear param string
-    mov ecx,256
+    mov ecx,1024/4
-    mov al,0
+    xor eax,eax
-    rep stosb
-    mov  esi,0
-lll2:
-    mov al,byte [path+esi]
-    cmp al,byte 0 ;' '; '/'
-    je	    fis2
-    cmp al,byte ' '; '/'
-    je	    fis2
-    inc esi
-    cmp esi,100
-    jna lll2
-    jmp fis2
-fis2:
-    mov edi,ebp
-    cmp [convinfo+edi+26],dword 'FOL '
-    jne openf
-    mov [path+esi],byte '/'
-    inc esi
-    mov ebp,8
-los:		  ;directory extension bug fix
-    mov al,[convinfo+edi]
-    cmp al,' '
-    jz	    skip_name_space
-    mov [path+esi],al
-    inc esi
-  skip_name_space:
-    inc edi
-    dec ebp
-    jnz los
+    rep stosd
+        mov     edi, path
+        mov     ecx, 1024
-    cmp byte [convinfo+edi],'.'
+        repnz   scasb
-    jnz dir_name_end
+        dec     edi
+        cmp     [ebp+15], dword 'FOL '
-    cmp byte [convinfo+edi+1],' '
+        jnz     openf
-    jz	    dir_name_end
+; open directory - append its name to path
-    mov ebp,4
+        cmp     ecx, 2
-  dir_ext_char:
+        jb      still
-    mov al,[convinfo+edi]
+        push    edi
-    cmp al,' '
+        mov     al, '/'
+        stosb
-    jz	    dir_name_end
+        dec     ecx
-    mov [path+esi],al
+@@:
+        lodsb
+        stosb
-    inc esi
+        test    al, al
+        jz      @f
+        dec     ecx
+        jnz     @b
-    inc edi
+; name is too long - do not do anything
+        pop     edi
+        xor     eax, eax
+        mov     ecx, path+1024
+        sub     ecx, edi
+        rep     stosb
-    dec ebp
+        jmp     still
+@@:
-    jnz dir_ext_char
+        pop     edi
-  dir_name_end:
-    mov [filecursor],0
-;los:
-;    mov al,[convinfo+edi]
-;    mov [path+esi],al
-;    inc esi
-;    inc edi
-;    dec ebp
-;    jnz los
-;    mov [filecursor],0
-;    cmp byte [dlg_type],'S'
-;    je  savetest
+; name appended, now read new directory
-;no_save:
+    mov [filecursor],0
     call read_directory
 ;;    call convertation
     call draw_window
-;    jmp still
+    jmp still
-;Savetest
+;Savetest
+savetest:
-savetest:
+    cmp byte [dlg_type],'S'
-    cmp byte [dlg_type],'S'
+    jne still
-    je	    savetest_yes
+; always force open file - this is better
-    jmp still
+; because there exists files without extension and folders with extension
-savetest_yes:
+        jmp     openf
-    mov ecx,100
+;    mov ecx,100
-savetestloop:
+;savetestloop:
-    cmp [path+ecx],byte 0
+;    cmp [path+ecx],byte 0
-    je	    next_byte
+;    je	    next_byte
-    cmp [path+ecx],byte 32
+;    cmp [path+ecx],byte 32
-    je	    next_byte
+;    je	    next_byte
-    cmp [path+ecx],byte '.'
+;    cmp [path+ecx],byte '.'
-    je	    openf  ;it's file
+;    je	    openf  ;it's file
-;    cmp [path+ecx],byte '/'
+;;    cmp [path+ecx],byte '/'
-;    je  no_save  ;it's dir
+;;    je  no_save  ;it's dir
-next_byte:
+;next_byte:
-    dec ecx
+;    dec ecx
-    jnz savetestloop
+;    jnz savetestloop
-    jmp still
+;    jmp still
-;Open/Run file
-openf:
-    mov ecx,100
-lopt:
+;Open/Run file
-    mov al,[path+ecx]
-    mov [paramtest+ecx],al
-    dec ecx
-    jns lopt
+openf:
+        push    esi edi
-;    mov ebp,100
+        mov     esi, path
-;loow:
+        mov     edi, paramtest
-;    cmp [paramtest+ebp],byte '.'
+        mov     ecx, 1024/4
-;    je  file_set
+        rep     movsd
-;    dec ebp
+        pop     edi esi
-;    jnz loow   ;is file set not file add
+        add     edi, paramtest-path
     cmp dword [focus],0 ;if prompt line with focus no add file name from frame
+    jne file_set
-    jne file_set
+        cmp     edi, paramtest+1022
-    mov [paramtest+esi],byte '/'
+        jae     still
-    inc esi
+        mov     al, '/'
-    mov ebp,8+4
+        stosb
+@@:
-    mov edx,edi
+        lodsb
-losf:
+        stosb
-    mov al,[convinfo+edi]
+        test    al, al
     mov ecx,eax ;pid to ecx
     mov eax,60
     mov ebx,2
     mov edx,paramtest
-    mov esi,100
+    mov esi,1024
     int 0x40
     jmp exit
+is_brow:
-is_brow:
+;    cmp [convinfo+edi+26],dword 'Fvol'
+;    je  edit
+; find extension
+        mov     eax, paramtest+1023
+@@:
+        dec     eax
+        cmp     byte [eax+1], 0
+        jz      @b
+@@:
+        cmp     byte [eax], '/'
-;    cmp [convinfo+edi+26],dword 'Fvol'
+        jz      .noext
+        cmp     byte [eax], '.'
+        jz      .ext
-;    je  edit
+        dec     eax
         cmp     eax, paramtest
-    mov eax,dword [convinfo+edx+8]
+        jae     @b
-    cmp eax,'.   '
-    jne noexecute
+.noext:
+; file has no extension
+;        xor     ebx, ebx
-    mov ebx,0
+        jmp     execute
-    jmp execute
+.ext:
+        inc     eax
-noexecute:
+; eax points to extension
-    cmp eax,'.JPG'
-    jne nojv
+        cmp     byte [eax], 0
-jpg_jpe:
+        jz      .noext
-    mov ebx,jpgview
+        mov     ecx, dword [eax]
-    jmp run
+        and     ecx, not 0x20202020
-nojv:
+        mov     ebx, jpgview
-    cmp eax,'.JPE'
-    je	    jpg_jpe
-    cmp eax,'.GIF'
+        cmp     ecx, 'JPG'
-    jne nojv1
+        jz      run
-    mov ebx,gifview
+        cmp     ecx, 'JPEG'     ; note that it will select also *.JPEG*
-    jmp run
-nojv1:
-    cmp eax,'.WAV'
+        jz      run
-    jne nojv12
+        mov     ebx, gifview
-    mov ebx,ac97wav
+        cmp     ecx, 'GIF'
-    jmp run
-nojv12:
-    cmp eax,'.MID'
+        jz      run
-    jne nojv13
+        mov     ebx, ac97wav
-    mov ebx,midamp
+        cmp     ecx, 'WAV'
+        jz      run
-    jmp run
+        mov     ebx, midamp
-nojv13:
-    cmp eax,'.BMP'
+        cmp     ecx, 'MID'
-    jne nobv
-    mov ebx,bmpview
-    jmp run
+        jz      run
+        mov     ebx, bmpview
-nobv:
+        cmp     ecx, 'BMP'
-; //// Willow
-    cmp eax,'.PNG'
+        jz      run
-    jne nopngv
-    mov ebx,pngview
-    jmp run
+; //// Willow
-nopngv:
-; //// Willow
-    cmp eax,'.RTF'
-    jne nortf
-    mov ebx,rtfread
+        mov     ebx, pngview
-    jmp run
-nortf:
+        cmp     ecx, 'PNG'
-    cmp eax,'.ASM'
-    je edit
-    cmp eax,'.TXT'
-    je edit
+        jz      run
+; //// Willow
+        mov     ebx, rtfread
+        cmp     ecx, 'RTF'
-    cmp eax,'.INC'
+        jz      run
+        mov     ebx, editor
+        cmp     ecx, 'ASM'
+        jz      run
-    je edit
+        cmp     ecx, 'TXT'
-    jmp still
-edit:
-    mov ebx,editor
-    jmp run
-execute:
-    mov ecx,0 ;200
-loexe:
-    mov al,[paramtest+ecx]
-;    cmp al,0
-;    je setzr
-;    cmp al,' '
-;    je setzr
-;    je  badl
-    cmp al,'.'
-    je setzr
-;    je  badl
-;    jmp okl
-;badl:
-;    mov al,0
-okl:
-    mov [open_path+ecx],al
-    inc ecx
-    cmp ecx,200
-    jnae loexe
-setzr:
+        jz      run
+        cmp     ecx, 'INC'
+        jz      run
+        jmp     still
-;    add ecx,3
+execute:
-;    mov al,0
-    mov [open_path+ecx],byte 0 ;al
+        mov     ebx, fileinfo_start
         and     dword [ebx+8], 0                ; no parameters
-    mov eax,58
+        mov     dword [ebx+21], paramtest       ; program name
-    mov ebx,fileinfo_start
+.do:
-    int 0x40
+        mov     eax, 70
+        int     0x40
-    jmp still
+        jmp     still
 run:
 no_update:
     cmp ah,9
     jne no_textopen
 textopen:
-    mov  esi,0
+        mov     eax, 27
+        mul     [filecursor]
-xlll2:
+        cmp     dword [eax+convinfo+15], 'FOL '
-    mov al,byte [path+esi]
+        jz      still
+        push    eax
+        mov     esi, path
+        mov     edi, paramtest
-    cmp al,byte '/'
+@@:
-    jne  xfis2
+        lodsb
-    inc esi
+        test    al, al
-    cmp esi,12*20
+        jz      @f
-    jnae xlll2
+        stosb
-    jmp still
+        jmp     @b
+@@:
+        mov     al, '/'
+        stosb
-xfis2:
+        pop     eax
-    mov al,byte [path+esi]
+        mov     esi, [eax+convinfo]
+        cmp     esi, -1
+        jz      still
-    cmp al,byte ' '
+@@:
-    je	    xaa2
+        lodsb
+        stosb
-    inc esi
+        test    al, al
+        jz      @f
-    cmp esi,12*20
+        cmp     edi, paramtest+1024
-    jnae xfis2
+        jb      @b
-    jmp still
+        jmp     still
-xaa2:
-    mov eax,[filecursor]
-    mov ebx,62
-    mul ebx
-    mov edi,eax
-    cmp [convinfo+edi+26],dword 'FOL '
-    je	    still
-    mov ecx,12*20
-xlopt:
-    mov al,[path+ecx]
-    mov [paramtest+ecx],al
-    dec ecx
-    jns xlopt
-    mov [paramtest+esi],byte '/'
-    inc esi
-    mov ebp,8+4
-    mov edx,edi
-xlosf:
-    mov al,[convinfo+edi]
-    mov [paramtest+esi],al
-    inc esi
-    inc edi
-    dec ebp
-    jnz xlosf
-    mov [paramtest+esi],byte 0
+@@:
-    mov ebx,editor
-    mov ecx,paramtest
-    mov eax,19
-    int 0x40
+        mov     ebx, editor
-    jmp red ;still
+        jmp     run
 no_textopen:
-    cmp  ah,11
-    jne  no_view
+    cmp  ah,11
-viewset:
+    jne  no_view
-;    not  dword [delflag]
+viewset:
-    inc dword [viewmode]
+        inc     [viewmode]
-    cmp dword [viewmode],8
+        cmp     [viewmode], 4
-    jnae not_cm
+        jb      @f
-    mov [viewmode],0
+        mov     [viewmode], 0
-not_cm:
+@@:
     call read_directory
 ;    call convertation
     mov [filecursor],0
     call draw_window
     jmp still
 no_view:
+    cmp  ah,12	      ;move back
-    cmp  ah,12	      ;move back
+    jne  no_back
-    jne  no_back
+back:
-back:
+        mov     edi, path+1024
-    mov  esi,12*20
+        mov     ecx, edi
-lll:
+@@:
-    mov al,byte [path+esi]
+        dec     edi
-    cmp al,byte ' '
+        cmp     byte [edi], '/'
-    jne  findsl
-    dec esi
-    jnz lll
+        jz      @f
-    jmp still
+        cmp     edi, path
-findsl:
+        ja      @b
-    dec esi
+        jmp     still
-fis:
-    mov al,byte [path+esi]
-    cmp al,byte '/'
-    je	    aa
-    mov [path+esi],byte 0 ;' '
-    dec esi
-    jnz fis
+@@:
-aa:
+        sub     ecx, edi
-    mov [path+esi],byte 0 ;' '
+        xor     eax, eax
         rep     stosb
     mov [filecursor],0
 no_dn:
     cmp  ah,15
     jne  no_copyclip	;copy to clipboard
+copy_to_clip:
-copy_to_clip:
+        mov     eax, 27
+        mul     [filecursor]
-    mov  ebx,param_area ;clipfilp
+        cmp     dword [convinfo+eax+15], 'FOL '
-    mov  eax,32
+        jz      still
-    int  0x40
+        push    eax
+        mov     esi, path
-    mov  esi,0
+        mov     edi, paramtest
+@@:
-wlll2:
+        lodsb
-    mov al,byte [path+esi]
+        test    al, al
-    cmp al,byte '/'
+        jz      @f
+        stosb
+        jmp     @b
-    jne wfis2
+@@:
+        pop     eax
-    inc esi
+        mov     esi, [convinfo+eax]
-    cmp esi,12*20
+        cmp     esi, -1
+        jz      still
-    jnae wlll2
+        mov     al, '/'
-    jmp still
+        stosb
-wfis2:
+@@:
-    mov al,byte [path+esi]
+        lodsb
-    cmp al,byte ' '
+        stosb
-    je	    waa2
+        test    al, al
-    inc esi
+        jz      @f
-    cmp esi,12*20
+        cmp     edi, paramtest+1024
-    jnae wfis2
+        jb      @b
-    jmp still
+        jmp     still
-waa2:
-    mov eax,[filecursor]
-    mov ebx,62
-    mul ebx
-    mov edi,eax
-    cmp [convinfo+edi+26],dword 'FOL '
-    je	    still
-    mov ecx,12*20
-wlopt:
-    mov al,[path+ecx]
-    mov [paramtest+ecx],al
-    dec ecx
-    jns wlopt
+@@:
-    mov [paramtest+esi],byte '/'
-    inc esi
-    mov ebp,8+4
-    mov edx,edi
-wlosf:
+        sub     edi, paramtest+1
-    mov al,[convinfo+edi]
+        mov     ebx, clipfile_info
-    mov [paramtest+esi],al
-    inc esi
-    inc edi
-    dec ebp
-    jnz wlosf
+        mov     byte [ebx], 2
-    mov [paramtest+esi],byte 0
-    mov ebx,param_area ;clipfile
-    mov ecx,paramtest
+        mov     [ebx+12], edi
-    mov edx,100
-    mov esi,0
-    mov eax,33
+        mov     eax, 70
-    int 0x40
+        int     0x40
-    jmp still
+        jmp     still
 no_copyclip:
     cmp ah,16
     jne no_clippaste
 paste_from_clip:
-    mov ebx,param_area ;clipfile
-    mov ecx,0
+        mov     ebx, clipfile_info
-    mov edx,-1
+        mov     byte [ebx], 0
-    mov esi,sourcepath
+        mov     dword [ebx+12], 1023
-    mov eax,6
-    int 0x40
+        mov     eax, 70
-    mov ecx,99
+        int     0x40
-cdestp:
+        cmp     ebx, 0
-    mov al,[path+ecx]
-    mov [destpath+ecx],al
-    dec ecx
-    jns cdestp
-    mov esi,0
+        jle     still
-zlll2:
-    mov al,byte [destpath+esi]
-    cmp al,byte '/'
-    jne zfis2
+        mov     byte [paramtest+ebx], 0
-    inc esi
-    cmp esi,100
+; OS allows only 256 symbols in command line
-    jnae zlll2
-    jmp still
+        cmp     ebx, 250
-zfis2:
-    mov al,byte [destpath+esi]
-    cmp al,byte ' '
-    je	    zaa2
-    inc esi
+        jae     still
-    cmp esi,100
-    jnae zfis2
-    jmp still
-zaa2:
-    mov byte [destpath+esi],'/'
-    inc esi
-    mov edi,0
+; we use Pascal-style strings for /RD/1/COPYR
-qlll2:
-    mov al,byte [sourcepath+edi]
+; source file
-    cmp al,byte '.'
-    je	    qfis2
-    inc edi
-    cmp edi,100
+        mov     edi, copyr_param
-    jnae qlll2
-    jmp still
-qfis2:
-    sub edi,8  ;.-8=start of file name
+        mov     al, bl
-    mov ecx,11 ;11 sybols
+        stosb
-cfname:
-    mov al,[sourcepath+edi]
+        mov     ecx, ebx
-    cmp al,byte ' '
+        mov     esi, paramtest
-    je	    dar
-    mov [destpath+esi],al
-    inc esi
+        rep     movsb
-dar:
+; destination path
-    inc edi
+        inc     edi
-    dec ecx
+        mov     ebp, edi
-    jns cfname
+        mov     esi, path
-;    mov [destpath+esi],byte 0
+@@:
+        cmp     edi, copyr_param+255
-    mov ecx,199
+        jae     still
-cdestjp:
+        lodsb
-    mov al,[sourcepath+ecx]
+        test    al, al
-    cmp al,byte 0
+        jz      @f
+        stosb
-    jne nor
+        jmp     @b
+; destination file name
+@@:
-    mov al,byte 32
+        dec     ebx
+        jz      still
+        cmp     byte [paramtest+ebx], '/'
+        jnz     @b
-nor:
+        lea     esi, [paramtest+ebx]
+@@:
+        lodsb
-    mov [sourcepath+ecx],al
+        test    al, al
+        jz      @f
+        stosb
+        cmp     edi, copyr_param+255
-    dec ecx
+        jae     still
+        jmp     @b
+@@:
+        mov     byte [edi], 0
+        sub     edi, ebp
+        mov     eax, edi
-    jns cdestjp
+        mov     [ebp-1], al
 ; display
-    cmp [browser],dword 1
+    cmp [browser], 1
     jne no_outpath
     mov  eax,4		   ; function 4 : write text to window
     mov  ebx,10*65536+67     ; [x start] *65536 + [y start]
     mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
-    mov  edx,sourcepath      ; pointer to text beginning
+        mov     edx, copyr_param+1
-    mov  esi,100 ;12*20             ; text length
+        movzx   esi, byte [edx-1]
     int  0x40
     mov  ebx,250*65536+67	; [x start] *65536 + [y start]
     mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
-    mov  edx,destpath		 ; pointer to text beginning
+        mov     edx, ebp
-    mov  esi,100 ;12*20             ; text length
+        mov     esi, edi
     int  0x40
 no_outpath:
-    mov ebx,copyrfile
+; run COPYR
-    mov ecx,sourcepath
+        mov     eax, 70
-    mov eax,19
+        mov     ebx, copyr_run
-    int 0x40
+        int     0x40
     delay 50   ;wait recoed file
-    jmp update ;still
-no_clippaste:
-    cmp ah,19		;Delete from floppy
+    jmp update ;still
-delete_file:
-    jne no_delt
-    cmp dword [path],'/RD/'
-    jne no_delt
-    cmp byte [path+4],'1'
-    jne no_delt
+no_clippaste:
-    mov eax,[filecursor]
-    mov ebx,62
-    mul ebx
-    mov edi,eax
-    add edi,convinfo
-    mov ebp,edi
-    mov eax,dword [edi]
-    mov dword [paramtest],eax
-    mov eax,dword [edi+4]
-    mov dword [paramtest+4],eax
-    mov eax,dword [edi+4+4+1]
-    mov dword [paramtest+4+4],eax
+    cmp ah,19		;Delete from floppy
-    mov ebx,paramtest
+    jne no_delt
-    mov eax,32
+delete_file:
-    int 0x40
+; OS now do not support file delete
     cmp ah,37
     je	    exit
 ;VIEW MENU
-    cmp ah,40		;Sort by name show del
+    cmp ah,40		;Sort by name
-    jne no_sn
-;    mov dword [viewmode],0
+    jne no_sn
-    and dword [viewmode],100b
+        mov     [viewmode], 0
     jmp update
 no_sn:
-    cmp ah,41		;Sort by extension show del
-    jne no_se
+    cmp ah,41		;Sort by extension
-    and dword [viewmode],1101b
+    jne no_se
-    or	    dword [viewmode],0001b
+        mov     [viewmode], 1
     jmp update
-no_se:
+no_se:
     cmp ah,42		;Sort by size show del
-    jne no_ss
+    cmp ah,42		;Sort by size
-    and dword [viewmode],1110b
+    jne no_ss
-    or	    dword [viewmode],0010b
+        mov     [viewmode], 2
     jmp update
 no_ss:
-    cmp ah,43		;Sort by date show del
-    jne no_sd
-    or	    dword [viewmode],0011b
-    jmp update
-no_sd:
-    cmp ah,44		;Show del files
-    jne no_ds
-    or	    dword [viewmode],0100b
-    jmp update
-no_ds:
-    cmp ah,45		;Fade del files
+    cmp ah,43		;Sort by date
-    jne no_df
+    jne no_sd
-    and dword [viewmode],11111011b
+        mov     [viewmode], 3
     jmp update
-no_df:
+no_sd:
-;HELP MENU
-    cmp ah,50		;Help?
-    je	    help_scr
-    cmp ah,51		;Info?
-    je	    info_scr
-    cmp ah,83
-    ja	    no_hd_part
-    cmp ah,80
-    jb	    no_hd_part
-    mov ecx,0
-    sub ah,80
     inc ah
-    mov cl,ah
+;HELP MENU
-    mov eax,21
+    cmp ah,50		;Help?
     mov esi,6
     mov ebp,info_text
     jmp screen
 screen:
-    cmp [browser],dword 1 ;it's browser?
+    cmp [browser], 1 ;it's browser?
     jne dialogscr
     mov eax,[procinfo.y_size]
     setimg 48,84,logoinfimg
+    jmp still
+getimgproc:
+    pushad
+    mov dword [edx],esi ;xs
+    mov dword [edx+4],edi ;ys
+    mov ebp,eax
+    mov eax,dword [ecx] ;getx size
+    push edx
+    push ecx
+    lea ecx,[eax+2*eax]
+    mul ebx
+    add eax,ebp ;x
+    mov edx,ecx
+    lea eax,[eax+2*eax]  ;eax=offset on imsrc
+    mov ebp,esi ;xs
+    mov ebx,edi ;ys
+    pop edi
+    lea esi,[eax+8+edi]
+    pop edi
+    add edi,8
+    cld
+cyc:
+        push    esi
+        lea     ecx, [ebp+ebp*2]
+        rep     movsb
+        pop     esi
+    add esi,edx
+    dec ebx
+    jne cyc
     popad
-    jmp still
+    ret
 ;HELP TEXT
 help_text:
     db 'Backspace - back to previos directory   '
     db 'PageDn/PageUp, Up/Down - move cursor    '
 info_text:
     db '        ~~~~~ SYSTEM X-TREE ~~~~~       '
-    db '               INFO 81 Ver              '
+    db '               INFO 82 Ver              '
     db '                                        '
     db '        Create by Pavlushin Evgeni      '
-    db ' with ASCL libary special for Menuet OS '
+    db 'with ASCL library special for Kolibri OS'
     db ' www.deck4.narod.ru      waptap@mail.ru '
 ;Window
     xor  eax,eax       ; function 0 : define and draw window
-    cmp  [browser],dword 1 ;it's browser
+    cmp  [browser], 1 ;it's browser
     jne  nob1
     mov  ebx,140*65536+400     ; [x start] *65536 + [x size]
     mov ecx,-1
     int 0x40
     mov  eax,[procinfo.x_size]
     cmp  eax,66
+    jg	 @f
-    jg	    temp12345
+.ret:
+    ret
+ @@:
-    ret
+    cmp  [procinfo.y_size], 0x70
- temp12345:
+    jl  .ret
-    cmp  [browser],dword 1 ;it's browser
+    cmp  [browser], 1 ;it's browser
     jne  nob9
     mov  [listx],120
-    mov  eax,[procinfo.x_size]
+;    mov  eax,[procinfo.x_size]
+    sub  eax,127;[listx]+7
-    sub  eax,[listx]
+    cmp  eax,10
-    sub  eax,7
+    jl   .ret
     mov  [listxsize],eax
     mov  [listy],73
-    mov  eax,[procinfo.y_size]
-    sub  eax,[listy]
+    mov  eax,[procinfo.y_size]
-    sub  eax,7
+    sub  eax,73+7;[listy]+7
     mov  [listysize],eax
     jmp isb9
 nob9:
     mov  [listx],10
-    mov  eax,[procinfo.x_size]
-    sub  eax,[listx]
+;    mov  eax,[procinfo.x_size]
-    sub  eax,7
+    sub  eax,17 ;[listx]+7
     mov  [listxsize],eax
     mov  [listy],54
-    mov  eax,[procinfo.y_size]
-    sub  eax,[listy]
+    mov  eax,[procinfo.y_size]
-    sub  eax,34
+    sub  eax,54+34;[listy]+34
     mov  [listysize],eax
 isb9:
 ;Draw only browser components
-    cmp  [browser],dword 1 ;it's browser
+    cmp  [browser], 1 ;it's browser
     inc  edx
     int  0x40
     dec  edi
     jnz  nexthbut
-;DRAW PARTITION BUTTONS
-    mov  eax,8
-    mov  ebx,340*65536+5 ;start pos x
-    mov  ecx,24*65536+8      ;start pos y
-    mov  edx,80;+1000000000000000000000000000000b  ;spoke butt
-    mov  edi,4		  ;draw 13 button's
-    mov  esi,0x00339933
-    int  0x40
-    dec edi
-nextpbut:
-    add  ebx,6*65536
-    inc  edx
-    int  0x40
-    dec  edi
-    jnz  nextpbut
-;DRAW PARTITON TEXT
-    glabel 341,25,'1234',cl_White;Black
 ;File STRING
-    glabel 8,25,'  FILE    VIEW    INFO  ',  ;cl_White ;Black
+    glabel 8,25,'  FILE    VIEW    INFO  ',  cl_White ;Black
 ;BlackLine
     mov eax,[procinfo.x_size]
 ;Set logo img
     setimg 34,88,logoinfimg
     glabel 20,165,'SYSTEM X-TREE',cl_Black
     add  ebx,10
-    glabel ,,'FOR  MENUETOS',
+    glabel ,,'FOR KolibriOS',
     add  ebx,9*65536+20
     glabel ,,'welcome to',cl_Green
     add  ebx,-15*65536+10
-    glabel ,,'www.menuetos.org',cl_Green
+    glabel ,,'www.kolibrios.org',cl_Green
 ;    glabel ,,'Create by',cl_Green
     cmp [drawhv],1
     jne  no_drawhv
     mov  ebx,(8+6*8)*65536+6*12 ;start pos x
     mov  ecx,35*65536+10      ;start pos y
     mov  edx,40  ;spoke butt
-    mov  edi,6		  ;draw 4 button's
+    mov  edi,4		  ;draw 4 button's
     mov  esi,cl_Grey
     call menubutton
 no_drawhv:
 nob2:
 ;Draw buttons instruments
     mov  eax,8
-    cmp  [browser],dword 1 ;it's browser
+    cmp  [browser], 1 ;it's browser
     jne  nob3
     mov  ebx,10*65536+16+5 ;start pos x
     mov  ecx,37*65536+15      ;start pos y
     int  0x40
     dec  edi
     jnz  nextbut
-    cmp  [browser],dword 1 ;it's browser
+    cmp  [browser], 1 ;it's browser
     jne  nob4
 ;But img browser
     setimg 10,37,butimg
 nob4:
 ;But img dialog
     setimg 16,29,butimg
 isb4:
-    cmp  [browser],dword 1 ;it's browser
+    cmp  [browser], 1 ;it's browser
     jne  nob5
     mov [urlx],48
     mov [urlysize],12
     glabel 20,57,"URL:",cl_Black
-;Out view mode info
-    mov eax,[viewmode]
-    mov ebx,16
+;Out view mode info
-    mul ebx
+        movzx   edx, [viewmode]
-    mov edx,eax
+        shl     edx, 4
     mov eax,4
     mov ebx,180*65536+25
     mov ecx,cl_Black
     add ebx,[listxsize]
     sub ebx,[scrollsize]
     shl ebx,16
     add ebx,dword [scrollsize]
     mov ecx,[listy]
-    add ecx,[scrollbutsize]
+    add ecx,scrollbutsize
     shl ecx,16
     add ecx,[listysize]
-    sub ecx,[scrollbutsize]
-    sub ecx,[scrollbutsize]
+    sub ecx,scrollbutsize*2
     mov edx,[scrollcolor] ;0x00006600
     int 0x40
 ;Draw Scroll Box
     mov  edx,0
     mov  eax,[listysize]
     sub  eax,2
     mov  ebx,dword 10
-    div  ebx
     div  ebx
     mov edx,0
     mov ebx,eax
     cmp ebx,[listsize]	    ;filelistsize in ebx
+    jae    notusescroll
-    ja	    notusescroll
+;usescroll
-;usescroll
-    mov eax,[listysize]
+; calculate scroll size
-    sub eax,[scrollbutsize]
+        mov     eax, [listysize]
-    sub eax,[scrollbutsize]
-    shl eax,16
+        sub     eax, 2*scrollbutsize
+        push    eax
-    div dword [listsize]
+        mul     ebx
+        div     [listsize]
+        cmp     eax, 5
+        jae     @f
+        mov     al, 5
+@@:
+        mov     [scroll_height], eax
-    mul ebx
+; calculate scroll pos
-    shr eax,16
+        sub     [esp], eax
-    mov esi,[mousey]
+        mov     eax, [listsize]
+        sub     eax, ebx
+        mov     ecx, eax
+        cmp     eax, [filecursor]
-    shl esi,16
+        jb      @f
+        mov     eax, [filecursor]
+@@:
+        mul     dword [esp]
+        div     ecx
+        mov     [scroll_pos], eax
+        pop     ecx
+; draw
+        lea     ecx, [eax+scrollbutsize]
+        add     ecx, [listy]
-    add esi,eax
+        shl     ecx, 16
         mov     cx, word [scroll_height]
-    mov eax,13
+        mov     eax, 13
-    mov ebx,[listx]
+        mov     ebx, [listx]
-    add ebx,[listxsize]
+        add     ebx, [listxsize]
-    sub ebx,[scrollsize]
+        sub     ebx, [scrollsize]
-    shl ebx,16
-    add ebx,dword [scrollsize]
-    mov ecx,[listy]
-    add ecx,[scrollbutsize]
-    shl ecx,16
+        shl     ebx, 16
-    add ecx,esi
+        mov     bx, word [scrollsize]
-    mov edx,[scrollboxcol]
+        mov     edx, [scrollboxcol]
     sub  ebx,[scrollsize]
     shl  ebx,16
     add  ebx,[scrollsize]
     mov  ecx,[listy]
     shl  ecx,16
-    add  ecx,[scrollbutsize]
+    add  ecx,scrollbutsize-1
-    dec  ecx	 ;correction
     mov  eax,8
     mov  edx,6+1000000000000000000000000000000b  ;spoke butt
     int  0x40
     dec  ecx	 ;correction
     mov  edx,7+1000000000000000000000000000000b  ;spoke butt
     mov  eax,[listysize]
-    sub  eax,[scrollbutsize]
+    sub  eax,scrollbutsize
     shl  eax,16
     add  ecx,eax
     popad
 ; Draw text in file list
-    mov  eax,[listxsize]
+;    mov  eax,[listxsize]
+;    sub  eax,40*6  ;leight of string
+;    shr  eax,1
-    sub  eax,40*6  ;leight of string
+;    add  eax,[listx]
-    shr  eax,1
+        mov     eax, [listx]
-    add  eax,[listx]
+        add     eax, 12+4 ; for icons
     shl  eax,16
     div  ebx
     mov  [filelistsize],eax  ;dword 40
 ; OUT FILE DATA
     mov  eax,[filecursor]     ;calc cursor position
-    mov  ebx,62
+    mov  ebx,27
     mul  ebx
 ;OUT TEXT
     mov  ebp,4096 ; 16             ;out strings process
     sub  ebp,[filecursor]
     mov  edx,convinfo ;fileinfo+11
     add  edx,eax
+    mov  ebx,dword [filelistxy]
+loo:
-    mov  ebx,dword [filelistxy]
+        cmp     dword [edx], -1
-loo:
+        jz      noout
     mov  ecx,0x00888888        ;for another file's color white
-    cmp  [edx+26],dword 'FOL ' ;folder yellow
+    cmp  [edx+15],dword 'FOL ' ;folder yellow
     jne  nb
     mov  ecx,0x00006666
     jmp cset1
+nb:
+        mov     eax, [edx]
+        xor     edi, edi
+; find extension and set color
+@@:
+        inc     eax
+        cmp     byte [eax-1], 0
+        jz      @f
+        cmp     byte [eax-1], '.'
+        jnz     @b
+        mov     edi, eax
+        jmp     @b
+@@:
+        test    edi, edi
+        jz      @f
+        mov     edi, [edi]
-nb:
+        and     edi, not 0x20202020     ; toupper
-    mov eax,[edx+8]
-;Color set
-    cmp  eax,dword '.TXT'  ;text's blue
-    je	    itx
+@@:
-    cmp  eax,dword '.INC'
-    je	    itx
-    cmp  eax,dword '.ASM'
-    je	    itx
-    cmp  eax,dword '.RTF'
-    je	    itx
-    jmp nt
+;Color set
-itx:
-    mov  ecx,0x00446666
-    jmp cset
-nt:
-    cmp  eax,dword '.BMP'  ;picture's pure
+; text's blue
-    je	    ipic
+        mov     ecx, 0x00446666
-    cmp  eax,dword '.JPG'
+        cmp     edi, 'TXT'
-    je	    ipic
+        jz      cset
-    cmp  eax,dword '.JPE'
+        cmp     edi, 'INC'
-    je	    ipic
+        jz      cset
-    cmp  eax,dword '.GIF'
-    je	    ipic
-; //// Willow
-    cmp  eax,dword '.PNG'
-    je	ipic
+        cmp     edi, 'ASM'
-; //// Willow
+        jz      cset
-    cmp  eax,dword '.WAV'
-    je	    ipic
+        cmp     edi, 'RTF'
-    cmp  eax,dword '.MID'
-    je	    ipic
-    jmp np
+        jz      cset
+; picture's pure
-ipic:
+        mov     ecx, 0x00226688
+        cmp     edi, 'BMP'
-    mov  ecx,0x00226688
+        jz      cset
-    jmp cset
+        cmp     edi, 'JPG'
+        jz      cset
+        cmp     edi, 'JPEG'
-np:
+        jz      cset
+        cmp     edi, 'GIF'
+        jz      cset
+        cmp     edi, 'PNG'
+        jz      cset
+        cmp     edi, 'WAV'
+        jz      cset
+        cmp     edi, 'MID'
-    cmp  eax,dword '.   '  ;execute's green
+        jz      cset
+; execute's green
-    jne  nexec
+        mov     ecx, 0x00008866
-    mov  ecx,0x00008866
+        test    edi, edi
+        jz      cset
-    jmp cset
+; for another file's color white
-nexec:
+        mov     ecx, 0x00888888
+cset:
+cset1:
+    push edx
-cset:
+    mov  edx,[edx]
+        push    ebx edx
+        mov     eax, [listxsize]
+        sub     eax, [scrollsize]
+        sub     eax, 12+4
+        xor     edx, edx
+        mov     ebx, 6
+        div     ebx
+        pop     edx ebx
+        sub     eax, 25
+        xor     esi, esi
+@@:
+        cmp     byte [edx+esi], 0
+        jz      @f
+        inc     esi
+        cmp     esi, eax
+        jbe     @b
         dec     esi
+@@:
+        push    eax
+    mov  eax,4
-cset1:
+    int  0x40
+        cmp     byte [edx+esi], 0
+        jz      @f
+        pushad
+        mov     edx, more_char
+        mov     eax, esi
+        imul    eax, 6*65536
+        add     ebx, eax
+        mov     esi, 1
+        mov     eax, 4
+        int     0x40
+        popad
+@@:
+        pop     eax
+    pop  edx
+    push ebx edx
+        inc     eax
+        imul    eax, 6*65536
+        add     ebx, eax
-    mov  esi,40 ;symbols out 62 ;32
+    add  edx,4
-    mov  eax,4
+    mov  esi,23
-    pushad
+    mov  eax,4
     int  0x40
-;    popad
+    pop  edx ebx
-;    pushad
+    pushad
-    cmp  [edx+26],dword 'Fvol' ;volume label
+    cmp  [edx+15],dword 'Fvol' ;volume label
     jne  no_volico
     push hdico+8
     jmp out_ico
 no_volico:
-    cmp  [edx+26],dword 'FOL '
+    cmp  [edx+15],dword 'FOL '
     jne  no_folico
-    cmp  [edx+9],dword 'HARD'
+    cmp  [edx+4],dword 'HARD'
     jne  no_hdico
     push hdico+8
     jmp out_ico
 no_hdico:
-    cmp  [edx+9],dword 'RAMD'
+    cmp  [edx+4],dword 'RAMD'
     jne  no_rdico
     push rdico+8
     jmp out_ico
 no_rdico:
-    cmp  [edx+9],dword 'FLOP'
+    cmp  [edx+4],dword 'FLOP'
     jne  no_fdico
     push rdico+8
     jmp out_ico
 no_fdico:
     push folico+8
     jmp out_ico
 no_folico:
-    cmp  [edx+8],dword '.BMP'
+    cmp  edi,dword 'BMP'
     je	     is_imgico
-    cmp  [edx+8],dword '.JPG'
+    cmp  edi,dword 'JPG'
     je	     is_imgico
-    cmp  [edx+8],dword '.JPE'
+    cmp  edi,dword 'JPEG'
     je	     is_imgico
-    cmp  [edx+8],dword '.GIF'
+    cmp  edi,dword 'GIF'
     je	     is_imgico
 ; //// Willow
-    cmp  [edx+8],dword '.PNG'
+    cmp  edi,dword 'PNG'
     je	 is_imgico
 ; //// Willow
-    cmp  [edx+8],dword '.WAV'
+    cmp  edi,dword 'WAV'
     je	     is_imgico
-    cmp  [edx+8],dword '.MID'
+    cmp  edi,dword 'MID'
     je	     is_imgico
     jmp  no_imgico
 is_imgico:
     push imgico+8
     jmp out_ico
 no_imgico:
-    cmp  [edx+8],dword '.ASM'
+    cmp  edi,dword 'ASM'
     je	     is_asmincico
-    cmp  [edx+8],dword '.INC'
+    cmp  edi,dword 'INC'
     je	     is_asmincico
     jmp  no_asmincico
 is_asmincico:
     push asmincico+8
     jmp out_ico
 no_asmincico:
-    cmp  [edx+8],dword '.RTF'
+    cmp  edi,dword 'RTF'
     je	 @f
-    cmp  [edx+8],dword '.TXT'
+    cmp  edi,dword 'TXT'
     jne  no_txtico
  @@:
     push txtico+8
     jmp out_ico
 no_txtico:
-    cmp  [edx+8],dword '.   '
+    test edi,edi
     jne  no_execico
     push execico+8
     jmp out_ico
 no_execico:
-    cmp  [edx+26],dword 'DAT '
+    cmp  [edx+15],dword 'DAT '
     jne  no_datico
     push datico+8
     jmp out_ico
 no_datico:
-    cmp  [edx+26],dword 'DEL '
+    cmp  [edx+15],dword 'DEL '
     popad
     add  ebx,10
 noout:
-    add  edx,62
+    add  edx,27
     dec  [filelistsize]
-    cmp  [filelistsize],dword 0
+    dec  [filelistsize]
-    je	     extloo
+    jz	     extloo
     dec  ebp
     jnz  loo
 dext:
     mov [downstop],1
 extloo:
 no_drawhftext:
 ;Draw text for head->view buttons
     cmp [drawhv],1
     jne  no_drawhvtext
-    drawfbox (8+6*8),35,(6*12)+1,(11*6),0x00000000
+    drawfbox (8+6*8),35,(6*12)+1,(11*4),0x00000000
-    drawfbox (9+6*8),36,(6*12)-1,(11*6)-2,0x00ffffff
+    drawfbox (9+6*8),36,(6*12)-1,(11*4)-2,0x00ffffff
-    mov edi,6 ;4
+    mov edi,4
     mov ebx,(9+6*8)*65536+37
     mov ecx,cl_Black
     mov edx,view_text_label
 view_text_label:
     db	     '  Name sort '
     db	     '  Ext. sort '
     db	     '  Size sort '
     db	     '  Date sort '
-    db	     '  Show DEL  '
-    db	     '  Fade DEL  '
 no_drawhvtext:
 scrollsize    dd 8
 listcolor     dd 0xffffff ;0xeeeeee
 scrollcolor   dd 0x778877
 scrollboxcol  dd 0x335533
 scrollbutcol  dd 0x224422
-scrollbutsize dd 9
+scrollbutsize = 9
-usescroll     dd 1
 ;URL LINE PARAMETRS
 ; READ FILE STRUCTURE PROC
 ;*****************************
-read_directory:
-; STEP 0 SEt TYPE OF SORT
-    mov eax,[viewmode]
-;with no show del files
-    and eax,0FFFFFFFBh
-    cmp eax,0
-    jnz no_sort_by_name
-    mov [start],0
-    mov [x0],12
-    mov [x1],99
-    mov [x2],99
-    mov [x3],99
-    jmp sortset
-no_sort_by_name:
-    dec eax
-    jnz  no_sort_by_ext
-    mov [start],9
-    mov [x0],9
-    mov [x1],99
-    mov [x2],99
-    mov [x3],12
-    jmp sortset
-no_sort_by_ext:
-    dec eax
-    jnz  no_sort_by_size
-    mov [start],30
-    mov [x0],12
-    mov [x1],99
-    mov [x2],99
-    mov [x3],38
-    jmp sortset
-no_sort_by_size:
-    dec eax
-    mov [start],21
-    mov [x0],12
-    mov [x1],17
-    mov [x2],20
-    mov [x3],26
-    jmp sortset  ;sort by date
-;SORT VARILE
-start dd 0
-x0 dd 0
-x1 dd 0
-x2 dd 0
-x3 dd 0
-sortset:
+read_directory:
 ;STEP 1 CLEAR CONVINFO
     mov  edi,convinfo
     mov  al,255
+    mov  ecx,4096*27
-    mov  ecx,4096*62  ;512
+    cld
+    push edi
-    cld
+    rep  stosb
-    rep  stosb
+    pop  edi
+;STEP 2 TEST ON HD OR PARTITION
+    cmp [path],byte '/'
-;STEP 2 TEST ON HD OR PARTITION
+    je nstep
+; copy info on RD and FD
+        mov     esi, hdimg
+        mov     ecx, 2*27
-    cmp [path],byte '/'
+        rep     movsb
-    je nstep
+; hard disks
-    mov ecx,61+62*5
+        mov     eax, 4
+.1:
+        mov     ecx, 27
+        cmp     dword [esi], 0
+        jz      .2
+        rep     movsb
+        jmp     .3
-loxhd:
+.2:
-    mov al,[hdimg+ecx]
+        add     esi, ecx
-    mov [convinfo+ecx],al
+.3:
-    dec ecx
+        dec     eax
-    jns loxhd
+        jnz     .1
-    mov [listsize],0
+        mov     [listsize], 0
-    ret
+        ret
 nstep:
     cmp [path+3],byte '/'
     je nstep2
     cmp [path+4],byte '/'
     je nstep2
     cmp [path+1],word 'RD'
     jne nostep_RD
-    mov ecx,61
+    mov ecx,1
     jmp loxpt
 nostep_RD:
     cmp [path+1],word 'FD'
     jne nostep_FD
-    mov ecx,61+62
+    mov ecx,2
     jmp loxpt
 nostep_FD:
-    cmp [path+1],dword 'HD0'
-    jne nostep_HD0
-    mov cl,[table_area+2]
-    movzx ecx,cl
+    cmp [path+1],dword 'HD0'
-    imul ecx,62
+    jne nostep_HD0
-    dec  ecx
+    movzx ecx,byte [table_area+2]
     jmp loxpt
 nostep_HD0:
-    cmp [path+1],dword 'HD1'
-    jne nostep_HD1
-    mov cl,[table_area+3]
-    movzx ecx,cl
+    cmp [path+1],dword 'HD1'
-    imul ecx,62
+    jne nostep_HD1
-    dec  ecx
+    movzx ecx,byte [table_area+3]
     jmp loxpt
 nostep_HD1:
-    cmp [path+1],dword 'HD2'
-    jne nostep_HD2
-    mov cl,[table_area+4]
-    movzx ecx,cl
+    cmp [path+1],dword 'HD2'
-    imul ecx,62
+    jne nostep_HD2
-    dec  ecx
+    movzx ecx,byte [table_area+4]
     jmp loxpt
 nostep_HD2:
-    cmp [path+1],dword 'HD3'
-    jne nostep_HD3
-    mov cl,[table_area+5]
-    movzx ecx,cl
+    cmp [path+1],dword 'HD3'
-    imul ecx,62
+    jne nostep_HD3
-    dec  ecx
+    movzx ecx,byte [table_area+5]
     jmp loxpt
 nostep_HD3:
+    mov ecx,2
+loxpt:
+        cmp     ecx, 20
+        jbe     @f
-    mov ecx,61+62   ;+496
+        mov     ecx, 20
+@@:
+        mov     eax, a1
+        mov     esi, ptimg
+@@:
+        stosd
+        add     eax, 3
-loxpt:
+        push    ecx esi
-    mov al,[ptimg+ecx]
+        mov     ecx, 23
-    mov [convinfo+ecx],al
+        rep     movsb
-    dec ecx
+        pop     esi ecx
-    jns loxpt
-    mov [listsize],0
-    ret
-nstep2:
-;STEP 3 CLEAR OUTINFO
+        loop    @b
-    mov  edi,outinfo ;0x14000 ;0x20000
-    xor  eax,eax
-    mov  ecx,4096*32  ;512
+    mov [listsize],0
-    cld
-    rep  stosb
+    ret
-;STEP 4 READ DATA FROM HD
+nstep2:
     mov  dword [farea],outinfo
-    mov  dword [readblock],0
-loorhd:
-    mov  eax,[readblock]
-    mov  [fileinfoblock+4],eax
-    mov  eax,58
-    mov  ebx,fileinfoblock
-    int  0x40
-    cmp  eax,0
-    jne  hd_err
-    add  dword [farea],512
-    inc  dword [readblock]
+;STEP 3 was deleted
     cmp  dword [readblock],4096/16
-    jna  loorhd
+;STEP 4 READ DATA FROM HD
     glabel 10,10,'Invalid partition or hd base',cl_Red+font_Big
     jmp end_of_dir
 no_inv_part:
     cmp eax,3
     jne no_unk_fs
-    glabel 10,10,'Unknow file system',cl_Red+font_Big
+    glabel 10,10,'Unknown file system',cl_Red+font_Big
     jmp end_of_dir
 no_unk_fs:
+end_of_dir:
+; -1 -> 0
+        cmp     ebx, -1
-end_of_dir:
+        sbb     ebx, -1
     mov  [dirlen],ebx
-    ; command succesful
+    ; command successful
+        mov     esi, outinfo+32
-    mov  esi,outinfo ;data_area+1024
+        and     [listsize], 0
+        test    ebx, ebx
-;    mov  edi,fileinfo+11
+        jz      nofiles
-    mov  edx,0 ;4096  ;16
   newlineb:
+        push    ebx
-    mov  edi,fileinfo+11
     pushad	 ; clear
-    mov  al,32
+        mov     edi, fileinfo
-    mov  ecx,58
-    sub  edi,11
-    cld
+        push    edi
-    rep  stosb
-    popad
-    mov  cl,[esi]    ; end of entries ?
+        mov     al, ' '
-    cmp  cl,6
-    jnz  noib0
-    mov  [edi+26],dword 'EOE '
-    add  esi,32
-;    add  edi,62
+        mov     ecx, 27
-    jmp  inf
+        rep     stosb
-  noib0:
-    mov  cl,[esi+0]
-    cmp  cl,0xe5
-    je	     yesdelfil
-    mov  cl,[esi+11]	; long fat32 name ?
-    cmp  cl,0xf
-    jnz  noib1
-    mov  [edi+26],dword 'F32 '
-    add  esi,32
+        pop     edi
-;    add  edi,62
+        push    esi
-    jmp  inf
-  noib1:
-    mov  eax,'DAT '    ; data or .. ?
+        add     esi, 40
-    mov  cl,[esi+0]    ; deleted file
-    cmp  cl,0xe5
-    je	     yesdelfil
-    cmp  cl,0x0
-    je	     yesdelfil
-    jmp  nodelfil
-   yesdelfil:
-    mov  eax,'DEL '
-    jmp  ffile
+        mov     [edi], esi
+        pop     esi
   nodelfil:
+        mov     eax, 'DAT '     ; data or ... ?
-    mov  cl,[esi+11]	; folder
+        mov     cl, [esi]
-    and  cl,0x10
-    jz	     ffile
+        test    cl, 0x10
-    mov  eax,'FOL '
-    mov  [edi+26],eax
-    jmp  nosize
+        jz      @f
-  ffile:
         mov     eax, 'FOL '
-; Asko patch for v79
-    mov  cl,[esi+11]	; fold
-    and  cl,0xf
+        mov     [edi+15], eax
-    cmp  cl,0xf     ; skip long filename
+        jmp     nosize
-    jz	     novol
+@@:
-    test cl,0x8     ; is it fold label?
+        test    cl, 8
+        jz      novol
-    jz	     novol	 ; no
-    mov  eax,'Fvol'
-    mov  [edi+26],eax
+        mov     eax, 'Fvol'
-    jmp  nosize
+        mov     [edi+15], eax
-  novol:
+        jmp     nosize
+novol:
-    mov  [edi+26],eax
+        mov     [edi+15], eax
-    pusha     ; size
+; size
-    mov  eax,[esi+28]
+        mov     eax, [esi+32]
-    mov  esi,edi
+        push    esi
-    add  esi,37
+        lea     esi, [edi+26]
-    mov  ebx,10
+        mov     ebx, 10
-    mov  ecx,8
+        mov     ecx, 8
-  newnum:
+newnum:
-    xor  edx,edx
+        xor     edx, edx
-    div  ebx
+        div     ebx
-    add  dl,48
+        add     dl, '0'
-    mov  [esi],dl
+        mov     [esi], dl
-    test eax,eax
+        test    eax, eax
-    jz	     zernum
+        jz      zernum
-    dec  esi
+        dec     esi
-    loop newnum
+        loop    newnum
-  zernum:
+zernum:
-    popa
-  nosize:
         pop     esi
-    pusha	   ; date
+nosize:
-    mov  [edi+17],dword '.  .'
-    movzx eax,word [esi+24]
-    shr  eax,9	       ; year
-    add  eax,1980
-    mov  ecx,4
-  newdel1:
-    dec  ecx
-    xor  edx,edx
-    mov  ebx,10
-    div  ebx
-    add  edx,48
-    mov  [edi+ecx+21],dl
-    test ecx,ecx
-    jnz  newdel1
-    movzx eax,word [esi+24]
-    shr  eax,5	      ; month
-    and  eax,0x0f
-    mov  ecx,2
-  newdel2:
-    dec  ecx
-    xor  edx,edx
-    mov  ebx,10
-    div  ebx
-    add  edx,48
-    mov  [edi+ecx+18],dl
-    test ecx,ecx
-    jnz  newdel2
-    movzx eax,word [esi+24]
-    and  eax,0x1f ; day
-    mov  ecx,2
-  newdel3:
-    dec  ecx
-    xor  edx,edx
-    mov  ebx,10
-    div  ebx
-    add  edx,48
-    mov  [edi+ecx+15],dl
-    test ecx,ecx
-    jnz  newdel3
-    popa
 ; date
-    pusha	   ; number
+        mov     dword [edi+6], '.  .'
-    mov  eax,edx
+; year
+        movzx   eax, word [esi+28+2]
-    sub  eax,4096
+        mov     ecx, 4
+newdel1:
+        xor     edx, edx
-    neg  eax
+        mov     ebx, 10
         div     ebx
-    xor  edx,edx
+        add     edx, '0'
-    mov  ebx,10
+        mov     [edi+ecx+9], dl
+        loop    newdel1
+; month
+        movzx   eax, byte [esi+28+1]
+        xor     edx, edx
-    div  ebx
+        div     ebx
-    add  dl,48
+        add     al, '0'
-    mov  [edi+43],dl	      ;0001
+        add     dl, '0'
-    xor  edx,edx
+        mov     [edi+7], al
-    div  ebx
+        mov     [edi+8], dl
-    add  dl,48
-    mov  [edi+42],dl	      ;0010
-    xor  edx,edx
-    div  ebx
-    add  al,48
-    add  dl,48
-    mov  [edi+41],dl	      ;0100
+; day
-    mov  [edi+40],byte 0      ;1000
-    popa
-    mov  ecx,8		; first 8
-    cld
-    rep  movsb
-    mov  [edi],byte '.'
-    inc  edi
-    mov  ecx,3		; last 3
-    cld
-    rep  movsb
         movzx   eax, byte [esi+28]
+        xor     edx, edx
+        div     ebx
+        add     al, '0'
+        add     dl, '0'
+        mov     [edi+4], al
-    add  esi,(32-11)
+        mov     [edi+5], dl
-;    add  edi,(60-12+2)
+;STEP 5 Test on WRITE OR NOTWRITE
+        cmp     word [esi+40], '.'
-  inf:
-    pushad
+        jz      nextfl
-;STEP 5 Test on WRITE OR NOTWRITE
-    mov  edx,fileinfo+11
-looo:
-;   Delete del, eoe, f32 and another head-names
-    cmp  [viewmode],3  ;0-3 no outdel
-    ja	     del_out
-    cmp  [edx+26],dword 'DEL '
-    je	     nextfl
-del_out:
-    cmp  [edx+26],dword 'DEL '
-    jne  no_del
-    cmp  [edx],dword 0 ;431 ;435 ;484 +10% speed
-    je	     nextfl
-no_del:
-    cmp  [edx+26],dword 'EOE '
+        cmp     word [esi+40], '..'
-    je	     nextfl
-    cmp  [edx+26],dword 'F32 '	    ;F32 not useles
-    je	     nextfl
-    cmp  [edx],dword '.   '
-    je	     nextfl
-    cmp  [edx],dword '..  '
-    je	     nextfl
-    cmp  [edx],dword 'FIRS'
-    je	     nextfl
-; ---------_______-------_______ --------_________-----------
+        jnz     @f
-; SORT by name and del deletet files or f32 headers from list
+        cmp     byte [esi+42], 0
+        jz      nextfl
+@@:
-; _________-------_______ --------_______---------___________
 ; STEP 6 SORT ALGORYTHM
-; STEP 6 UNIVERSAL SORT ALGORYTHM
-xxx:
+        push    esi
-    mov esi,0 ;[tekfilename] ;0
+        xor     esi, esi
     mov ebx,[start] ; 0
+; At first Fold after Dat
 ; At first Fold after Dat and Del
 ftestname:
-ftestname:
+        cmp     dword [convinfo+esi], -1
-    cmp byte [fileinfo+11+26],'F'
+        jz      writefile
-    je	    F
+    cmp byte [fileinfo+15],'F'
-    cmp byte [fileinfo+11+26],'D'
+    je	    F
-    je	    D
+    cmp byte [fileinfo+15],'D'
-    jmp add_element
+    jne add_element
-D:  cmp byte [convinfo+esi+26],'D'
+D:  cmp byte [convinfo+esi+15],'D'
     je	    add_element
-    cmp byte [convinfo+esi+26],'F'
+    cmp byte [convinfo+esi+15],'F'
     je	    skipfile
     jmp add_element
-F:  cmp byte [convinfo+esi+26],'D'
+F:  cmp byte [convinfo+esi+15],'D'
-    je writenow
-;    cmp byte [convinfo+esi+26],'F'
+    je writenow
-;    je  add_element
-;    jmp add_element
-add_element:
-    mov al,[fileinfo+ebx+11]
-    cmp al,[convinfo+esi+ebx]
-    je	    equal
-    jb	    writenow
-skipfile:
-    add esi,62
-    mov ebx,[start]  ;0
-    jmp ftestname
-equal:
-    inc ebx
-    cmp ebx,[x0]
-    je	    writefile
-    cmp ebx,[x1]
-    je	    x1p
-    cmp ebx,[x2]
-    je	    x2p
-    cmp ebx,[x3]
-    jae x3p
+;    cmp byte [convinfo+esi+15],'F'
-    jmp add_element
+;    je  add_element
 ;    jmp add_element
 x1p:
-    mov ebx,18
+add_element:
-    jmp add_element
+; compare items
-x2p:
+        movzx   eax, [viewmode]
-    mov ebx,15
+        call    [compare+eax*4]
-    jmp add_element
-x3p:
+        jb      writenow
-    mov ebx,0
+skipfile:
-    jmp add_element
+    add esi,27
+    jmp ftestname
 writenow:
-    mov ecx,4096*62
+writenow:
-    sub ecx,esi
+    mov ecx,4096*27-1
-ldloop:
+    sub ecx,esi
-    mov al,[convinfo+ecx+esi]
+ldloop:
-    mov [convinfo+ecx+esi+62],al
+    mov al,[convinfo+ecx+esi]
-    dec ecx
+    mov [convinfo+ecx+esi+27],al
-    jns ldloop
+    dec ecx
+    jns ldloop
-writefile:
-    mov ecx,61
-wfloop:
-    mov al,[fileinfo+ecx+11]
-    mov [convinfo+ecx+esi],al
-    dec ecx
-    jns wfloop
-nextfile:
+writefile:
-nextfl:
+    mov ecx,26
+wfloop:
+    mov al,[fileinfo+ecx]
+    mov [convinfo+ecx+esi],al
+    dec ecx
+    jns wfloop
+        inc     [listsize]
+        pop     esi
+nextfl:
+        add     esi, 304
+        pop     ebx
+        dec     ebx
+        jnz     newlineb
+nofiles:
+        ret
+toupper:
+        cmp     al, 'a'
+        jb      .ret
+        cmp     al, 'z'
+        ja      @f
+.sub20:
+        sub     al, 0x20
+.ret:
+        ret
+@@:
+        cmp     al, 0xA0
+        jb      .ret
+        cmp     al, 0xB0
-;    popad
+        jb      .sub20
+        cmp     al, 0xE0
+        jb      .ret
+        cmp     al, 0xF0
+        jae     @f
+        sub     al, 0xE0-0x90
+        ret
+@@:
+        cmp     al, 0xF1
+        jnz     .ret
+        dec     eax
+        ret
+compare_date:
+        pushad
+        mov     al, [fileinfo+10]
+        cmp     al, [convinfo+esi+10]
+        jnz     .ret
+        mov     al, [fileinfo+11]
+        cmp     al, [convinfo+esi+11]
+        jnz     .ret
+        mov     al, [fileinfo+12]
-;    pushad
+        cmp     al, [convinfo+esi+12]
-    mov eax,edx
+        jnz     .ret
+        mov     al, [fileinfo+13]
+        cmp     al, [convinfo+esi+13]
+        jnz     .ret
+        mov     al, [fileinfo+7]
+        cmp     al, [convinfo+esi+7]
-    shl eax,26
+        jnz     .ret
-    cmp eax,0
+        mov     al, [fileinfo+8]
-    jne no_outcnt
+        cmp     al, [convinfo+esi+8]
+        jnz     .ret
-    push edx
+        mov     al, [fileinfo+4]
+        cmp     al, [convinfo+esi+4]
+        jnz     .ret
+        mov     al, [fileinfo+5]
+        cmp     al, [convinfo+esi+5]
+        jz      compare_name.1
+.ret:
+        popad
+        ret
+compare_name:
-    drawfbox 294,25,(4*6),10,cl_White
+        pushad
+.1:
-    pop  ebp
+        mov     edi, dword [convinfo+esi]
-    outcount ebp,294,25,cl_Black,4*65536
+        mov     esi, dword [fileinfo]
+        call    strcmpi
+        popad
+        ret
+compare_ext:
-no_outcnt:
+        pushad
+        mov     esi, dword [convinfo+esi]
+        mov     edi, dword [fileinfo]
-    popad
+        call    find_ext
+        xchg    esi, edi
+        call    find_ext
+        call    strcmpi
+        popad
+        jz      compare_name
+        ret
+compare_size:
+        pushad
+        lea     edi, [convinfo+esi+19]
-    inc edx
+        lea     esi, [fileinfo+19]
+        mov     ecx, 8
+        repz    cmpsb
+        popad
+        jz      compare_name
-    cmp edx,4096
+        ret
+strcmpi:
+        lodsb
+        call    toupper
+        push    eax
-    jnae newlineb
+        mov     al, [edi]
+        inc     edi
         call    toupper
-;STEP 8 GET SIZE OF RESORTING LIST
+        cmp     [esp], al
-    mov ecx,0
+        pop     eax
-    mov edi,0
+        jnz     @f
-    mov eax,[blocksread]
+        test    al, al
-    mov ebx,62
+        jnz     strcmpi
-    mul ebx
+@@:
-    mov edx,eax
+        ret
-loogs:
     mov eax,dword [convinfo+edi+26]
-    cmp eax,dword 0xffffffff
+find_ext:
-    je endgs
-    add edi,62
+        lodsb
-    inc ecx
+        test    al, al
-    cmp edi,edx ;4096*62
+        jz      .noext
-    jnae loogs
+        cmp     al, '.'
-endgs:
+        jnz     find_ext
-    mov [listsize],ecx
+        ret
-    ret
+.noext:
         dec     esi
-;******************************************************************************
+        ret
+;******************************************************************************
 ; DATA AREA
 pmenu_draw dd 0  ;if poup menu is draw,update all window
 flick	     dd 0  ;anti flick on ?
 drawhf	       dd 0  ;draw file menu?
 drawhv	       dd 0  ;draw view menu?
 drawhi	       dd 0  ;draw info menu?
+cursor	       dd 0  ;cursor in prompt line
+focus	     dd 0  ;prompt edit or window?
+downstop   dd 0
-browser    dd 0  ;0-dialog, 1-browser
+filecursor dd 0
-cursor	       dd 0  ;cursor in prompt line
+mousex	       dd 0
-focus	     dd 0  ;prompt edit or window?
+mousey	       dd 0
-viewmode   dd 0  ;folder sort & not del
+blocksread dd 0
-downstop   dd 0
+listsize   dd 0  ;num of files in directory
-filecursor dd 0
-mousex	       dd 0
+temp	   dd 0
-mousey	       dd 0
+readblock  dd 1
-blocksread dd 0
+dlg_type   db 0 ;S-save O-open
-listsize   dd 0  ;num of files in directory
+browser    db 0  ;0-dialog, 1-browser
-temp	   dd 0
+viewmode   db 0  ;folder sort
+compare dd      compare_name
+        dd      compare_ext
+        dd      compare_size
+        dd      compare_date
-readblock  dd 1
-dlg_type   db 0 ;S-save O-open
+aRD     db      'RD',0
+aFD     db      'FD',0
-hdimg1 db 'HD0      HARDDISK         FOL                                 '
+aHD0    db      'HD0',0
-hdimg2 db 'HD1      HARDDISK         FOL                                 '
+aHD1    db      'HD1',0
-hdimg3 db 'HD2      HARDDISK         FOL                                 '
+aHD2    db      'HD2',0
+aHD3    db      'HD3',0
+a1      db      '1',0,0
-hdimg4 db 'HD3      HARDDISK         FOL                                 '
+a2      db      '2',0,0
+a3      db      '3',0,0
-      ;01234567890123456789012345678901234567890123456789012345678912
+a4      db      '4',0,0
-hdimg  db 'RD       RAMDISK          FOL                                 '
+a5      db      '5',0,0
+a6      db      '6',0,0
-       db 'FD       FLOPPYDISK       FOL                                 '
+a7      db      '7',0,0
+a8      db      '8',0,0
-       db '                                                              '
+a9      db      '9',0,0
+a10     db      '10',0
-       db '                                                              '
+a11     db      '11',0
+a12     db      '12',0
-       db '                                                              '
+a13     db      '13',0
-       db '                                                              '
+a14     db      '14',0
 a15     db      '15',0
-ptimg  db '1        FIRST  PARTITION FOL                                 '
+a16     db      '16',0
-       db '2        SECOND PARTITION FOL                                 '
+a17     db      '17',0
-       db '3        NEXT   PARTITION FOL                                 '
+a18     db      '18',0
 ;   dd tempzone
 ;   db '/RD/1/MRU.LST',0
 ; //// Willow
 ;Name of programs
-editor	      db 'TINYPAD    '
+editor	      db '/RD/1/TINYPAD',0
-bmpview   db 'MV         '
+bmpview   db '/RD/1/MV',0
-jpgview   db 'JPEGVIEW   '
+jpgview   db '/RD/1/JPEGVIEW',0
-gifview   db 'GIFVIEW    '
+gifview   db '/RD/1/GIFVIEW',0
-ac97wav   db 'AC97WAV    '
-copyrfile db 'COPYR      '
+ac97wav   db '/RD/1/AC97WAV',0
-rtfread   db 'RTFREAD    '
+rtfread   db '/RD/1/RTFREAD',0
 ; //// Willow
-pngview   db '@RCHER     '
+pngview   db '/RD/1/@RCHER',0
 ; //// Willow
+midamp	  db '/RD/1/MIDAMP',0
-midamp	  db 'MIDAMP     '
+more_char db 10h
+fileinfo_start:
+        dd      7
+        dd      0
+fileinfo_params:
-fileinfo_start:
+        dd      0
-dd 16
+        dd      0
+        dd      0
-dd 0
+        db      0
+fileinfo_name:
+        dd      0
+clipfile_info:
-dd 0 ;tempzone+1000;
+        dd      ?
+        dd      0
+        dd      0
+        dd      ?
-dd 0
+        dd      paramtest
+        db      '/RD/1/CLIPFILE.TXT',0
+copyr_run:
-dd tempzone ;0x10000
+        dd      7
+        dd      0
+        dd      copyr_param
+        dd      0
-open_path:
+        dd      0
-times 256 db 0	    ;run app path
+        db      '/RD/1/COPYR',0
+fileinfoblock:
-fileinfoblock:
+   dd 0x1    ; read folder
-   dd 0x0    ; read
    dd 0x0    ; first block
-   dd 0x1    ; number of blocks to read
-farea:
+   dd 0x0    ; flags (ANSI names)
-   dd outinfo	  ; ret offset
+   dd 4095   ; number of blocks to read
-   dd tempzone	      ; work size of sytemram
+   dd outinfo	  ; ret offset
 path:
-times 256 db 0	    ;path
+times 1024 db 0	    ;path
 table_area:
+rb 10
+;rb 256
+but_file:
+file 'systr12.GIF'
-rb 10
+I_END:
-;rb 256
+scroll_height dd ?
-but_file:
+scroll_pos dd ?
 file 'systr12.GIF'
 rb 400*100*3+8	     ;for picture
 rb 8000
 gif_hash:
-rd 4096
-tempzone:   ;temp zone for 58 function
-rb 4000
-sourcepath rb 100
-destpath   rb 100
+rd 4096
-MYPID:
-rd 8
 MYPID:
-I_END:
+rd 8
 param_area:
 rb 256
 paramtest:
-rb 256
+rb 1024
 filedir:
-rb 256
+rb 1024
+procinfo process_information
+sc system_colors
 procinfo process_information
-sc system_colors
+fileinfo:
 rb 200 ;4096*62+1024
-fileinfo:
-rb 200 ;4096*62+1024
+copyr_param     rb      256
+outinfo:
 rb 32+4096*304

Subversion Repositories Kolibri OS

(root)/programs/fs/sysxtree/trunk/sysxtree.asm @ 156 – Rev 131 → 134