| 0,0 → 1,245 |
|---|
| ;***************************************************************************** |
| ; File Speed - for Kolibri OS |
| ; Copyright (c) 2014, Marat Zakiyanov aka Mario79, aka Mario |
| ; All rights reserved. |
| ; |
| ; Redistribution and use in source and binary forms, with or without |
| ; modification, are permitted provided that the following conditions are met: |
| ; * Redistributions of source code must retain the above copyright |
| ; notice, this list of conditions and the following disclaimer. |
| ; * Redistributions in binary form must reproduce the above copyright |
| ; notice, this list of conditions and the following disclaimer in the |
| ; documentation and/or other materials provided with the distribution. |
| ; * Neither the name of the <organization> nor the |
| ; names of its contributors may be used to endorse or promote products |
| ; derived from this software without specific prior written permission. |
| ; |
| ; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY |
| ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE |
| ; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY |
| ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES |
| ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
| ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND |
| ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| ;***************************************************************************** |
| ;----------------------------------------------------------------------------- |
| use32 |
| org 0x0 |
| db 'MENUET01' |
| dd 0x01 |
| dd START |
| dd IM_END |
| dd I_END |
| dd STACK_TOP |
| dd 0x0 |
| dd cur_dir_path |
| ;----------------------------------------------------------------------------- |
| include 'lang.inc' |
| include '../../macros.inc' |
| define __DEBUG__ 1 |
| define __DEBUG_LEVEL__ 1 |
| include '../../debug-fdo.inc' |
| include '../../develop/libraries/box_lib/load_lib.mac' |
| @use_library |
| ;----------------------------------------------------------------------------- |
| START: |
| DEBUGF 1,'FSPEED: start of programm\n' |
| ;----------------------------------------------------------------------------- |
| mcall 68,11 |
| test eax,eax |
| jz exit |
| ;----------------------------------------------------------------------------- |
| load_libraries l_libs_start,end_l_libs |
| ;if return code =-1 then exit, else nornary work |
| inc eax |
| test eax,eax |
| jz exit |
| ;----------------------------------------------------------------------------- |
| ;OpenDialog initialisation |
| push dword OpenDialog_data |
| call [OpenDialog_Init] |
| ;----------------------------------------------------------------------------- |
| red: |
| call draw_window |
| ;----------------------------------------------------------------------------- |
| still: |
| mcall 10 |
| cmp eax,1 |
| je red |
| |
| cmp eax,2 |
| je key |
| |
| cmp eax,3 |
| je button |
| |
| jmp still |
| ;----------------------------------------------------------------------------- |
| key: |
| mcall 2 |
| jmp still |
| ;----------------------------------------------------------------------------- |
| button: |
| mcall 17 |
| |
| cmp ah,2 |
| je select_file |
| |
| cmp ah,3 |
| je testing |
| |
| cmp ah,1 |
| jne still |
| ;-------------------------------------- |
| exit: |
| mcall -1 |
| ;----------------------------------------------------------------------------- |
| select_file: |
| ; invoke OpenDialog |
| mov [OpenDialog_data.type],dword 0 |
| push dword OpenDialog_data |
| call [OpenDialog_Start] |
| cmp [OpenDialog_data.status],1 |
| jne still |
| ; prepare for PathShow |
| push dword PathShow_data |
| call [PathShow_prepare] |
| |
| call draw_PathShow |
| jmp still |
| ;----------------------------------------------------------------------------- |
| draw_PathShow: |
| mcall 13,<5,400-20>,<5,15>,0xffffff |
| ; draw for PathShow |
| push dword PathShow_data |
| call [PathShow_draw] |
| ret |
| ;----------------------------------------------------------------------------- |
| draw_window: |
| mcall 48,3,app_colours,4*10 ; get current colors |
| |
| mcall 12,1 |
| xor esi,esi |
| xor ebp,ebp |
| mov edx,[w_work] ; color of work area RRGGBB,8->color |
| or edx,0x34000000 |
| mcall 0,<100,400>,<100,270>,,,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 ebx,5 shl 16+47 |
| mov ebp,result_table |
| mov ecx,18 |
| ;-------------------------------------- |
| @@: |
| push ecx |
| mov ecx,[w_work_text] |
| or ecx,0x80000000 |
| mcall 4,,,[ebp] |
| push ebx |
| mov edx,ebx |
| add edx,50 shl 16 |
| mov ebx,0x800a0000 |
| mcall 47,,[ebp+4],,[w_work_text] |
| pop ebx |
| add ebx,6+5 |
| add ebp,12 |
| pop ecx |
| dec ecx |
| jnz @b |
| |
| mcall 12,2 |
| ret |
| ;-----------------------------------------------------------------------------;----------------------------------------------------------------------------- |
| testing: |
| mcall 70,fileinfo |
| test eax,eax |
| jz @f |
| |
| DEBUGF 1,'FSPEED: file not found %s\n',fname |
| jmp still |
| ;-------------------------------------- |
| @@: |
| DEBUGF 1,'FSPEED: target file %s\n',fname |
| mov ebp,result_table |
| mov ecx,18 |
| ;-------------------------------------- |
| @@: |
| push ecx |
| call read_chunk |
| pop ecx |
| add ebp,12 |
| pusha |
| call draw_window |
| popa |
| dec ecx |
| jnz @b |
| |
| jmp still |
| ;----------------------------------------------------------------------------- |
| read_chunk: |
| mov eax,[file_info+32] ; file size |
| cmp [ebp+8],eax ; chunk size |
| jb @f |
| |
| xor eax,eax |
| mov [ebp+4],eax ; small file size for current chunk size |
| ret |
| ;-------------------------------------- |
| @@: |
| mcall 68,12,[ebp+8] ; chunk size |
| mov [fileread.return],eax |
| xor eax,eax |
| mov [fileread.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+8] ; chunk size |
| mov [fileread.size],eax |
| ;-------------------------------------- |
| .loop: |
| mcall 70,fileread |
| |
| mcall 26,9 ; check current time |
| cmp esi,eax |
| jbe .end |
| ; correct offset |
| mov edx,[ebp+8] ; 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 |
| cmp [fileread.offset],edx |
| jbe @f |
| |
| xor edx,edx |
| mov [fileread.offset],edx ; zero current offset |
| ;-------------------------------------- |
| @@: |
| inc ecx |
| jmp .loop |
| ;-------------------------------------- |
| .end: |
| mov eax,[ebp+8] |
| imul eax,ecx |
| shr eax,10+4 |
| mov [ebp+4],eax ; speed KB/s |
| DEBUGF 1,'FSPEED: chunk size: %s iterations: %d speed: %d KB/s\n',[ebp],ecx,eax |
| mcall 68,13,[fileread.return] |
| ret |
| ;----------------------------------------------------------------------------- |
| include 'idata.inc' |
| ;----------------------------------------------------------------------------- |
| IM_END: |
| ;----------------------------------------------------------------------------- |
| include 'udata.inc' |
| ;----------------------------------------------------------------------------- |
| I_END: |
| ;----------------------------------------------------------------------------- |