Subversion Repositories Kolibri OS

Rev

Rev 134 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;                                              ;
  3. ;   SYSTEM X-TREE BROWSER                      ;
  4. ;                                              ;
  5. ;   Author: Pavlushin Evgeni waptap@mail.ru    ;
  6. ;                   site: www.deck4.narod.ru   ;
  7. ;                                              ;
  8. ;   Compile with FASM for MenuetOS             ;
  9. ;                                              ;
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11.  
  12. ;Bug report +bug deleted  -bug not deleted
  13. ;show/fade del notwork+
  14. ;64Ver Run file from HD bug deleted.
  15. ;65Ver The bad scroll realization
  16. ;66Ver The good scroll realization, url line anti-flick
  17. ;67Ver Url line monolith procedure
  18. ;68Ver Mini icon on left of file name
  19. ;69Ver Getimg proc size minus 900 bytes
  20. ;70Ver Del data area ramsize minus 140000 bytes
  21. ;72Ver Quick sort, ramsize minus 200000 bytes
  22. ;73Ver Url flick and out bugs delete
  23. ;74Ver scroll bug deleted
  24. ;75Ver hd partition fast change button. Add bmp,txt,exec,asm and inc icons.
  25. ; sort type in headmenu bug del
  26. ;78Ver directory extension bug fix by Asko Vuori
  27. ;79Ver Asko Vuori volume label add and "put in command line" bug fix
  28. ;80Ver prompt edit fatal bug deleted, antiflick when move list up/down
  29. ;81Ver Save Dialog bug deleted
  30. ;82Ver Rewritten to function 70. Corrected work with scrollbar.
  31. ;83Ver CD-ROM support
  32. ;84Ver URL line editor corrected
  33. ;1560000 bytes memory!
  34.  
  35. ;******************************************************************************
  36.   use32
  37.   org      0x0
  38.   db     'MENUET01'   ; 8 byte id
  39.   dd     0x01           ; header version
  40.   dd     START        ; program start
  41.   dd     I_END        ; program image size
  42.   dd     RAM_END      ; memory
  43.   dd     RAM_END      ; stack
  44.   dd     param_area ,0x0   ; param,icon
  45. ;  dd 0,0
  46.  
  47. ;******************************************************************************
  48. include 'macros.inc'
  49. include 'ascl.inc'
  50. include 'ascgl.inc'
  51.  
  52.     gif_hash_offset = gif_hash
  53.  
  54. START:              ; start of execution
  55. ; //// Willow
  56. ;    mov eax,58
  57. ;    mov ebx,MRUfile
  58. ;    int 0x40
  59. ; //// Willow
  60.     mcall 18,11,1,table_area
  61.     cmp [edx+2],byte 0
  62.     je    no_hdpartition_on_hd0
  63.     mov [hdimg1], aHD0
  64.  no_hdpartition_on_hd0:
  65.     cmp [edx+3],byte 0
  66.     je    no_hdpartition_on_hd1
  67.     mov [hdimg2], aHD1
  68.  no_hdpartition_on_hd1:
  69.     cmp [edx+4],byte 0
  70.     je    no_hdpartition_on_hd2
  71.     mov [hdimg3], aHD2
  72.  no_hdpartition_on_hd2:
  73.     cmp [edx+5],byte 0
  74.     je    no_hdpartition_on_hd3
  75.     mov [hdimg4], aHD3
  76.  no_hdpartition_on_hd3:
  77.         test    byte [edx+1], 80h
  78.         jz      @f
  79.         mov     [hdimg1], aCD0
  80.         mov     [hdimg1+4], 'CD-R'
  81.         mov     [hdimg1+8], 'OM  '
  82. @@:
  83.         test    byte [edx+1], 20h
  84.         jz      @f
  85.         mov     [hdimg2], aCD1
  86.         mov     [hdimg2+4], 'CD-R'
  87.         mov     [hdimg2+8], 'OM  '
  88. @@:
  89.         test    byte [edx+1], 8
  90.         jz      @f
  91.         mov     [hdimg3], aCD2
  92.         mov     [hdimg3+4], 'CD-R'
  93.         mov     [hdimg3+8], 'OM  '
  94. @@:
  95.         test    byte [edx+1], 2
  96.         jz      @f
  97.         mov     [hdimg4], aCD3
  98.         mov     [hdimg4+4], 'CD-R'
  99.         mov     [hdimg4+8], 'OM  '
  100. @@:
  101.  
  102.     mov eax,40
  103.     mov ebx,0100111b
  104.     int 0x40
  105.  
  106.     cmp byte [param_area],0 ;test parameters line
  107.     jne no_brow     ;it's dialog
  108.     mov [browser], 1   ;it's browser
  109.     jmp no_dlg
  110. no_brow:
  111.  
  112.     mov al,byte [param_area+5]
  113.     mov [dlg_type],al
  114.  
  115.     mov eax,9
  116.     mov ebx,procinfo
  117.     mov ecx,-1
  118.     int 0x40
  119.  
  120.     mov eax,dword [procinfo+30]
  121.     mov edi,MYPID+4-1
  122.     mov ecx,4
  123.     mov ebx,10
  124.     cld
  125.  
  126. new_d:
  127.     xor edx,edx
  128.     div ebx
  129.     add dl,'0'
  130.     mov [edi],dl
  131.     dec edi
  132.     loop new_d
  133.  
  134.     movzx eax,byte [param_area]
  135.     sub eax,48
  136.     imul eax,10
  137.     movzx ebx,byte [param_area+1]
  138.     add eax,ebx
  139.     sub eax,48
  140.     imul eax,10
  141.     movzx ebx,byte [param_area+2]
  142.     add eax,ebx
  143.     sub eax,48
  144.     imul eax,10
  145.     movzx ebx,byte [param_area+3]
  146.     add eax,ebx
  147.     sub eax,48
  148.  
  149.     mov ecx,eax ;pid to ecx
  150.     mov eax,60
  151.     mov ebx,2
  152.     mov edx,MYPID
  153.     mov esi,4
  154.     int 0x40
  155. no_dlg:
  156.  
  157.     giftoimg but_file,tempimg
  158.  
  159. ;************************
  160. ;      Get images
  161. ;************************
  162.  
  163.     mov eax,0  ;x
  164.     mov ebx,0       ;y
  165.     mov esi,286     ;xs
  166.     mov edi,16          ;ys
  167.     mov ecx,tempimg ;src
  168.     mov edx,butimg   ;dest
  169.     call getimgproc
  170.     mov eax,288
  171.     mov esi,60
  172.     mov edx,logoimg  ;dest
  173.     call getimgproc
  174.     mov eax,0  ;x
  175.     mov ebx,16         ;y
  176.     mov esi,51         ;xs
  177.     mov edi,esi      ;ys
  178.     mov edx,logoinfimg       ;dest
  179.     call getimgproc
  180.     mov eax,51      ;x
  181.     mov esi,8       ;xs
  182.     mov edi,9        ;ys
  183.     mov edx,upsb   ;dest
  184.     call getimgproc
  185.     mov eax,51+8  ;x
  186.     mov edx,dnsb   ;dest
  187.     call getimgproc
  188.  
  189.     mov eax,51+16  ;x
  190.     mov ebx,16         ;y
  191.     mov esi,12         ;xs
  192.     mov edi,9        ;ys
  193.  
  194.     mov ecx,tempimg ;src
  195.     mov edx,hdico   ;dest
  196.     mov ebp,10
  197. loogetimg:
  198.     call getimgproc
  199.     add edx,9*12*3+8
  200.     add eax,12
  201.     dec ebp
  202.     jnz loogetimg
  203.  
  204.     call read_directory
  205. ;    call convertation
  206. red:
  207.     call draw_window        ; at first, draw the window
  208.  
  209. still:
  210.     mov eax,9
  211.     mov ebx,procinfo
  212.     mov ecx,-1
  213.     int 0x40
  214.  
  215.     wtevent red,key,button
  216.  
  217. scrolltest:
  218.     mov eax,37
  219.     mov ebx,2
  220.     int 0x40
  221.     dec eax
  222.     jne still
  223.  
  224. scrl:
  225.     mov eax,37
  226.     mov ebx,1
  227.     int 0x40
  228.         movzx   ebx, ax         ; y
  229.         shr     eax, 16         ; x
  230.     mov ebp,eax
  231.     sub ebp,[listx] ;[procinfo.x_size]
  232.     sub ebp,[listxsize]
  233.     add ebp,[scrollsize]
  234.     cmp ebp,dword [scrollsize] ;8
  235.     jae menu_test ; still
  236.  
  237.         lea     ebp, [ebx-scrollbutsize]
  238.         sub     ebp, [listy]    ; up scroll
  239.         jl      menu_test
  240.         mov     ecx, [listysize]
  241.         sub     ecx, 2*scrollbutsize
  242.         mov     eax, [scroll_height]
  243.         cmp     ebp, ecx
  244.         jge     menu_test
  245.         sub     ecx, eax
  246.         shr     eax, 1
  247.         sub     ebp, eax
  248.         jge     @f
  249.         xor     ebp, ebp
  250. @@:
  251.         cmp     ebp, ecx
  252.         jl      @f
  253.         mov     ebp, ecx
  254. @@:
  255.         xor     edx, edx
  256.         mov     eax, [listysize]
  257.         sub     eax, 2
  258.         mov     ebx, 10
  259.         div     ebx
  260.         mov     ebx, eax
  261.         cmp     ebx, [listsize]
  262.         jae     notusescrl
  263.         mov     eax, [listsize]
  264.         sub     eax, ebx
  265.         mul     ebp
  266.         div     ecx
  267.         cmp     eax, [filecursor]
  268.         jz      still
  269.         mov     [filecursor], eax
  270.         jmp     usescrl
  271. notusescrl:
  272.         cmp     [filecursor], 0
  273.         jz      still
  274.     mov [filecursor],0 ;ebp
  275. usescrl:
  276.  
  277.     mov [flick],1
  278.     jmp anti_flick ;red
  279.  
  280. menu_test:
  281.     cmp [pmenu_draw],1 ;if menu is show, update all
  282.     jne still
  283.     mov [pmenu_draw],0
  284.     jmp red          ;update all window
  285.  
  286. ;this function not use in dialog when poup menu's is not used
  287. ;in dialog's
  288.  
  289. ;===================
  290. ; Test keyboard
  291. ;===================
  292. key:              ; key
  293.     mov  eax,2
  294.     int  0x40
  295.     cmp dword [focus],0
  296.     jne con_edit
  297.     cmp  ah,key_Up
  298.     jne  no_upk
  299.     mov  ebx,1
  300.     jmp  up
  301. no_upk:
  302.     cmp  ah,key_Down
  303.     jne  no_downk
  304.     mov  ebx,1
  305.     jmp  down
  306. no_downk:
  307.     cmp  ah,key_PgUp
  308.     jne  no_pgup
  309.     mov  ebx,10
  310.     jmp  up
  311. no_pgup:
  312.     cmp  ah,key_PgDown
  313.     jne  no_pgdown
  314.     mov  ebx,10
  315.     jmp  down
  316. no_pgdown:
  317.     cmp  ah,key_Enter
  318.     je   kfad
  319.     cmp  ah,key_Bspace
  320.     je       back
  321.     cmp  ah,key_F2
  322.     je       viewset
  323.     cmp  ah,key_F3
  324.     je       textopen
  325.     cmp  ah,key_F5
  326.     je       copy_to_clip
  327.     cmp  ah,key_F6
  328.     je       paste_from_clip
  329.     cmp  ah,key_F11
  330.     je       edit_prompt
  331.     cmp  ah,key_F12
  332.     je       update
  333.     jmp  still
  334.  
  335. ; test input string
  336. con_edit:
  337.     cmp  ah,key_Enter
  338.     jne  no_con_ent
  339.     not  [focus]
  340.     jmp  savetest
  341. ;    jmp  update
  342. no_con_ent:
  343.     cmp  ah,key_Left
  344.     jne  no_con_left
  345.         cmp     [cursor], 0
  346.         jz      still
  347.     dec  [cursor]
  348.     mov  [flick],2
  349.     jmp  anti_flick ;red
  350. no_con_left:
  351.     cmp  ah,key_Right
  352.     jne  no_con_right
  353.         mov     eax, [cursor]
  354.         cmp     byte [path+eax], 0
  355.         jz      still
  356.     inc  [cursor]
  357.     mov  [flick],2
  358.     jmp  anti_flick ;red
  359. no_con_right:
  360.     cmp  ah,key_Bspace
  361.     jne  no_con_bspace
  362.  
  363.         mov     ebp, [cursor]
  364.         test    ebp, ebp
  365.         jz      still
  366. lobsp:
  367.     mov  bl,byte [path+ebp]
  368.     mov  byte [path+ebp-1],bl
  369.     inc  ebp
  370.     cmp  ebp,1024
  371.     jne  lobsp
  372.     dec  [cursor]
  373.     mov  [flick],2
  374.     jmp  anti_flick ;red
  375. no_con_bspace:
  376.  
  377.     mov  ecx,[cursor]
  378.     mov  ebp,1022
  379.         cmp     byte [path+ebp], 0
  380.         jnz     still
  381. losx:
  382.         cmp     ebp, ecx
  383.         jbe     @f
  384.     mov  bl,byte [path+ebp]
  385.     mov  byte [path+ebp+1],bl
  386.     dec  ebp
  387.     jmp  losx
  388. @@:
  389.  
  390.     mov  byte [path+ebp],ah
  391.     inc  dword [cursor]
  392.  
  393.     mov  [flick],2
  394.     jmp  anti_flick
  395.  
  396.  
  397. ;----------------------------
  398. ;Test on mouse button
  399. ;-----------------------------
  400.  
  401.   button:         ; button
  402.     mov eax,17
  403.     int 0x40
  404.  
  405.     cmp ah,2           ;Edit prompt line?
  406.     je      edit_prompt
  407.  
  408.     cmp ah,4
  409.     jne no_filelist
  410.  
  411. mousetest:
  412.     mov eax,37
  413.     mov ebx,1
  414.     int 0x40
  415.     mov ebx,eax
  416.     shr eax,16           ;x
  417.     and ebx,0xffff   ;y
  418.  
  419.     sub ebx,[listy] ;80
  420.     mov [mousey],ebx
  421.  
  422.     mov ecx,[listx]
  423.     cmp eax,ecx
  424.     jl      still
  425.     add ecx,[listxsize]
  426.     cmp eax,ecx
  427.     jg      still
  428.  
  429. filexadd:
  430.  
  431. ; Enter in directory
  432. file_add:
  433.     mov edx,0  ;for div correct work div
  434.     mov eax,dword [mousey]
  435.     mov ebx,10
  436.     div ebx
  437.  
  438.     add eax,[filecursor]
  439.     jmp no_kfad
  440. kfad:
  441.     mov eax,[filecursor]
  442. no_kfad:
  443.     mov ebx,27
  444.     mul ebx
  445.     lea ebp,[convinfo+eax]
  446.     mov esi,[ebp]
  447.     cmp esi,-1
  448.     jz  still
  449.  
  450.     mov edi,paramtest ;clear param string
  451.     mov ecx,1024/4
  452.     xor eax,eax
  453.     rep stosd
  454.  
  455.         mov     edi, path
  456.         mov     ecx, 1024
  457.         repnz   scasb
  458.         dec     edi
  459.         cmp     [ebp+15], dword 'FOL '
  460.         jnz     openf
  461. ; open directory - append its name to path
  462.         cmp     ecx, 2
  463.         jb      still
  464.         push    edi
  465.         mov     al, '/'
  466.         stosb
  467.         dec     ecx
  468. @@:
  469.         lodsb
  470.         stosb
  471.         test    al, al
  472.         jz      @f
  473.         dec     ecx
  474.         jnz     @b
  475. ; name is too long - do not do anything
  476.         pop     edi
  477.         xor     eax, eax
  478.         mov     ecx, path+1024
  479.         sub     ecx, edi
  480.         rep     stosb
  481.         jmp     still
  482. @@:
  483.         sub     edi, path+1
  484.         mov     [cursor], edi
  485.         pop     edi
  486. ; name appended, now read new directory
  487.     mov [filecursor],0
  488.  
  489.     call read_directory
  490. ;;    call convertation
  491.     call draw_window
  492.     jmp still
  493.  
  494. ;Savetest
  495. savetest:
  496.     cmp byte [dlg_type],'S'
  497.     jne still
  498. ; always force open file - this is better
  499. ; because there exists files without extension and folders with extension
  500.         jmp     openf
  501. ;    mov ecx,100
  502. ;savetestloop:
  503. ;    cmp [path+ecx],byte 0
  504. ;    je     next_byte
  505. ;    cmp [path+ecx],byte 32
  506. ;    je     next_byte
  507. ;    cmp [path+ecx],byte '.'
  508. ;    je     openf  ;it's file
  509. ;;    cmp [path+ecx],byte '/'
  510. ;;    je  no_save  ;it's dir
  511. ;next_byte:
  512. ;    dec ecx
  513. ;    jnz savetestloop
  514. ;    jmp still
  515.  
  516. ;Open/Run file
  517.  
  518. openf:
  519.         push    esi edi
  520.         mov     esi, path
  521.         mov     edi, paramtest
  522.         mov     ecx, 1024/4
  523.         rep     movsd
  524.         pop     edi esi
  525.         add     edi, paramtest-path
  526.  
  527.     cmp dword [focus],0 ;if prompt line with focus no add file name from frame
  528.     jne file_set
  529.  
  530.         cmp     edi, paramtest+1022
  531.         jae     still
  532.         mov     al, '/'
  533.         stosb
  534. @@:
  535.         lodsb
  536.         stosb
  537.         test    al, al
  538.         jz      file_set
  539.         cmp     edi, paramtest+1024
  540.         jb      @b
  541.         jmp     still
  542.  
  543. file_set:
  544.  
  545.     cmp [browser],0
  546.     jne is_brow
  547.  
  548.     movzx eax,byte [param_area]
  549.     sub eax,48
  550.     imul eax,10
  551.     movzx ebx,byte [param_area+1]
  552.     add eax,ebx
  553.     sub eax,48
  554.     imul eax,10
  555.     movzx ebx,byte [param_area+2]
  556.     add eax,ebx
  557.     sub eax,48
  558.     imul eax,10
  559.     movzx ebx,byte [param_area+3]
  560.     add eax,ebx
  561.     sub eax,48
  562.  
  563.     mov ecx,eax ;pid to ecx
  564.     mov eax,60
  565.     mov ebx,2
  566.     mov edx,paramtest
  567.     mov esi,1024
  568.     int 0x40
  569.  
  570.     jmp exit
  571.  
  572. is_brow:
  573.  
  574. ;    cmp [convinfo+edi+26],dword 'Fvol'
  575. ;    je  edit
  576.  
  577. ; find extension
  578.         mov     eax, paramtest+1023
  579. @@:
  580.         dec     eax
  581.         cmp     byte [eax+1], 0
  582.         jz      @b
  583. @@:
  584.         cmp     byte [eax], '/'
  585.         jz      .noext
  586.         cmp     byte [eax], '.'
  587.         jz      .ext
  588.         dec     eax
  589.         cmp     eax, paramtest
  590.         jae     @b
  591. .noext:
  592. ; file has no extension
  593. ;        xor     ebx, ebx
  594.         jmp     execute
  595. .ext:
  596.         inc     eax
  597. ; eax points to extension
  598.         cmp     byte [eax], 0
  599.         jz      .noext
  600.         mov     ecx, dword [eax]
  601.         and     ecx, not 0x20202020
  602.         mov     ebx, jpgview
  603.         cmp     ecx, 'JPG'
  604.         jz      run
  605.         cmp     ecx, 'JPEG'     ; note that it will select also *.JPEG*
  606.         jz      run
  607.         mov     ebx, gifview
  608.         cmp     ecx, 'GIF'
  609.         jz      run
  610.         mov     ebx, ac97wav
  611.         cmp     ecx, 'WAV'
  612.         jz      run
  613.         mov     ebx, midamp
  614.         cmp     ecx, 'MID'
  615.         jz      run
  616.         mov     ebx, bmpview
  617.         cmp     ecx, 'BMP'
  618.         jz      run
  619. ; //// Willow
  620.         mov     ebx, pngview
  621.         cmp     ecx, 'PNG'
  622.         jz      run
  623. ; //// Willow
  624.         mov     ebx, rtfread
  625.         cmp     ecx, 'RTF'
  626.         jz      run
  627.         mov     ebx, editor
  628.         cmp     ecx, 'ASM'
  629.         jz      run
  630.         cmp     ecx, 'TXT'
  631.         jz      run
  632.         cmp     ecx, 'INC'
  633.         jz      run
  634.         jmp     still
  635.  
  636. execute:
  637.         mov     ebx, fileinfo_start
  638.         and     dword [ebx+8], 0                ; no parameters
  639.         mov     dword [ebx+21], paramtest       ; program name
  640. .do:
  641.         mov     eax, 70
  642.         int     0x40
  643.         jmp     still
  644.  
  645. run:
  646.         mov     [fileinfo_name], ebx            ; program name
  647.         mov     ebx, fileinfo_start
  648.         mov     dword [ebx+8], paramtest        ; parameters
  649.         jmp     execute.do
  650.  
  651. no_filelist:
  652.  
  653.     cmp ah,5    ;OPEN/SAVE button
  654.     je      kfad
  655.  
  656.     cmp ah,6    ;Scroll up
  657.     jne no_scrlup
  658.     mov ebx,1
  659.     jmp up
  660. no_scrlup:
  661.  
  662.     cmp ah,7    ;Scroll down
  663.     jne no_scrldown
  664.     mov ebx,1
  665.     jmp down
  666. no_scrldown:
  667.  
  668.     cmp ah,8
  669.     jne no_update
  670. update:
  671.     call read_directory
  672. ;    call convertation
  673. ;    mov [filecursor],0
  674.     call draw_window
  675. no_update:
  676.  
  677.     cmp ah,9
  678.     jne no_textopen
  679. textopen:
  680.         mov     eax, 27
  681.         mul     [filecursor]
  682.         cmp     dword [eax+convinfo+15], 'FOL '
  683.         jz      still
  684.         push    eax
  685.         mov     esi, path
  686.         mov     edi, paramtest
  687. @@:
  688.         lodsb
  689.         test    al, al
  690.         jz      @f
  691.         stosb
  692.         jmp     @b
  693. @@:
  694.         mov     al, '/'
  695.         stosb
  696.         pop     eax
  697.         mov     esi, [eax+convinfo]
  698.         cmp     esi, -1
  699.         jz      still
  700. @@:
  701.         lodsb
  702.         stosb
  703.         test    al, al
  704.         jz      @f
  705.         cmp     edi, paramtest+1024
  706.         jb      @b
  707.         jmp     still
  708. @@:
  709.         mov     ebx, editor
  710.         jmp     run
  711.  
  712. no_textopen:
  713.  
  714.     cmp  ah,11
  715.     jne  no_view
  716. viewset:
  717.         inc     [viewmode]
  718.         cmp     [viewmode], 4
  719.         jb      @f
  720.         mov     [viewmode], 0
  721. @@:
  722.     call read_directory
  723. ;    call convertation
  724.     mov [filecursor],0
  725.     call draw_window
  726.     jmp still
  727. no_view:
  728.  
  729.     cmp  ah,12        ;move back
  730.     jne  no_back
  731. back:
  732.         mov     edi, path+1024
  733.         mov     ecx, edi
  734. @@:
  735.         dec     edi
  736.         cmp     byte [edi], '/'
  737.         jz      @f
  738.         cmp     edi, path
  739.         ja      @b
  740.         jmp     still
  741. @@:
  742.         sub     ecx, edi
  743.         lea     eax, [edi-path]
  744.         mov     [cursor], eax
  745.         xor     eax, eax
  746.         rep     stosb
  747.     mov [filecursor],0
  748.     call read_directory
  749. ;    call convertation
  750.     call draw_window
  751.     jmp still
  752.  
  753. no_back:
  754.     cmp  ah,13        ;string up?
  755.     jne  no_up
  756.     mov  ebx,1        ;step
  757. up:
  758.     mov  [downstop],0
  759.     sub  [filecursor],ebx
  760.     cmp  [filecursor],0
  761.     jnl  cr_ok
  762.     mov  [filecursor],0
  763. cr_ok:
  764.     jmp  draw_wd
  765. no_up:
  766.     cmp  ah,14           ;string down?
  767.     jne  no_dn
  768.     mov  ebx,1           ;step
  769. down:
  770.     cmp  [downstop],1
  771.     je       no_dn
  772.     add  [filecursor],ebx
  773.     jmp  draw_wd
  774. no_dn:
  775.  
  776.     cmp  ah,15
  777.     jne  no_copyclip    ;copy to clipboard
  778. copy_to_clip:
  779.         mov     eax, 27
  780.         mul     [filecursor]
  781.         cmp     dword [convinfo+eax+15], 'FOL '
  782.         jz      still
  783.         push    eax
  784.         mov     esi, path
  785.         mov     edi, paramtest
  786. @@:
  787.         lodsb
  788.         test    al, al
  789.         jz      @f
  790.         stosb
  791.         jmp     @b
  792. @@:
  793.         pop     eax
  794.         mov     esi, [convinfo+eax]
  795.         cmp     esi, -1
  796.         jz      still
  797.         mov     al, '/'
  798.         stosb
  799. @@:
  800.         lodsb
  801.         stosb
  802.         test    al, al
  803.         jz      @f
  804.         cmp     edi, paramtest+1024
  805.         jb      @b
  806.         jmp     still
  807. @@:
  808.         sub     edi, paramtest+1
  809.         mov     ebx, clipfile_info
  810.         mov     byte [ebx], 2
  811.         mov     [ebx+12], edi
  812.         mov     eax, 70
  813.         int     0x40
  814.         jmp     still
  815. no_copyclip:
  816.  
  817.     cmp ah,16
  818.     jne no_clippaste
  819. paste_from_clip:
  820.         mov     ebx, clipfile_info
  821.         mov     byte [ebx], 0
  822.         mov     dword [ebx+12], 1023
  823.         mov     eax, 70
  824.         int     0x40
  825.         cmp     ebx, 0
  826.         jle     still
  827.         mov     byte [paramtest+ebx], 0
  828. ; OS allows only 256 symbols in command line
  829.         cmp     ebx, 250
  830.         jae     still
  831. ; we use Pascal-style strings for /RD/1/COPYR
  832. ; source file
  833.         mov     edi, copyr_param
  834.         mov     al, bl
  835.         stosb
  836.         mov     ecx, ebx
  837.         mov     esi, paramtest
  838.         rep     movsb
  839. ; destination path
  840.         inc     edi
  841.         mov     ebp, edi
  842.         mov     esi, path
  843. @@:
  844.         cmp     edi, copyr_param+255
  845.         jae     still
  846.         lodsb
  847.         test    al, al
  848.         jz      @f
  849.         stosb
  850.         jmp     @b
  851. ; destination file name
  852. @@:
  853.         dec     ebx
  854.         jz      still
  855.         cmp     byte [paramtest+ebx], '/'
  856.         jnz     @b
  857.         lea     esi, [paramtest+ebx]
  858. @@:
  859.         lodsb
  860.         test    al, al
  861.         jz      @f
  862.         stosb
  863.         cmp     edi, copyr_param+255
  864.         jae     still
  865.         jmp     @b
  866. @@:
  867.         mov     byte [edi], 0
  868.         sub     edi, ebp
  869.         mov     eax, edi
  870.         mov     [ebp-1], al
  871. ; display
  872.     cmp [browser], 1
  873.     jne no_outpath
  874.     mov  eax,4             ; function 4 : write text to window
  875.     mov  ebx,10*65536+67     ; [x start] *65536 + [y start]
  876.     mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
  877.         mov     edx, copyr_param+1
  878.         movzx   esi, byte [edx-1]
  879.     int  0x40
  880.     mov  ebx,250*65536+67       ; [x start] *65536 + [y start]
  881.     mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
  882.         mov     edx, ebp
  883.         mov     esi, edi
  884.     int  0x40
  885. no_outpath:
  886.  
  887. ; run COPYR
  888.         mov     eax, 70
  889.         mov     ebx, copyr_run
  890.         int     0x40
  891.     delay 50   ;wait recoed file
  892.     jmp update ;still
  893. no_clippaste:
  894.  
  895.     cmp ah,19           ;Delete from floppy
  896.     jne no_delt
  897. delete_file:
  898. ; OS now do not support file delete
  899.         jmp     still
  900. no_delt:
  901.  
  902.     cmp ah,20           ;I - Help
  903.     je      help_scr
  904.  
  905.     cmp ah,22
  906.     jne no_headfile
  907.     mov [drawhf],1
  908.     call draw_window
  909.     mov [drawhf],0
  910.     mov [pmenu_draw],1
  911.     jmp still
  912. no_headfile:
  913.  
  914.     cmp ah,23
  915.     jne no_headview
  916.     mov [drawhv],1
  917.     call draw_window
  918.     mov [drawhv],0
  919.     mov [pmenu_draw],1
  920.     jmp still
  921. no_headview:
  922.  
  923.     cmp ah,24
  924.     jne no_headinfo
  925.     mov [drawhi],1
  926.     call draw_window
  927.     mov [drawhi],0
  928.     mov [pmenu_draw],1
  929.     jmp still
  930. no_headinfo:
  931.  
  932. ;FILE MENU
  933.     cmp ah,30
  934.     je kfad
  935.  
  936.     cmp ah,31
  937.     je      copy_to_clip      ;Copy
  938.  
  939.     cmp ah,32
  940.     je      paste_from_clip ;Paste
  941.  
  942.     cmp ah,33
  943.     je      delete_file     ;Delte
  944.  
  945.     cmp ah,34
  946.     je      textopen    ;Edit in Tinypad
  947.  
  948.     cmp ah,37
  949.     je      exit
  950.  
  951. ;VIEW MENU
  952.     cmp ah,40           ;Sort by name
  953.     jne no_sn
  954.         mov     [viewmode], 0
  955.     jmp update
  956. no_sn:
  957.  
  958.     cmp ah,41           ;Sort by extension
  959.     jne no_se
  960.         mov     [viewmode], 1
  961.     jmp update
  962. no_se:
  963.  
  964.     cmp ah,42           ;Sort by size
  965.     jne no_ss
  966.         mov     [viewmode], 2
  967.     jmp update
  968. no_ss:
  969.  
  970.     cmp ah,43           ;Sort by date
  971.     jne no_sd
  972.         mov     [viewmode], 3
  973.     jmp update
  974. no_sd:
  975.  
  976. ;HELP MENU
  977.     cmp ah,50           ;Help?
  978.     je      help_scr
  979.  
  980.     cmp ah,51           ;Info?
  981.     je      info_scr
  982.  
  983.     cmp ah,1           ; test on exit button
  984.     je      exit
  985.  
  986.     jmp still
  987.  
  988. exit:
  989. ; //// Willow
  990. ;    mov eax,58
  991. ;    mov ebx,MRUfile
  992. ;    mov dword[ebx+8],255
  993. ;    inc dword[ebx]
  994. ;    int 0x40
  995. ; //// Willow
  996.     mov eax,-1
  997.     int 0x40
  998.  
  999. draw_wd:
  1000. ;    call draw_window
  1001. ;    jmp still
  1002.     mov [flick],1
  1003.     jmp anti_flick
  1004.  
  1005. edit_prompt:
  1006.     not  [focus]
  1007.     jmp  red
  1008.  
  1009. help_scr:
  1010.     mov esi,14
  1011.     mov ebp,help_text
  1012.     jmp screen
  1013.  
  1014. info_scr:
  1015.     mov esi,6
  1016.     mov ebp,info_text
  1017.     jmp screen
  1018.  
  1019. screen:
  1020.     cmp [browser], 1 ;it's browser?
  1021.     jne dialogscr
  1022.  
  1023.     mov eax,[procinfo.y_size]
  1024.     sub eax,90
  1025.     drawfbox 40,76,300,eax,0x00000000
  1026.     mov eax,[procinfo.y_size]
  1027.     sub eax,92
  1028.     drawfbox 41,77,298,eax,0x00ffffff
  1029.     mov edi,esi ;14
  1030.     mov ebx,(41+26)*65536+(77+20)
  1031.     mov ecx,cl_Black
  1032.     mov edx,ebp ;help_text
  1033.     jmp outlab
  1034.  
  1035. dialogscr:
  1036.     mov eax,[procinfo.y_size]
  1037.     sub eax,84
  1038.     drawfbox 16,54,270,eax,0x00000000
  1039.     mov eax,[procinfo.y_size]
  1040.     sub eax,86
  1041.     drawfbox 17,55,268,eax,0x00ffffff
  1042.     mov edi,esi ;14
  1043.     mov ebx,(17+10)*65536+(55+1)
  1044.     mov ecx,cl_Black
  1045.     mov edx,ebp ;help_text
  1046.  
  1047. outlab:     ;out labels
  1048.     mov eax,4
  1049.     mov esi,40
  1050. helploo:
  1051.     int 0x40
  1052.     add ebx,11
  1053.     add edx,40
  1054.     dec edi
  1055.     jnz helploo
  1056.  
  1057.     setimg 48,84,logoinfimg
  1058.  
  1059.     jmp still
  1060.  
  1061. getimgproc:
  1062.     pushad
  1063.     mov dword [edx],esi ;xs
  1064.     mov dword [edx+4],edi ;ys
  1065.  
  1066.     mov ebp,eax
  1067.     mov eax,dword [ecx] ;getx size
  1068.     push edx
  1069.     push ecx
  1070.     lea ecx,[eax+2*eax]
  1071.  
  1072.     mul ebx
  1073.     add eax,ebp ;x
  1074.     mov edx,ecx
  1075.     lea eax,[eax+2*eax]  ;eax=offset on imsrc
  1076.  
  1077.     mov ebp,esi ;xs
  1078.     mov ebx,edi ;ys
  1079.  
  1080.     pop edi
  1081.     lea esi,[eax+8+edi]
  1082.  
  1083.     pop edi
  1084.     add edi,8
  1085.  
  1086.     cld
  1087. cyc:
  1088.         push    esi
  1089.         lea     ecx, [ebp+ebp*2]
  1090.         rep     movsb
  1091.         pop     esi
  1092.     add esi,edx
  1093.     dec ebx
  1094.     jne cyc
  1095.  
  1096.     popad
  1097.     ret
  1098.  
  1099. ;HELP TEXT
  1100. help_text:
  1101.        ;0123456789012345678901234567890123456789
  1102.     db '        ~~~~~ SYSTEM X-TREE ~~~~~       '
  1103.     db '                   HELP                 '
  1104.     db '                                        '
  1105.     db '                                        '
  1106.     db 'F2 - CHANGE SORTMODE (name,ext,size,dat)'
  1107.     db 'F3 - VIEW file in tinypad               '
  1108.  
  1109.     db 'F5 - COPY FILE to clipboard             '
  1110.     db 'F6 - PASTE FILE from clipboard          '
  1111.     db 'F11- EDIT PROMPT string                 '
  1112.     db 'F12- UPDATE directory sources           '
  1113.     db '                                        '
  1114.  
  1115.     db 'Enter - input to directory              '
  1116.     db 'Backspace - back to previos directory   '
  1117.     db 'PageDn/PageUp, Up/Down - move cursor    '
  1118.  
  1119. info_text:
  1120.     db '        ~~~~~ SYSTEM X-TREE ~~~~~       '
  1121.     db '               INFO 84 Ver              '
  1122.     db '                                        '
  1123.     db '        Create by Pavlushin Evgeni      '
  1124.     db 'with ASCL library special for Kolibri OS'
  1125.     db ' www.deck4.narod.ru      waptap@mail.ru '
  1126.  
  1127.  
  1128. ;   *********************************************
  1129. ;   *******  WINDOW DEFINITIONS AND DRAW ********
  1130. ;   ********    FILE BROWSER / DIALOG   *********
  1131.  
  1132. ;draw_browser_window:
  1133.  
  1134. draw_window:
  1135.  
  1136. ;    mov eax,9
  1137. ;    mov ebx,procinfo
  1138. ;    mov ecx,-1
  1139. ;    int 0x40
  1140. ;    mov  eax,[procinfo.x_size]
  1141. ;    cmp  eax,66
  1142. ;    jg  temp12345
  1143. ;    ret
  1144. ; temp12345:
  1145.     mov  eax,48
  1146.     mov  ebx,3
  1147.     mov  ecx,sc
  1148.     mov  edx,sizeof.system_colors
  1149.     int  0x40
  1150.  
  1151.     mov  eax,[sc.work_button]
  1152.     mov  [b_color],eax
  1153.  
  1154.     mov  eax,12        ; function 12:tell os about windowdraw
  1155.     mov  ebx,1             ; 1, start of draw
  1156.     int  0x40
  1157.  
  1158. ;Window
  1159.  
  1160.     xor  eax,eax       ; function 0 : define and draw window
  1161.  
  1162.     cmp  [browser], 1 ;it's browser
  1163.     jne  nob1
  1164.     mov  ebx,140*65536+400     ; [x start] *65536 + [x size]
  1165.     mov  ecx,160*65536+280     ; [y start] *65536 + [y size]
  1166.     jmp  isb1
  1167. nob1:
  1168.     mov  ebx,140*65536+320     ; [x start] *65536 + [x size]
  1169.     mov  ecx,260*65536+240     ; [y start] *65536 + [y size]
  1170. isb1:
  1171. ;    mov  edx,[sc.work]             ; color of work area RRGGBB
  1172.     or       edx,0x03ffffff;000000
  1173.     int  0x40
  1174.  
  1175. ;Get proc info
  1176.     mov eax,9
  1177.     mov ebx,procinfo
  1178.     mov ecx,-1
  1179.     int 0x40
  1180.  
  1181.     mov  eax,[procinfo.x_size]
  1182.     cmp  eax,66
  1183.     jg   @f
  1184. .ret:
  1185.     ret
  1186.  @@:
  1187.     cmp  [procinfo.y_size], 0x70
  1188.     jl  .ret
  1189.  
  1190.     cmp  [browser], 1 ;it's browser
  1191.     jne  nob9
  1192.     mov  [listx],120
  1193. ;    mov  eax,[procinfo.x_size]
  1194.     sub  eax,127;[listx]+7
  1195.     cmp  eax,10
  1196.     jl   .ret
  1197.     mov  [listxsize],eax
  1198.     mov  [listy],73
  1199.     mov  eax,[procinfo.y_size]
  1200.     sub  eax,73+7;[listy]+7
  1201.     mov  [listysize],eax
  1202.     jmp isb9
  1203. nob9:
  1204.     mov  [listx],10
  1205. ;    mov  eax,[procinfo.x_size]
  1206.     sub  eax,17 ;[listx]+7
  1207.     mov  [listxsize],eax
  1208.     mov  [listy],54
  1209.     mov  eax,[procinfo.y_size]
  1210.     sub  eax,54+34;[listy]+34
  1211.     mov  [listysize],eax
  1212. isb9:
  1213.  
  1214.  
  1215. ;Draw only browser components
  1216.     cmp  [browser], 1 ;it's browser
  1217.     jne  nob2
  1218.  
  1219.     mov  eax,[sc.grab_text]      ; color of text RRGGBB
  1220.     or       eax,0x10000000
  1221.     glabel 8,8,'SYSTEM X-TREE FILE BROWSER',eax
  1222.  
  1223. ;Draw buttons headers
  1224.     mov  eax,8
  1225.     mov  ebx,8*65536+(6*8-1) ;start pos x
  1226.     mov  ecx,23*65536+10      ;start pos y
  1227.     mov  edx,22;+1000000000000000000000000000000b  ;spoke butt
  1228.     mov  edi,3            ;draw 13 button's
  1229.     mov  esi,0x00339933
  1230.     int  0x40
  1231.     dec edi
  1232. nexthbut:
  1233.     add  ebx,(6*8)*65536
  1234.     inc  edx
  1235.     int  0x40
  1236.     dec  edi
  1237.     jnz  nexthbut
  1238.  
  1239. ;File STRING
  1240.     glabel 8,25,'  FILE    VIEW    INFO  ',  cl_White ;Black
  1241.  
  1242. ;BlackLine
  1243.     mov eax,[procinfo.x_size]
  1244.     sub eax,10
  1245.     drawfbox 5,35, eax, 1, cl_Black
  1246.  
  1247. ;BlackLine2
  1248.     mov eax,[procinfo.x_size]
  1249.     sub eax,10
  1250.     drawfbox 5,68, eax, 1, cl_Black
  1251.  
  1252. ;BlackLine2 vertical
  1253. ;    mov eax,[procinfo.y_size]
  1254. ;    sub eax,69+4
  1255. ;    drawfbox 115, 69, 1, eax, cl_Black
  1256.  
  1257. ;Set logo img
  1258.     setimg 34,88,logoinfimg
  1259.     glabel 20,165,'SYSTEM X-TREE',cl_Black
  1260.     add  ebx,10
  1261.     glabel ,,'FOR KolibriOS',
  1262.  
  1263.     add  ebx,9*65536+20
  1264.     glabel ,,'welcome to',cl_Green
  1265.     add  ebx,-15*65536+10
  1266.     glabel ,,'www.kolibrios.org',cl_Green
  1267.  
  1268. ;    glabel ,,'Create by',cl_Green
  1269. ;    add  ebx,10
  1270. ;    glabel ,,'   Pavlushin',
  1271. ;    add  ebx,10
  1272. ;    glabel ,,'       Evgeni',
  1273.  
  1274.  
  1275. ;Draw head->file buttons
  1276.     cmp [drawhf],1
  1277.     jne  no_drawhf
  1278.     mov  ebx,8*65536+6*12 ;start pos x
  1279.     mov  ecx,35*65536+10      ;start pos y
  1280.     mov  edx,30  ;spoke butt
  1281.     mov  edi,8            ;draw 4 button's
  1282.     mov  esi,cl_Grey
  1283.     call menubutton
  1284. no_drawhf:
  1285.  
  1286. ;Draw head->view buttons
  1287.     cmp [drawhv],1
  1288.     jne  no_drawhv
  1289.     mov  ebx,(8+6*8)*65536+6*12 ;start pos x
  1290.     mov  ecx,35*65536+10      ;start pos y
  1291.     mov  edx,40  ;spoke butt
  1292.     mov  edi,4            ;draw 4 button's
  1293.     mov  esi,cl_Grey
  1294.     call menubutton
  1295. no_drawhv:
  1296.  
  1297. ;Draw head->info buttons
  1298.     cmp [drawhi],1
  1299.     jne  no_drawhi
  1300.     mov  ebx,(8+12*8)*65536+6*12 ;start pos x
  1301.     mov  ecx,35*65536+10      ;start pos y
  1302.     mov  edx,50  ;spoke butt
  1303.     mov  edi,2            ;draw 2 button's
  1304.     mov  esi,cl_Grey
  1305.     call menubutton
  1306. no_drawhi:
  1307.  
  1308. nob2:
  1309.  
  1310. ;Draw buttons instruments
  1311.     mov  eax,8
  1312.     cmp  [browser], 1 ;it's browser
  1313.     jne  nob3
  1314.     mov  ebx,10*65536+16+5 ;start pos x
  1315.     mov  ecx,37*65536+15      ;start pos y
  1316.     jmp isb3
  1317. nob3:
  1318.     mov  ebx,16*65536+16+5 ;start pos x
  1319.     mov  ecx,29*65536+15      ;start pos y
  1320. isb3:
  1321.     mov  edx,8;+1000000000000000000000000000000b  ;spoke butt
  1322.     mov  edi,13        ;draw 13 button's
  1323.     mov  esi,cl_Grey
  1324.     int  0x40
  1325.     dec edi
  1326. nextbut:
  1327.     add  ebx,(16+6)*65536
  1328.     inc  edx
  1329.     int  0x40
  1330.     dec  edi
  1331.     jnz  nextbut
  1332.  
  1333.  
  1334.     cmp  [browser], 1 ;it's browser
  1335.     jne  nob4
  1336. ;But img browser
  1337.     setimg 10,37,butimg
  1338. ;left logo
  1339.     add eax,[procinfo.x_size]
  1340.     sub eax,80
  1341.     mov [temp],eax
  1342.     setimg [temp],37,logoimg
  1343.     jmp isb4
  1344. nob4:
  1345. ;But img dialog
  1346.     setimg 16,29,butimg
  1347. isb4:
  1348.  
  1349.     cmp  [browser], 1 ;it's browser
  1350.     jne  nob5
  1351.  
  1352.     mov [urlx],48
  1353.     mov [urly],55
  1354.     mov eax,[procinfo.x_size]
  1355.     sub eax,48+10
  1356.     mov [urlxsize],eax
  1357.     mov [urlysize],12
  1358.  
  1359.     glabel 20,57,"URL:",cl_Black
  1360.  
  1361. ;Out view mode info
  1362.         movzx   edx, [viewmode]
  1363.         shl     edx, 4
  1364.     mov eax,4
  1365.     mov ebx,180*65536+25
  1366.     mov ecx,cl_Black
  1367.     add edx,modetext
  1368.     mov esi,16
  1369.     int 0x40
  1370.  
  1371. ;List size
  1372.     outcount [listsize],294,25,cl_Black,4*65536
  1373.     jmp isb5
  1374.  
  1375. head_dlg: db 'OPEN FILE'
  1376.       db 'SAVE FILE'
  1377. but_dlg:  db 'OPEN'
  1378.       db 'SAVE'
  1379.  
  1380. nob5:
  1381.  
  1382.     mov [urlx],10
  1383.     mov eax,[procinfo.y_size]
  1384.     sub eax,24
  1385.     mov [urly],eax
  1386.     mov eax,[procinfo.x_size]
  1387.     sub eax,80
  1388.     mov [urlxsize],eax
  1389.     mov [urlysize],12
  1390.  
  1391.     cmp byte [dlg_type],'O'    ;if byte O - is Open dialog
  1392.     jne no_openh
  1393.     mov edx,head_dlg          ;draw in head OPEN FILE
  1394.     jmp out_laby
  1395. no_openh:
  1396.     cmp byte [dlg_type],'S'    ;if byte S - is Save dialog
  1397.     jne no_saveh
  1398.     mov edx,head_dlg+9        ;draw in head SAVE FILE
  1399. out_laby:
  1400.     mov ebx,8*65536+8
  1401.     mov ecx,[sc.grab_text]    ; color of text RRGGBB
  1402.     or      ecx,0x10000000
  1403.     mov esi,9
  1404.     mov eax,4
  1405.     int 0x40
  1406. no_saveh:
  1407.  
  1408.  
  1409. ;Draw OPEN\SAVE button
  1410.     mov ebx,0*65536+50
  1411.     mov ecx,0*65536+12
  1412.     mov eax,[procinfo.x_size]
  1413.     sub eax,63
  1414.     shl eax,16
  1415.     add ebx,eax
  1416.     mov eax,[procinfo.y_size]
  1417.     sub eax,25
  1418.     shl eax,16
  1419.     add ecx,eax
  1420.     mov  eax,8
  1421.     mov  edx,5 ;button ID
  1422.     mov  esi,0x006699aa  ;gradient!!!
  1423.     int  0x40
  1424.  
  1425. ; label OPEN or SAVE
  1426.     mov ebx,[procinfo.x_size]
  1427.     sub ebx,48
  1428.     mov eax,[procinfo.y_size]
  1429.     sub eax,22
  1430.     shl ebx,16
  1431.     add ebx,eax
  1432.  
  1433.     cmp byte [dlg_type],'O'    ;if byte O - is Open dialog
  1434.     jne no_openb
  1435.     mov edx,but_dlg        ;draw in head OPEN FILE
  1436.     jmp out_labx
  1437. no_openb:
  1438.     cmp byte [dlg_type],'S'    ;if byte S - is Save dialog
  1439.     jne no_saveb
  1440.     mov edx,but_dlg+4          ;draw in head SAVE FILE
  1441. out_labx:
  1442.     mov ecx,cl_White
  1443.     mov esi,4
  1444.     mov eax,4
  1445.     int 0x40
  1446. no_saveb:
  1447.  
  1448. isb5:
  1449.  
  1450. anti_flick:
  1451.  
  1452.     cmp [flick],2
  1453.     je draw_url
  1454.     cmp [flick],0
  1455.     jne no_flick_url
  1456.  
  1457. ;***************************
  1458. ;    DRAW URL LINE
  1459. ;***************************
  1460. draw_url:
  1461.  
  1462. ;Draw URL focus button
  1463.     mov ebx,[urlx]
  1464.     shl ebx,16
  1465.     add ebx,[urlxsize]
  1466.     mov ecx,[urly]
  1467.     shl ecx,16
  1468.     add ecx,[urlysize]
  1469.     dec ebx
  1470.     dec ecx
  1471.     mov  eax,8
  1472.     mov  edx,2 ;button ID
  1473.     mov  esi,0x00aaaaaa  ;gradient!!!
  1474.     int  0x40
  1475.  
  1476. ;Draw URL String
  1477.     mov eax,13
  1478.     mov edx,cl_Black
  1479.     int 0x40
  1480.     add ebx,1*65536-2+1
  1481.     add ecx,1*65536-2+1
  1482.     mov edx,cl_White
  1483.     int 0x40
  1484.  
  1485. ;Draw URL Cursor
  1486.     mov eax,6
  1487.     mul [cursor]
  1488.     mov ebx,[urlx]
  1489.     add ebx,eax
  1490.     shl ebx,16
  1491.     add ebx,2*65536+1
  1492.     mov ecx,[urly]
  1493.     shl ecx,16
  1494.     add ecx,[urlysize]
  1495.     add ecx,2*65536-4
  1496.     mov eax,13
  1497.     mov edx,cl_Black
  1498.     int 0x40
  1499.  
  1500. ; OUT TEXT
  1501.     mov eax,[urlxsize]      ;calculating text leight
  1502.     sub eax,8
  1503.     mov ebx,6
  1504.     div ebx
  1505.     mov esi,eax
  1506.  
  1507.     mov  ebx,[urlx]
  1508.     shl  ebx,16
  1509.     add  ebx,[urly]
  1510.     add  ebx,3*65536+2
  1511.     mov  eax,4             ; function 4 : write text to window
  1512.     mov  ecx,0x00000000 ;[sc.grab_text] ; color of text RRGGBB
  1513.     mov  edx,path        ; pointer to text beginning
  1514.     int  0x40
  1515.  
  1516.     cmp  [flick],2
  1517.     jne  no_flick_url
  1518.     mov  [flick],0
  1519.     jmp  still
  1520. no_flick_url:
  1521.  
  1522.  
  1523. ;***************************
  1524. ;    DRAW FILE LIST
  1525. ;***************************
  1526.  
  1527. ;Draw Scroll Line
  1528.     mov eax,13
  1529.  
  1530.     mov ebx,[listx]
  1531.     add ebx,[listxsize]
  1532.     sub ebx,[scrollsize]
  1533.     shl ebx,16
  1534.     add ebx,dword [scrollsize]
  1535.     mov ecx,[listy]
  1536.     add ecx,scrollbutsize
  1537.     shl ecx,16
  1538.     add ecx,[listysize]
  1539.     sub ecx,scrollbutsize*2
  1540.     mov edx,[scrollcolor] ;0x00006600
  1541.     int 0x40
  1542.  
  1543. ;Draw Scroll Box
  1544.     mov  edx,0
  1545.     mov  eax,[listysize]
  1546.     sub  eax,2
  1547.     mov  ebx,dword 10
  1548.     div  ebx
  1549.  
  1550.     mov ebx,eax
  1551.     cmp ebx,[listsize]      ;filelistsize in ebx
  1552.     jae    notusescroll
  1553. ;usescroll
  1554. ; calculate scroll size
  1555.         mov     eax, [listysize]
  1556.         sub     eax, 2*scrollbutsize
  1557.         push    eax
  1558.         mul     ebx
  1559.         div     [listsize]
  1560.         cmp     eax, 5
  1561.         jae     @f
  1562.         mov     al, 5
  1563. @@:
  1564.         mov     [scroll_height], eax
  1565. ; calculate scroll pos
  1566.         sub     [esp], eax
  1567.         mov     eax, [listsize]
  1568.         sub     eax, ebx
  1569.         mov     ecx, eax
  1570.         cmp     eax, [filecursor]
  1571.         jb      @f
  1572.         mov     eax, [filecursor]
  1573. @@:
  1574.         mul     dword [esp]
  1575.         div     ecx
  1576.         mov     [scroll_pos], eax
  1577.         pop     ecx
  1578. ; draw
  1579.         lea     ecx, [eax+scrollbutsize]
  1580.         add     ecx, [listy]
  1581.         shl     ecx, 16
  1582.         mov     cx, word [scroll_height]
  1583.         mov     eax, 13
  1584.         mov     ebx, [listx]
  1585.         add     ebx, [listxsize]
  1586.         sub     ebx, [scrollsize]
  1587.         shl     ebx, 16
  1588.         mov     bx, word [scrollsize]
  1589.         mov     edx, [scrollboxcol]
  1590.         int     0x40
  1591. notusescroll:
  1592.  
  1593.  
  1594. ;Draw list button for get file name
  1595.     mov  ebx,[listx]
  1596.     shl  ebx,16
  1597.     add  ebx,[listxsize]
  1598.     sub  ebx,15      ;right free zone
  1599.     sub  ebx,[scrollsize]
  1600.     mov  ecx,[listy]
  1601.     shl  ecx,16
  1602.     add  ecx,[listysize]
  1603.  
  1604.     mov  eax,8
  1605.     mov  edx,4+1000000000000000000000000000000b  ;spoke butt
  1606.     int  0x40
  1607.  
  1608.     add  ebx,15
  1609.     mov  eax,13
  1610.     mov  edx,[listcolor] ;ffffff
  1611.     int  0x40
  1612.  
  1613. ;Draw up/down buttons
  1614.     mov  ebx,[listx]
  1615.     add  ebx,[listxsize]
  1616.     sub  ebx,[scrollsize]
  1617.     shl  ebx,16
  1618.     add  ebx,[scrollsize]
  1619.     mov  ecx,[listy]
  1620.     shl  ecx,16
  1621.     add  ecx,scrollbutsize-1
  1622.     mov  eax,8
  1623.     mov  edx,6+1000000000000000000000000000000b  ;spoke butt
  1624.     int  0x40
  1625.  
  1626.     inc  ecx
  1627.     mov  eax,13
  1628.     mov  edx,[scrollbutcol] ;ffffff
  1629.     int  0x40
  1630.  
  1631. ; Draw image on up button
  1632.     pushad
  1633.     shr  ebx,16
  1634.     mov  edx,ebx
  1635.     shl  edx,16
  1636.     shr  ecx,16
  1637.     add  edx,ecx
  1638.     mov  ecx,8*65536+9
  1639.     mov  ebx,upsb+8
  1640.     mov  eax,7
  1641.     int  0x40
  1642.     popad
  1643.  
  1644.  
  1645.     dec  ecx     ;correction
  1646.     mov  edx,7+1000000000000000000000000000000b  ;spoke butt
  1647.     mov  eax,[listysize]
  1648.     sub  eax,scrollbutsize
  1649.     shl  eax,16
  1650.     add  ecx,eax
  1651.  
  1652.     mov  eax,8
  1653.     int  0x40
  1654.  
  1655.     inc  ecx
  1656.     mov  eax,13
  1657.     mov  edx,[scrollbutcol] ;ffffff
  1658.     int  0x40
  1659.  
  1660. ; Draw image on down button
  1661.     pushad
  1662.     shr  ebx,16
  1663.     mov  edx,ebx
  1664.     shl  edx,16
  1665.     shr  ecx,16
  1666.     add  edx,ecx
  1667.     mov  ecx,8*65536+9
  1668.     mov  ebx,dnsb+8
  1669.     mov  eax,7
  1670.     int  0x40
  1671.     popad
  1672.  
  1673.  
  1674. ; Draw text in file list
  1675.  
  1676. ;    mov  eax,[listxsize]
  1677. ;    sub  eax,40*6  ;leight of string
  1678. ;    shr  eax,1
  1679. ;    add  eax,[listx]
  1680.         mov     eax, [listx]
  1681.         add     eax, 12+4 ; for icons
  1682.     shl  eax,16
  1683.     add  eax,[listy]
  1684.     add  eax,2
  1685.  
  1686.     mov  [filelistxy],eax ;dword 19*65536+58
  1687.  
  1688.     mov  edx,0
  1689.     mov  eax,[listysize]
  1690.     sub  eax,2
  1691.     mov  ebx,dword 10
  1692.     div  ebx
  1693.     mov  [filelistsize],eax  ;dword 40
  1694.  
  1695. ; OUT FILE DATA
  1696.     mov  eax,[filecursor]     ;calc cursor position
  1697.     mov  ebx,27
  1698.     mul  ebx
  1699.  
  1700. ;OUT TEXT
  1701.     mov  ebp,4096 ; 16             ;out strings process
  1702.     sub  ebp,[filecursor]
  1703.     mov  edx,convinfo ;fileinfo+11
  1704.     add  edx,eax
  1705.     mov  ebx,dword [filelistxy]
  1706. loo:
  1707.         cmp     dword [edx], -1
  1708.         jz      noout
  1709.     mov  ecx,0x00888888        ;for another file's color white
  1710.     cmp  [edx+15],dword 'FOL ' ;folder yellow
  1711.     jne  nb
  1712.     mov  ecx,0x00006666
  1713.     jmp cset1
  1714. nb:
  1715.         mov     eax, [edx]
  1716.         xor     edi, edi
  1717. ; find extension and set color
  1718. @@:
  1719.         inc     eax
  1720.         cmp     byte [eax-1], 0
  1721.         jz      @f
  1722.         cmp     byte [eax-1], '.'
  1723.         jnz     @b
  1724.         mov     edi, eax
  1725.         jmp     @b
  1726. @@:
  1727.         test    edi, edi
  1728.         jz      @f
  1729.         mov     edi, [edi]
  1730.         and     edi, not 0x20202020     ; toupper
  1731. @@:
  1732. ;Color set
  1733. ; text's blue
  1734.         mov     ecx, 0x00446666
  1735.         cmp     edi, 'TXT'
  1736.         jz      cset
  1737.         cmp     edi, 'INC'
  1738.         jz      cset
  1739.         cmp     edi, 'ASM'
  1740.         jz      cset
  1741.         cmp     edi, 'RTF'
  1742.         jz      cset
  1743. ; picture's pure
  1744.         mov     ecx, 0x00226688
  1745.         cmp     edi, 'BMP'
  1746.         jz      cset
  1747.         cmp     edi, 'JPG'
  1748.         jz      cset
  1749.         cmp     edi, 'JPEG'
  1750.         jz      cset
  1751.         cmp     edi, 'GIF'
  1752.         jz      cset
  1753.         cmp     edi, 'PNG'
  1754.         jz      cset
  1755.         cmp     edi, 'WAV'
  1756.         jz      cset
  1757.         cmp     edi, 'MID'
  1758.         jz      cset
  1759. ; execute's green
  1760.         mov     ecx, 0x00008866
  1761.         test    edi, edi
  1762.         jz      cset
  1763. ; for another file's color white
  1764.         mov     ecx, 0x00888888
  1765. cset:
  1766.  
  1767. cset1:
  1768.     push edx
  1769.     mov  edx,[edx]
  1770.         push    ebx edx
  1771.         mov     eax, [listxsize]
  1772.         sub     eax, [scrollsize]
  1773.         sub     eax, 12+4
  1774.         xor     edx, edx
  1775.         mov     ebx, 6
  1776.         div     ebx
  1777.         pop     edx ebx
  1778.         sub     eax, 25
  1779.         xor     esi, esi
  1780. @@:
  1781.         cmp     byte [edx+esi], 0
  1782.         jz      @f
  1783.         inc     esi
  1784.         cmp     esi, eax
  1785.         jbe     @b
  1786.         dec     esi
  1787. @@:
  1788.         push    eax
  1789.     mov  eax,4
  1790.     int  0x40
  1791.         cmp     byte [edx+esi], 0
  1792.         jz      @f
  1793.         pushad
  1794.         mov     edx, more_char
  1795.         mov     eax, esi
  1796.         imul    eax, 6*65536
  1797.         add     ebx, eax
  1798.         mov     esi, 1
  1799.         mov     eax, 4
  1800.         int     0x40
  1801.         popad
  1802. @@:
  1803.         pop     eax
  1804.     pop  edx
  1805.     push ebx edx
  1806.         inc     eax
  1807.         imul    eax, 6*65536
  1808.         add     ebx, eax
  1809.     add  edx,4
  1810.     mov  esi,23
  1811.     mov  eax,4
  1812.     int  0x40
  1813.     pop  edx ebx
  1814.  
  1815.     pushad
  1816.     cmp  [edx+15],dword 'Fvol' ;volume label
  1817.     jne  no_volico
  1818.     push hdico+8
  1819.     jmp out_ico
  1820. no_volico:
  1821.     cmp  [edx+15],dword 'FOL '
  1822.     jne  no_folico
  1823.     cmp  [edx+4],dword 'HARD'
  1824.     jne  no_hdico
  1825.     push hdico+8
  1826.     jmp out_ico
  1827. no_hdico:
  1828.     cmp  [edx+4],dword 'RAMD'
  1829.     jne  no_rdico
  1830.     push rdico+8
  1831.     jmp out_ico
  1832. no_rdico:
  1833.     cmp  [edx+4],dword 'FLOP'
  1834.     jne  no_fdico
  1835.     push rdico+8
  1836.     jmp out_ico
  1837. no_fdico:
  1838.     cmp  [edx+4],dword 'CD-R'
  1839.     jne  no_cdico
  1840.     push cdico+8
  1841.     jmp out_ico
  1842. no_cdico:
  1843.     push folico+8
  1844.     jmp out_ico
  1845. no_folico:
  1846.     cmp  edi,dword 'BMP'
  1847.     je       is_imgico
  1848.     cmp  edi,dword 'JPG'
  1849.     je       is_imgico
  1850.     cmp  edi,dword 'JPEG'
  1851.     je       is_imgico
  1852.     cmp  edi,dword 'GIF'
  1853.     je       is_imgico
  1854. ; //// Willow
  1855.     cmp  edi,dword 'PNG'
  1856.     je   is_imgico
  1857. ; //// Willow
  1858.     cmp  edi,dword 'WAV'
  1859.     je       is_imgico
  1860.     cmp  edi,dword 'MID'
  1861.     je       is_imgico
  1862.     jmp  no_imgico
  1863. is_imgico:
  1864.     push imgico+8
  1865.     jmp out_ico
  1866. no_imgico:
  1867.     cmp  edi,dword 'ASM'
  1868.     je       is_asmincico
  1869.     cmp  edi,dword 'INC'
  1870.     je       is_asmincico
  1871.     jmp  no_asmincico
  1872. is_asmincico:
  1873.     push asmincico+8
  1874.     jmp out_ico
  1875. no_asmincico:
  1876.     cmp  edi,dword 'RTF'
  1877.     je   @f
  1878.     cmp  edi,dword 'TXT'
  1879.     jne  no_txtico
  1880.  @@:
  1881.     push txtico+8
  1882.     jmp out_ico
  1883. no_txtico:
  1884.     test edi,edi
  1885.     jne  no_execico
  1886.     push execico+8
  1887.     jmp out_ico
  1888. no_execico:
  1889.     cmp  [edx+15],dword 'DAT '
  1890.     jne  no_datico
  1891.     push datico+8
  1892.     jmp out_ico
  1893. no_datico:
  1894.     cmp  [edx+15],dword 'DEL '
  1895.     jne  no_out_ico
  1896.     push delico+8
  1897.     jmp out_ico
  1898. out_ico:
  1899.  
  1900.     mov  edx,ebx
  1901.     sub  edx,14*65536+1
  1902.     mov  ecx,12*65536+9
  1903. ;    mov  ebx,upsb+8
  1904.     pop  ebx
  1905.     mov  eax,7
  1906.     int  0x40
  1907. no_out_ico:
  1908.     popad
  1909.  
  1910.  
  1911.     add  ebx,10
  1912. noout:
  1913.     add  edx,27
  1914.  
  1915.     dec  [filelistsize]
  1916.     jz       extloo
  1917.  
  1918.     dec  ebp
  1919.     jnz  loo
  1920. dext:
  1921.     mov [downstop],1
  1922.  
  1923. extloo:
  1924.  
  1925.     cmp  [browser], 1 ;it's browser
  1926.     jne  nob8
  1927.  
  1928. ;Draw text for head->file buttons
  1929.     cmp [drawhf],1
  1930.     jne  no_drawhftext
  1931.     drawfbox 8,35,(6*12)+1,11*8,0x00000000
  1932.     drawfbox 9,36,(6*12)-1,(11*8)-2,0x00ffffff
  1933.  
  1934.     mov edi,8
  1935.     mov ebx,9*65536+37
  1936.     mov ecx,cl_Black
  1937.     mov edx,file_text_label
  1938.     call drawmenu
  1939.     jmp no_drawhftext
  1940.  
  1941. file_text_label:
  1942.     db       '    Open    '
  1943.     db       '    Copy    '
  1944.     db       '    Paste   '
  1945.     db       '   Delete   '
  1946.     db       '   Tinypad  '
  1947.     db       '    Edit    '
  1948.     db       '            '
  1949.     db       '    Exit    '
  1950.  
  1951. no_drawhftext:
  1952.  
  1953. ;Draw text for head->view buttons
  1954.     cmp [drawhv],1
  1955.     jne  no_drawhvtext
  1956.     drawfbox (8+6*8),35,(6*12)+1,(11*4),0x00000000
  1957.     drawfbox (9+6*8),36,(6*12)-1,(11*4)-2,0x00ffffff
  1958.  
  1959.     mov edi,4
  1960.     mov ebx,(9+6*8)*65536+37
  1961.     mov ecx,cl_Black
  1962.     mov edx,view_text_label
  1963.     call drawmenu
  1964.     jmp no_drawhvtext
  1965.  
  1966. view_text_label:
  1967.     db       '  Name sort '
  1968.     db       '  Ext. sort '
  1969.     db       '  Size sort '
  1970.     db       '  Date sort '
  1971.  
  1972. no_drawhvtext:
  1973.  
  1974. ;Draw text for head->info buttons
  1975.     cmp [drawhi],1
  1976.     jne  no_drawhitext
  1977.     drawfbox (8+12*8),35,(6*12)+1,(11*2),0x00000000
  1978.     drawfbox (9+12*8),36,(6*12)-1,(11*2)-2,0x00ffffff
  1979.  
  1980.     mov edi,2
  1981.     mov eax,4
  1982.     mov ebx,(9+12*8)*65536+37
  1983.     mov ecx,cl_Black
  1984.     mov edx,info_text_label
  1985.     call drawmenu
  1986.     jmp no_drawhitext
  1987.  
  1988. info_text_label:
  1989.     db       '   Help     '
  1990.     db       '   About    '
  1991.  
  1992. no_drawhitext:
  1993.  
  1994. nob8:
  1995.     cmp  [flick],1
  1996.     jne  no_flick
  1997.     mov  [flick],0
  1998.     jmp  still
  1999. no_flick:
  2000.  
  2001.     mov  eax,12        ; function 12:tell os about windowdraw
  2002.     mov  ebx,2             ; 2, end of draw
  2003.     int  0x40
  2004.  
  2005.     ret
  2006.  
  2007. ;FILE LIST PARAMETRS
  2008.  
  2009. listx       dd 15
  2010. listy       dd 72
  2011. listxsize dd 350
  2012. listysize dd 41
  2013.  
  2014. filelistxy    dd 0
  2015. filelistsize  dd 0
  2016. scrollsize    dd 8
  2017. listcolor     dd 0xffffff ;0xeeeeee
  2018. scrollcolor   dd 0x778877
  2019. scrollboxcol  dd 0x335533
  2020. scrollbutcol  dd 0x224422
  2021. scrollbutsize = 9
  2022.  
  2023. ;URL LINE PARAMETRS
  2024.  
  2025. urlx     dd 10
  2026. urly     dd 20
  2027. urlxsize dd 350
  2028. urlysize dd 12
  2029.  
  2030.  
  2031. drawmenu:
  2032.     mov eax,4
  2033.     mov esi,12
  2034. menuloo:
  2035.     int 0x40
  2036.     add ebx,11
  2037.     add edx,12
  2038.     dec edi
  2039.     jnz menuloo
  2040.     ret
  2041.  
  2042. menubutton:
  2043.     mov  eax,8
  2044. nextmenubut:
  2045.     int  0x40
  2046.     add  ecx,11*65536
  2047.     inc  edx
  2048.     dec  edi
  2049.     jnz  nextmenubut
  2050.     ret
  2051.  
  2052. ;*****************************
  2053. ; READ FILE STRUCTURE PROC
  2054. ;*****************************
  2055.  
  2056. read_directory:
  2057.  
  2058. ;STEP 1 CLEAR CONVINFO
  2059.     mov  edi,convinfo
  2060.     mov  al,255
  2061.     mov  ecx,4096*27
  2062.     cld
  2063.     push edi
  2064.     rep  stosb
  2065.     pop  edi
  2066.  
  2067. ;STEP 2 TEST ON HD OR PARTITION
  2068.     cmp [path],byte '/'
  2069.     je nstep
  2070. ; copy info on RD and FD
  2071.         mov     esi, hdimg
  2072.         mov     ecx, 2*27
  2073.         rep     movsb
  2074. ; hard disks
  2075.         mov     eax, 4
  2076. .1:
  2077.         mov     ecx, 27
  2078.         cmp     dword [esi], 0
  2079.         jz      .2
  2080.         rep     movsb
  2081.         jmp     .3
  2082. .2:
  2083.         add     esi, ecx
  2084. .3:
  2085.         dec     eax
  2086.         jnz     .1
  2087.         mov     [listsize], 0
  2088.         ret
  2089. nstep:
  2090.     cmp [path+3],byte '/'
  2091.     je nstep2
  2092.     cmp [path+4],byte '/'
  2093.     je nstep2
  2094.     mov ecx,1
  2095.     cmp [path+1],word 'RD'
  2096.     jz  loxpt
  2097.     cmp [path+1],word 'CD'
  2098.     jz  loxpt
  2099.     mov ecx,2
  2100.     cmp [path+1],word 'FD'
  2101.     jz  loxpt
  2102.     cmp [path+1],dword 'HD0'
  2103.     jne nostep_HD0
  2104.     movzx ecx,byte [table_area+2]
  2105.     jmp loxpt
  2106. nostep_HD0:
  2107.     cmp [path+1],dword 'HD1'
  2108.     jne nostep_HD1
  2109.     movzx ecx,byte [table_area+3]
  2110.     jmp loxpt
  2111. nostep_HD1:
  2112.     cmp [path+1],dword 'HD2'
  2113.     jne nostep_HD2
  2114.     movzx ecx,byte [table_area+4]
  2115.     jmp loxpt
  2116. nostep_HD2:
  2117.     cmp [path+1],dword 'HD3'
  2118.     jne nostep_HD3
  2119.     movzx ecx,byte [table_area+5]
  2120.     jmp loxpt
  2121. nostep_HD3:
  2122.  
  2123.     mov ecx,2
  2124.  
  2125. loxpt:
  2126.         cmp     ecx, 20
  2127.         jbe     @f
  2128.         mov     ecx, 20
  2129. @@:
  2130.         mov     eax, a1
  2131.         mov     esi, ptimg
  2132. @@:
  2133.         stosd
  2134.         add     eax, 3
  2135.         push    ecx esi
  2136.         mov     ecx, 23
  2137.         rep     movsb
  2138.         pop     esi ecx
  2139.         loop    @b
  2140.     mov [listsize],0
  2141.     ret
  2142. nstep2:
  2143.  
  2144. ;STEP 3 was deleted
  2145.  
  2146. ;STEP 4 READ DATA FROM HD
  2147.  
  2148. loorhd:
  2149.     mov  eax,70
  2150.     mov  ebx,fileinfoblock
  2151.     int  0x40
  2152.  
  2153.     cmp eax,6
  2154.     je      end_of_dir
  2155.  
  2156. ;  It's erorr's test is poor code
  2157.  
  2158.     cmp eax,1
  2159.     jne no_inv_part
  2160.     glabel 10,10,'Invalid partition or hd base',cl_Red+font_Big
  2161.     jmp end_of_dir
  2162. no_inv_part:
  2163.     cmp eax,3
  2164.     jne no_unk_fs
  2165.     glabel 10,10,'Unknown file system',cl_Red+font_Big
  2166.     jmp end_of_dir
  2167. no_unk_fs:
  2168.  
  2169. end_of_dir:
  2170. ; -1 -> 0
  2171.         cmp     ebx, -1
  2172.         sbb     ebx, -1
  2173.     mov  [dirlen],ebx
  2174.  
  2175.     ; command successful
  2176.  
  2177.         mov     esi, outinfo+32
  2178.         and     [listsize], 0
  2179.         test    ebx, ebx
  2180.         jz      nofiles
  2181.  
  2182.   newlineb:
  2183.         push    ebx
  2184.  
  2185.         mov     edi, fileinfo
  2186.         push    edi
  2187.         mov     al, ' '
  2188.         mov     ecx, 27
  2189.         rep     stosb
  2190.         pop     edi
  2191.         push    esi
  2192.         add     esi, 40
  2193.         mov     [edi], esi
  2194.         pop     esi
  2195.  
  2196.         mov     eax, 'DAT '     ; data or ... ?
  2197.         mov     cl, [esi]
  2198.         test    cl, 0x10
  2199.         jz      @f
  2200.         mov     eax, 'FOL '
  2201.         mov     [edi+15], eax
  2202.         jmp     nosize
  2203. @@:
  2204.         test    cl, 8
  2205.         jz      novol
  2206.         mov     eax, 'Fvol'
  2207.         mov     [edi+15], eax
  2208.         jmp     nosize
  2209. novol:
  2210.         mov     [edi+15], eax
  2211.  
  2212. ; size
  2213.         mov     eax, [esi+32]
  2214.         push    esi
  2215.         lea     esi, [edi+26]
  2216.         mov     ebx, 10
  2217.         mov     ecx, 8
  2218. newnum:
  2219.         xor     edx, edx
  2220.         div     ebx
  2221.         add     dl, '0'
  2222.         mov     [esi], dl
  2223.         test    eax, eax
  2224.         jz      zernum
  2225.         dec     esi
  2226.         loop    newnum
  2227. zernum:
  2228.         pop     esi
  2229. nosize:
  2230.  
  2231. ; date
  2232.         mov     dword [edi+6], '.  .'
  2233. ; year
  2234.         movzx   eax, word [esi+28+2]
  2235.         mov     ecx, 4
  2236. newdel1:
  2237.         xor     edx, edx
  2238.         mov     ebx, 10
  2239.         div     ebx
  2240.         add     edx, '0'
  2241.         mov     [edi+ecx+9], dl
  2242.         loop    newdel1
  2243. ; month
  2244.         movzx   eax, byte [esi+28+1]
  2245.         xor     edx, edx
  2246.         div     ebx
  2247.         add     al, '0'
  2248.         add     dl, '0'
  2249.         mov     [edi+7], al
  2250.         mov     [edi+8], dl
  2251. ; day
  2252.         movzx   eax, byte [esi+28]
  2253.         xor     edx, edx
  2254.         div     ebx
  2255.         add     al, '0'
  2256.         add     dl, '0'
  2257.         mov     [edi+4], al
  2258.         mov     [edi+5], dl
  2259.  
  2260. ;STEP 5 Test on WRITE OR NOTWRITE
  2261.         cmp     word [esi+40], '.'
  2262.         jz      nextfl
  2263.         cmp     word [esi+40], '..'
  2264.         jnz     @f
  2265.         cmp     byte [esi+42], 0
  2266.         jz      nextfl
  2267. @@:
  2268.  
  2269. ; STEP 6 SORT ALGORYTHM
  2270.  
  2271.         push    esi
  2272.         xor     esi, esi
  2273.  
  2274. ; At first Fold after Dat
  2275.  
  2276. ftestname:
  2277.         cmp     dword [convinfo+esi], -1
  2278.         jz      writefile
  2279.     cmp byte [fileinfo+15],'F'
  2280.     je      F
  2281.     cmp byte [fileinfo+15],'D'
  2282.     jne add_element
  2283. D:  cmp byte [convinfo+esi+15],'D'
  2284.     je      add_element
  2285.     cmp byte [convinfo+esi+15],'F'
  2286.     je      skipfile
  2287.     jmp add_element
  2288. F:  cmp byte [convinfo+esi+15],'D'
  2289.     je writenow
  2290. ;    cmp byte [convinfo+esi+15],'F'
  2291. ;    je  add_element
  2292. ;    jmp add_element
  2293.  
  2294. add_element:
  2295. ; compare items
  2296.         movzx   eax, [viewmode]
  2297.         call    [compare+eax*4]
  2298.         jb      writenow
  2299. skipfile:
  2300.     add esi,27
  2301.     jmp ftestname
  2302.  
  2303. writenow:
  2304.     mov ecx,4096*27-1
  2305.     sub ecx,esi
  2306. ldloop:
  2307.     mov al,[convinfo+ecx+esi]
  2308.     mov [convinfo+ecx+esi+27],al
  2309.     dec ecx
  2310.     jns ldloop
  2311.  
  2312. writefile:
  2313.     mov ecx,26
  2314. wfloop:
  2315.     mov al,[fileinfo+ecx]
  2316.     mov [convinfo+ecx+esi],al
  2317.     dec ecx
  2318.     jns wfloop
  2319.         inc     [listsize]
  2320.         pop     esi
  2321.  
  2322. nextfl:
  2323.         add     esi, 304
  2324.         pop     ebx
  2325.         dec     ebx
  2326.         jnz     newlineb
  2327.  
  2328. nofiles:
  2329.         ret
  2330.  
  2331. toupper:
  2332.         cmp     al, 'a'
  2333.         jb      .ret
  2334.         cmp     al, 'z'
  2335.         ja      @f
  2336. .sub20:
  2337.         sub     al, 0x20
  2338. .ret:
  2339.         ret
  2340. @@:
  2341.         cmp     al, 0xA0
  2342.         jb      .ret
  2343.         cmp     al, 0xB0
  2344.         jb      .sub20
  2345.         cmp     al, 0xE0
  2346.         jb      .ret
  2347.         cmp     al, 0xF0
  2348.         jae     @f
  2349.         sub     al, 0xE0-0x90
  2350.         ret
  2351. @@:
  2352.         cmp     al, 0xF1
  2353.         jnz     .ret
  2354.         dec     eax
  2355.         ret
  2356.  
  2357. compare_date:
  2358.         pushad
  2359.         mov     al, [fileinfo+10]
  2360.         cmp     al, [convinfo+esi+10]
  2361.         jnz     .ret
  2362.         mov     al, [fileinfo+11]
  2363.         cmp     al, [convinfo+esi+11]
  2364.         jnz     .ret
  2365.         mov     al, [fileinfo+12]
  2366.         cmp     al, [convinfo+esi+12]
  2367.         jnz     .ret
  2368.         mov     al, [fileinfo+13]
  2369.         cmp     al, [convinfo+esi+13]
  2370.         jnz     .ret
  2371.         mov     al, [fileinfo+7]
  2372.         cmp     al, [convinfo+esi+7]
  2373.         jnz     .ret
  2374.         mov     al, [fileinfo+8]
  2375.         cmp     al, [convinfo+esi+8]
  2376.         jnz     .ret
  2377.         mov     al, [fileinfo+4]
  2378.         cmp     al, [convinfo+esi+4]
  2379.         jnz     .ret
  2380.         mov     al, [fileinfo+5]
  2381.         cmp     al, [convinfo+esi+5]
  2382.         jz      compare_name.1
  2383. .ret:
  2384.         popad
  2385.         ret
  2386. compare_name:
  2387.         pushad
  2388. .1:
  2389.         mov     edi, dword [convinfo+esi]
  2390.         mov     esi, dword [fileinfo]
  2391.         call    strcmpi
  2392.         popad
  2393.         ret
  2394. compare_ext:
  2395.         pushad
  2396.         mov     esi, dword [convinfo+esi]
  2397.         mov     edi, dword [fileinfo]
  2398.         call    find_ext
  2399.         xchg    esi, edi
  2400.         call    find_ext
  2401.         call    strcmpi
  2402.         popad
  2403.         jz      compare_name
  2404.         ret
  2405. compare_size:
  2406.         pushad
  2407.         lea     edi, [convinfo+esi+19]
  2408.         lea     esi, [fileinfo+19]
  2409.         mov     ecx, 8
  2410.         repz    cmpsb
  2411.         popad
  2412.         jz      compare_name
  2413.         ret
  2414.  
  2415. strcmpi:
  2416.         lodsb
  2417.         call    toupper
  2418.         push    eax
  2419.         mov     al, [edi]
  2420.         inc     edi
  2421.         call    toupper
  2422.         cmp     [esp], al
  2423.         pop     eax
  2424.         jnz     @f
  2425.         test    al, al
  2426.         jnz     strcmpi
  2427. @@:
  2428.         ret
  2429.  
  2430. find_ext:
  2431.         lodsb
  2432.         test    al, al
  2433.         jz      .noext
  2434.         cmp     al, '.'
  2435.         jnz     find_ext
  2436.         ret
  2437. .noext:
  2438.         dec     esi
  2439.         ret
  2440.  
  2441. ;******************************************************************************
  2442.  
  2443. ; DATA AREA
  2444. pmenu_draw dd 0  ;if poup menu is draw,update all window
  2445. flick        dd 0  ;anti flick on ?
  2446. drawhf         dd 0  ;draw file menu?
  2447. drawhv         dd 0  ;draw view menu?
  2448. drawhi         dd 0  ;draw info menu?
  2449. cursor         dd 0  ;cursor in prompt line
  2450. focus        dd 0  ;prompt edit or window?
  2451. downstop   dd 0
  2452. filecursor dd 0
  2453. mousex         dd 0
  2454. mousey         dd 0
  2455. blocksread dd 0
  2456. listsize   dd 0  ;num of files in directory
  2457. temp       dd 0
  2458. readblock  dd 1
  2459. dlg_type   db 0 ;S-save O-open
  2460. browser    db 0  ;0-dialog, 1-browser
  2461. viewmode   db 0  ;folder sort
  2462.  
  2463. compare dd      compare_name
  2464.         dd      compare_ext
  2465.         dd      compare_size
  2466.         dd      compare_date
  2467.  
  2468. aRD     db      'RD',0
  2469. aFD     db      'FD',0
  2470. aHD0    db      'HD0',0
  2471. aHD1    db      'HD1',0
  2472. aHD2    db      'HD2',0
  2473. aHD3    db      'HD3',0
  2474. aCD0    db      'CD0',0
  2475. aCD1    db      'CD1',0
  2476. aCD2    db      'CD2',0
  2477. aCD3    db      'CD3',0
  2478. a1      db      '1',0,0
  2479. a2      db      '2',0,0
  2480. a3      db      '3',0,0
  2481. a4      db      '4',0,0
  2482. a5      db      '5',0,0
  2483. a6      db      '6',0,0
  2484. a7      db      '7',0,0
  2485. a8      db      '8',0,0
  2486. a9      db      '9',0,0
  2487. a10     db      '10',0
  2488. a11     db      '11',0
  2489. a12     db      '12',0
  2490. a13     db      '13',0
  2491. a14     db      '14',0
  2492. a15     db      '15',0
  2493. a16     db      '16',0
  2494. a17     db      '17',0
  2495. a18     db      '18',0
  2496. a19     db      '19',0
  2497. a20     db      '20',0
  2498.  
  2499. hdimg:
  2500.         dd      aRD
  2501.         db      'RAMDISK    FOL         '
  2502.         dd      aFD
  2503.         db      'FLOPPYDISK FOL         '
  2504. hdimg1  dd      0
  2505.         db      'HARDDISK   FOL         '
  2506. hdimg2  dd      0
  2507.         db      'HARDDISK   FOL         '
  2508. hdimg3  dd      0
  2509.         db      'HARDDISK   FOL         '
  2510. hdimg4  dd      0
  2511.         db      'HARDDISK   FOL         '
  2512. ptimg   db      'PARTITION  FOL         '
  2513.  
  2514. modetext:
  2515.       ;0123456789012345
  2516.    db 'SORT BY NAME   0'
  2517.    db 'SORT BY EXT.   1'
  2518.    db 'SORT BY SIZE   2' ;type sort
  2519.    db 'SORT BY DATE   3'
  2520.    db 'DEL SORT NAME  4'
  2521.    db 'DEL SORT EXT.  5'
  2522.    db 'DEL SORT SIZE  6' ;type sort
  2523.    db 'DEL SORT DATE  7'
  2524.  
  2525. dirlen        dd     0x1
  2526. b_color   dd   0x6677cc
  2527.  
  2528. ; //// Willow
  2529. ;MRUfile:
  2530. ;   dd 0x0
  2531. ;   dd 0x0
  2532. ;   dd 0x1
  2533. ;   dd path
  2534. ;   dd tempzone
  2535. ;   db '/RD/1/MRU.LST',0
  2536. ; //// Willow
  2537.  
  2538. ;Name of programs
  2539. editor        db '/RD/1/TINYPAD',0
  2540. bmpview   db '/RD/1/MV',0
  2541. jpgview   db '/RD/1/JPEGVIEW',0
  2542. gifview   db '/RD/1/GIFVIEW',0
  2543. ac97wav   db '/RD/1/AC97WAV',0
  2544. rtfread   db '/RD/1/RTFREAD',0
  2545. ; //// Willow
  2546. pngview   db '/RD/1/@RCHER',0
  2547. ; //// Willow
  2548. midamp    db '/RD/1/MIDAMP',0
  2549.  
  2550. more_char db 10h
  2551.  
  2552. fileinfo_start:
  2553.         dd      7
  2554.         dd      0
  2555. fileinfo_params:
  2556.         dd      0
  2557.         dd      0
  2558.         dd      0
  2559.         db      0
  2560. fileinfo_name:
  2561.         dd      0
  2562.  
  2563. clipfile_info:
  2564.         dd      ?
  2565.         dd      0
  2566.         dd      0
  2567.         dd      ?
  2568.         dd      paramtest
  2569.         db      '/RD/1/CLIPFILE.TXT',0
  2570. copyr_run:
  2571.         dd      7
  2572.         dd      0
  2573.         dd      copyr_param
  2574.         dd      0
  2575.         dd      0
  2576.         db      '/RD/1/COPYR',0
  2577.  
  2578. fileinfoblock:
  2579.    dd 0x1    ; read folder
  2580.    dd 0x0    ; first block
  2581.    dd 0x0    ; flags (ANSI names)
  2582.    dd 4095   ; number of blocks to read
  2583.    dd outinfo     ; ret offset
  2584. path:
  2585. times 1024 db 0     ;path
  2586.  
  2587. table_area:
  2588. rb 10
  2589.  
  2590. ;rb 256
  2591. but_file:
  2592. file 'systr12.GIF'
  2593.  
  2594. I_END:
  2595.  
  2596. scroll_height dd ?
  2597. scroll_pos dd ?
  2598.  
  2599. butimg:
  2600. rb 400*16*3+8     ;buttons (left pice of picture)
  2601. logoimg:
  2602. rb 70*16*3+8    ;logo (right pice of picture)
  2603. logoinfimg:
  2604. rb 60*60*3+8    ;logoinfo (right pice of picture)
  2605. upsb:
  2606. rb 8*9*3+8    ;up scroll button
  2607. dnsb:
  2608. rb 8*9*3+8    ;down scroll button
  2609.  
  2610. ;ICONS RESERVE AREA
  2611. hdico:
  2612. rb 12*9*3+8
  2613. rdico:
  2614. rb 12*9*3+8
  2615. folico:
  2616. rb 12*9*3+8
  2617. datico:
  2618. rb 12*9*3+8
  2619. delico:
  2620. rb 12*9*3+8
  2621. imgico:
  2622. rb 12*9*3+8
  2623. txtico:
  2624. rb 12*9*3+8
  2625. asmincico:
  2626. rb 12*9*3+8
  2627. execico:
  2628. rb 12*9*3+8
  2629. cdico:
  2630. rb 12*9*3+8
  2631.  
  2632. tempimg:    ;reserve ram for images
  2633. rb 400*100*3+8       ;for picture
  2634. rb 8000
  2635.  
  2636. gif_hash:
  2637. rd 4096
  2638.  
  2639. MYPID:
  2640. rd 8
  2641.  
  2642. param_area:
  2643. rb 256
  2644. paramtest:
  2645. rb 1024
  2646. filedir:
  2647. rb 1024
  2648.  
  2649. procinfo process_information
  2650. sc system_colors
  2651.  
  2652. fileinfo:
  2653. rb 200 ;4096*62+1024
  2654.  
  2655. copyr_param     rb      256
  2656.  
  2657. outinfo:
  2658. rb 32+4096*304
  2659.  
  2660. convinfo:
  2661. rb 4096*27
  2662. ; stack
  2663.         align 4
  2664.         rb      1024
  2665. RAM_END:
  2666.