Subversion Repositories Kolibri OS

Rev

Rev 8236 | Rev 9568 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;--------------------------------------------------------------------
  2. ; v.016 30.07.2011
  3. ; Start with open file path
  4. ; Show working file path
  5. ; Some optimization
  6. ;
  7. ; Marat Zakiyanov aka Mario79, aka Mario
  8. ;--------------------------------------------------------------------
  9. ; v.015 08.03.2010
  10. ; Support for OpenDialog - Open and Save
  11. ; Some optimization
  12. ;
  13. ; Marat Zakiyanov aka Mario79, aka Mario
  14. ;--------------------------------------------------------------------
  15. ; v.014 05.02.2010
  16. ;
  17. ; PageUp, PageDown      - áâà ­¨æ  ¢¢¥àå/¢­¨§
  18. ; Ctrl+UP, Ctrl+Down    - ¯à®ªàã⪠ áâà ­¨æë ­  áâப㠢¢¥àå/¢­¨§ ¡¥§ ᬥ饭¨ï ªãàá®à 
  19. ; Home,End              - ¢ ­ ç «®/ª®­¥æ áâப¨
  20. ; Ctrl+Home, Ctrl+End   - ª ¯¥à¢®¬ã/¯®á«¥¤­¥¬ã ¡ ©âã ä ©« 
  21. ; Left, Right           - ªãàá®à ¢«¥¢®/¢¯à ¢®
  22. ; Ctrl+O                - ®âªàëâì ä ©«
  23. ; Ctrl+S                - á®åà ­¨âì
  24. ; Ctrl+F                - ¯®¨áª (+Tab ¤«ï OptionBox)
  25. ; Ctrl+G                - ¯¥à¥å®¤ ­  ᬥ饭¨¥ (+Tab ¤«ï OptionBox)
  26. ; Ctrl+B                - ¢ë¤¥«¨âì ¡«®ª
  27. ; ESC                   - á­ïâì ¢ë¤¥«¥­¨¥
  28. ; Ctrl+C                - ª®¯¨à®¢ âì ¡«®ª
  29. ; Ctrl+V                - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥­­ãî ®¡« áâì
  30. ; Ctrl+X                - ¢ë१ âì ¢ë¤¥«¥­­ãî ®¡« áâì (¢ ¡ãä¥à)
  31. ; n                     - ¨­¢¥àâ¨à®¢ âì ¡ ©â ¯®¤ ªãàá®à®¬
  32. ; Ins                   - ०¨¬ § ¬¥­ë/¢áâ ¢ª¨ (¯® 㬮«ç ­¨î)
  33. ;   Del                 - ¢ ०¨¬¥ ¢áâ ¢ª¨ - 㤠«¨âì ¡ ©â ¯®¤ ªãàá®à®¬
  34. ;   BackSpace           - ¢ ०¨¬¥ ¢áâ ¢ª¨ - 㤠«¨âì ¡ ©â ¯¥à¥¤ ªãàá®à®¬
  35. ; ~                     - ᬥ­  ª®¤¨à®¢ª¨ (cp866,cp1251)
  36. ; Shift+~               - ᬥ­  ª®¤¨à®¢ª¨ (cp866 ¨«¨ cp1251,koi8-r)
  37.  
  38. ;  ¬ïâì ¯¥à¥à á¯à¥¤¥«ï¥âáï ­  㢥«¨ç¥­¨¥ i umen'shenie.
  39. ; ” ©« § £à㦠¥âáï 楫¨ª®¬.
  40.  
  41. ; Œ ªà®áë load_lib.mac ¨ ¡¨¡«¨®â¥ªã box_lib.obj ᮧ¤ «¨:
  42. ; <Lrz> - Alexey Teplov / €«¥ªá¥© ’¥¯«®¢
  43. ; Mario79, Mario - Marat Zakiyanov / Œ à â ‡ ª¨ï­®¢
  44. ; Diamondz - Evgeny Grechnikov / …¢£¥­¨© ƒà¥ç­¨ª®¢ ¨ ¤à.
  45. ;
  46. ; staper@inbox.ru
  47. ; babalbes@yandex.ru
  48. ;--------------------------------------------------------------------
  49. use32
  50.         org     0
  51.         db      'MENUET01'
  52.         dd      1
  53.         dd      START   ;program start
  54.         dd      I_END   ;program image  size
  55.         dd      (D_END+0x600) and not 3 ;required amount of memory
  56.         dd      (D_END+0x600) and not 3 ;stack
  57.         dd      fname_buf
  58.         dd      cur_dir_path
  59. ;--------------------------------------------------------------------
  60. _title  equ 'HeEd 0.16', 0
  61.  
  62. include 'lang.inc'
  63. include '../../../KOSfuncs.inc'
  64. include '../../../config.inc'           ;for nightbuild
  65. include '../../../macros.inc'
  66. include '../../libraries/box_lib/trunk/box_lib.mac'
  67. include '../../../load_lib.mac'
  68.  
  69. @use_library
  70. ;--------------------------------------------------------------------
  71. times   16      dd      0
  72.  
  73. frgrd_color     equ     0xfefefe
  74. bkgrd_color     equ     0x000000
  75. kursred_color   equ     0x0039ff
  76. kurstxt_color   equ     0x708090
  77. text_color      equ     0xaaaaaa
  78.  
  79. panel_clr1      equ     0xe9e9e2
  80. panel_clr2      equ     0x8b8b89
  81. panel_clr3      equ     0x777777;eaeae3
  82. ;--------------------------------------------------------------------
  83. palitra:
  84. .1      dd      frgrd_color,bkgrd_color ;梥⠭¥¢ë¤¥«¥­­®£® ᨬ¢®« 
  85. .2      dd      frgrd_color,text_color  ;«¥¢ë©,¯à ¢ë© á⮫¡æë,ç áâì ­¨¦­¥© áâப¨
  86. .3      dd      kursred_color,frgrd_color       ;ªãàá®à 
  87. .4      dd      kurstxt_color,bkgrd_color       ;ªãàá®à  ¢ ⥪á⮢®© ®¡« áâ¨
  88. .5      dd      panel_clr1,not  text_color      ;­¨¦­ïï ¯ ­¥«ì
  89. ;--------------------------------------------------------------------
  90. FIRST_HEX equ 0*65536+24
  91. scroll_width_size equ 15
  92. ;--------------------------------------------------------------------
  93. struct  f70
  94.         Function        rd 1
  95.         Position        rd 1
  96.         Flags   rd 1
  97.         Count   rd 1
  98.         Buffer  rd 1
  99.         rezerv  rb 1
  100.         FileName        rd 1
  101. ends
  102. ;--------------------------------------------------------------------
  103. START:
  104.         mcall   SF_SYS_MISC,SSF_HEAP_INIT
  105.  
  106. load_libraries l_libs_start,end_l_libs
  107. ;--------------------------------------------------------------------
  108. ;OpenDialog     initialisation
  109.         push    dword OpenDialog_data
  110.         call    [OpenDialog_Init]
  111. ;--------------------------------------------------------------------  
  112.         mov     esi,fname_buf
  113.         cmp     [esi],byte 0
  114.         je      .start_temp_file_name
  115.        
  116.         cld
  117. @@:
  118.         lodsb
  119.         test    al,al
  120.         jne     @b
  121.        
  122.         std
  123. @@:
  124.         lodsb
  125.         cmp     al,'/' 
  126.         jne     @b
  127.         add     esi,2
  128.         jmp     .selected_start_file_name
  129. ;--------------------------------------------------------------------  
  130. .start_temp_file_name:
  131.         mov     esi,start_temp_file_name
  132. .selected_start_file_name:
  133.         mov     edi,filename_area
  134.         xor     eax,eax
  135.         cld
  136. @@:
  137.         lodsb
  138.         stosb
  139.         test    eax,eax
  140.         jnz     @b
  141.  
  142.         mcall   SF_SET_EVENTS_MASK,0x27
  143.  
  144.         mcall   SF_SYS_MISC,SSF_MEM_ALLOC,32*1024       ;áâà ­¨ç­ë© ¡ãä¥à
  145.         mov     [screen_table],eax
  146.         mcall   SF_SYS_MISC,SSF_MEM_ALLOC,4*1024
  147.  
  148.         mov     [file_buffer],eax
  149.  
  150.         mcall   SF_SYS_MISC,SSF_MEM_ALLOC,1024
  151.         mov     [copy_buf],eax
  152.  
  153.  
  154.         ;à §¬¥à ⥪ã饣® ¯ãâ¨
  155.         mov     esi,cur_dir_path
  156. @@:
  157.         cmp     byte [esi],0
  158.         je      @f
  159.         inc     esi
  160.         jmp     @b
  161. ;-------------------------------------
  162. @@:
  163.         sub     esi,cur_dir_path
  164.         mov     [edit1.pos],esi
  165.         mov     [edit1.size],esi
  166.  
  167.         ;®¡é¥á¨á⥬­ë¥ ª« ¢¨è¨ ¤«ï Shift+ªãàá®àë
  168. ;       mcall   SF_KEYBOARD,SSF_SET_SYS_HOTKEY,75,1
  169. ;       mcall   SF_KEYBOARD,,77
  170. ;       mcall   SF_KEYBOARD,,72
  171. ;       mcall   SF_KEYBOARD,,80
  172.  
  173.         call    ready_screen_buffer
  174. ;       jmp     open_file
  175.         mcall   SF_THREAD_INFO,procinfo,-1
  176.         mov     ecx,[ebx+30]    ; PID
  177.         mcall   SF_SYSTEM,SSF_GET_THREAD_SLOT
  178.         mov     [active_process],eax    ; WINDOW SLOT
  179. ;--------------------------------------------------------------------
  180. ; open the file if program has a file path, when it was launched
  181.         cmp     [fname_buf],byte 0
  182.         jne     open_dialog.start
  183. ;--------------------------------------------------------------------
  184. redraw_all:
  185.         call    control_minimal_window_size
  186.         call    draw_window_1
  187. still:
  188.         mcall   SF_WAIT_EVENT
  189.  
  190.         cmp     eax,6
  191.         je      mouse
  192.         dec     al
  193.         jz      redraw_all
  194.         dec     al
  195.         jz      key
  196.         dec     al
  197.         jz      button
  198.         jmp     still
  199. ;---------------------------------------------------------------------
  200. control_minimal_window_size:
  201.         pusha
  202.         mcall   SF_THREAD_INFO,procinfo,-1
  203.         mov     eax,[ebx+70]
  204.         test    eax,10b
  205.         jnz     .end
  206.         test    eax,100b
  207.         jnz     .end
  208.         test    eax,1b
  209.         jnz     .end
  210.         mov     esi,-1
  211.         mov     eax,procinfo
  212.         mov     eax,[eax+46]
  213.         cmp     eax,299
  214.         jae     @f
  215.         mov     esi,299
  216.         mcall   SF_CHANGE_WINDOW,-1,ebx,ebx
  217. @@:
  218.         mov     edx,-1
  219.         mov     eax,procinfo
  220.         mov     eax,[eax+42]
  221.         cmp     eax,399
  222.         jae     @f
  223.         mov     edx,399
  224.         mcall   SF_CHANGE_WINDOW,-1,ebx,,ebx
  225. @@:
  226. .end:
  227.         popa
  228.         ret
  229. ;---------------------------------------------------------------------
  230. red:
  231.         call    ready_screen_buffer
  232.         call    main_area
  233.         jmp     still
  234. ;---------------------------------------------------------------------
  235. draw_window_1:
  236.         call    start_draw
  237.         call    draw_window
  238.  
  239.         mov     eax,[threath_buf+70]
  240.         test    eax,10b
  241.         jnz     .end
  242.         test    eax,100b
  243.         jnz     .end
  244.  
  245.         call    show_file_size
  246.         call    show_codepage
  247.         call    show_insert
  248.         call    ready_screen_buffer
  249.         call    main_area
  250. .end:
  251.         ret
  252. ;---------------------------------------------------------------------
  253. key:
  254.         mcall   SF_GET_KEY
  255.         dec     al
  256.         jz      still
  257.         dec     al
  258.         jz      key.syst
  259.         cmp     ah,2
  260.         je      Ctrl_B  ;¢ë¤¥«¨âì ¡«®ª
  261.         cmp     ah,3
  262.         je      Ctrl_C  ;copy
  263.         cmp     ah,6
  264.         je      Ctrl_F  ;find
  265.         cmp     ah,7
  266.         je      Ctrl_G  ;go to
  267.         cmp     ah,8
  268.         je      BackSpace
  269.         cmp     ah,15
  270.         je      open_dialog ;open_file ;Ctrl+O
  271.         cmp     ah,19
  272.         je      open_dialog_save ;save_file ;Ctrl+S
  273.         cmp     ah,22
  274.         je      Ctrl_V  ;paste
  275.         cmp     ah,24
  276.         je      Ctrl_X  ;cut
  277.         cmp     ah,27
  278.         je      ESC
  279.         cmp     ah,48
  280.         jb      still
  281.         cmp     ah,57
  282.         jbe     input_from_keyboard     ;0-9
  283.         cmp     ah,65
  284.         jb      still
  285.         cmp     ah,70
  286.         jbe     input_from_keyboard     ;A-F
  287.         cmp     ah,81
  288.         jne     @f
  289.         call    Ctrl_DOWN
  290.         jmp     red
  291. ;--------------------------------------
  292. @@:
  293.         cmp     ah,82
  294.         jne     @f
  295.         call    Ctrl_UP
  296.         jmp     red
  297. ;--------------------------------------
  298. @@:
  299.         cmp     ah,84
  300.         jne     @f
  301.         call    Ctrl_HOME
  302.         jmp     red
  303. ;--------------------------------------
  304. @@:
  305.         cmp     ah,85
  306.         je      Ctrl_END
  307.         cmp     ah,96
  308.         je      change_codepage ;⨫줠, cp866 - cp1251
  309.         cmp     ah,97
  310.         jb      still
  311.         cmp     ah,102
  312.         jbe     input_from_keyboard ;a-f
  313.         cmp     ah,126
  314.         jne     @f
  315.         xor     ah,ah
  316.         jmp     change_codepage ;Shift+~, koi8-r
  317. ;--------------------------------------
  318. @@:
  319.         cmp     ah,110
  320.         je      invert_byte ;n
  321.         cmp     ah,176
  322.         jne     @f
  323.         call    LEFT
  324.         jmp     red
  325. ;--------------------------------------
  326. @@:
  327.         cmp     ah,177
  328.         jne     @f
  329.         call    DOWN
  330.         jmp     red
  331. ;--------------------------------------
  332. @@:
  333.         cmp     ah,178
  334.         je      UP
  335.         cmp     ah,179
  336.         je      RIGHT
  337.         cmp     ah,180
  338.         jne     @f
  339.         call    HOME
  340.         jmp     red
  341. ;--------------------------------------
  342. @@:
  343.         cmp     ah,181
  344.         je      END_
  345.         cmp     ah,182
  346.         je      DEL
  347.         cmp     ah,183
  348.         je      PGDN
  349.         cmp     ah,184
  350.         je      PGUP
  351.         cmp     ah,185
  352.         je      Insert
  353.         jmp     still
  354. ;--------------------------------------
  355. .syst:
  356.         cmp     ah,72
  357.         cmp     ah,75
  358.         cmp     ah,77
  359.         cmp     ah,80
  360.         jmp     still
  361. ;--------------------------------------------------------------------
  362. button:
  363.         mcall   SF_GET_BUTTON
  364.         dec     ah
  365.         jnz     still
  366.  
  367.         jmp     close_prog
  368. ;--------------------------------------------------------------------
  369. align   4
  370. mouse:
  371.         mcall   SF_SYSTEM,SSF_GET_ACTIVE_WINDOW
  372.         cmp     [active_process],eax
  373.         jne     still
  374.  
  375.         mcall   SF_MOUSE_GET,SSF_SCROLL_DATA
  376.         test    eax,eax
  377.         jz      .menu_bar_1;.mouse
  378.         bt      eax,15
  379.         jc      @f      ;®¡à ¡®âª  ª®«ñᨪ  ¬ëè¨
  380.         mov     ecx,eax
  381.         shl     ecx,2
  382. .1:
  383.         call    Ctrl_DOWN
  384.         loop    .1
  385.         jmp     red
  386. ;--------------------------------------
  387. @@:
  388.         xor     ecx,ecx
  389.         sub     cx,ax
  390.         shl     cx,2
  391. .2:
  392.         call    Ctrl_UP
  393.         loop    .2
  394.         jmp     red
  395. ;--------------------------------------------------------------------
  396. .menu_bar_1:
  397.         call    .set_mouse_flag
  398. @@:
  399.         push    dword menu_data_1       ;mouse event for Menu 1
  400.         call    [menu_bar_mouse]
  401.         cmp     [menu_data_1.click],dword 1
  402.         jne     .menu_bar_2
  403.         cmp     [menu_data_1.cursor_out],dword 0
  404.         jne     .analyse_out_menu_1
  405.         jmp     .menu_bar_1
  406. ;--------------------------------------------------------------------
  407. .menu_bar_2:
  408.         push    dword menu_data_2
  409.         call    [menu_bar_mouse]
  410.         cmp     [menu_data_2.click],dword 1
  411.         jne     .menu_bar_3
  412.         cmp     [menu_data_2.cursor_out],dword 0
  413.         jne     .analyse_out_menu_2
  414.         jmp     .menu_bar_1
  415. ;--------------------------------------------------------------------
  416. .menu_bar_3:
  417.         push    dword menu_data_3
  418.         call    [menu_bar_mouse]
  419.         cmp     [menu_data_3.click],dword 1
  420.         jne     .scroll_bar
  421.         cmp     [menu_data_3.cursor_out],dword 0
  422.         jne     .analyse_out_menu_3
  423.         jmp     .menu_bar_1
  424. ;--------------------------------------------------------------------
  425. .set_mouse_flag:
  426.         xor     eax,eax
  427.         inc     eax
  428.         mov     [menu_data_1.get_mouse_flag],eax
  429.         mov     [menu_data_2.get_mouse_flag],eax
  430.         mov     [menu_data_3.get_mouse_flag],eax
  431.         ret
  432. ;--------------------------------------------------------------------
  433. .analyse_out_menu_1:
  434.         cmp     [menu_data_1.cursor_out],dword 1
  435.         je      open_dialog
  436.         cmp     [menu_data_1.cursor_out],dword 2
  437.         je      open_dialog_save        ;save_file
  438.         cmp     [menu_data_1.cursor_out],dword 3
  439.         je      close_prog
  440.         jmp     still
  441. ;--------------------------------------------------------------------
  442. .analyse_out_menu_2:
  443.         cmp     [menu_data_2.cursor_out],dword 1
  444.         jne     @f
  445.         add     [bytes_per_line],4
  446.         jmp     redraw_all
  447. ;--------------------------------------
  448. @@:
  449.         cmp     [menu_data_2.cursor_out],dword 2
  450.         jne     @f
  451.         add     [bytes_per_line],8
  452.         jmp     redraw_all
  453. ;--------------------------------------
  454. @@:
  455.         cmp     [menu_data_2.cursor_out],dword 3
  456.         jne     @f
  457.         cmp     [bytes_per_line],4
  458.         je      still
  459.         sub     [bytes_per_line],4
  460.         jmp     redraw_all
  461. ;--------------------------------------
  462. @@:
  463.         cmp     [menu_data_2.cursor_out],dword 4
  464.         jne     still
  465.         cmp     [bytes_per_line],8
  466.         jbe     still
  467.         sub     [bytes_per_line],8
  468.         jmp     redraw_all
  469. ;--------------------------------------------------------------------
  470. .analyse_out_menu_3:    ;analyse result of Menu 2
  471.         cmp     [menu_data_3.cursor_out],dword 1
  472.         jne     still
  473.         call    create_help_window
  474.         jmp     still
  475. ;--------------------------------------------------------------------
  476. .scroll_bar:
  477. ;       mcall   SF_MOUSE_GET,SSF_BUTTON
  478. ;       test    eax,eax
  479. ;       jnz     @f
  480. ;       btr     [flags],5
  481. ;       btr     [flags],7
  482. ;       jmp     still
  483.  
  484. .mouse:
  485. .vertical:
  486.         mcall   SF_MOUSE_GET,SSF_BUTTON
  487.         test    eax,eax
  488.         jnz     @f
  489.         btr     [flags],5
  490.         btr     [flags],7
  491.         jmp     still
  492. ;--------------------------------------
  493. @@:
  494.         bt      [flags],5
  495.         jc      @f
  496.         bt      [flags],7
  497.         jc      .horizontal_0
  498.  
  499.         mcall   SF_MOUSE_GET,SSF_WINDOW_POSITION
  500.         shr     eax,16
  501.         cmp     ax,[scroll_bar_data_vertical.start_x]
  502.         jb      .horizontal
  503.         sub     ax,[scroll_bar_data_vertical.start_x]
  504.         cmp     ax,[scroll_bar_data_vertical.size_x]
  505.         jge     still
  506.  
  507.  
  508. @@:
  509. ;       cmp     [scroll_bar_data_vertictal.delta2],0
  510.         ;       jne     .horizontal
  511.  
  512. ;       mov     eax,[scroll_bar_data_vertical.max_area]
  513. ;       cmp     eax,[scroll_bar_data_vertical.cur_area]
  514. ;       jbe     .horizontal
  515.  
  516.         ;       mouse event for Vertical ScrollBar
  517.         mov     edi,[screen_table]
  518.         mov     edi,[edi]
  519.         cmp     edi,[file_size]
  520.         jae     still
  521.         push    dword scroll_bar_data_vertical  ;draw for Vertical ScrollBar
  522.         call    [scrollbar_ver_mouse]
  523.  
  524.         xor     edx,edx
  525.         mov     ebx,[scroll_bar_data_vertical.max_area]
  526.         sub     ebx,[scroll_bar_data_vertical.cur_area]
  527.         mov     eax,[file_size]
  528.         mov     esi,[bytes_per_line]
  529.         mov     ecx,[scroll_bar_data_vertical.position]
  530.         div     esi
  531.         xor     edx,edx
  532.         mul     ecx
  533.         div     ebx
  534.         mul     esi
  535.         cmp     eax,[file_size]
  536.         jng     @f
  537.         sub     eax,esi;[bytes_per_line]
  538. @@:
  539.         mov     ecx,[cursor]
  540.         inc     ecx
  541.         shr     ecx,1
  542.         add     ecx,eax
  543. @@:
  544.         cmp     ecx,[file_size]
  545.         jle     @f
  546.         sub     ecx,esi;[bytes_per_line]
  547.         sub     eax,esi;[bytes_per_line]
  548.         jmp     @b
  549. ;--------------------------------------
  550. @@:
  551.         mov     [begin_offset],eax
  552.         bts     [flags],5
  553.  
  554.         mov     eax,scroll_bar_data_vertical.redraw
  555.         xor     ebx,ebx
  556. ;       cmp     [eax],ebx
  557. ;       je      @f
  558.         mov     [eax],ebx
  559.         jmp     red
  560. ;--------------------------------------------------------------------
  561. ;@@:
  562. ;       cmp     [scroll_bar_data_vertical.delta2],0
  563. ;       jne     still
  564. .horizontal:
  565.         mov     eax,[scroll_bar_data_horizontal.max_area]
  566.         cmp     eax,[scroll_bar_data_horizontal.cur_area]
  567.         jbe     .other
  568.  
  569.         mcall   SF_MOUSE_GET,SSF_WINDOW_POSITION
  570.         cmp     ax,[scroll_bar_data_horizontal.start_y]
  571.         jb      still
  572.         sub     ax,[scroll_bar_data_horizontal.start_y]
  573.         cmp     ax,[scroll_bar_data_horizontal.size_y]
  574.         jge     still
  575.  
  576.         ; mouse event for Horizontal ScrollBar
  577. .horizontal_0:
  578. ;       mcall   SF_MOUSE_GET,SSF_BUTTON
  579. ;       test    eax,eax
  580. ;       jnz     @f
  581. ;       btr     [flags],5
  582. ;       btr     [flags],7
  583. ;       jmp     still
  584. ;@@:;   bt      [flags],7
  585. ;       jc      @f
  586.  
  587. ;       mcall   SF_MOUSE_GET,SSF_WINDOW_POSITION
  588. ;       shr     eax,16
  589. ;       cmp     ax,[scroll_bar_data_vertical.start_x]
  590. ;       jb      .horizontal
  591. ;       sub     ax,[scroll_bar_data_vertical.start_x]
  592. ;       cmp     ax,[scroll_bar_data_vertical.size_x]
  593. ;       jge     still
  594. ;@@:
  595.         ; mouse event for Vertical ScrollBar
  596.  
  597.         mov     eax,[ready_screen_buffer.string_size]
  598.         shr     eax,1
  599.         cmp     eax,[len_str_scr]
  600.         jle     still
  601.         push    dword scroll_bar_data_horizontal        ;draw for Horizontal ScrollBar
  602.         call    [scrollbar_hor_mouse]
  603.  
  604.         xor     edx,edx
  605.         mov     eax,[scroll_bar_data_horizontal.position]
  606.         mov     ebx,[ready_screen_buffer.string_size]
  607.         shr     ebx,1
  608.         mul     ebx
  609.         mov     ebx,[scroll_bar_data_horizontal.max_area]
  610.         sub     ebx,[scroll_bar_data_horizontal.cur_area]
  611.         div     ebx
  612.         mov     [beg_str_scr],eax
  613.         add     eax,[len_str_scr]
  614.         mov     ebx,[ready_screen_buffer.string_size]
  615.         shr     ebx,1
  616.         cmp     eax,ebx
  617.         jle     @f
  618.         mov     eax,[ready_screen_buffer.string_size]
  619.         shr     eax,1
  620.         sub     eax,[len_str_scr]
  621.         mov     [beg_str_scr],eax
  622. @@:
  623.         mov     eax,scroll_bar_data_horizontal.redraw
  624.         xor     ebx,ebx
  625.         cmp     [eax],ebx
  626.         je      .other
  627.         mov     [eax],ebx
  628. ;       call    draw_window
  629.         call    main_area
  630.         bts     [flags],7
  631.         jmp     still
  632. ;--------------------------------------------------------------------
  633. .other:
  634. ;       cmp     [scroll_bar_data_vertical.delta2],0
  635. ;       jne     still
  636. ;       cmp     [scroll_bar_data_horizontal.delta2],0
  637. ;       jne     still
  638.         jmp     still
  639. ;--------------------------------------------------------------------
  640. align   4
  641. ready_screen_buffer:
  642.         mov     [.fl],0
  643.         mov     esi,[screen_table]
  644.         add     esi,4
  645.         mov     ecx,[number_strings]
  646.         mov     [.number_strings],cx
  647.         push    [cursor]
  648.         pop     [.cursor]
  649.         push    [file_size]
  650.         pop     [.length_to_end]
  651.         mov     edi,[begin_offset]
  652.  
  653.         mov     [.shblock_end],0
  654.         mov     [.shblock_beg],0
  655.         bt      [flags],8
  656.         jnc     @f
  657.         mov     eax,[shblock_beg]
  658.         add     eax,[file_buffer]
  659.         mov     [.shblock_beg],eax
  660.         mov     eax,[shblock_end]
  661.         add     eax,[file_buffer]
  662.         mov     [.shblock_end],eax
  663. @@:
  664.         mov     [.offset],edi
  665.         sub     [.length_to_end],edi
  666.         jz      .pre_next_string
  667.         add     edi,[file_buffer]
  668.  
  669. .next_string:
  670.         mov     word [esi],0x2020
  671.         add     esi,2
  672.         mov     eax,0x20302030
  673.         mov     dword [esi],eax
  674.         mov     dword [esi+4],eax
  675.         mov     dword [esi+8],eax
  676.         mov     dword [esi+12],eax
  677.         push    edi
  678.         mov     ecx,8
  679.         mov     edi,[.offset]
  680. @@:
  681.         mov     eax,edi
  682.         and     eax,0xF
  683.         cmp     al,10
  684.         sbb     al,69h
  685.         das
  686.         mov     [esi+ecx*2-2],al
  687.         shr     edi,4
  688.         loop    @b
  689.         mov     word [esi+16],0x203a    ;¤¢®¥â®ç¨¥
  690.         mov     eax,[bytes_per_line]
  691.         add     [.offset],eax
  692.         mov     [.string_size],2+4*4+4+2
  693.         add     esi,4*4+4+2
  694.         pop     edi
  695.         mov     [.temp],edi
  696.         push    [.cursor]
  697.         pop     [.cursor_temp]
  698.  
  699.         ;hex    §­ ç¥­¨ï
  700.         mov     dword [esi-4],0x20202020
  701.  
  702.         mov     edx,[bytes_per_line]
  703. .next_group:
  704.         mov     ecx,[group_bytes]
  705.  
  706. .next_byte:
  707.         mov     al,[edi]
  708.         ror     ax,4
  709.         cmp     al,10
  710.         sbb     al,69h
  711.         das
  712.         mov     [esi],al
  713.         mov     byte [esi+1],0x20
  714.         cmp     edi,[.shblock_end]
  715.         ja      @f
  716.         cmp     edi,[.shblock_beg]
  717.         jl      @f
  718.         mov     byte [esi+1],(0x20+3*4)
  719. @@:
  720.         dec     [.cursor]
  721.         jnz     @f
  722.         mov     byte [esi+1],(0x20+2*4)
  723. @@:
  724.         shr     ax,16-4
  725.         cmp     al,10
  726.         sbb     al,69h
  727.         das
  728.         mov     [esi+2],al
  729.         mov     byte [esi+3],0x20
  730.         cmp     edi,[.shblock_end]
  731.         ja      @f
  732.         cmp     edi,[.shblock_beg]
  733.         jl      @f
  734.         mov     byte [esi+3],(0x20+3*4)
  735. @@:
  736.         dec     [.cursor]
  737.         jnz     @f
  738.         mov     byte [esi+3],(0x20+2*4)
  739. @@:
  740.         mov     word [esi+4],0x2020
  741.         add     [.string_size],6
  742.         add     esi,6
  743.         inc     edi
  744.         dec     [.length_to_end]
  745.         jz      .to_null
  746.         dec     ecx
  747.         jz      @f
  748.         dec     edx
  749.         jnz     .next_byte
  750.         jz      .ascii
  751. @@:
  752.         mov     word [esi],0x2020
  753.         add     esi,2
  754.         add     [.string_size],2
  755.         dec     edx
  756.         jnz     .next_group;byte
  757.         sub     esi,2
  758.         sub     [.string_size],2
  759.         jz      .ascii
  760. .ascii:
  761.         push    edi
  762.         mov     edi,[.temp]
  763.         mov     word [esi],0x2020
  764.         mov     ebx,[.cursor_temp]
  765.         add     esi,2
  766.         add     [.string_size],2
  767.         mov     ecx,[bytes_per_line]
  768. @@:
  769.         mov     al,[edi]
  770.         mov     [esi],al
  771.         mov     byte [esi+1],0x20
  772.         dec     ebx
  773.         jnz     .s1
  774.         mov     byte [esi+1],(0x20+3*4)
  775. .s1:
  776.         dec     ebx
  777.         jnz     .s2
  778.         mov     byte [esi+1],(0x20+3*4)
  779. .s2:
  780.         inc     edi
  781.         add     esi,2
  782.         add     [.string_size],2
  783.         loop    @b
  784.         pop     edi
  785.         mov     edx,[bytes_per_line]
  786.         dec     [.number_strings]
  787.         jnz     .next_string
  788.         ret
  789. ;---------------------------------------------------------------------
  790. .fl     db 0
  791. .fl_buf dd 0
  792. .to_null:
  793.         dec     [.fl]
  794.         mov     [.fl_buf],edi
  795.         jmp     .pre_next_byte0
  796. ;--------------------------------------------------------------------
  797. .pre_next_string:
  798.         mov     word [esi],0x2020
  799.         add     esi,2
  800.         mov     eax,0x20302030
  801.         mov     dword [esi],eax
  802.         mov     dword [esi+4],eax
  803.         mov     dword [esi+8],eax
  804.         mov     dword [esi+12],eax
  805.         mov     ecx,8
  806.         mov     edi,[.offset]
  807. @@:
  808.         mov     eax,edi
  809.         and     eax,0xF
  810.         cmp     al,10
  811.         sbb     al,69h
  812.         das
  813.         mov     [esi+ecx*2-2],al
  814.         shr     edi,4
  815.         loop    @b
  816.         mov     word [esi+16],0x203a    ;¤¢®¥â®ç¨¥
  817.         mov     eax,[bytes_per_line]
  818.         add     [.offset],eax
  819.         mov     [.string_size],2+4*4+4+2
  820.         add     esi,4*4+4+2
  821.         push    [.cursor]
  822.         pop     [.cursor_temp]
  823.  
  824.         ;hex §­ ç¥­¨ï
  825.         mov     dword [esi-4],0x20202020
  826.  
  827.         mov     edx,[bytes_per_line]
  828. .pre_next_group:
  829.         mov     ecx,[group_bytes]
  830.  
  831. .pre_next_byte:
  832.         mov     dword [esi],0x20202020
  833.         dec     [.cursor]
  834.         jnz     @f
  835.         mov     byte [esi+1],(0x20+2*4)
  836. @@:
  837.         dec     [.cursor]
  838.         jnz     @f
  839.         mov     byte [esi+3],(0x20+2*4)
  840. @@:
  841.         mov     word [esi+4],0x2020
  842.         add     [.string_size],6
  843.         add     esi,6
  844. .pre_next_byte0:
  845.         dec     ecx
  846.         jz      @f
  847.         dec     edx
  848.         jnz     .pre_next_byte
  849.         jz      .pre_ascii
  850. @@:
  851.         mov     word [esi],0x2020
  852.         add     esi,2
  853.         add     [.string_size],2
  854.         dec     edx
  855.         jnz     .pre_next_group;byte
  856.         sub     esi,2
  857.         sub     [.string_size],2
  858.         jz      .pre_ascii
  859.  
  860. .pre_ascii:
  861.         mov     word [esi],0x2020
  862.         add     esi,2
  863.         add     [.string_size],2
  864.         mov     ecx,[bytes_per_line]
  865.         cmp     [.fl],0 ;¯à®¢¥àª  ä« £ 
  866.         jne     .last_ascii
  867.         mov     ebx,[.cursor_temp]
  868. @@:
  869.         mov     word [esi],0x2020
  870.         dec     ebx
  871.         jnz     .ps1
  872.         mov     byte [esi+1],(0x20+3*4)
  873. .ps1:
  874.         dec     ebx
  875.         jnz     .ps2
  876.         mov     byte [esi+1],(0x20+3*4)
  877. .ps2:
  878.         add     esi,2
  879.         add     [.string_size],2
  880. .1:
  881.         loop    @b
  882.         mov     edx,[bytes_per_line]
  883.         dec     [.number_strings]
  884.         jnz     .pre_next_string
  885.         ret
  886. ;---------------------------------------------------------------------
  887. ;ª®à४⭮ ®¡à ¡ â뢠¥¬ 䨭 «ì­ãî áâபã ä ©« , ¤«¨­  ª®â®à®© ¢ à¨ â¨¢­ 
  888. .last_ascii:
  889.         mov     ebx,[.fl_buf]
  890.         sub     ebx,[.temp]
  891.         sub     ecx,ebx
  892.         mov     edi,[.temp]
  893.         mov     [.fl],0
  894. @@:
  895.         mov     al,[edi]
  896.         mov     [esi],al
  897.         mov     byte [esi+1],0x20
  898.         dec     [.cursor_temp]
  899.         jnz     .la1
  900.         mov     byte [esi+1],(0x20+3*4)
  901. .la1:
  902.         dec     [.cursor_temp]
  903.         jnz     .la2
  904.         mov     byte [esi+1],(0x20+3*4)
  905. .la2:
  906.         inc     edi
  907.         add     esi,2
  908.         add     [.string_size],2
  909.         dec     ebx
  910.         jnz     @b
  911.         inc     ecx
  912.         jmp     .1
  913. ;--------------------------------------------------------------------
  914. .string_size    dd 16
  915. .number_strings dw 0
  916. .length_to_end  dd 0
  917. .temp           dd 0
  918. .offset         dd 0
  919. .cursor         dd 0
  920. .cursor_temp    dd 0
  921. .shblock_beg    dd 0
  922. .shblock_end    dd 0
  923. ;--------------------------------------------------------------------
  924. align   4
  925. main_area:
  926.         mov     ecx,[number_strings]
  927.         mov     [.number_strings],cx
  928.         push    [len_str_scr]
  929.         pop     [.len_str_scr]
  930.         mov     eax,[ready_screen_buffer.string_size]
  931.         shr     eax,1
  932.         mov     [.string_size],eax
  933.         mov     edi,[screen_table]
  934.         mov     edi,[edi]
  935.         cmp     [file_size],edi
  936.         jbe     .4
  937.         xor     edx,edx ;¯®«§ã­®ª
  938.         mov     ebx,[scroll_bar_data_vertical.max_area]
  939.         sub     ebx,[scroll_bar_data_vertical.cur_area]
  940.         mov     ecx,[file_size]
  941.         mov     eax,[current_offset]
  942.         test    eax,eax
  943.         jnz     .3
  944.         inc     eax
  945. .3:
  946.         mul     ebx
  947.         test    ecx,ecx
  948.         jnz     .5
  949.         inc     ecx
  950. .5:
  951.         div     ecx
  952.         mov     [scroll_bar_data_vertical.position],eax
  953.  
  954.         mcall   SF_MOUSE_GET,SSF_BUTTON ;ª¯®¯ª  ¬ëè¨ ­ ¦ â  - ­¥â á¬ëá«  ¯¥à¥à¨á®¢ë¢ âì ScrollBar
  955.         test    eax,eax
  956.         jnz     .4
  957.         push    dword scroll_bar_data_vertical
  958.         call    [scrollbar_ver_mouse]
  959.  
  960.         push    dword scroll_bar_data_vertical  ;draw for Vertical ScrollBar
  961.         call    [scrollbar_ver_draw]
  962.  
  963. ;       push    dword scroll_bar_data_vertical  ;draw for Vertical ScrollBar
  964. ;       call    [scrollbar_ver_draw]
  965.  
  966. ;       xor     eax,eax
  967. ;       inc     eax
  968. ;       mov     [scroll_bar_data_vertical.all_redraw],eax
  969. ;       push    dword scroll_bar_data_vertical  ;draw for Vertical ScrollBar
  970. ;       call    [scrollbar_ver_draw]
  971. ;       xor     eax,eax ;reset  all_redraw      flag
  972. ;       mov     [scroll_bar_data_vertical.all_redraw],eax
  973.  
  974. .4:
  975.         mov     esi,0x000001    ;梥⠨ ç¨á«® ¡¨â ­  ¯¨ªá¥«ì
  976.         mov     edx,FIRST_HEX   ;ª®®à¤¨­ âë ¯¥à¢®£® hex
  977.         call    show_current_offset
  978.         mov     edi,[screen_table]
  979.         add     edi,4
  980.         mov     ecx,[beg_str_scr]
  981.         sub     [.string_size],ecx
  982.         shl     ecx,1
  983.         add     edi,ecx
  984. .out:
  985.         push    edi
  986.         movzx   ebx,byte [edi]
  987.         cmp     bl,128  ;¯à®¢¥àª  ­  ¯à¨­ ¤«¥¦­®áâì ᨬ¢®«  ª à áè¨à¥­­®© â ¡«¨æ¥
  988.         jb      .7
  989.         add     ebx,[codepage_offset]
  990. .7:
  991.         movzx   edi,byte [edi+1]
  992.         lea     edi,[(edi*2-0x40)]
  993.         add     edi,palitra
  994.         shl     bx,4
  995.         add     ebx,font_buffer
  996.         mov     ecx,8*65536+16
  997.         mov     ebp,0
  998.         mcall   SF_PUT_IMAGE_EXT
  999.         pop     edi
  1000.  
  1001.         add     edi,2
  1002.         add     edx,8*65536
  1003.  
  1004.         dec     [.len_str_scr]
  1005.         jz      .loop_str
  1006.         dec     [.string_size]
  1007.         jz      .next_string
  1008.  
  1009.         push    edi
  1010.         movzx   ebx,byte [edi]
  1011.         cmp     bl,128
  1012.         jb      .8
  1013.         add     ebx,[codepage_offset]
  1014. .8:
  1015.         movzx   edi,byte [edi+1]
  1016.         lea     edi,[(edi*2-0x40)]
  1017.         add     edi,palitra
  1018.         shl     bx,4
  1019.         add     ebx,font_buffer
  1020.         mcall
  1021.         pop     edi
  1022.  
  1023.         add     edi,2
  1024.         add     edx,8*65536
  1025.  
  1026.         dec     [.len_str_scr]
  1027.         jz      .loop_str
  1028.         dec     [.string_size]
  1029.         jnz     .out
  1030.         jz      .next_string    ; WTF?
  1031. ;--------------------------------------------------------------------
  1032. .string_size    dd 0
  1033. .number_strings dw 0
  1034. .len_str_scr    dd 0
  1035. ;--------------------------------------------------------------------
  1036. @@:
  1037.         pushad
  1038.         mov     ecx,edx
  1039.         shl     ecx,16
  1040.         mov     ebx,edx
  1041.         shr     ebx,16
  1042.         cmp     bx,[scroll_bar_data_vertical.start_x]
  1043.         jge     .ls1
  1044.         mov     ax,[scroll_bar_data_vertical.start_x]
  1045.         sub     ax,bx
  1046.         shl     ebx,16
  1047.         mov     bx,ax
  1048.         mov     cx,16
  1049.         mcall   SF_DRAW_RECT,,,frgrd_color
  1050. .ls1:
  1051.         popad
  1052.         jmp     @f
  1053. ;--------------------------------------------------------------------
  1054. .loop_str:
  1055.         bt      [flags],6
  1056.         jc      @b
  1057. @@:
  1058.         dec     [.string_size]
  1059.         jz      .next_string
  1060.         add     edi,2
  1061.         add     edx,8*65536
  1062.         jmp     @b
  1063. ;--------------------------------------
  1064. @@:;®ç¨á⪠ ä®­®¢ë¬ 梥⮬ ­¥§ ªà è¥­­ëå ®¡« á⥩
  1065.         pushad
  1066.         ror     edx,16
  1067.         mov     dx,16
  1068.         mov     ecx,edx
  1069.         mov     edx,frgrd_color
  1070.         movzx   ebx,[scroll_bar_data_vertical.start_x]
  1071.        
  1072.         mov     ax,[scroll_bar_data_vertical.size_x]
  1073.         test    ax,ax
  1074.         jnz     .no_inc_ebx
  1075.         inc     ebx
  1076. .no_inc_ebx:
  1077.         sub     ecx,2*65536
  1078.         mov     cx,2
  1079.         mcall   SF_DRAW_RECT
  1080.         popad
  1081.  
  1082.         pushad
  1083.         mov     ecx,edx
  1084.         shl     ecx,16
  1085.         mov     ebx,edx
  1086.         shr     ebx,16
  1087.         cmp     bx,[scroll_bar_data_vertical.start_x]
  1088.         jge     .10
  1089.         mov     ax,[scroll_bar_data_vertical.start_x]
  1090.         sub     ax,bx
  1091.         shl     ebx,16
  1092.         mov     bx,ax
  1093.         mov     cx,16
  1094.        
  1095.         mov     ax,[scroll_bar_data_vertical.size_x]
  1096.         test    ax,ax
  1097.         jnz     .no_inc_ebx_2
  1098.         inc     ebx
  1099. .no_inc_ebx_2:
  1100.         mcall   SF_DRAW_RECT,,,frgrd_color
  1101. .10:
  1102.         popad
  1103.         jmp     @f
  1104. ;--------------------------------------------------------------------
  1105. .next_string:
  1106.         bt      [flags],6
  1107.         jc      @b
  1108. @@:
  1109.         push    [len_str_scr]
  1110.         pop     [.len_str_scr]
  1111.         mov     eax,[ready_screen_buffer.string_size]
  1112.         shr     eax,1
  1113.         mov     [.string_size],eax      ;ª®à४æ¨ï ᬥ饭¨ï ¢å®¤­ëå ¤ ­­ëå
  1114.         mov     ecx,[beg_str_scr]
  1115.         sub     [.string_size],ecx
  1116.         sub     eax,ecx
  1117.         shl     ecx,1
  1118.         add     edi,ecx
  1119.  
  1120.         shl     eax,19
  1121.         sub     edx,eax
  1122.         add     edx,18
  1123.         dec     [.number_strings]
  1124.         jnz     .out
  1125.         btr     [flags],6
  1126.         jmp     end_draw
  1127. ;--------------------------------------------------------------------
  1128. align   4
  1129. show_current_offset:
  1130.         pushad
  1131.         push    edx     ;¢ë¢®¤ ⥪ã饣® ᬥ饭¨ï ¢ ä ©«¥
  1132.         mov     edi,palitra.5
  1133.         mov     eax,[begin_offset]
  1134.         mov     ebx,[cursor]
  1135.         dec     ebx
  1136.         shr     bx,1
  1137.         add     ebx,eax
  1138.         mov     [current_offset],ebx
  1139.         mov     edx,[low_area]
  1140.         lea     eax,[8*8+8+8]
  1141.         shl     eax,16
  1142.         add     edx,eax
  1143.         mov     ecx,8
  1144.         call    hex_output
  1145.         lea     eax,[8*8+14]
  1146.         shl     eax,16
  1147.         add     edx,eax
  1148.         push    edx
  1149.         ;¤¢®¨ç­®¥ §­ ç¥­¨¥ ¡ ©â 
  1150.         mov     edx,[file_buffer]
  1151.         add     edx,ebx;[current_offset]
  1152.         xor     eax,eax
  1153.         cmp     ebx,[file_size]
  1154.         jae     @f
  1155.         mov     al,[edx]
  1156. @@:
  1157.         mov     bx,2
  1158.         mov     ebp,8
  1159.         xor     ecx,ecx
  1160.         xor     edx,edx
  1161. @@:
  1162.         div     bx
  1163.         or      cl,dl
  1164.         ror     ecx,4
  1165.         dec     ebp
  1166.         jnz     @b
  1167.         mov     ebx,ecx
  1168.         pop     edx
  1169.         mov     ecx,8
  1170.         call    hex_output
  1171.  
  1172.         ;¤¥áïâ¨ç­®¥
  1173.         push    edx
  1174.         mov     edx,[file_buffer]
  1175.         mov     ebx,[current_offset]
  1176.         add     edx,ebx
  1177.         xor     eax,eax
  1178.         inc     ebx
  1179.         cmp     ebx,[file_size] ;0 ¥á«¨ §  £à ­¨æ¥© ä ©« 
  1180.         jb      @f
  1181.         mov     edx,D_END
  1182. @@:
  1183.         mov     al,[edx]
  1184.         xor     ebx,ebx
  1185. ;       mov     ebp,3
  1186.         mov     cl,10
  1187. @@:
  1188.         div     cl
  1189.         mov     bl,ah
  1190.         xor     ah,ah
  1191.         shl     ebx,8
  1192.         test    al,al
  1193. ;       dec     ebp
  1194.         jnz     @b
  1195.         shr     ebx,8
  1196.         cmp     byte [edx],100
  1197.         jb      .1
  1198.         mov     ebp,3
  1199.         jmp     @f
  1200. ;--------------------------------------
  1201. .1:
  1202.         mov     ebp,1
  1203.         cmp     byte [edx],10
  1204.         jb      @f
  1205.         mov     ebp,2
  1206. @@:
  1207.         mov     al,bl
  1208.         shr     ebx,8
  1209.         cmp     al,10
  1210.         sbb     al,69h
  1211.         das
  1212.         shl     eax,8
  1213. ;       test    bx,bx
  1214.         dec     ebp
  1215.         jnz     @b
  1216.  
  1217.         mov     ecx,8*65536+16
  1218.         pop     edx
  1219.         add     edx,(8*8+30)*65536;268*65536
  1220.         mov     edi,palitra.5
  1221.         mov     ebp,0
  1222.         push    dword 3
  1223. @@:
  1224.         shr     eax,8
  1225.         xor     ebx,ebx
  1226.         mov     bl,al
  1227.         shl     ebx,4
  1228.         add     ebx,font_buffer
  1229.         push    eax
  1230.         mcall   SF_PUT_IMAGE_EXT
  1231.         pop     eax
  1232.         sub     edx,8*65536
  1233.         dec     dword [esp]
  1234.         jnz     @b
  1235.         add     esp,4
  1236. ;       mov     edx,[low_area]  ;¢ë¢®¤ esp
  1237. ;       add     edx,298*65536
  1238. ;       mov     ebx,esp
  1239. ;       mov     ecx,8
  1240. ;       call    hex_output
  1241.         pop     edx
  1242.         popad
  1243.         ret
  1244. ;---------------------------------------------------------------------
  1245. align   4
  1246. hex_output:     ;¢ë¢®¤ hex áâப¨ ¨§ 8 ᨬ¢®«®¢
  1247.         pushad
  1248.         mov     edi,(hex8_string)       ; ¤à¥á ¡ãä¥à 
  1249.         mov     dword [edi],0x30303030
  1250.         mov     dword [edi+4],0x30303030
  1251.         push    ecx
  1252. .1:
  1253.         mov     eax,ebx
  1254.         and     eax,0xF
  1255.         cmp     al,10
  1256.         sbb     al,69h
  1257.         das
  1258.         mov     [edi+ecx-1],al
  1259.         shr     ebx,4
  1260.         loop    .1
  1261.         mov     ecx,8*65536+16
  1262. .2:
  1263.         push    edi
  1264.         xor     ebx,ebx
  1265.         mov     al,[edi]
  1266.         shl     eax,4
  1267.         add     eax,font_buffer
  1268.         xchg    eax,ebx
  1269.         mov     edi,palitra.5
  1270.         mov     ebp,0
  1271.         mcall   SF_PUT_IMAGE_EXT
  1272.         add     edx,8*65536
  1273.         pop     edi
  1274.         inc     edi
  1275.         dec     dword [esp]
  1276.         jnz     .2
  1277.         add     esp,4
  1278.         popad
  1279.         ret
  1280. ;------------------------------------------------------
  1281. align   4
  1282. input_from_keyboard:
  1283.         xor     al,al
  1284.         sub     ah,48
  1285.         cmp     ah,9
  1286.         jle     .1
  1287.         sub     ah,7
  1288.         cmp     ah,15
  1289.         jle     .1
  1290.         sub     ah,32
  1291. .1:
  1292.         bt      [flags],1
  1293.         jnc     .2
  1294.         mov     ebx,[cursor]
  1295.         and     bl,1
  1296.         jz      .2
  1297.         inc     [file_size]
  1298.         call    raspred_mem
  1299.         mov     edi,[current_offset]
  1300.         add     edi,[file_buffer]
  1301.         mov     esi,[file_buffer]
  1302.         add     esi,[file_size]
  1303.         dec     esi
  1304. @@:
  1305.         cmp     edi,esi
  1306.         ja      @f
  1307.         mov     bl,[esi]
  1308.         mov     [esi+1],bl
  1309.         dec     esi
  1310.         jmp     @b
  1311. ;--------------------------------------
  1312. @@:
  1313.         call    show_file_size
  1314.         mov     ebx,[current_offset]
  1315.         add     ebx,[file_buffer]
  1316.         mov     byte [ebx],0
  1317. .2:
  1318.         mov     ecx,[current_offset]
  1319.         add     ecx,[file_buffer]
  1320.         ;á¬.    ¯¥à¢ãî  ¢¥àá¨î  heed.asm
  1321.         mov     dl,[ecx]        ;®à¨£¨­ «ì­ë© ¡ ©â
  1322.         mov     ebx,[cursor]
  1323.         and     bl,1    ;­¥ç¥â - । ªâ¨à㥬 áâ à訩 ¯®«ã¡ ©â
  1324.         jnz     .hi_half_byte ;çñâ - áâ à訩
  1325.         and     dl,0xf0 ;®¡­ã«ï¥¬ ¬«. ¯-¡ ©â ®à¨£¨­ «ì­®£® ¡ ©â 
  1326.         jmp     .patch_byte
  1327. ;--------------------------------------
  1328. .hi_half_byte:  ;®¤­®¢à¥¬¥­­® ᤢ¨£ ¥¬ ­ã¦­®¥ §­ ç¥­¨¥ ¢ áâ ¯-â ¨ ®¡­ã«ï¥¬ ¬« ¤è¨©
  1329.         shl     ax,4
  1330.         and     dl,0x0f ;®¡­ã«ï¥¬ áâ à訩 ¯®«ã¡ ©â 㠮ਣ¨­ «ì­®£® ¡ ©â 
  1331. .patch_byte:
  1332.         or      ah,dl
  1333.         mov     [ecx],ah
  1334.         jmp     RIGHT
  1335. ;--------------------------------------------------------------------
  1336. raspred_mem:
  1337.         pushad
  1338.         xor     edx,edx
  1339.         mov     ecx,4096
  1340.         mov     eax,[file_size]
  1341.         inc     eax
  1342.         div     ecx
  1343.         cmp     eax,[prev_f_size_bl]
  1344.         ja      @f
  1345.         je      .ret
  1346.         cmp     [file_size],4096
  1347.         jbe     .ret
  1348.         mov     [prev_f_size_bl],eax
  1349.         xor     edx,edx
  1350.         mul     ecx
  1351.         mov     ecx,eax
  1352.         jmp     .1
  1353. ;--------------------------------------
  1354. @@:
  1355.         mov     [prev_f_size_bl],eax
  1356.         xor     edx,edx
  1357.         mul     ecx
  1358.         add     ecx,eax
  1359. .1:
  1360.         mcall   SF_SYS_MISC,SSF_MEM_REALLOC,,[file_buffer]
  1361. .ret:
  1362.         popad
  1363.         ret
  1364. ;--------------------------------------------------------------------
  1365. align   4
  1366. show_file_size:
  1367.         mov     ebx,[file_size]
  1368.         mov     edx,[low_area];
  1369.         mov     esi,1
  1370.         mov     ecx,8
  1371.         call    hex_output
  1372.         ret
  1373. ;---------------------------------------------------------------------
  1374. align   4
  1375. create_title:
  1376.         mov     edi,title_buf
  1377.         mov     esi,title
  1378.         cld
  1379. @@:
  1380.         lodsb
  1381.         stosb
  1382.         test    al,al
  1383.         jne     @b
  1384.         mov     [edi-1],byte ' '
  1385.         mov     esi,fname_buf
  1386. @@:
  1387.         lodsb
  1388.         stosb
  1389.         test    al,al
  1390.         jne     @b
  1391.         ret
  1392. ;---------------------------------------------------------------------
  1393. align   4
  1394. draw_window:
  1395.         call    create_title
  1396.         xor     esi,esi
  1397.         mcall   SF_CREATE_WINDOW,100*65536+653,100*65536+360,((0x73 shl 24) + frgrd_color),,title_buf   ;title
  1398.         mcall   SF_THREAD_INFO,threath_buf,-1
  1399. ;       cmp     byte [threath_buf+70],3 ;®ª­® á¢ñà­ãâ® ¢ § £®«®¢®ª?
  1400. ;       jnae    @f
  1401.         mov     eax,[threath_buf+70]
  1402.         test    eax,10b
  1403.         jnz     .@d
  1404.         test    eax,100b
  1405.         jz      @f
  1406. .@d:
  1407.         call    end_draw
  1408.         ret
  1409. ;--------------------------------------
  1410. @@:
  1411.         cmp     dword [threath_buf+66],(24*4)   ;¯à®¢¥àª  ¬¨­¨¬ «ì­®© ¢ëá®âë
  1412.         jae     @f
  1413.         mov     esi,dword [threath_buf+46]
  1414.         sub     esi,dword [threath_buf+66]
  1415.         add     esi,24*4
  1416.         mcall   SF_CHANGE_WINDOW,-1,-1,-1,
  1417.         jmp     .@d
  1418. ;--------------------------------------
  1419. @@:
  1420.         cmp     dword [threath_buf+62],(26*6)   ;¯à®¢¥àª  ¬¨­¨¬ «ì­®© è¨à¨­ë
  1421.         jae     @f
  1422.         mov     edx,dword [threath_buf+42]
  1423.         sub     edx,dword [threath_buf+62]
  1424.         add     edx,26*6
  1425.         mcall   SF_CHANGE_WINDOW,-1,-1,,-1
  1426.         jmp     .@d
  1427. ;--------------------------------------
  1428. @@:
  1429.         mov     eax,[file_size]
  1430.         mov     ebx,[bytes_per_line]
  1431.         xor     edx,edx
  1432.         div     ebx
  1433.         mov     [scroll_bar_data_vertical.size_x],0
  1434.         cmp     eax,[number_strings]
  1435.         jl      @f
  1436.         mov     [scroll_bar_data_vertical.size_x],scroll_width_size
  1437. @@:
  1438.         mov     eax,dword [threath_buf+62]      ;è¨à¨­  ª«¨¥­â᪮© ®¡« áâ¨
  1439.         sub     ax,[scroll_bar_data_vertical.size_x]
  1440.         mov     [scroll_bar_data_vertical.start_x],ax
  1441.         mov     eax,dword [threath_buf+66]      ;¢ëá®â  ª«¨¥­â᪮© ®¡« áâ¨
  1442.         sub     eax,24+24-11
  1443.         mov     [scroll_bar_data_vertical.size_y],ax
  1444.         mov     ebx,eax
  1445.         push    eax
  1446.         add     ebx,20
  1447.         mov     [scroll_bar_data_vertical.max_area],ebx
  1448.         mov     ebx,[scroll_bar_data_vertical.btn_high]
  1449.         shl     ebx,1
  1450.         add     ebx,20
  1451.         mov     [scroll_bar_data_vertical.cur_area],ebx
  1452.         pop     eax
  1453.         sub     eax,3
  1454.         mov     ebx,18
  1455.         xor     edx,edx
  1456.         div     bx
  1457.         mov     [number_strings],eax    ;ª®«-¢® hex áâப ¢ ®ª­¥
  1458.         mov     ebx,[bytes_per_line]
  1459.         mul     ebx
  1460.         mov     edi,[screen_table]      ;ª®«-¢® ¡ ©â®¢ ¤«ï ¢ë¢®¤ 
  1461.         mov     dword [edi],eax
  1462.  
  1463.         push    eax
  1464.  
  1465.         mov     ebx,dword [threath_buf+62]
  1466.         inc     ebx
  1467.         mov     ecx,(FIRST_HEX-18)
  1468.         ror     ecx,16
  1469.         mov     cx,18
  1470.         ror     ecx,16
  1471.         mcall   SF_DRAW_RECT,,,frgrd_color      ;¯®«®á  ᢥàåã
  1472.  
  1473.         mcall   ,,18,panel_clr1 ;¢¥àå­ïï ¯ ­¥«ì
  1474.  
  1475.         dec     ebx
  1476.         mcall   SF_DRAW_LINE,,<18,18>,panel_clr2
  1477.         mov     ecx,dword [threath_buf+66]
  1478.         sub     cx,18
  1479.         push    cx
  1480.         shl     ecx,16
  1481.         pop     cx
  1482.         mcall   ,,,panel_clr3   ;­¨¦­ïï ¯ ­¥«ì
  1483.         inc     ebx
  1484.         add     ecx,1*65536
  1485.         mov     cx,18
  1486.         mcall   SF_DRAW_RECT,,,panel_clr1
  1487.  
  1488.  
  1489.         mov     eax,dword [threath_buf+62]
  1490.         sub     eax,scroll_width_size
  1491.         shr     eax,3   ;div 8
  1492.         mov     [len_str_scr],eax
  1493.  
  1494.  
  1495.         mov     eax,[len_str_scr]
  1496.         shl     eax,1
  1497.         cmp     eax,[ready_screen_buffer.string_size]
  1498.         jae     @f
  1499.  
  1500.         mov     edi,[screen_table]
  1501.         mov     eax,[bytes_per_line]
  1502.         sub     dword [edi],eax
  1503.         dec     [number_strings]
  1504.  
  1505. @@:
  1506.         shr     ecx,16
  1507.         mov     edx,ecx
  1508.         mov     ecx,(FIRST_HEX)
  1509.         shr     ecx,16
  1510.         mov     eax,[number_strings]
  1511.         lea     ebx,[eax*8];*18
  1512.         lea     ebx,[ebx*2]
  1513.         lea     eax,[eax*2]
  1514.         add     eax,ebx
  1515.         add     cx,ax
  1516.         add     cx,21
  1517.         sub     dx,cx
  1518.         shl     ecx,16
  1519.         add     cx,dx
  1520.         sub     ecx,1*65536
  1521.         movzx   ebx,    word [scroll_bar_data_vertical.start_x]
  1522.         inc     ebx
  1523.         mcall   SF_DRAW_RECT,,,frgrd_color
  1524.  
  1525.         pop     eax
  1526.  
  1527.         cmp     eax,[file_size]
  1528.         jge     @f
  1529. ;       push    dword scroll_bar_data_vertical
  1530. ;       call    [scrollbar_ver_mouse]
  1531.         xor     eax,eax
  1532.         inc     eax
  1533.         mov     [scroll_bar_data_vertical.all_redraw],eax
  1534.         push    dword scroll_bar_data_vertical  ;draw for Vertical ScrollBar
  1535.         call    [scrollbar_ver_draw]
  1536.         xor     eax,eax ;reset all_redraw flag
  1537.         mov     [scroll_bar_data_vertical.all_redraw],eax
  1538. @@:
  1539.         push    dword menu_data_1       ;draw for Menu 1
  1540.         call    [menu_bar_draw]
  1541.         push    dword menu_data_2       ;draw for Menu 2
  1542.         call    [menu_bar_draw]
  1543.         push    dword menu_data_3       ;draw for Menu 3
  1544.         call    [menu_bar_draw]
  1545.  
  1546. ;;;
  1547.  
  1548.         mov     eax,dword [threath_buf+66]
  1549.         add     eax,8*65536-15
  1550.         mov     [low_area],eax
  1551.  
  1552.         mov     ebx,[beg_str_scr]
  1553.         mov     [beg_str_scr],0
  1554.         mov     eax,[len_str_scr]
  1555.         shl     eax,1
  1556.         cmp     eax,[ready_screen_buffer.string_size]
  1557.         jae     @f
  1558.  
  1559.         mov     [beg_str_scr],ebx
  1560.         movzx   eax,word [threath_buf+66]
  1561.         sub     eax,34
  1562.         mov     [scroll_bar_data_horizontal.start_y],ax
  1563.  
  1564. ;cur_area/(size_x-30)=len_str_scr/string_size
  1565.  
  1566.         mov     eax,dword [threath_buf+62]
  1567.         sub     ax,[scroll_bar_data_vertical.size_x]
  1568.         mov     [scroll_bar_data_horizontal.size_x],ax
  1569.         sub     eax,[scroll_bar_data_horizontal.btn_high]
  1570.         sub     eax,[scroll_bar_data_horizontal.btn_high]
  1571.         mov     [scroll_bar_data_horizontal.max_area],eax
  1572.         xor     edx,edx
  1573.         mov     ebx,[len_str_scr]
  1574.         mul     ebx
  1575.         mov     ebx,[ready_screen_buffer.string_size]
  1576.         shr     ebx,1
  1577.         div     ebx
  1578.         mov     [scroll_bar_data_horizontal.cur_area],eax
  1579.  
  1580.         push    dword scroll_bar_data_horizontal        ;draw for Horizontal ScrollBar
  1581.         call    [scrollbar_hor_mouse]
  1582.         xor     eax,eax
  1583.         inc     eax
  1584.         mov     [scroll_bar_data_horizontal.all_redraw],eax
  1585.         push    dword scroll_bar_data_horizontal        ;draw for Vertical ScrollBar
  1586.         call    [scrollbar_hor_draw]
  1587.         xor     eax,eax ;reset all_redraw flag
  1588.         mov     [scroll_bar_data_horizontal.all_redraw],eax
  1589. @@:
  1590.         mov     eax,[low_area]
  1591.         mov     edi,[screen_table]
  1592.         mov     esi,[bytes_per_line]
  1593.         mov     ecx,esi
  1594.         shl     ecx,1
  1595.         mov     eax,[edi]
  1596.         mov     ebx,[cursor]
  1597.         inc     ebx
  1598.         shr     ebx,1
  1599. @@:
  1600.         cmp     eax,ebx
  1601.         jge     @f
  1602.         add     [begin_offset],esi
  1603.         sub     [cursor],ecx
  1604.         sub     ebx,esi
  1605.         jmp     @b
  1606. ;--------------------------------------
  1607. @@:
  1608.         bts     [flags],6
  1609.         ret
  1610. ;--------------------------------------------------------------------
  1611. align   4
  1612. start_draw:
  1613.         mcall   SF_REDRAW,SSF_BEGIN_DRAW
  1614.         ret
  1615. ;--------------------------------------------------------------------
  1616. end_draw:
  1617.         mcall   SF_REDRAW,SSF_END_DRAW
  1618.         ret
  1619. ;--------------------------------------------------------------------
  1620. close_prog:
  1621.         mcall   SF_TERMINATE_PROCESS
  1622. ;--------------------------------------------------------------------
  1623. change_codepage:        ;¬¥­ï¥¬ ¢â®àãî ¯®«®¢¨­ã â ¡«¨æë
  1624.         test    ah,ah
  1625.         jnz     @f
  1626.         btc     [flags],4
  1627.         jc      .1
  1628.         push    [codepage_offset]
  1629.         pop     [codepage_offset_previous]
  1630.         mov     [codepage_offset],2*128
  1631.         jmp     .end
  1632. ;--------------------------------------
  1633. .1:
  1634.         push    [codepage_offset_previous]
  1635.         pop     [codepage_offset]
  1636.         jmp     .end
  1637. ;--------------------------------------
  1638. @@:
  1639.         cmp     [codepage_offset],0
  1640.         jne     @f
  1641.         add     [codepage_offset],128
  1642.         jmp     .end
  1643. ;--------------------------------------
  1644. @@:
  1645.         mov     [codepage_offset],0
  1646. .end:
  1647.         call    show_codepage
  1648.         jmp     red
  1649. ;--------------------------------------------------------------------
  1650. show_codepage:
  1651.         mov     ebp,6
  1652.         mov     edx,dword [threath_buf+62]
  1653.         sub     edx,73
  1654.         shl     edx,16
  1655.         add     edx,[low_area]
  1656.         mov     edi,string_cp866
  1657.         cmp     [codepage_offset],0
  1658.         je      @f
  1659.         add     edi,6
  1660.         cmp     [codepage_offset],128
  1661.         je      @f
  1662.         add     edi,6
  1663. @@:
  1664.         mov     ecx,8*65536+16
  1665.         mov     esi,1
  1666.         push    ebp
  1667.         mov     ebp,0
  1668. @@:
  1669.         xor     ebx,ebx
  1670.         push    edi
  1671.         mov     bl,[edi]
  1672.         shl     bx,4
  1673.         add     ebx,font_buffer
  1674.         mov     edi,palitra.5
  1675.         mcall   SF_PUT_IMAGE_EXT
  1676.         add     edx,8*65536
  1677.         pop     edi
  1678.         inc     edi
  1679.         dec     dword [esp]
  1680.         jnz     @b
  1681.         add     esp,4
  1682.         ret
  1683. ;--------------------------------------------------------------------
  1684. show_insert:    ;®â®¡à ¦¥­¨¥ ०¨¬  ¢áâ ¢ª¨/§ ¬¥­ë
  1685.         mov     ebp,3
  1686.         mov     edx,dword [threath_buf+62]
  1687.         sub     edx,120
  1688.         shl     edx,16  ; mov edx,428*65536+335
  1689.         add     edx,[low_area]
  1690.         mov     edi,string_ins
  1691.         push    ebp
  1692.         mov     ecx,8*65536+16
  1693.         mov     esi,1
  1694.         mov     ebp,0
  1695. .1:
  1696.         xor     ebx,ebx
  1697.         push    edi
  1698.         bt      [flags],1
  1699.         jnc     .2
  1700.         mov     bl,[edi]
  1701.         shl     bx,4
  1702. .2:
  1703.         add     ebx,font_buffer
  1704.         mov     edi,palitra.5
  1705.         mcall   SF_PUT_IMAGE_EXT
  1706.         add     edx,8*65536
  1707.         pop     edi
  1708.         inc     edi
  1709.         dec     dword [esp]
  1710.         jnz     .1
  1711.         add     esp,4
  1712.         ret
  1713. ;-------------------------------------------------------------------------------
  1714.         ;help window
  1715. create_help_window:
  1716.         pushad
  1717.         cmp     [help_is_open_already], 1
  1718.         jne     @f
  1719.         mov     ecx, [help_window_pid]
  1720.         mcall   SF_SYSTEM, SSF_GET_THREAD_SLOT
  1721.         xchg    eax, ecx
  1722.         mcall   SF_SYSTEM, SSF_FOCUS_WINDOW
  1723.         popad
  1724.         ret
  1725. ;---------------------------------------------------------------------
  1726. @@:
  1727.         mcall   SF_CREATE_THREAD,1,.thread,(.threat_stack+16*4)
  1728.         mov     [help_is_open_already], 1
  1729.         mov     [help_window_pid], eax
  1730.         popad
  1731.         ret
  1732. ;--------------------------------------------------------------------
  1733. .thread:
  1734.         call    .window
  1735. ;--------------------------------------------------------------------
  1736. .still:
  1737.         mcall   SF_WAIT_EVENT
  1738.         dec     al
  1739.         jz      .red
  1740.         dec     al
  1741.         jz      .key
  1742.         dec     al
  1743.         jz      .button
  1744.         jmp     .still
  1745. ;--------------------------------------------------------------------
  1746.         and     [help_is_open_already], 0
  1747.         mcall   SF_TERMINATE_PROCESS
  1748. .button:
  1749.         mcall   SF_GET_BUTTON
  1750.         cmp     ah,1
  1751.         jne     @f
  1752.         and     [help_is_open_already], 0
  1753.         mcall   SF_TERMINATE_PROCESS
  1754. @@:
  1755.         cmp     ah,2
  1756.         jne     @f
  1757.         mov     edi,(help_end-help_text)/51
  1758.         movzx   eax,[cur_help_string]
  1759.         sub     edi,13
  1760.         sub     edi,eax
  1761.         jz      .still
  1762.         inc     [cur_help_string]
  1763.         jmp     .red
  1764. ;--------------------------------------
  1765. @@:
  1766.         cmp     ah,3
  1767.         jne     .still
  1768.         cmp     [cur_help_string],0
  1769.         je      .still
  1770.         dec     [cur_help_string]
  1771.         jmp     .red
  1772. ;--------------------------------------------------------------------
  1773. .key:
  1774.         mcall   SF_GET_KEY
  1775.         jmp     .still
  1776. ;--------------------------------------------------------------------
  1777. .red:
  1778.         call    .window
  1779.         jmp     .still
  1780. ;--------------------------------------------------------------------
  1781. .window:
  1782.         pushad
  1783.         mcall   SF_REDRAW,SSF_BEGIN_DRAW
  1784.         mcall   SF_CREATE_WINDOW,50*65536+320,0x70*65536+240,0x13000000,,help_but_text
  1785.         mcall   SF_DEFINE_BUTTON,<130,20>,<6,12>,2,0xaaaaaa
  1786.         mcall   ,<150,20>,,3,
  1787.         mov     ebx,8*65536+15
  1788.         mov     ecx,0x00DDDDDD
  1789.         xor     edx,edx
  1790.         movzx   eax,byte [cur_help_string]
  1791.         mov     edi,(help_end-help_text)/51
  1792.         sub     edi,eax
  1793.         mov     esi,51
  1794.         mul     si
  1795.         mov     edx,help_text
  1796.         add     edx,eax
  1797.         mov     eax,SF_DRAW_TEXT
  1798. @@:
  1799.         add     ebx,0x10
  1800.         mcall
  1801.         add     edx,51
  1802.         dec     edi
  1803.         jnz     @b
  1804.         mcall   SF_REDRAW,SSF_END_DRAW
  1805.         popad
  1806.         ret
  1807. ;--------------------------------------------------------------------
  1808. .threat_stack:  times   16      dd      0
  1809. ;--------------------------------------------------------------------
  1810. open_file:
  1811.         mov     [func_70.Function],SSF_GET_INFO
  1812.         mov     [func_70.Position],0
  1813.         mov     [func_70.Flags],0
  1814.         mov     [func_70.Count],0
  1815.         mov     [func_70.Buffer],bufferfinfo
  1816.         mov     [func_70.rezerv],0
  1817.         mov     [func_70.FileName],file_name
  1818.         mcall   SF_FILE,func_70
  1819.  
  1820.         test    al,al   ;ä ©« ­ ©¤¥­?
  1821.         jz      @f
  1822.         mcall   SF_DRAW_TEXT,400*65536+31,0x80CC0000,error_open_file_string
  1823.         jmp     open_file
  1824. ;--------------------------------------------------------------------
  1825. @@:
  1826.         mov     eax,    dword [bufferfinfo+32]  ;ª®¯¨à㥬 à §¬¥à ä ©« 
  1827.         mov     [file_size],eax
  1828.  
  1829.         mcall   SF_SYS_MISC,SSF_MEM_FREE,[file_buffer]
  1830.         test    eax,eax
  1831.         jnz     @f
  1832.         ;§¤¥áì ®è¨¡ª  ­  ­¥ ®á¢®¡®¦¤¥­¨¥ ¡«®ª 
  1833. @@:
  1834.         mov ecx,[file_size]
  1835.         or ecx,ecx
  1836.         jnz @f
  1837.         inc ecx ;¥á«¨ à §¬¥à ä ©«  0 ¡ ©â
  1838. @@:
  1839.         mcall   SF_SYS_MISC,SSF_MEM_ALLOC
  1840.         mov     [file_buffer],eax
  1841.  
  1842. ;;¨¬¥¥¬ â ¡«¨æã: [ DWORD 㪠§ â¥«ì ­  ¯¥à¢ë© í«¥¬¥­â ¡«®ª  : DWORD ¤«¨­  ¡«®ª  ]
  1843.  
  1844.         mov     [func_70.Function],SSF_READ_FILE
  1845.         mov     [func_70.Position],0
  1846.         mov     [func_70.Flags],0
  1847.         mov     [func_70.rezerv],0
  1848.         mov     [func_70.FileName],file_name
  1849.         push    dword [file_size];dword [edi+4]
  1850.         pop     dword [func_70.Count]
  1851.         push    dword [file_buffer];dword [edi]
  1852.         pop     dword [func_70.Buffer]
  1853.         mcall   SF_FILE,func_70
  1854.  
  1855.         test    eax,eax
  1856.         jz      @f
  1857.         ;®è¨¡ª  ç⥭¨ï
  1858. @@:
  1859.         call    Ctrl_HOME
  1860.  
  1861.         jmp     redraw_all
  1862. ;-------------------------------------------------------------------------------
  1863. open_dialog_save:
  1864.         mov     [OpenDialog_data.type],1        ; Save
  1865.  
  1866.         push    dword OpenDialog_data
  1867.         call    [OpenDialog_Start]
  1868.  
  1869. ;       cmp     [OpenDialog_data.status],2      ; OpenDialog does not start
  1870.         cmp     [OpenDialog_data.status],1
  1871.         jne     still
  1872.         mov     esi,fname_buf
  1873.         mov     edi,file_name
  1874.         cld
  1875. @@:
  1876.         cmp     byte [esi],0
  1877.         je      @f
  1878.         movsb
  1879.         jmp     @b
  1880. ;--------------------------------------
  1881. @@:
  1882.         mov     byte [edi],0
  1883.         sub     esi,path
  1884.         mov     [edit1.size],esi
  1885.         mov     [edit1.pos],esi
  1886. ;       jmp     save_file
  1887. ;-------------------------------------------------------------------------------
  1888. save_file:      ;á®å࠭塞 ä ©«
  1889.         mov     [func_70.Function],SSF_CREATE_FILE
  1890.         mov     [func_70.Position],0
  1891.         mov     [func_70.Flags],0
  1892.         push    [file_size]
  1893.         pop     [func_70.Count]
  1894.         push    [file_buffer]
  1895.         pop     [func_70.Buffer]
  1896.         mov     [func_70.rezerv],0
  1897.         mov     [func_70.FileName],file_name
  1898.         mcall   SF_FILE,func_70
  1899.         cmp     al,0    ;á®åà ­ñ­ 㤠筮?
  1900.         je      redraw_all
  1901.         mcall   SF_DRAW_TEXT,400*65536+31,0x80CC0000,error_save_file_string
  1902.         jmp     save_file
  1903. ;-------------------------------------------------------------------------------
  1904. draw_ed_box:    ;à¨á®¢ ­¨¥ edit box' 
  1905. .1:
  1906.         push    eax     ebx     ecx     edx
  1907.         mcall   SF_DRAW_RECT,180*65536+220,25*65536+70,0xaaaaaa
  1908.         bt      [flags],9
  1909.         jnc     @f
  1910.         mcall   SF_DRAW_TEXT,246*65536+35,0x80ffffff,sel_text
  1911. @@:
  1912.         bt      [flags],2
  1913.         jnc     @f
  1914.         push    dword Option_boxs
  1915.         call    [option_box_draw]
  1916. @@:
  1917.         bt      [flags],3
  1918.         jnc     @f
  1919.         push    dword Option_boxs2
  1920.         call    [option_box_draw]
  1921. @@:
  1922.         mov     eax,ed_box_data
  1923.         mov     ecx,[eax]
  1924. @@:
  1925.         add     eax,4
  1926.         push    dword [eax]
  1927.         call    [edit_box_draw]
  1928.         loop    @b
  1929.         pop     edx     ecx     ebx     eax
  1930. .2:
  1931.         mcall   SF_WAIT_EVENT
  1932.         cmp     al,6
  1933.         je      .mouse
  1934.         cmp     al,3
  1935.         je      .button
  1936.         cmp     al,2
  1937.         je      .keys
  1938.         cmp     al,1
  1939.         jne     .2
  1940.         call    draw_window
  1941.        
  1942.         mov     eax,[threath_buf+70]
  1943.         test    eax,10b
  1944.         jnz     .2
  1945.         test    eax,100b
  1946.         jnz     .2
  1947.        
  1948.         call    main_area
  1949.         bt      [flags],2
  1950.         jnc     @f
  1951.         push    dword Option_boxs
  1952.         call    [option_box_draw]
  1953. @@:
  1954.         bt      [flags],3
  1955.         jnc     @f
  1956.         push    dword Option_boxs2
  1957.         call    [option_box_draw]
  1958. @@:
  1959.         jmp     .1
  1960. ;--------------------------------------------------------------------
  1961. .mouse:
  1962.         bt      [flags],2
  1963.         jnc     @f
  1964.         push    dword Option_boxs
  1965.         call    [option_box_mouse]
  1966. @@:
  1967.         bt      [flags],3
  1968.         jnc     @f
  1969.         push    dword Option_boxs2
  1970.         call    [option_box_mouse]
  1971. @@:
  1972.         jmp     .2
  1973. ;--------------------------------------------------------------------
  1974. .keys:
  1975.         mcall   SF_GET_KEY
  1976.         cmp     ah,13
  1977.         je      .4
  1978.         cmp     ah,27
  1979.         je      .3
  1980.  
  1981.         bt      [flags],2       ;¯à®¢¥àª  ­  ¯à¨¬¥­¨¬®áâì ᨬ¢®«®¢ 0-9,a-b
  1982.         jnc     .eb2
  1983. .eb1:
  1984.         cmp     ah,9
  1985.         jne     .eb1_1
  1986.         push    edx
  1987.         mov     edx,[option_group1]
  1988.         cmp     edx,op1
  1989.         jne     @f
  1990.         mov     edx,op2
  1991.         jmp     .eb1_2
  1992. ;--------------------------------------
  1993. @@:
  1994.         cmp     edx,op2
  1995.         jne     @f
  1996.         mov     edx,op3
  1997.         jmp     .eb1_2
  1998. ;--------------------------------------
  1999. @@:
  2000.         mov     edx,op1
  2001. .eb1_2:
  2002.         mov     [option_group1],edx
  2003.         pop     edx
  2004.         jmp     .1
  2005. ;--------------------------------------
  2006. .eb1_1:
  2007.         cmp     ah,48
  2008.         jb      .eb1_3
  2009.         cmp     ah,57
  2010.         jbe     .eb
  2011.         cmp     ah,102
  2012.         jg      .eb1_3
  2013.         cmp     ah,97
  2014.         jge     .eb
  2015. .eb1_3:
  2016.         cmp     ah,182
  2017.         je      .eb
  2018.         cmp     ah,8
  2019.         je      .eb
  2020.         cmp     ah,176
  2021.         je      .eb
  2022.         cmp     ah,179
  2023.         je      .eb
  2024.         dec     [edit2.shift]
  2025.         dec     [edit2.shift+4]
  2026.  
  2027.         push    dword [ed_box_data+4];  [esp]
  2028.         call    [edit_box_draw]
  2029.         jmp     .2
  2030. ;--------------------------------------
  2031. .eb2:
  2032.         bt      [flags],3
  2033.         jnc     .eb3
  2034.         cmp     ah,9
  2035.         jne     .eb2_2
  2036.         push    edx
  2037.         mov     edx,[option_group2]
  2038.         cmp     edx,op11
  2039.         jne     @f
  2040.         mov     edx,op12
  2041.         jmp     .eb2_1
  2042. ;--------------------------------------
  2043. @@:
  2044.         mov     edx,op11
  2045. .eb2_1:
  2046.         mov     [option_group2],edx
  2047.         pop     edx
  2048.         jmp     .1
  2049. ;--------------------------------------
  2050. .eb2_2:
  2051.         cmp     ah,182
  2052.         je      .eb
  2053.         cmp     ah,8
  2054.         je      .eb
  2055.         cmp     ah,176
  2056.         je      .eb
  2057.         cmp     ah,179
  2058.         je      .eb
  2059.         mov     edx,[option_group2]
  2060.         cmp     edx,op11
  2061.         jne     .eb
  2062.         cmp     ah,48
  2063.         jb      .eb2_3
  2064.         cmp     ah,57
  2065.         jbe     .eb
  2066.         cmp     ah,102
  2067.         jg      .eb2_3
  2068.         cmp     ah,97
  2069.         jge     .eb
  2070. .eb2_3:
  2071.         dec     [edit3.shift]
  2072.         dec     [edit3.shift+4]
  2073.         push    dword [ed_box_data+4];[esp]
  2074.         call    [edit_box_draw]
  2075.         jmp     .2
  2076. ;--------------------------------------
  2077. .eb3:
  2078.         bt      [flags],9
  2079.         jnc     .eb
  2080.         cmp     ah,9
  2081.         je      .eb3_1
  2082.         cmp     ah,182
  2083.         je      .eb3_2
  2084.         cmp     ah,8
  2085.         je      .eb3_2
  2086.         cmp     ah,176
  2087.         je      .eb3_2
  2088.         cmp     ah,179
  2089.         je      .eb3_2
  2090.         cmp     ah,48
  2091.         jb      .eb3_3
  2092.         cmp     ah,57
  2093.         jbe     .eb3_2
  2094.         cmp     ah,102
  2095.         jg      .eb3_3
  2096.         cmp     ah,97
  2097.         jge     .eb3_2
  2098. .eb3_3:
  2099.         push    edx
  2100.         mov     edx,[edit4.flags]
  2101.         and     edx,2
  2102.         jz      @f
  2103.         pop     edx
  2104.         dec     [edit4.shift]
  2105.         dec     [edit4.shift+4]
  2106.         jmp     .2
  2107. ;--------------------------------------
  2108. @@:
  2109.         pop     edx
  2110.         dec     [edit5.shift]
  2111.         dec     [edit5.shift+4]
  2112.         jmp     .2
  2113. ;--------------------------------------
  2114. .eb3_1:
  2115.         push    edx
  2116.         mov     edx,[edit4.flags]
  2117.         and     edx,2
  2118.         jz      @f
  2119.         pop     edx
  2120.         mov     [edit5.flags],2
  2121.         mov     [edit4.flags],0
  2122.         jmp     .eb3_2
  2123. ;--------------------------------------
  2124. @@:
  2125.         pop     edx
  2126.         mov     [edit4.flags],2
  2127.         mov     [edit5.flags],0
  2128. .eb3_2:
  2129.         push    dword [ed_box_data+4]
  2130.         call    [edit_box_key]
  2131.         push    dword [ed_box_data+8]
  2132.         call    [edit_box_key]
  2133.         jmp     .1
  2134. ;--------------------------------------
  2135. .eb:
  2136.         push    dword [ed_box_data+4];[esp]
  2137.         call    [edit_box_key]
  2138.         jmp     .2
  2139. ;--------------------------------------------------------------------
  2140. .button:
  2141.         mcall   SF_GET_BUTTON
  2142.         cmp     ah,1
  2143.         jne     .2
  2144.         jmp     close_prog
  2145. .3:
  2146.         btr     [flags],2
  2147.         btr     [flags],3
  2148.         add     esp,4
  2149.         jmp     redraw_all
  2150. .4:
  2151.         mcall   SF_DRAW_RECT,180*65536+220,25*65536+70,frgrd_color
  2152.         ret
  2153. ;--------------------------------------------------------------------
  2154. strtohex:
  2155. ;enter: edi - pointer to string,ebx - pointer to size of string; exit: eax in hex
  2156.         mov     esi,hex8_string
  2157. @@:
  2158.         mov     ah,[edi+ecx-1]  ;®¡à ¡®âª  ¢¢¥¤ñ­­ëå ᨬ¢®«®¢
  2159.         sub     ah,48
  2160.         cmp     ah,9
  2161.         jbe     .1
  2162.         sub     ah,7
  2163.         cmp     ah,15
  2164.         jbe     .1
  2165.         sub     ah,32
  2166. .1:
  2167.         mov     [esi+ecx-1],ah
  2168.         dec     ecx
  2169.         jnz     @b
  2170.         mov     ecx,[ebx]
  2171.         xor     eax,eax
  2172. .2:
  2173.         shl     eax,4
  2174.         or      al,[esi]
  2175.         inc     esi
  2176.         dec     ecx
  2177.         jnz     .2
  2178.         ret
  2179.  
  2180. Ctrl_G:
  2181.         bts     [flags],2
  2182.         mov     dword [ed_box_data],1
  2183.         mov     dword [ed_box_data+4],edit2
  2184.         call    draw_ed_box
  2185.         btr     [flags],2
  2186.         mov     ecx,[edit2.size]
  2187.         test    ecx,ecx
  2188.         jz      .end
  2189.         cmp     ecx,8
  2190.         jg      Ctrl_G
  2191.  
  2192.         mov     edi,go_to_string
  2193.         mov     ebx,edit2.size
  2194.         call    strtohex
  2195.  
  2196.         cmp     eax,[file_size] ;¢ë¡®à check_box' 
  2197.         jg      Ctrl_G
  2198.         mov     edx,[option_group1]
  2199.         cmp     edx,op1 ;abs
  2200.         je      .abs
  2201.         cmp     edx,op2
  2202.         jne     .back
  2203.         add     eax,[current_offset]    ;forward
  2204.         cmp     eax,[file_size]
  2205.         jg      Ctrl_G
  2206.         mov     edi,[screen_table]
  2207.         mov     edi,[edi]
  2208.         xor     edx,edx
  2209. @@:
  2210.         add     edx,edi
  2211.         cmp     eax,edx
  2212.         jg      @b
  2213.         sub     edx,edi
  2214.         mov     [begin_offset],edx
  2215.         sub     eax,edx
  2216.         shl     eax,1
  2217.         inc     eax
  2218.         mov     [cursor],eax
  2219.         jmp     .end
  2220. ;--------------------------------------------------------------------
  2221. .back:
  2222.         cmp     eax,[current_offset]    ;back
  2223.         jg      Ctrl_G
  2224.         mov     edi,[screen_table]
  2225.         mov     edi,[edi]
  2226.         mov     ebx,[current_offset]
  2227.         sub     ebx,eax
  2228.         xor     edx,edx
  2229. @@:
  2230.         add     edx,edi
  2231.         cmp     edx,ebx
  2232.         jb      @b
  2233.         sub     edx,edi
  2234.         mov     [begin_offset],edx
  2235.         sub     ebx,edx
  2236.         mov     edx,ebx
  2237.         shl     edx,1
  2238.         inc     edx
  2239.         mov     [cursor],edx
  2240.         jmp     .end
  2241. ;--------------------------------------------------------------------
  2242. .abs:
  2243.         mov     esi,[screen_table]
  2244.         mov     esi,[esi]
  2245.         xor     ebx,ebx
  2246. .3:
  2247.         add     ebx,esi
  2248.         cmp     eax,ebx
  2249.         jg      .3
  2250.         sub     ebx,esi
  2251.         cmp     ebx,[file_size]
  2252.         jg      Ctrl_G
  2253.         mov     [begin_offset],ebx
  2254.         sub     eax,ebx
  2255.         shl     eax,1
  2256.         inc     eax
  2257.         mov     [cursor],eax
  2258. .end:
  2259.         jmp     red
  2260. ;--------------------------------------------------------------------
  2261. Ctrl_B:
  2262.         bts     [flags],9
  2263.         mov     dword [ed_box_data],2
  2264.         mov     dword [ed_box_data+4],edit4
  2265.         mov     dword [ed_box_data+8],edit5
  2266.         call    draw_ed_box
  2267.         btr     [flags],9
  2268.  
  2269.         mov     ecx,[edit4.size]
  2270.         test    ecx,ecx
  2271.         jz      .end
  2272.         cmp     ecx,8
  2273.         jg      Ctrl_B
  2274.  
  2275.         mov     edi,sel1_string
  2276.         mov     ebx,edit4.size
  2277.         call    strtohex
  2278.  
  2279.         cmp     eax,[file_size]
  2280.         jge     Ctrl_B
  2281.         push    eax     ;from
  2282.         mov     ecx,[edit5.size]
  2283.         test    ecx,ecx
  2284.         jz      .end
  2285.         cmp     ecx,8
  2286.         jg      Ctrl_B
  2287.  
  2288.         mov     edi,sel2_string
  2289.         mov     ebx,edit5.size
  2290.         call    strtohex
  2291.  
  2292.         cmp     eax,[file_size]
  2293.         jb      @f
  2294.         pop     eax
  2295.         jmp     Ctrl_B
  2296.  
  2297. @@:
  2298.         pop     [shblock_beg]
  2299.         cmp     eax,[shblock_beg]
  2300.         jae     @f
  2301.         xchg    eax,[shblock_beg]
  2302. @@:
  2303.         mov     [shblock_end],eax
  2304.         bts     [flags],8
  2305. .end:
  2306.         jmp     red
  2307. ;--------------------------------------------------------------------
  2308. Ctrl_F:
  2309.         bts     [flags],3
  2310.         mov     dword [ed_box_data],1
  2311.         mov     dword [ed_box_data+4],edit3
  2312.         call    draw_ed_box
  2313.         btr     [flags],3
  2314.         mov     ecx,[edit3.size]
  2315.         test    ecx,ecx
  2316.         jz      .end
  2317.         cmp     ecx,8
  2318.         jg      Ctrl_F
  2319.         mov     edi,find_string
  2320.         mov     edx,[option_group2]
  2321.         cmp     edx,op11
  2322.         jne     .find
  2323.         mov     eax,find_string
  2324.         push    dword [eax]
  2325.         push    dword [eax+4]
  2326.         bts     [flags],0
  2327.         mov     ebx,edit3.size
  2328.         call    strtohex
  2329.         mov     ecx,[edit3.size]
  2330.         bt      cx,0
  2331.         jnc     .3
  2332.         inc     ecx
  2333.         shl     eax,4
  2334. .3:
  2335.         shr     ecx,1
  2336. .4:
  2337.         mov     [edi+ecx-1],al
  2338.         shr     eax,8
  2339.         loop    .4
  2340. .find:
  2341.         mov     esi,[current_offset]
  2342.         mov     ebx,[file_size]
  2343.         mov     eax,ebx
  2344.         add     eax,[file_buffer]
  2345.         add     esi,[file_buffer]
  2346. .5:
  2347.         mov     ecx,[edit3.size]
  2348.         cmp     edx,op11
  2349.         jne     .7
  2350.         bt      cx,0
  2351.         jnc     .6
  2352.         inc     ecx
  2353. .6:
  2354.         shr     ecx,1
  2355. .7:
  2356.         cld
  2357. @@:
  2358.         cmp     esi,eax
  2359.         jg      .end
  2360.         cmpsb
  2361.         je      .8
  2362.         mov     edi,find_string
  2363.         jmp     .5
  2364. ;--------------------------------------
  2365. .8:
  2366.         loop    @b
  2367.         sub     esi,[file_buffer]
  2368.         mov     ecx,[edit3.size]
  2369.         cmp     edx,op11
  2370.         jne     .10
  2371.         bt      cx,0
  2372.         jnc     .9
  2373.         inc     ecx
  2374. .9:
  2375.         shr     ecx,1
  2376. .10:
  2377.         sub     esi,ecx
  2378.         xor     edx,edx
  2379.         mov     edi,[screen_table]
  2380.         mov     edi,[edi]
  2381. @@:
  2382.         add     edx,edi
  2383.         cmp     edx,esi
  2384.         jb      @b
  2385.         sub     edx,edi
  2386.         mov     [begin_offset],edx
  2387.         sub     esi,edx
  2388.         shl     esi,1
  2389.         inc     esi
  2390.         mov     [cursor],esi
  2391. .end:
  2392.         bt      [flags],0
  2393.         jnc     @f
  2394.         mov     eax,find_string
  2395.         pop     dword [eax+4]
  2396.         pop     dword [eax]
  2397.         btr     [flags],0
  2398. @@:
  2399.         jmp     red
  2400. ;--------------------------------------------------------------------
  2401. invert_byte:
  2402.         mov     ebx,[current_offset]
  2403.         cmp     ebx,[file_size]
  2404.         jae     still
  2405.         add     ebx,[file_buffer]
  2406.         not     byte [ebx]
  2407.         jmp     red
  2408. ;--------------------------------------------------------------------
  2409. Insert: ;¯¥à¥ª«î祭¨¥   ०¨¬   ¢áâ ¢ª¨/§ ¬¥­ë
  2410.         btc     [flags],1       ;not [insert_mod]
  2411.         call    show_insert
  2412.         jmp     red
  2413. ;--------------------------------------------------------------------
  2414. DEL:
  2415.         bt      [flags],1
  2416.         jnc     still
  2417.         mov     edi,[current_offset]
  2418.         mov     esi,[file_buffer]
  2419.         mov     edx,[file_size]
  2420.         test    edx,edx
  2421.         jz      still
  2422.         dec     edx
  2423.         cmp     edi,edx
  2424.         jbe     @f
  2425.         call    LEFT
  2426.         call    LEFT
  2427.         jmp     red
  2428. @@:
  2429.         jb      @f
  2430.         call    LEFT
  2431.         call    LEFT
  2432. @@:
  2433.         cmp     edi,edx
  2434.         je      @f
  2435.         mov     al,[edi+esi+1]
  2436.         mov     [edi+esi],al
  2437.         inc     edi
  2438.         jmp     @b
  2439. @@:
  2440.         dec     [file_size]
  2441.         call    show_file_size
  2442.         jmp     red
  2443. ;--------------------------------------------------------------------
  2444. BackSpace:
  2445.         bt      [flags],1       ;cmp [insert_mod],0
  2446.         jnc     still   ;je still
  2447.         mov     edi,[current_offset]
  2448.         mov     esi,[file_buffer]
  2449.         mov     edx,[file_size]
  2450.         test    edx,edx
  2451.         jz      still
  2452.         test    edi,edi
  2453.         jz      still
  2454.         call    LEFT
  2455.         call    LEFT
  2456.         cmp     [cursor],2
  2457.         jne     @f
  2458.         cmp     edx,1
  2459.         jne     @f
  2460.         dec     [cursor]
  2461. @@:
  2462.         cmp     edi,edx
  2463.         jge     @f
  2464.         mov     al,[edi+esi]
  2465.         mov     [edi+esi-1],al
  2466.         inc     edi
  2467.         jmp     @b
  2468. ;--------------------------------------
  2469. @@:
  2470.         dec     [file_size]
  2471.         call    show_file_size
  2472.         jmp     red
  2473. ;--------------------------------------------------------------------
  2474. Ctrl_UP:
  2475.         cmp     [begin_offset],0
  2476.         je      @f
  2477.         mov     eax,[bytes_per_line]
  2478.         sub     [begin_offset],eax
  2479. @@:
  2480.         ret
  2481. ;--------------------------------------------------------------------
  2482. Ctrl_DOWN:
  2483.         mov     eax,[cursor]
  2484.         dec     eax
  2485.         shr     eax,1
  2486.         add     eax,[begin_offset]
  2487.         mov     ebx,[bytes_per_line]
  2488.         add     eax,ebx
  2489.         cmp     eax,[file_size]
  2490.         jge     @f
  2491.         add     [begin_offset],ebx
  2492. @@:
  2493.         ret
  2494. ;--------------------------------------------------------------------
  2495. UP:
  2496.         mov     eax,[current_offset]
  2497.         cmp     eax,[bytes_per_line]
  2498.         jb      still
  2499.         mov     eax,[cursor]
  2500.         dec     ax
  2501.         shr     ax,1
  2502.         cmp     eax,[bytes_per_line]
  2503.         jge     @f
  2504.         mov     eax,[bytes_per_line]
  2505.         sub     [begin_offset],eax
  2506.         jmp     red
  2507. @@:
  2508.         mov     eax,[bytes_per_line]
  2509.         shl     ax,1
  2510.         sub     [cursor],eax
  2511.         jmp     red
  2512. ;--------------------------------------------------------------------
  2513. DOWN:   ;­      áâà®ªã  ¢­¨§
  2514.         mov     eax,[current_offset]
  2515.         add     eax,[bytes_per_line]
  2516.         bt      [flags],1
  2517.         jnc     @f
  2518.         dec     eax
  2519. @@:
  2520.         cmp     eax,[file_size]
  2521.         jge     still   ;¥á«¨ ¬ë ­  ¯®á«¥¤­¥© áâப¥ ä ©« , â® á⮯
  2522.         mov     eax,[screen_table]
  2523.         mov     eax,[eax]
  2524.         mov     edx,[cursor]
  2525.         dec     dx
  2526.         shr     dx,1
  2527.         add     edx,[bytes_per_line]
  2528.         cmp     eax,edx ;­  ¯®á«¥¤­¥© áâப¥?
  2529.         jbe     @f
  2530.         mov     eax,[bytes_per_line]
  2531.         shl     ax,1
  2532.         add     [cursor],eax
  2533.         ret
  2534. @@:
  2535.         mov     eax,[bytes_per_line]
  2536.         add     [begin_offset],eax
  2537.         ret
  2538. ;--------------------------------------------------------------------
  2539. LEFT:
  2540.         cmp     [cursor],1
  2541.         jbe     @f
  2542.         dec     [cursor]
  2543.         jmp     .end
  2544. ;--------------------------------------
  2545. @@:
  2546.         cmp     [begin_offset],0        ;ªãàá®à ­  ¯¥à¢®© áâப¥ ᮠᬥ饭¨¥¬ 0?
  2547.         jne     @f      ;¨­ ç¥ ᬥ頥¬ á ¯à®ªàã⪮© ¢¢¥àå ¢¢¥àå ¨ ¢ ª®­¥æ áâப¨
  2548. ;       inc     [cursor]
  2549.         jmp     .end;still      ;⮣¤  á⮯
  2550. ;--------------------------------------
  2551. @@:
  2552.         mov     eax,[bytes_per_line]
  2553.         sub     [begin_offset],eax
  2554.         shl     ax,1
  2555.         dec     eax
  2556.         add     [cursor],eax
  2557. .end:
  2558.         ret
  2559. ;--------------------------------------------------------------------
  2560. RIGHT:
  2561.         mov     ecx,[begin_offset]      ;¢ëç¨á«ï¥¬ ᬥ饭¨¥ ªãàá®à 
  2562.         mov     edx,[cursor]    ;¤«ï ¯à®¢¥àª¨ áãé¥á⢮¢ ­¨ï
  2563.         shr     edx,1   ;á«¥¤ãî饣® ᨬ¢®« 
  2564.         add     ecx,edx
  2565.         bt      [flags],1
  2566.         jnc     @f
  2567.         dec     ecx     ;áà ¢­¨¢ ¥¬ á à §¬¥à®¬ ä ©« 
  2568. @@:
  2569.         cmp     ecx,[file_size] ;¯®«®¦¥­¨¥¬ ªãàá®à  - ­¥ ¤ «¥¥ 1 ¡ ©â  ®â ª®­æ  ä ©« 
  2570.         jge     red
  2571.         cmp     [file_size],0
  2572.         je      still
  2573.         mov     eax,[screen_table]
  2574.         mov     eax,[eax]
  2575.         mov     ecx,[begin_offset]
  2576.         cmp     eax,edx ;áà ¢­¥­¨¥ ­  ­¨¦­îî áâபã
  2577.         jbe     @f
  2578.         inc     [cursor]        ;ªãàá®à ¢¯à ¢®
  2579.         jmp     red
  2580. ;--------------------------------------
  2581. @@:
  2582.         mov     ecx,[bytes_per_line]    ;ᬥ頥¬áï ­  áâà®çªã ¢­¨§
  2583.         add     [begin_offset],ecx      ;á ¯à®ªàã⪮©
  2584.         shl     cx,1
  2585.         dec     cx
  2586.         sub     [cursor],ecx
  2587.         jmp     red
  2588. ;--------------------------------------------------------------------
  2589. PGDN:
  2590.         mov     edi,[screen_table]
  2591.         mov     eax,[edi]
  2592.         shl     eax,1
  2593.         add     eax,[begin_offset]
  2594.         cmp     eax,[file_size] ;¥áâì «¨ ¢®§¬®¦­®áâì ᬥáâ¨âìáï ­  áâà ­¨æã?
  2595.         jg      Ctrl_END
  2596.         mov     eax,[edi]
  2597.         add     [begin_offset],eax
  2598. ;       mov     ebx,[cursor]
  2599. ;       dec     ebx
  2600. ;       xor     ecx,ecx
  2601. ;       bt      ebx,0
  2602. ;       jnc     @f
  2603. ;       inc     ecx
  2604. ;       @@:     shr     ebx,1
  2605. ;       add     ebx,eax
  2606. ;       @@:     cmp     ebx,[file_size]
  2607. ;       jbe     @f
  2608. ;       sub     ebx,[bytes_per_line]
  2609. ;       jmp     @b
  2610. ;       @@:     sub     ebx,eax
  2611. ;       shl     ebx,1
  2612. ;       inc     ebx
  2613. ;       add     ebx,ecx
  2614. ;       mov     [cursor],ebx
  2615.         jmp     red
  2616. ;--------------------------------------------------------------------
  2617. PGUP:
  2618.         mov     eax,[screen_table]
  2619.         mov     eax,[eax]
  2620.         mov     edx,[begin_offset]
  2621.         cmp     eax,edx
  2622.         jbe     @f
  2623.         call    Ctrl_HOME
  2624.         jmp     red
  2625. ;--------------------------------------
  2626. @@:
  2627.         sub     [begin_offset],eax
  2628.         jmp     red
  2629. ;--------------------------------------------------------------------
  2630. HOME:
  2631.         mov     eax,[cursor]
  2632.         dec     ax
  2633.         shr     ax,1
  2634.         mov     ecx,[bytes_per_line]
  2635.         xor     edx,edx
  2636.         div     ecx
  2637.         shl     dx,1
  2638.         sub     [cursor],edx
  2639.         bt      [cursor],0
  2640.         jc      @f
  2641.         dec     [cursor]
  2642. @@:
  2643.         ret
  2644. ;--------------------------------------------------------------------
  2645. END_:
  2646.         mov     eax,[cursor]
  2647.         dec     ax
  2648.         shr     ax,1
  2649.         mov     ecx,[bytes_per_line]
  2650.         xor     edx,edx
  2651.         div     ecx
  2652.         mov     eax,[current_offset]
  2653.         sub     eax,edx
  2654.         add     eax,[bytes_per_line]
  2655.         mov     edx,[file_size]
  2656.         cmp     eax,edx
  2657.         jbe     @f
  2658.         sub     edx,eax
  2659.         add     eax,edx
  2660. @@:
  2661.         sub     eax,[begin_offset]
  2662.         shl     eax,1
  2663.         test    eax,eax
  2664.         jz      red
  2665.         dec     eax
  2666.         mov     [cursor],eax
  2667.         jmp     red
  2668. ;--------------------------------------------------------------------
  2669. Ctrl_HOME:
  2670.         mov     [begin_offset],0
  2671.         mov     [cursor],1
  2672.         ret
  2673. ;--------------------------------------------------------------------
  2674. Ctrl_END:
  2675.         mov     eax,[file_size]
  2676.         mov     ecx,[screen_table]
  2677.         mov     ecx,[ecx]
  2678.         xor     edx,edx
  2679.         div     ecx
  2680.         test    dx,dx
  2681.         jnz     @f
  2682.         test    eax,eax
  2683.         jz      @f
  2684.         mov     edx,ecx
  2685.         dec     eax
  2686. @@:
  2687.         push    dx
  2688.         xor     dx,dx
  2689.         mul     ecx
  2690.         pop     dx
  2691.         shl     edx,1
  2692.         cmp     edx,1
  2693.         jg      @f
  2694.         mov     edx,2
  2695. @@:
  2696.         dec     edx
  2697.         mov     [begin_offset],eax
  2698.         mov     [cursor],edx
  2699.         jmp     red
  2700. ;--------------------------------------------------------------------
  2701. ESC:
  2702.         btr     [flags],8
  2703.         jmp     red
  2704. ;--------------------------------------------------------------------
  2705. copy_to_buf:
  2706.         bt      [flags],8
  2707.         jnc     .1
  2708.         mov     eax,[shblock_end]
  2709.         sub     eax,[shblock_beg]
  2710.         inc     eax
  2711.         mov     ecx,eax
  2712.         mov     [copy_len],eax
  2713.         mcall   SF_SYS_MISC,SSF_MEM_REALLOC,,[copy_buf]
  2714.         mov     esi,[shblock_beg]
  2715.         mov     edi,[copy_buf]
  2716.         add     esi,[file_buffer]
  2717.         mov     ecx,[copy_len]
  2718.         cld
  2719. @@:
  2720.         movsb
  2721.         loop    @b
  2722.         bts     [flags],10
  2723.         xor     eax,eax
  2724.         ret
  2725. ;---------------------------------------------------------------------
  2726. .1:
  2727.         or      eax,-1
  2728.         ret
  2729. ;--------------------------------------------------------------------
  2730. Ctrl_C:
  2731.         call    copy_to_buf
  2732.         jmp     still
  2733. ;--------------------------------------------------------------------
  2734. shblock_sz      dd      0
  2735. ;--------------------------------------------------------------------
  2736. Ctrl_V:
  2737.         bt      [flags],10
  2738.         jnc     still
  2739.         bt      [flags],8
  2740.         jnc     .past_kurs
  2741. ;¢áâ ¢«ï¥¬ ¡«®ª ¢ ¢ë¤¥«¥­­ãî ®¡« áâì
  2742.         mov     ebx,[shblock_end]
  2743.         sub     ebx,[shblock_beg]
  2744.         inc     ebx
  2745.         mov     [shblock_sz],ebx
  2746.         mov     esi,[copy_buf]
  2747.         mov     edi,[file_buffer]
  2748.         add     edi,[shblock_beg]
  2749.         mov     eax,[copy_len]
  2750. .1:
  2751.         cld
  2752. @@:
  2753.         movsb
  2754.         dec     eax
  2755.         jz      .del
  2756.         dec     ebx
  2757.         jnz     @b
  2758. .add:
  2759.         push    esi     edi     eax
  2760.         push    [file_size]
  2761.         add     [file_size],eax
  2762.         call    raspred_mem
  2763.         pop     ecx
  2764.         mov     edi,[esp+4]
  2765.         add     ecx,[file_buffer]
  2766.         sub     ecx,edi
  2767.         inc     ecx
  2768.         mov     edi,[file_size]
  2769.         add     edi,[file_buffer]
  2770.         mov     esi,edi
  2771.         sub     esi,eax
  2772.         std
  2773. @@:
  2774.         movsb
  2775.         loop    @b
  2776.         pop     eax edi esi
  2777.         cld
  2778. @@:
  2779.         movsb
  2780.         dec     eax
  2781.         jnz     @b
  2782.         mov     eax,[shblock_beg]
  2783.         add     eax,[copy_len]
  2784.         dec     eax
  2785.         mov     [shblock_end],eax
  2786.         jmp     red
  2787. ;--------------------------------------
  2788. .del:
  2789.         dec     ebx
  2790.         jz      red
  2791.         mov     ecx,[file_size]
  2792.         add     ecx,[file_buffer]
  2793.         sub     ecx,edi
  2794.         mov     esi,edi
  2795.         add     esi,ebx
  2796.         cld
  2797. @@:
  2798.         movsb
  2799.         loop    @b
  2800.         sub     [file_size],ebx
  2801.         call    raspred_mem
  2802.         mov     eax,[shblock_beg]
  2803.         add     eax,[copy_len]
  2804.         dec     eax
  2805.         mov     [shblock_end],eax
  2806.         jmp     red
  2807. ;--------------------------------------------------------------------
  2808. ;¥á«¨ ¡«®ª ­¥ ¢ë¤¥«¥­, â® ¢áâ ¢«ï¥¬ ¡«®ª ¯¥à¥¤ ªãàá®à®¬
  2809. .past_kurs:
  2810. ;       bt      [flags],1
  2811. ;       jnc     still
  2812. ;       mov     esi,[file_buffer]
  2813. ;       add     esi,[current_offset]
  2814. ;       jmp     red
  2815.         jmp     still
  2816. ;--------------------------------------------------------------------
  2817. Ctrl_X:
  2818.         bt      [flags],1
  2819.         jnc     still
  2820.         call    copy_to_buf
  2821.         test    eax,eax
  2822.         jnz     still
  2823.  
  2824.         mov     ecx,[file_size]
  2825.         sub     ecx,[copy_len]
  2826.         sub     ecx,[shblock_beg]
  2827.         inc     ecx
  2828.         mov     ebx,[file_size]
  2829.         mov     edi,[shblock_beg]
  2830.         mov     esi,[shblock_end]
  2831.         inc     esi
  2832.         add     esi,[file_buffer]
  2833.         add     edi,[file_buffer]
  2834.         add     ebx,[file_buffer]
  2835.         cld
  2836. @@:
  2837.         cmp     esi,ebx
  2838.         je      .1
  2839.         movsb
  2840.         loop    @b
  2841. .1:
  2842.         mov     eax,[file_size]
  2843.         sub     eax,[copy_len]
  2844.         mov     [file_size],eax
  2845.         btr     [flags],8
  2846.  
  2847.         mov     eax,[shblock_beg]
  2848.         mov     esi,[screen_table]
  2849.         mov     esi,[esi]
  2850.         xor     ebx,ebx
  2851. .3:
  2852.         add     ebx,esi
  2853.         cmp     eax,ebx
  2854.         jg      .3
  2855.         sub     ebx,esi
  2856. ;       cmp     ebx,[file_size]
  2857. ;       jg      Ctrl_G
  2858.         mov     [begin_offset],ebx
  2859.         sub     eax,ebx
  2860.         shl     eax,1
  2861.         inc     eax
  2862.         mov     [cursor],eax
  2863.         jmp     red
  2864. ;---------------------------------------------------------------------
  2865. open_dialog:
  2866.         mov     [OpenDialog_data.type],0        ; Open
  2867.  
  2868.         push    dword OpenDialog_data
  2869.         call    [OpenDialog_Start]
  2870.  
  2871. ;       cmp     [OpenDialog_data.status],2      ; OpenDialog does not start
  2872.         cmp     [OpenDialog_data.status],1
  2873.         jne     still
  2874. .start:
  2875.         mov     esi,fname_buf
  2876. .load:
  2877.         mov     edi,file_name
  2878.         cld
  2879. @@:
  2880.         cmp     byte [esi],0
  2881.         je      @f
  2882.         movsb
  2883.         jmp     @b
  2884. @@:
  2885.         mov     byte [edi],0
  2886.         sub     esi,path
  2887.         mov     [edit1.size],esi
  2888.         mov     [edit1.pos],esi
  2889.         jmp     open_file
  2890. ;---------------------------------------------------------------------
  2891. ;----------------------- DATA AREA------------------------
  2892. ;--------------------------------------------------------------------
  2893. align 4
  2894. ProcLib_import:
  2895. OpenDialog_Init         dd aOpenDialog_Init
  2896. OpenDialog_Start        dd aOpenDialog_Start
  2897. ;OpenDialog__Version    dd aOpenDialog_Version
  2898.         dd      0
  2899.         dd      0
  2900. aOpenDialog_Init        db 'OpenDialog_init',0
  2901. aOpenDialog_Start       db 'OpenDialog_start',0
  2902. ;aOpenDialog_Version    db 'Version_OpenDialog',0
  2903. ;---------------------------------------------------------------------
  2904. align   4
  2905. Box_lib_import:
  2906. edit_box_draw           dd aEdit_box_draw
  2907. edit_box_key            dd aEdit_box_key
  2908. edit_box_mouse          dd aEdit_box_mouse
  2909. version_ed              dd aVersion_ed
  2910.  
  2911. option_box_draw         dd aOption_box_draw
  2912. option_box_mouse        dd aOption_box_mouse
  2913. version_op              dd aVersion_op
  2914.  
  2915. scrollbar_ver_draw      dd aScrollbar_ver_draw
  2916. scrollbar_ver_mouse     dd aScrollbar_ver_mouse
  2917. scrollbar_hor_draw      dd aScrollbar_hor_draw
  2918. scrollbar_hor_mouse     dd aScrollbar_hor_mouse
  2919. version_scrollbar       dd aVersion_scrollbar
  2920.  
  2921. menu_bar_draw           dd aMenu_bar_draw
  2922. menu_bar_mouse          dd aMenu_bar_mouse
  2923. version_menu_bar        dd aVersion_menu_bar
  2924.  
  2925.         dd 0
  2926.         dd 0
  2927.  
  2928. aEdit_box_draw          db 'edit_box',0
  2929. aEdit_box_key           db 'edit_box_key',0
  2930. aEdit_box_mouse         db 'edit_box_mouse',0
  2931. aVersion_ed             db 'version_ed',0
  2932.  
  2933. aOption_box_draw        db 'option_box_draw',0
  2934. aOption_box_mouse       db 'option_box_mouse',0
  2935. aVersion_op             db 'version_op',0
  2936.  
  2937. aScrollbar_ver_draw     db 'scrollbar_v_draw',0
  2938. aScrollbar_ver_mouse    db 'scrollbar_v_mouse',0
  2939. aScrollbar_hor_draw     db 'scrollbar_h_draw',0
  2940. aScrollbar_hor_mouse    db 'scrollbar_h_mouse',0
  2941. aVersion_scrollbar      db 'version_scrollbar',0
  2942.  
  2943. aMenu_bar_draw          db 'menu_bar_draw',0
  2944. aMenu_bar_mouse         db 'menu_bar_mouse',0
  2945. aVersion_menu_bar       db 'version_menu_bar',0
  2946. ;---------------------------------------------------------------------
  2947. align   4
  2948. scroll_bar_data_vertical:
  2949. .x:
  2950. .size_x         dw scroll_width_size;+0
  2951. .start_x        dw 565  ;+2
  2952. .y:
  2953. .size_y         dw 284  ;+4
  2954. .start_y        dw 19   ;+6
  2955. .btn_high       dd scroll_width_size    ;+8
  2956. .type           dd 0    ;+12
  2957. .max_area       dd 300+20       ;+16
  2958. .cur_area       dd 50   ;+20
  2959. .position       dd 0    ;+24
  2960. .bckg_col       dd 0xAAAAAA     ;+28
  2961. .frnt_col       dd 0xCCCCCC     ;+32
  2962. .line_col       dd 0    ;+36
  2963. .redraw         dd 0    ;+40
  2964. .delta          dw 0    ;+44
  2965. .delta2         dw 0    ;+46
  2966. .run_x:
  2967. .r_size_x       dw 0    ;+48
  2968. .r_start_x      dw 0    ;+50
  2969. .run_y:
  2970. .r_size_y       dw 0    ;+52
  2971. .r_start_y      dw 0    ;+54
  2972. .m_pos          dd 0    ;+56
  2973. .m_pos_2        dd 0    ;+60
  2974. .m_keys         dd 0    ;+64
  2975. .run_size       dd 0    ;+68
  2976. .position2      dd 0    ;+72
  2977. .work_size      dd 0    ;+76
  2978. .all_redraw     dd 0    ;+80
  2979. .ar_offset      dd 10   ;+84
  2980. ;---------------------------------------------------------------------
  2981. align   4
  2982. scroll_bar_data_horizontal:
  2983. .x:
  2984. .size_x         dw 300  ;0      ;+0
  2985. .start_x        dw 0    ;0      ;+2
  2986. .y:
  2987. .size_y         dw scroll_width_size    ;0      ;+4
  2988. .start_y        dw 300  ;0      ;+6
  2989. .btn_high       dd scroll_width_size    ;+8
  2990. .type           dd 0    ;+12
  2991. .max_area       dd 300  ;+16
  2992. .cur_area       dd 30   ;+20
  2993. .position       dd 1    ;+24
  2994. .bckg_col       dd 0xAAAAAA     ;+28
  2995. .frnt_col       dd 0xCCCCCC     ;+32
  2996. .line_col       dd 0    ;+36
  2997. .redraw         dd 0    ;+40
  2998. .delta          dw 0    ;+44
  2999. .delta2         dw 0    ;+46
  3000. .run_x:
  3001. .r_size_x       dw 0    ;+48
  3002. .r_start_x      dw 0    ;+50
  3003. .run_y:
  3004. .r_size_y       dw 0    ;+52
  3005. .r_start_y      dw 0    ;+54
  3006. .m_pos          dd 0    ;+56
  3007. .m_pos_2        dd 0    ;+60
  3008. .m_keys         dd 0    ;+64
  3009. .run_size       dd 0    ;+68
  3010. .position2      dd 0    ;+72
  3011. .work_size      dd 0    ;+76
  3012. .all_redraw     dd 0    ;+80
  3013. .ar_offset      dd 10   ;+84
  3014. ;---------------------------------------------------------------------
  3015. align   4
  3016. menu_data_1:
  3017. .type:          dd 0    ;+0
  3018. .x:
  3019. .size_x dw 40   ;+4
  3020. .start_x        dw 2    ;+6
  3021. .y:
  3022. .size_y         dw 15   ;+8
  3023. .start_y        dw 2    ;+10
  3024. .text_pointer:  dd menu_text_area       ;0      ;+12
  3025. .pos_pointer:   dd menu_text_area.1     ;0      ;+16
  3026. .text_end       dd menu_text_area.end   ;0      ;+20
  3027. .mouse_pos      dd 0    ;+24
  3028. .mouse_keys     dd 0    ;+28
  3029. .x1:
  3030. if lang eq ru
  3031.  .size_x1       dw 4*2+9*6      ;+32
  3032. else
  3033.  .size_x1       dw 40   ;+32
  3034. end if
  3035. .start_x1       dw 2    ;+34
  3036. .y1:
  3037. .size_y1        dw 100  ;+36
  3038. .start_y1       dw 18   ;+38
  3039. .bckg_col       dd 0xeeeeee     ;+40
  3040. .frnt_col       dd 0xff ;+44
  3041. .menu_col       dd 0xffffff     ;+48
  3042. .select         dd 0    ;+52
  3043. .out_select     dd 0    ;+56
  3044. .buf_adress     dd 0    ;+60
  3045. .procinfo       dd 0    ;+64
  3046. .click          dd 0    ;+68
  3047. .cursor         dd 0    ;+72
  3048. .cursor_old     dd 0    ;+76
  3049. .interval       dd 16   ;+80
  3050. .cursor_max     dd 0    ;+84
  3051. .extended_key   dd 0    ;+88
  3052. .menu_sel_col   dd 0x00cc00     ;+92
  3053. .bckg_text_col  dd 0    ;+96
  3054. .frnt_text_col  dd 0xffffff     ;+100
  3055. .mouse_keys_old dd 0    ;+104
  3056. .font_height    dd 8    ;+108
  3057. .cursor_out     dd 0    ;+112
  3058. .get_mouse_flag dd 0    ;+116
  3059.  
  3060. menu_text_area:
  3061. if lang eq ru
  3062.          db '” ©«',0
  3063.  .1:
  3064.          db 'Žâªàëâì',0
  3065.          db '‘®åà ­¨âì',0
  3066.          db '‚ë室',0
  3067. else
  3068.          db 'File',0
  3069.  .1:
  3070.          db 'Open',0
  3071.          db 'Save',0
  3072.          db 'Exit',0
  3073. end if
  3074. .end:
  3075.          db 0
  3076.  
  3077. ;---------------------------------------------------------------------
  3078. align   4
  3079. menu_data_2:
  3080. .type:          dd 0    ;+0
  3081. .x:
  3082. .size_x dw 40   ;+4
  3083. .start_x        dw 43   ;+6
  3084. .y:
  3085. .size_y         dw 15   ;+8
  3086. .start_y        dw 2    ;+10
  3087. .text_pointer:  dd menu_text_area_2     ;0      ;+12
  3088. .pos_pointer:   dd menu_text_area_2.1   ;0      ;+16
  3089. .text_end       dd menu_text_area_2.end ;0      ;+20
  3090. .mouse_pos      dd 0    ;+24
  3091. .mouse_keys     dd 0    ;+28
  3092. .x1:
  3093. .size_x1        dw 4*2+5*6      ;+32
  3094. .start_x1       dw 43   ;+34
  3095. .y1:
  3096. .size_y1        dw 100  ;+36
  3097. .start_y1       dw 18   ;+38
  3098. .bckg_col       dd 0xeeeeee     ;+40
  3099. .frnt_col       dd 0xff ;+44
  3100. .menu_col       dd 0xffffff     ;+48
  3101. .select         dd 0    ;+52
  3102. .out_select     dd 0    ;+56
  3103. .buf_adress     dd 0    ;+60
  3104. .procinfo       dd 0    ;+64
  3105. .click          dd 0    ;+68
  3106. .cursor         dd 0    ;+72
  3107. .cursor_old     dd 0    ;+76
  3108. .interval       dd 16   ;+80
  3109. .cursor_max     dd 0    ;+84
  3110. .extended_key   dd 0    ;+88
  3111. .menu_sel_col   dd 0x00cc00     ;+92
  3112. .bckg_text_col  dd 0    ;       +96
  3113. .frnt_text_col  dd 0xffffff     ;+100
  3114. .mouse_keys_old dd 0    ;+104
  3115. .font_height    dd 8    ;+108
  3116. .cursor_out     dd 0    ;+112
  3117. .get_mouse_flag dd 0    ;+116
  3118.  
  3119. menu_text_area_2:
  3120. if lang eq ru
  3121.          db '‚¨¤',0
  3122.  .1:
  3123. else
  3124.          db 'View',0
  3125.  .1:
  3126. end if
  3127.          db 'Add 4',0
  3128.          db 'Add 8',0
  3129.          db 'Sub 4',0
  3130.          db 'Sub 8',0
  3131. .end:
  3132.          db 0
  3133.  
  3134. ;---------------------------------------------------------------------
  3135. align   4
  3136. menu_data_3:
  3137. .type:          dd 0    ;+0
  3138. .x:
  3139. if lang eq ru
  3140.  .size_x        dw 4*2+7*6      ;+32
  3141. else
  3142.  .size_x        dw 40   ;+4
  3143. end if
  3144. .start_x        dw 84   ;+6
  3145. .y:
  3146. .size_y         dw 15   ;+8
  3147. .start_y        dw 2    ;+10
  3148. .text_pointer:  dd menu_text_area_3     ;0      ;+12
  3149. .pos_pointer:   dd menu_text_area_3.1   ;0      ;+16
  3150. .text_end       dd menu_text_area_3.end ;0      ;+20
  3151. .mouse_pos      dd 0    ;+24
  3152. .mouse_keys     dd 0    ;+28
  3153. .x1:
  3154. if lang eq ru
  3155.  .size_x1       dw 4*2+7*6      ;+32
  3156. else
  3157.  .size_x1       dw 40   ;+32
  3158. end if
  3159. .start_x1       dw 84   ;+34
  3160. .y1:
  3161. .size_y1        dw 100  ;+36
  3162. .start_y1       dw 18   ;+38
  3163. .bckg_col       dd 0xeeeeee     ;+40
  3164. .frnt_col       dd 0xff ;+44
  3165. .menu_col       dd 0xffffff     ;+48
  3166. .select         dd 0    ;+52
  3167. .out_select     dd 0    ;+56
  3168. .buf_adress     dd 0    ;+60
  3169. .procinfo       dd 0    ;+64
  3170. .click          dd 0    ;+68
  3171. .cursor         dd 0    ;+72
  3172. .cursor_old     dd 0    ;+76
  3173. .interval       dd 16   ;+80
  3174. .cursor_max     dd 0    ;+84
  3175. .extended_key   dd 0    ;+88
  3176. .menu_sel_col   dd 0x00cc00     ;+92
  3177. .bckg_text_col  dd 0    ;       +96
  3178. .frnt_text_col  dd 0xffffff     ;+100
  3179. .mouse_keys_old dd 0    ;+104
  3180. .font_height    dd 8    ;+108
  3181. .cursor_out     dd 0    ;+112
  3182. .get_mouse_flag dd 0    ;+116
  3183.  
  3184. menu_text_area_3:
  3185. if lang eq ru
  3186.         db '‘¯à ¢ª ',0
  3187.  .1:
  3188.         db '‘¯à ¢ª ',0
  3189. else
  3190.         db 'Help',0
  3191.  .1:
  3192.         db 'Help',0
  3193. end if
  3194. .end:
  3195.         db 0
  3196. ;---------------------------------------------------------------------
  3197. edit1   edit_box 200,190,27,0xffffff,0x6a9480,0,0xAABBCC,0,134,cur_dir_path,ed_focus,ed_focus,6,6       ;ä ©«   ®âªàëâì\á®åà ­¨âì
  3198. edit2   edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0  ;¯¥à¥å®¦¤       ­       ᬥ饭¨¥
  3199. edit3   edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,find_string,ed_focus,ed_focus,0,0   ;¯®¨áª
  3200. edit4   edit_box 55,220,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel1_string,ed_focus,ed_focus,0,0   ;¢ë¤¥«¨âì       ¡«®ª    ­ ç.ᬥé.
  3201. edit5   edit_box 55,300,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel2_string,ed_focus,0,0,0  ;¢ë¤¥«¨âì       ¡«®ª    ª®­.ᬥé.
  3202.  
  3203. op1     option_box option_group1,210,50,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1,1
  3204. op2     option_box option_group1,310,50,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
  3205. op3     option_box option_group1,310,65,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
  3206. op11    option_box option_group2,210,50,6,12,0xffffff,0,0,op_text2.11,op_text2.e11-op_text2.11
  3207. op12    option_box option_group2,310,50,6,12,0xffffff,0,0,op_text2.21,op_text2.e21-op_text2.21
  3208.  
  3209. option_group1   dd op1  ;㪠§ â¥«¨, ®­¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ­¨î, ª®£¤  ¢ë¢®¤¨âáï
  3210. option_group2   dd op11 ;¯à¨«®¦¥­¨¥
  3211. Option_boxs     dd op1,op2,op3,0
  3212. Option_boxs2    dd op11,op12,0
  3213.  
  3214. op_text:        ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
  3215. if lang eq ru
  3216.  .1     db '€¡á®«îâ­®¥'
  3217.  .e1:
  3218.  .2     db '‚¯¥à¥¤'
  3219.  .e2:
  3220.  .3     db ' § ¤'
  3221.  .e3:
  3222. else
  3223.  .1     db 'Absolutely'
  3224.  .e1:
  3225.  .2     db 'Forward'
  3226.  .e2:
  3227.  .3     db 'Back'
  3228.  .e3:
  3229. end if
  3230.  
  3231. op_text2:
  3232. .11     db 'Hex'
  3233. .e11:
  3234. .21     db 'ASCII'
  3235. .e21:
  3236. ;--------------------------------------------------------------------
  3237. system_dir_Boxlib                       db '/sys/lib/box_lib.obj',0
  3238. system_dir_ProcLib                      db '/sys/lib/proc_lib.obj',0
  3239.  
  3240. sel_text        db "From to",0
  3241.  
  3242. help_but_text   = menu_text_area_3 ;db  'Help',0
  3243.  
  3244. head_f_i:
  3245. if lang eq ru
  3246.  error_open_file_string db "” ©« ­¥ ­ ©¤¥­!",0
  3247.  error_save_file_string db "” ©« ­¥ á®åà ­¥­!",0
  3248. else
  3249.  error_open_file_string db "Isn't found!",0
  3250.  error_save_file_string db "Isn't saved!",0
  3251. end if
  3252. string_cp866    db ' cp866'
  3253. string_cp1251   db 'cp1251'
  3254. string_koi8r    db 'koi8-r'
  3255. string_ins      db 'Ins'
  3256.  
  3257.  
  3258. align   4
  3259. number_strings  dd 16   ;ª®«¨ç¥á⢮ áâப ­  «¨áâ¥
  3260. ;bytes_per_line dd 16   ;ª®«-¢® á⮫¡æ®¢
  3261.  
  3262. group_bytes     dd 8
  3263. bytes_per_line  dd 16
  3264.  
  3265.  
  3266.  
  3267. ;blocks_counter dd 1
  3268. ;blocks_table   dd 0
  3269. cursor  dd 1
  3270.  
  3271. flags   dw 001000010b
  3272. ;¡¨â    0: ¢ edit_box - ¢®á¯à¨ï⨥/(­¥) ¢á¥å ¢¢®¤¨¬ëå ᨬ¢®«®¢
  3273. ;1:     0/1 - ०¨¬ § ¬¥­ë/¢áâ ¢ª¨
  3274. ;2:     ¢ edit_box - ®¡à ¡®âª  Ctrl_G
  3275. ;3:     ¢ edit_box - ®¡à ¡®âª  Ctrl_F
  3276. ;4:     ¢ change_codepage - ¥á«¨ ¯®¤­ïâ, â® ¢®ááâ ­®¢¨âì ¯à¥¤ë¤ãéãî ª®¤¨à®¢ªã
  3277. ;5:     vertical_scroll_bar move
  3278. ;6:     ¯®«­ ï  ¯¥à¥à¨á®¢ª  ®ª­ 
  3279. ;7:     horizontal_scroll_bar move
  3280. ;8:     1 - ¢ë¤¥«¥­ ¡«®ª
  3281. ;9:     ¢ edit_box - ®¡à ¡®âª  Ctrl_B
  3282. ;10:    ¢ ¯ ¬ï⨠"¢¨á¨â" ᪮¯¨à®¢ ­­ë© ¡«®ª
  3283. ;--------------------------------------------------------------------
  3284. help_text:
  3285. if lang eq ru
  3286.  db 'Ctrl+O              - ®âªàëâì ä ©«                 '
  3287.  db 'Ctrl+S              - á®åà ­¨âì                    '
  3288.  db 'PageUp, PageDown    - áâà ­¨æ  ¢¢¥àå/¢­¨§          '
  3289.  db 'Ctrl+UP, Ctrl+Down  - ¯à®ªàã⪠ áâà ­¨æë ­  áâà®-  '
  3290.  db '                 ªã ¢¢¥àå/¢­¨§ ¡¥§ ᬥ饭¨ï ªãàá®à '
  3291.  db 'Home,End            - ¢ ­ ç «®/ª®­¥æ áâப¨        '
  3292.  db 'Ctrl+Home, Ctrl+End - ¢ ­ ç «®/ª®­¥æ ä ©«          '
  3293.  db 'Left, Right, UP, DN - ªãàá®à ¢«¥¢®/¢¯à ¢®/¢ëè¥/­¨¦¥'
  3294.  db 'n                   - ¨­¢¥àâ¨à®¢ âì ¡ ©â           '
  3295.  db 'Ins                 - ०¨¬ § ¬¥­ë/¢áâ ¢ª¨         '
  3296.  db '  Del               - 㤠«¨âì ¡ ©â ¯®¤ ªãàá®à®¬    '
  3297.  db '  BackSpace         - 㤠«¨âì ¡ ©â ¯¥à¥¤ ªãàá®à®¬  '
  3298.  db '~                   - ᬥ­  ª®¤¨à®¢®ª cp866,cp1251 '
  3299.  db 'Shift+~             - cp866/cp1251,koi8r           '
  3300.  db 'Ctrl+F              - ¯®¨áª                        '
  3301.  db 'Ctrl+G              - ¯¥à¥å®¤ ­  ᬥ饭¨¥          '
  3302.  db 'Ctrl+B              - ¢ë¤¥«¨âì ¡«®ª                '
  3303.  db 'ESC                 - á­ïâì ¢ë¤¥«¥­¨¥              '
  3304.  db 'Ctrl+C              - ª®¯¨à®¢ âì ¡«®ª              '
  3305.  db 'Ctrl+V              - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥­­ãî ®¡« áâì'
  3306.  db 'Ctrl+X              - ¢ë१ âì ¢ ¡ãä¥à             '
  3307. else
  3308.  db 'Ctrl+O              - open file                    '
  3309.  db 'Ctrl+S              - save file                    '
  3310.  db 'PageUp, PageDown    - page up/down                 '
  3311.  db 'Ctrl+UP, Ctrl+Down  - scroll page by one string    '
  3312.  db '                    up/down without cursor movement'
  3313.  db 'Home,End            - at the start/end of string   '
  3314.  db 'Ctrl+Home, Ctrl+End - at the start/end of file     '
  3315.  db 'Left, Right, Up, Dn - move cursor to the lft/rght..'
  3316.  db 'n                   - invert byte                  '
  3317.  db 'Ins                 - replace/past mode            '
  3318.  db '  Del               - delete byte under cursor     '
  3319.  db '  BackSpace         - delete byte before cursor    '
  3320.  db '~                   - change codepages cp866,cp1251'
  3321.  db 'Shift+~             - cp866/cp1251,koi8r           '
  3322.  db 'Ctrl+F              - find                         '
  3323.  db 'Ctrl+G              - go to offset                 '
  3324.  db 'Ctrl+B              - select area                  '
  3325.  db 'ESC                 - deselect area                '
  3326.  db 'Ctrl+C              - copy area                    '
  3327.  db 'Ctrl+V              - past into area from buf      '
  3328.  db 'Ctrl+X              - cut area into buffer         '
  3329. end if
  3330. help_end:
  3331. ;--------------------------------------------------------------------
  3332. ;align  4096
  3333. font_buffer     file 'cp866-8x16'       ;ASCII+cp866    (+ð,ñ)
  3334. cp1251          file 'cp1251-8x16'
  3335. koi8_r          file 'koi8-r-8x16'     
  3336.  
  3337. title   db      _title
  3338. ;---------------------------------------------------------------------
  3339. l_libs_start:
  3340.  
  3341. library01  l_libs system_dir_Boxlib+9, buf_cmd_lin, system_dir_Boxlib, Box_lib_import
  3342.  
  3343. library02  l_libs system_dir_ProcLib+9, buf_cmd_lin, system_dir_ProcLib, ProcLib_import
  3344.  
  3345. end_l_libs:
  3346. ;---------------------------------------------------------------------
  3347. OpenDialog_data:
  3348. .type                   dd 0
  3349. .procinfo               dd procinfo     ;+4
  3350. .com_area_name          dd communication_area_name      ;+8
  3351. .com_area               dd 0    ;+12
  3352. .opendir_pach           dd temp_dir_pach        ;+16
  3353. .dir_default_pach       dd communication_area_default_pach      ;+20
  3354. .start_path             dd open_dialog_path     ;+24
  3355. .draw_window            dd draw_window_1        ;+28
  3356. .status                 dd 0    ;+32
  3357. .openfile_pach          dd fname_buf    ;+36
  3358. .filename_area          dd filename_area        ;+40
  3359. .filter_area            dd Filter
  3360. .x:
  3361. .x_size                 dw 420 ;+48 ; Window X size
  3362. .x_start                dw 10 ;+50 ; Window X position
  3363. .y:
  3364. .y_size                 dw 320 ;+52 ; Window y size
  3365. .y_start                dw 10 ;+54 ; Window Y position
  3366.  
  3367. communication_area_name:
  3368.         db 'FFFFFFFF_open_dialog',0
  3369. open_dialog_path:
  3370. if __nightbuild eq yes
  3371.         db '/sys/MANAGERS/opendial',0
  3372. else
  3373.         db '/sys/File Managers/opendial',0
  3374. end if
  3375. communication_area_default_pach:
  3376.         db '/rd/1',0
  3377.  
  3378. Filter:
  3379. dd      Filter.end - Filter.1
  3380. .1:
  3381. ;db     'BIN',0
  3382. ;db     'DAT',0
  3383. .end:
  3384. db      0
  3385.  
  3386. start_temp_file_name:   db 'temp.bin',0
  3387.  
  3388. ;---------------------------------------------------------------------
  3389. I_END:
  3390. ;--------------------------------------------------------------------
  3391. file_name:
  3392. cur_dir_path    rb 4096
  3393. buf_cmd_lin     rb 0
  3394. procinfo:       ;opendialog
  3395. threath_buf:
  3396.         rb 0x400
  3397. path:
  3398.                 rb 1024+16      ;opendialog
  3399.  
  3400. screen_table    rd 1
  3401. begin_offset    rd 1
  3402. file_buffer     rd 1
  3403.  
  3404. copy_buf        rd 1
  3405. copy_len        rd 1
  3406.  
  3407. current_offset  rd 1
  3408. ;       rd      1 ;¯®¤ áâ à訩 dword
  3409. codepage_offset rd 1
  3410. codepage_offset_previous        rd 1
  3411. low_area        rd 1    ;ª®®à¤¨­ âë ­¨¦­¥© áâப¨
  3412. right_table_xy  rd 1
  3413.  
  3414. prev_f_size_bl  rd 1
  3415.  
  3416. len_str_scr     rd 1
  3417. beg_str_scr     rd 1
  3418.  
  3419. shblock_beg     rd 1    ;ᬥ饭¨¥ ­ ç «  ¡«®ª 
  3420. shblock_end     rd 1    ;ᬥ饭¨¥ ª®­æ  ¡«®ª 
  3421.  
  3422. ;mouse_flag     rd 1
  3423. file_size       rd 1
  3424. ;       rd      1 ;¯®¤ áâ à訩 dword
  3425.  
  3426. active_process  rd 1
  3427.  
  3428. ed_box_data:    rd 8    ;¯¥à¢ë© dword -ª®«-¢® í«¥¬¥­â®¢ ¤«ï ®¡à ¡®âª¨, ¤ «¥¥ 㪠§ â¥«¨ ­  editX;
  3429.  
  3430. bufferfinfo     rb 40
  3431. hex8_string     rb 9    ;¡ãä¥à ¤«ï hex_output
  3432. go_to_string    rb 9
  3433. find_string     rb 17
  3434. sel1_string     rb 9
  3435. sel2_string     rb 9
  3436. cur_help_string rb 1    ;­®¬¥à áâப¨, á ª®â®à®© ¢ë¢®¤¨âáï ⥪áâ ¢ help - ®ª­¥
  3437.  
  3438. help_is_open_already    rb 1  ;¥á«¨ ®ª­® á¯à ¢ª¨ ®âªàëâ®, â® §¤¥áì 1
  3439. help_window_pid         rd 1
  3440.  
  3441. func_70 f70
  3442. ;---------------------------------------------------------------------
  3443. title_buf:
  3444.         rb 4096
  3445. ;---------------------------------------------------------------------
  3446. fname_buf:
  3447.         rb 4096
  3448. ;---------------------------------------------------------------------
  3449. temp_dir_pach:
  3450.         rb 4096
  3451. ;---------------------------------------------------------------------
  3452. filename_area:
  3453.         rb 256
  3454. ;---------------------------------------------------------------------
  3455. D_END:
  3456.