2024-06-14 10:35:46 +02:00
|
|
|
|
; Language support for locales: ru_RU (CP866), en_US.
|
|
|
|
|
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
s_text:
|
|
|
|
|
if lang eq ru_RU
|
|
|
|
|
db '<27>롮<EFBFBD> 䠩<><E4A0A9>',0
|
|
|
|
|
else ; Default to en_US
|
|
|
|
|
db 'Select file',0
|
|
|
|
|
end if
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
r_text:
|
|
|
|
|
if lang eq ru_RU
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD>',0
|
|
|
|
|
else ; Default to en_US
|
|
|
|
|
db 'Start',0
|
|
|
|
|
end if
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
result_table_text:
|
|
|
|
|
if lang eq ru_RU
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⥭<EFBFBD><E2A5AD> (<28><>/<2F>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><>/<2F>)',0
|
|
|
|
|
else ; Default to en_US
|
|
|
|
|
db 'Size Read (KB/s) Write (KB/s)',0
|
|
|
|
|
end if
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
title db 'File Speed v0.3',0
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
include_debug_strings
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
l_libs_start:
|
|
|
|
|
|
|
|
|
|
library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, Box_lib_import
|
|
|
|
|
|
|
|
|
|
library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, ProcLib_import
|
|
|
|
|
|
|
|
|
|
end_l_libs:
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
system_dir_Boxlib db '/sys/lib/box_lib.obj',0
|
|
|
|
|
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
|
|
|
|
|
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
align 4
|
|
|
|
|
ProcLib_import:
|
|
|
|
|
OpenDialog_Init dd aOpenDialog_Init
|
|
|
|
|
OpenDialog_Start dd aOpenDialog_Start
|
|
|
|
|
;OpenDialog_Version dd aOpenDialog_Version
|
|
|
|
|
|
|
|
|
|
;ColorDialog_Init dd aColorDialog_Init
|
|
|
|
|
;ColorDialog_Start dd aColorDialog_Start
|
|
|
|
|
;ColorDialog_Version dd aColorDialog_Version
|
|
|
|
|
|
|
|
|
|
dd 0
|
|
|
|
|
dd 0
|
|
|
|
|
|
|
|
|
|
aOpenDialog_Init db 'OpenDialog_init',0
|
|
|
|
|
aOpenDialog_Start db 'OpenDialog_start',0
|
|
|
|
|
;aOpenDialog_Version db 'Version_OpenDialog',0
|
|
|
|
|
|
|
|
|
|
;aColorDialog_Init db 'ColorDialog_init',0
|
|
|
|
|
;aColorDialog_Start db 'ColorDialog_start',0
|
|
|
|
|
;aColorDialog_Version db 'Version_ColorDialog',0
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
align 4
|
|
|
|
|
Box_lib_import:
|
|
|
|
|
;init_lib dd a_init
|
|
|
|
|
;version_lib dd a_version
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;edit_box_draw dd aEdit_box_draw
|
|
|
|
|
;edit_box_key dd aEdit_box_key
|
|
|
|
|
;edit_box_mouse dd aEdit_box_mouse
|
|
|
|
|
;version_ed dd aVersion_ed
|
|
|
|
|
|
|
|
|
|
init_checkbox dd aInit_checkbox
|
|
|
|
|
check_box_draw dd aCheck_box_draw
|
|
|
|
|
check_box_mouse dd aCheck_box_mouse
|
|
|
|
|
;version_ch dd aVersion_ch
|
|
|
|
|
|
|
|
|
|
;option_box_draw dd aOption_box_draw
|
|
|
|
|
;option_box_mouse dd aOption_box_mouse
|
|
|
|
|
;version_op dd aVersion_op
|
|
|
|
|
|
|
|
|
|
;scrollbar_ver_draw dd aScrollbar_ver_draw
|
|
|
|
|
;scrollbar_ver_mouse dd aScrollbar_ver_mouse
|
|
|
|
|
;scrollbar_hor_draw dd aScrollbar_hor_draw
|
|
|
|
|
;scrollbar_hor_mouse dd aScrollbar_hor_mouse
|
|
|
|
|
;version_scrollbar dd aVersion_scrollbar
|
|
|
|
|
|
|
|
|
|
;dinamic_button_draw dd aDbutton_draw
|
|
|
|
|
;dinamic_button_mouse dd aDbutton_mouse
|
|
|
|
|
;version_dbutton dd aVersion_dbutton
|
|
|
|
|
|
|
|
|
|
;menu_bar_draw dd aMenu_bar_draw
|
|
|
|
|
;menu_bar_mouse dd aMenu_bar_mouse
|
|
|
|
|
;menu_bar_activate dd aMenu_bar_activate
|
|
|
|
|
;version_menu_bar dd aVersion_menu_bar
|
|
|
|
|
|
|
|
|
|
;FileBrowser_draw dd aFileBrowser_draw
|
|
|
|
|
;FileBrowser_mouse dd aFileBrowser_mouse
|
|
|
|
|
;FileBrowser_key dd aFileBrowser_key
|
|
|
|
|
;Version_FileBrowser dd aVersion_FileBrowser
|
|
|
|
|
|
|
|
|
|
PathShow_prepare dd sz_PathShow_prepare
|
|
|
|
|
PathShow_draw dd sz_PathShow_draw
|
|
|
|
|
;Version_path_show dd szVersion_path_show
|
|
|
|
|
|
|
|
|
|
;Frame_draw dd sz_Frame_draw
|
|
|
|
|
;Version_frame dd szVersion_frame
|
|
|
|
|
|
|
|
|
|
dd 0,0
|
|
|
|
|
|
|
|
|
|
;a_init db 'lib_init',0
|
|
|
|
|
;a_version db 'version',0
|
|
|
|
|
|
|
|
|
|
;aEdit_box_draw db 'edit_box_draw',0
|
|
|
|
|
;aEdit_box_key db 'edit_box_key',0
|
|
|
|
|
;aEdit_box_mouse db 'edit_box_mouse',0
|
|
|
|
|
;aVersion_ed db 'version_ed',0
|
|
|
|
|
|
|
|
|
|
aInit_checkbox db 'init_checkbox2',0
|
|
|
|
|
aCheck_box_draw db 'check_box_draw2',0
|
|
|
|
|
aCheck_box_mouse db 'check_box_mouse2',0
|
|
|
|
|
;aVersion_ch db 'version_ch2',0
|
|
|
|
|
|
|
|
|
|
;aOption_box_draw db 'option_box_draw',0
|
|
|
|
|
;aOption_box_mouse db 'option_box_mouse',0
|
|
|
|
|
;aVersion_op db 'version_op',0
|
|
|
|
|
|
|
|
|
|
;aScrollbar_ver_draw db 'scrollbar_v_draw',0
|
|
|
|
|
;aScrollbar_ver_mouse db 'scrollbar_v_mouse',0
|
|
|
|
|
;aScrollbar_hor_draw db 'scrollbar_h_draw',0
|
|
|
|
|
;aScrollbar_hor_mouse db 'scrollbar_h_mouse',0
|
|
|
|
|
;aVersion_scrollbar db 'version_scrollbar',0
|
|
|
|
|
|
|
|
|
|
;aDbutton_draw db 'dbutton_draw',0
|
|
|
|
|
;aDbutton_mouse db 'dbutton_mouse',0
|
|
|
|
|
;aVersion_dbutton db 'version_dbutton',0
|
|
|
|
|
|
|
|
|
|
;aMenu_bar_draw db 'menu_bar_draw',0
|
|
|
|
|
;aMenu_bar_mouse db 'menu_bar_mouse',0
|
|
|
|
|
;aMenu_bar_activate db 'menu_bar_activate',0
|
|
|
|
|
;aVersion_menu_bar db 'version_menu_bar',0
|
|
|
|
|
|
|
|
|
|
;aFileBrowser_draw db 'FileBrowser_draw',0
|
|
|
|
|
;aFileBrowser_mouse db 'FileBrowser_mouse',0
|
|
|
|
|
;aFileBrowser_key db 'FileBrowser_key',0
|
|
|
|
|
;aVersion_FileBrowser db 'version_FileBrowser',0
|
|
|
|
|
|
|
|
|
|
sz_PathShow_prepare db 'PathShow_prepare',0
|
|
|
|
|
sz_PathShow_draw db 'PathShow_draw',0
|
|
|
|
|
;szVersion_path_show db 'version_PathShow',0
|
|
|
|
|
|
|
|
|
|
;sz_Frame_draw db 'frame_draw',0
|
|
|
|
|
;szVersion_frame db 'version_frame',0
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
PathShow_data:
|
|
|
|
|
.type dd 0 ;+0
|
|
|
|
|
.start_y dw 5+4 ;+4
|
|
|
|
|
.start_x dw 5+5 ;+6
|
|
|
|
|
.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1
|
|
|
|
|
.area_size_x dw 400-30 ;+10
|
|
|
|
|
.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable
|
|
|
|
|
.background_flag dd 0 ;+16
|
|
|
|
|
.font_color dd 0x0 ;+20
|
|
|
|
|
.background_color dd 0x0 ;+24
|
|
|
|
|
.text_pointer dd fname ;+28
|
|
|
|
|
.work_area_pointer dd text_work_area ;+32
|
|
|
|
|
.temp_text_length dd 0 ;+36
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
check1 check_box2 (100 shl 16)+12,(27 shl 16)+12,6,0xFFFFFF,0,0xffffff,\
|
|
|
|
|
check_text1,ch_flag_middle
|
|
|
|
|
|
|
|
|
|
check_text1:
|
|
|
|
|
if lang eq ru_RU
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
|
|
|
|
|
else ; Default to en_US
|
|
|
|
|
db 'Use testing of write',0
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
check_box_warning_text:
|
|
|
|
|
if lang eq ru_RU
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>! <20><EFBFBD>ઠ <><E1AAAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㭨<>⮦<EFBFBD><E2AEA6><EFBFBD> ᮤ<>ন<EFBFBD><E0A6A8><EFBFBD> 䠩<><E4A0A9>!',0
|
|
|
|
|
else ; Default to en_US
|
|
|
|
|
db 'WARNING! Testing of write speed will destroy file contents!',0
|
|
|
|
|
end if
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
OpenDialog_data:
|
|
|
|
|
.type dd 0
|
|
|
|
|
.procinfo dd process_info ;+4
|
|
|
|
|
.com_area_name dd communication_area_name ;+8
|
|
|
|
|
.com_area dd 0 ;+12
|
|
|
|
|
.opendir_pach dd temp_dir_pach ;+16
|
|
|
|
|
.dir_default_pach dd communication_area_default_pach ;+20
|
|
|
|
|
.start_path dd open_dialog_path ;+24
|
|
|
|
|
.draw_window dd draw_window ;+28
|
|
|
|
|
.status dd 0 ;+32
|
|
|
|
|
.openfile_pach dd fname ;+36
|
|
|
|
|
.filename_area dd filename_area ;+40
|
|
|
|
|
.filter_area dd Filter
|
|
|
|
|
.x:
|
|
|
|
|
.x_size dw 420 ;+48 ; Window X size
|
|
|
|
|
.x_start dw 10 ;+50 ; Window X position
|
|
|
|
|
.y:
|
|
|
|
|
.y_size dw 320 ;+52 ; Window y size
|
|
|
|
|
.y_start dw 10 ;+54 ; Window Y position
|
|
|
|
|
|
|
|
|
|
communication_area_name:
|
|
|
|
|
db 'FFFFFFFF_open_dialog2',0
|
|
|
|
|
|
|
|
|
|
open_dialog_path:
|
|
|
|
|
if __nightbuild eq yes
|
|
|
|
|
db '/sys/MANAGERS/opendial',0
|
|
|
|
|
else
|
|
|
|
|
db '/sys/File Managers/opendial',0
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
communication_area_default_pach:
|
|
|
|
|
db '/sys',0
|
|
|
|
|
|
|
|
|
|
Filter:
|
|
|
|
|
dd Filter.end - Filter.1
|
|
|
|
|
.1:
|
|
|
|
|
;db 'BIN',0
|
|
|
|
|
;db 'DAT',0
|
|
|
|
|
.end:
|
|
|
|
|
db 0
|
|
|
|
|
|
|
|
|
|
start_temp_file_name:
|
|
|
|
|
db 'default.dtp',0
|
|
|
|
|
|
|
|
|
|
default_dtp:
|
|
|
|
|
db '/sys/default.dtp',0
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
sector equ 512
|
|
|
|
|
;--------------------------------------
|
|
|
|
|
result_table:
|
|
|
|
|
dd a512b, 0, 0, sector*1
|
|
|
|
|
dd a1K, 1, 1, sector*2
|
|
|
|
|
dd a2K, 2, 2, sector*4
|
|
|
|
|
dd a4K, 3, 3, sector*8
|
|
|
|
|
dd a8K, 4, 4, sector*16
|
|
|
|
|
dd a16K, 5, 5, sector*32
|
|
|
|
|
dd a32K, 6, 6, sector*64
|
|
|
|
|
dd a64K, 7, 7, sector*128
|
|
|
|
|
dd a128K, 8, 8, sector*256
|
|
|
|
|
dd a256K, 9, 9, sector*512
|
|
|
|
|
dd a512K, 10, 10, sector*1024
|
|
|
|
|
dd a1M, 11, 11, sector*2*1024
|
|
|
|
|
dd a2M, 12, 12, sector*4*1024
|
|
|
|
|
dd a4M, 13, 13, sector*8*1024
|
|
|
|
|
dd a8M, 14, 14, sector*16*1024
|
|
|
|
|
dd a16M, 15, 15, sector*32*1024
|
|
|
|
|
dd a32M, 16, 16, sector*64*1024
|
|
|
|
|
dd a64M, 17, 17, sector*128*1024
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
a512b db ' 512',0
|
|
|
|
|
a1K db ' 1K',0
|
|
|
|
|
a2K db ' 2K',0
|
|
|
|
|
a4K db ' 4K',0
|
|
|
|
|
a8K db ' 8K',0
|
|
|
|
|
a16K db ' 16K',0
|
|
|
|
|
a32K db ' 32K',0
|
|
|
|
|
a64K db ' 64K',0
|
|
|
|
|
a128K db '128K',0
|
|
|
|
|
a256K db '256K',0
|
|
|
|
|
a512K db '512K',0
|
|
|
|
|
a1M db ' 1M',0
|
|
|
|
|
a2M db ' 2M',0
|
|
|
|
|
a4M db ' 4M',0
|
|
|
|
|
a8M db ' 8M',0
|
|
|
|
|
a16M db ' 16M',0
|
|
|
|
|
a32M db ' 32M',0
|
|
|
|
|
a64M db ' 64M',0
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
align 4
|
|
|
|
|
fileinfo:
|
|
|
|
|
.subfunction dd 5
|
|
|
|
|
.offset dd 0
|
|
|
|
|
.offset_1 dd 0
|
|
|
|
|
.size dd 0
|
|
|
|
|
.return dd file_info
|
|
|
|
|
db 0
|
|
|
|
|
.name: dd fname
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
align 4
|
|
|
|
|
fileread:
|
|
|
|
|
.subfunction dd 0
|
|
|
|
|
.offset dd 0
|
|
|
|
|
.offset_1 dd 0
|
|
|
|
|
.size dd 0
|
|
|
|
|
.return dd process_info
|
|
|
|
|
db 0
|
|
|
|
|
.name: dd fname
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
|
align 4
|
|
|
|
|
filewrite:
|
|
|
|
|
.subfunction dd 3
|
|
|
|
|
.offset dd 0
|
|
|
|
|
.offset_1 dd 0
|
|
|
|
|
.size dd 0
|
|
|
|
|
.data dd process_info
|
|
|
|
|
db 0
|
|
|
|
|
.name: dd fname
|
|
|
|
|
;-----------------------------------------------------------------------------
|