diff --git a/programs/fs/fspeed/fspeed.asm b/programs/fs/fspeed/fspeed.asm index 76defa00c2..b7b7ec4c42 100644 --- a/programs/fs/fspeed/fspeed.asm +++ b/programs/fs/fspeed/fspeed.asm @@ -42,9 +42,17 @@ include '../../macros.inc' define __DEBUG__ 1 define __DEBUG_LEVEL__ 1 include '../../debug-fdo.inc' +include '../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../develop/libraries/box_lib/load_lib.mac' @use_library ;----------------------------------------------------------------------------- +struct RESULT_SLOT + text dd ? + read_speed dd ? + write_speed dd ? + chunk_size dd ? +ends +;----------------------------------------------------------------------------- START: DEBUGF 1,'FSPEED: start of programm\n' ;----------------------------------------------------------------------------- @@ -61,6 +69,11 @@ load_libraries l_libs_start,end_l_libs ;OpenDialog initialisation push dword OpenDialog_data call [OpenDialog_Init] + + push check1 + call [init_checkbox] + + mcall 40,0x27 ;----------------------------------------------------------------------------- red: call draw_window @@ -76,6 +89,9 @@ still: cmp eax,3 je button + push dword check1 + call [check_box_mouse] + jmp still ;----------------------------------------------------------------------------- key: @@ -126,14 +142,31 @@ draw_window: xor ebp,ebp mov edx,[w_work] ; color of work area RRGGBB,8->color or edx,0x34000000 - mcall 0,<100,400>,<100,270>,,,title + mcall 0,<100,400>,<100,300>,,,title + call draw_PathShow - mcall 8,<5,80>,<25,15>,2,[w_work_button] - mcall 4,<5+10,25+4>,[w_work_button_text],s_text,s_text.size - mcall 8,<400-65,50>,<25,15>,3,[w_work_button] - mcall 4,<400-65+10,25+4>,[w_work_button_text],r_text,r_text.size + mov eax,[w_work_text] + or eax,0x80000000 + mov [check1.text_color],eax + push dword check1 + call [check_box_draw] - mov ebx,5 shl 16+47 + mcall 8,<5,80>,<25,15>,2,[w_work_button] + mcall ,<400-65,50>,,3 + mov ecx,[w_work_button_text] + or ecx,0x80000000 + mcall 4,<5+10,25+4>,,s_text + mcall ,<400-65+10,25+4>,,r_text + mov ecx,[w_work_text] + or ecx,0x80000000 + mcall ,<10,47>,,check_box_warning_text + mcall ,<10,65>,,result_table_text + + mov edx,ecx + and edx,0xffffff + mcall 38,<5,400-15>,<59,59> +; draw result table + mov ebx,10 shl 16+77 mov ebp,result_table mov ecx,18 ;-------------------------------------- @@ -141,15 +174,17 @@ draw_window: push ecx mov ecx,[w_work_text] or ecx,0x80000000 - mcall 4,,,[ebp] + mcall 4,,,[ebp+RESULT_SLOT.text] push ebx mov edx,ebx - add edx,50 shl 16 + add edx,(11*6) shl 16 mov ebx,0x800a0000 - mcall 47,,[ebp+4],,[w_work_text] + mcall 47,,[ebp+RESULT_SLOT.read_speed],,[w_work_text] + add edx,(16*6) shl 16 + mcall ,,[ebp+RESULT_SLOT.write_speed] pop ebx add ebx,6+5 - add ebp,12 + add ebp,sizeof.RESULT_SLOT pop ecx dec ecx jnz @b @@ -173,11 +208,20 @@ testing: @@: push ecx call read_chunk - pop ecx - add ebp,12 + pusha call draw_window popa + + call write_chunk + + pusha + call draw_window + popa + + pop ecx + add ebp,sizeof.RESULT_SLOT + dec ecx jnz @b @@ -185,15 +229,15 @@ testing: ;----------------------------------------------------------------------------- read_chunk: mov eax,[file_info+32] ; file size - cmp [ebp+8],eax ; chunk size + cmp [ebp+RESULT_SLOT.chunk_size],eax jb @f - xor eax,eax - mov [ebp+4],eax ; small file size for current chunk size + xor eax,eax ; small file size for current chunk size + mov [ebp+RESULT_SLOT.read_speed],eax ret ;-------------------------------------- @@: - mcall 68,12,[ebp+8] ; chunk size + mcall 68,12,[ebp+RESULT_SLOT.chunk_size] mov [fileread.return],eax xor eax,eax mov [fileread.offset],eax ; zero current offset @@ -201,7 +245,7 @@ read_chunk: add eax,1600 ; 16 sec for iterations mov esi,eax mov ecx,1 - mov eax,[ebp+8] ; chunk size + mov eax,[ebp+RESULT_SLOT.chunk_size] mov [fileread.size],eax ;-------------------------------------- .loop: @@ -211,11 +255,11 @@ read_chunk: cmp esi,eax jbe .end ; correct offset - mov edx,[ebp+8] ; chunk size + mov edx,[ebp+RESULT_SLOT.chunk_size] add [fileread.offset],edx ; current offset ; check offset and file size mov edx,[file_info+32] ; file size - sub edx,[ebp+8] ; chunk size + sub edx,[ebp+RESULT_SLOT.chunk_size] cmp [fileread.offset],edx jbe @f @@ -227,17 +271,78 @@ read_chunk: jmp .loop ;-------------------------------------- .end: - mov eax,[ebp+8] + mov eax,[ebp+RESULT_SLOT.chunk_size] xor edx,edx mul ecx shr eax,10+4 ;div 1024 ; div 16 shl edx,18 add eax,edx - mov [ebp+4],eax ; speed KB/s - DEBUGF 1,'FSPEED: chunk size: %s iterations: %d speed: %d KB/s\n',[ebp],ecx,eax + mov [ebp+RESULT_SLOT.read_speed],eax ; speed KB/s + DEBUGF 1,'FSPEED: read chunk size: %s iterations: %d speed: %d KB/s\n',\ + [ebp+RESULT_SLOT.text],ecx,eax mcall 68,13,[fileread.return] ret ;----------------------------------------------------------------------------- +write_chunk: + test [check1.flags],dword 10b + jz .exit + + mov eax,[file_info+32] ; file size + cmp [ebp+RESULT_SLOT.chunk_size],eax + jb @f +;-------------------------------------- +.exit: + xor eax,eax ; small file size for current chunk size + mov [ebp+RESULT_SLOT.write_speed],eax + ret +;-------------------------------------- +@@: + mcall 68,12,[ebp+RESULT_SLOT.chunk_size] + mov [filewrite.data],eax + xor eax,eax + mov [filewrite.offset],eax ; zero current offset + mcall 26,9 ; get start time + add eax,1600 ; 16 sec for iterations + mov esi,eax + mov ecx,1 + mov eax,[ebp+RESULT_SLOT.chunk_size] + mov [filewrite.size],eax +;-------------------------------------- +.loop: + mcall 70,filewrite + + mcall 26,9 ; check current time + cmp esi,eax + jbe .end +; correct offset + mov edx,[ebp+RESULT_SLOT.chunk_size] + add [filewrite.offset],edx ; current offset +; check offset and file size + mov edx,[file_info+32] ; file size + sub edx,[ebp+RESULT_SLOT.chunk_size] + cmp [filewrite.offset],edx + jbe @f + + xor edx,edx + mov [filewrite.offset],edx ; zero current offset +;-------------------------------------- +@@: + inc ecx + jmp .loop +;-------------------------------------- +.end: + mov eax,[ebp+RESULT_SLOT.chunk_size] + xor edx,edx + mul ecx + shr eax,10+4 ;div 1024 ; div 16 + shl edx,18 + add eax,edx + mov [ebp+RESULT_SLOT.write_speed],eax ; speed KB/s + DEBUGF 1,'FSPEED: write chunk size: %s iterations: %d speed: %d KB/s\n',\ + [ebp+RESULT_SLOT.text],ecx,eax + mcall 68,13,[filewrite.data] + ret +;----------------------------------------------------------------------------- include 'idata.inc' ;----------------------------------------------------------------------------- IM_END: diff --git a/programs/fs/fspeed/idata.inc b/programs/fs/fspeed/idata.inc index dcaf58438e..5de39bfe9b 100644 --- a/programs/fs/fspeed/idata.inc +++ b/programs/fs/fspeed/idata.inc @@ -1,19 +1,26 @@ ;----------------------------------------------------------------------------- -lsz s_text,\ - ru,'Выбор файла',\ - en,'Select file',\ - et,'Select file',\ - it,'Select file',\ - sp,'Select file' +s_text: +if lang eq ru + db 'Выбор файла',0 +else + db 'Select file',0 +end if ;----------------------------------------------------------------------------- -lsz r_text,\ - ru,'Пуск',\ - en,'Start',\ - et,'Start',\ - it,'Start',\ - sp,'Start' +r_text: +if lang eq ru + db 'Пуск',0 +else + db 'Start',0 +end if ;----------------------------------------------------------------------------- -title db 'File Speed v0.1',0 +result_table_text: +if lang eq ru + db 'Размер Чтение (КБ/с) Запись (КБ/с)',0 +else + db 'Size Read (KB/s) Write (KB/s)',0 +end if +;----------------------------------------------------------------------------- +title db 'File Speed v0.3',0 ;----------------------------------------------------------------------------- include_debug_strings ;----------------------------------------------------------------------------- @@ -72,8 +79,9 @@ Box_lib_import: ;edit_box_mouse dd aEdit_box_mouse ;version_ed dd aVersion_ed -;check_box_draw dd aCheck_box_draw -;check_box_mouse dd aCheck_box_mouse +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 @@ -118,9 +126,10 @@ PathShow_draw dd sz_PathShow_draw ;aEdit_box_mouse db 'edit_box_mouse',0 ;aVersion_ed db 'version_ed',0 -;aCheck_box_draw db 'check_box_draw',0 -;aCheck_box_mouse db 'check_box_mouse',0 -;aVersion_ch db 'version_ch',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 @@ -167,6 +176,23 @@ PathShow_data: .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 + db 'Тестировать запись',0 +else + db 'Use testing of write',0 +end if + +check_box_warning_text: +if lang eq ru + db 'ВНИМАНИЕ! Проверка скорости записи уничтожает содержимое файла!',0 +else + db 'WARNING! Testing of write speed is destroy contents of file!',0 +end if +;----------------------------------------------------------------------------- OpenDialog_data: .type dd 0 .procinfo dd process_info ;+4 @@ -217,24 +243,24 @@ default_dtp: sector equ 512 ;-------------------------------------- result_table: - dd a512b, 0, sector*1 - dd a1K, 1, sector*2 - dd a2K, 2, sector*4 - dd a4K, 3, sector*8 - dd a8K, 4, sector*16 - dd a16K, 5, sector*32 - dd a32K, 6, sector*64 - dd a64K, 7, sector*128 - dd a128K, 8, sector*256 - dd a256K, 9, sector*512 - dd a512K, 10, sector*1024 - dd a1M, 11, sector*2*1024 - dd a2M, 12, sector*4*1024 - dd a4M, 13, sector*8*1024 - dd a8M, 14, sector*16*1024 - dd a16M, 15, sector*32*1024 - dd a32M, 16, sector*64*1024 - dd a64M, -1, sector*128*1024 + 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 @@ -275,3 +301,13 @@ fileread: 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 +;-----------------------------------------------------------------------------