Subversion Repositories Kolibri OS

;=============================================================================

; Kolibri Graphics Benchmark 0.5

;--------------------------------------

; MGB - Menuet Graphics Benchmark 0.3

; Compile with FASM

;

;=============================================================================

; version:	0.5

; last update:  05/03/2013

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      benchmark f73-blitter

;---------------------------------------------------------------------

; version:	0.4

; last update:  18/09//2010

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      select path with OpenDialog,

;               use of Box_Lib and Proc_Lib,

;               support start with path for *.mgb file

;               optimization code and size of use memory

;---------------------------------------------------------------------

; Original author and copyrights holder:

;     Mikhail Lisovin a.k.a. Mihasik

;     lisovin@26.ru

;

; Disassembled with IDA 5.0.0.879:

;     http://www.datarescue.com/

; With use of 'ida.int' and 'kloader.ldw':

;     Eugene Grechnikov a.k.a. diamond

;     diamondz@land.ru

;     http://diamondz.land.ru/

;

; Modified for version 0.3:

;     Mike Semenako a.k.a mike.dld

;     mike.dld@gmail.com

;     http://www.mikedld.com/

;

;=============================================================================

org 0x0

use32

	db 'MENUET01'

	dd 1

	dd start

	dd IM_END

	dd I_END	;0x200000

	dd stacktop	;0x07FFF0

	dd fname_buf

	dd cur_dir_path

include '../../../config.inc'		;for nightbuild

include '..\..\..\macros.inc'

include '..\..\..\proc32.inc'

include '../../../develop/libraries/box_lib/trunk/box_lib.mac'

include '../../../develop/libraries/box_lib/load_lib.mac'

	@use_library

;---------------------------------------------------------------------

start:

	mcall	68,11

load_libraries l_libs_start,end_l_libs

	cmp	eax,-1

	jz	close

;---------------------------------------------------------------------

	mov	edi,filename_area

	mov	esi,start_temp_file_name

	call	copy_str_1

	mov	edi,comment_string_1

	mov	esi,aComment1

	call	copy_str_1

	mov	edi,comment_string_2

	mov	esi,aComment2

	call	copy_str_1

	mov	edi,fname_buf

	cmp	[edi],byte 0

	jne	@f

	mov	esi,path4

	call	copy_str_1

	jmp	.OpenDialog

@@:

	call	locLoadFile

	xor	dword [wFlags],1

.OpenDialog:

;OpenDialog	initialisation

	push	dword OpenDialog_data

	call	[OpenDialog_Init]

;---------------------------------------------------------------------

	mcall	40,0x27

red:

	call	draw_window

still:

	mcall	10

	cmp	eax,1

	jz	red

	cmp	eax,2

	jz	key

	cmp	eax,3

	jz	button

	jmp	still

;---------------------------------------------------------------------

copy_str_1:

	xor	eax,eax

	cld

@@:

	lodsb

	stosb

	test	eax,eax

	jnz	@b

	ret

;---------------------------------------------------------------------

key:

	mcall	2

	cmp	ah,'t'

	jz	ActionTest

	cmp	ah,'c'

	jz	ActionComment

	cmp	ah,'p'

	jz	ActionPattern

	cmp	ah,'o'

	jz	ActionOpen

	cmp	ah,'s'

	jz	ActionSave

	jmp	still

;---------------------------------------------------------------------

button:

	mcall	17

	cmp	ah,1

	jnz	NotClose

close:

	mcall	-1

NotClose:

	cmp	ah,2

	jnz	locNotTest

ActionTest:

	test	dword [wFlags],1

	jnz	still

	mcall	51,1,TestWndProc,thread_stack1

	jmp	still

;---------------------------------------------------------------------

locNotTest:

	cmp	ah,3

	jnz	NotComment

ActionComment:

	test	dword [wFlags],1

	jnz	still

	mcall	51,1,thread_comment,thread_stack2

	jmp	still

;---------------------------------------------------------------------

NotComment:

	cmp	ah,4

	jnz	NotPattern

ActionPattern:

	test	dword [wFlags],1

	jnz	still

	mov	esi,results_table

	cld

@@:

	lodsd

	mov	[esi],eax

	add	esi,TEST_REC_SIZE-4

	cmp	dword [esi+TEST_REC_SIZE-4],0

	jne	@b

	mov	esi,comment_string_1

	mov	edi,comment_string_2

	call	copy_str_1

	call	DrawBars

	jmp	still

;---------------------------------------------------------------------

NotPattern:

	cmp	ah,5

	jnz	NotOpen

ActionOpen:

	test	dword [wFlags],1

	jnz	still

	mov	[OpenDialog_data.type],0 ; open

	call	OpenDialog_Start_1

	jne	still

	call	locLoadFile

	call	DrawBars

.1:

	xor	dword [wFlags],1

	jmp	still

;---------------------------------------------------------------------

OpenDialog_Start_1:

	push    dword OpenDialog_data

	call	[OpenDialog_Start]

	cmp	[OpenDialog_data.status],1

	ret

;---------------------------------------------------------------------

NotOpen:

	cmp	ah,6

	jnz	still

ActionSave:

	test	dword [wFlags],1

	jnz	still

	mov	[OpenDialog_data.type],1 ; save

	call	OpenDialog_Start_1

	jne	still

	call	locSaveFile

	jmp	ActionOpen.1

;---------------------------------------------------------------------

TestWndProc:

	or	dword [wFlags],1

	mov	esi,results_table+8

align 4

.next_test:

	xor	edi,edi

	mcall	 26,9

	inc	eax

	mov	ecx,eax

	add	eax,100

	mov	[dwTestEndTime],eax

align 4

@@:

	mcall	 26

	cmp	eax,ecx

	jb	@r

align 4

@@:

	push	esi

	call	dword [esi]

	pop	esi

	inc	edi

	mcall	26,9

	cmp	eax,[dwTestEndTime]

	jb	@b

	mov	[esi-8],edi

	add	esi,TEST_REC_SIZE

	cmp	dword [esi],0

	jnz	.next_test

	xor	dword [wFlags],1

	mcall	-1

;---------------------------------------------------------------------

draw_window:

	mcall	12,1

	mcall	48,4

	mov	ebx,100*65536+72*5+14

	mov	ecx,80*65536+TESTS_NUM*LINE_HEIGHT+15+20+35

	add	cx,ax

	xor	eax,eax

	xor	esi,esi

	mcall	,,,34000000h,,aCaption

	mov	eax,8

	mov	ebx,050036h+12

	mov	ecx,5*65536+20

	mov	edx,2

	mov	esi,0x00007F7F

@@:

	mcall

	add	ebx,72*65536

	inc	edx

	cmp	edx,7

	jb	@r

	mov	ecx,31

	mov	edx,0x00007F7F

	mov	esi,(72*5)/2

	call	drawSeparator

	mcall	4,<27,12>,0x80DDEEFF,aButtonsText

	call	DrawBars

	mov	ecx,TESTS_NUM*LINE_HEIGHT+15+21

	mov	edx,0x00007F7F

	mov	esi,(72*5)/2

	call	drawSeparator

	mcall	12,2

	ret

;---------------------------------------------------------------------

drawSeparator:

	mov	eax,1

	mov	ebx,3

@@:

	mcall

	add	ebx,2

	dec	esi

	jnz	@b

	ret

;---------------------------------------------------------------------

align 4

testDrawWindow:

	xor	eax,eax

	mcall	,640145h,4F0190h,3000000h

	ret

;---------------------------------------------------------------------

align 4

testDrawBar:

	mcall	13,0A0064h,1E00FAh,6A73D0h

	ret

;---------------------------------------------------------------------

align 4

testDrawPicture:

	xor	ebx,ebx

	mcall	7,,<90,123>,<15,33>

	ret

;---------------------------------------------------------------------

align 4

testDrawPicture_f73:

	xor	ebx,ebx

	mcall	73,,params_f73

	ret

;---------------------------------------------------------------------

align 4

testDrawVertLine:

	mcall	38,<300,300>,<30,380>,1090207Fh

	ret

;---------------------------------------------------------------------

align 4

testDrawHorzLine:

	mcall	38,<30,300>,<380,380>,1090207Fh

	ret

;---------------------------------------------------------------------

align 4

testDrawFreeLine:

	mcall	38,<30,300>,<380,30>,1090207Fh

	ret

;---------------------------------------------------------------------

align 4

testDrawText1:

	mcall	4,0C012Ch,0AA66h,aTestText,34

	ret

;---------------------------------------------------------------------

align 4

testDrawText2:

	mcall	4,1B013Bh,10E7B850h,aTestText,34

	ret

;---------------------------------------------------------------------

align 4

testDrawNumber:

	mcall	47,80000h,12345678,2A014Ah,0E0B27Bh

	ret

;---------------------------------------------------------------------

align 4

testDrawPixel:

	mcall	1,100,100,0FFFFFFh

	ret

;---------------------------------------------------------------------

DrawBars:

	mov	edi,results_table

	mov	ebx,30+7

.next_result:

	cmp	dword[edi+TEST_REC_SIZE-4],0

	je	.exit

	push	ebx

	movzx	ecx,bx

	add	ecx,-2

	shl	ecx,16

	mov	cx,LINE_HEIGHT

	mov	ebx,0*65536+72*5+5

	xor	edx,edx

	mcall	13

	pop	ebx

	and	ebx,0x0000FFFF

	or	ebx,5*65536

	mov	edx,[edi+TEST_REC_SIZE-4]

	mcall	4,,0x8000CCCC

	push	'=' 0x00FFFF00 0x00FFFF7F 0x00FFFF7F

	mov	eax,[edi+0]

	cmp	eax,[edi+4]

	je	@f

	jb	.lp1

	mov	dword[esp+0],0x007FFF7F

	mov	dword[esp+4],0x00FF7F7F

	mov	dword[esp+8],0x0000FF00

	mov	byte[esp+12],'>'

.lp1:

	ja	@f

	mov	dword[esp+0],0x00FF7F7F

	mov	dword[esp+4],0x007FFF7F

	mov	dword[esp+8],0x00FF0000

	mov	byte[esp+12],'<'

@@:

	pop	ecx

	call	int2str

	add	ebx,(72*5-6*8*2-6-10-5)*65536 ; 196

	mcall	4,,,textarea,8

	pop	ecx

	mov	eax,[edi+4]

	call	int2str

	add	ebx,(6*8+6+10)*65536

	mcall	4

	pop	ecx

	add	ebx,(-6-5)*65536

	mov	edx,esp

	mov	esi,1

	mcall

	add	esp,4

	add	edi,TEST_REC_SIZE

	add	bx,LINE_HEIGHT

	jmp	.next_result

.exit:

	mov	ebx, 0*65536+72*5+5

	mov	ecx, (TESTS_NUM*LINE_HEIGHT+15+25)*65536+26

	xor	edx, edx

	mcall	13

	mov	ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27)

	mcall	4,,0x8000CCCC,aLeft

	add	ebx, (6*10)*65536

	mcall	,,0x80FFFF00,comment_string_1

	mov	ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27+12)

	mcall	,,0x8000CCCC,aRight

	add	ebx, (6*10)*65536

	mcall	,,0x80FFFF00,comment_string_2

	ret

;---------------------------------------------------------------------

int2str:

	push	eax ecx edx edi

	mov	edi,textarea+7

	mov	dword[textarea+0],'    '

	mov	dword[textarea+4],'    '

	mov	ecx,10

@@:

	xor	edx,edx

	div	ecx

	add	dl,'0'

	mov	[edi],dl

	dec	edi

	or	eax,eax

	jnz	@b

	pop	edi edx ecx eax

	ret

;---------------------------------------------------------------------

thread_comment:

	or	dword [wFlags],1

	mcall	40,0x27

	mov	esi,comment_string_1

	cld

@@:

	lodsb

	test	al,al

	jne	@r

	sub	esi,comment_string_1

	mov	eax,esi

	dec	eax

	mov	edi, edit1

	mov	[edi+48], eax	;ed_size

	mov	[edi+52], eax	;ed_pos

;---------------------------------------------------------------------

.red:

	call .draw_window

.still:

	mcall	10	; wait here for event

	cmp	eax,1	; redraw request ?

	je	.red

	cmp	eax,2	; key in buffer ?

	je	.key

	cmp	eax,3	; button in buffer ?

	je	.button

	push	dword name_editboxes

	call	[edit_box_mouse]

	jmp	.still

;---------------------------------------------------------------------

.key:		; key

	mcall	2

	cmp	ah,13

	je	.close	;.close_with_open_file

	cmp	ah,27

	je	.close

	push	dword name_editboxes

	call	[edit_box_key]

	jmp	.still

;---------------------------------------------------------------------

.button:		; button

	mcall	17

	cmp	ah,1	; button id=1 ?

	jne	.still

.close:

	xor	dword [wFlags],1

	mcall	-1

;---------------------------------------------------------------------

.draw_window:

	mcall	12,1

	xor	eax,eax

	xor	esi,esi

	mcall	,<100,300>,<100,80>,0x34780078,,aComment

	push	dword name_editboxes

	call	[edit_box_draw]

	mcall	12,2

	ret

;---------------------------------------------------------------------

locLoadFile:

	mov	[stFileInfoBlock], 0

	or	dword [wFlags],1

	mcall	70,stFileInfoBlock

	mov	esi,mgb_data

	mov	edi,results_table+4

	cld

@@:

	cmp	dword[edi+TEST_REC_SIZE-8],0

	je	@f

	movsd

	add	edi,TEST_REC_SIZE-4

	jmp	@b

@@:

	mov	edi,comment_string_2

	mov	ecx,44

	rep	movsb

	ret

;---------------------------------------------------------------------

locSaveFile:

	mov	[stFileInfoBlock], 2

	or	dword [wFlags],1

	mov	esi,results_table+4

	mov	edi,mgb_data

	cld

@@:

	cmp	dword[esi+TEST_REC_SIZE-8],0

	je	@f

	movsd

	add	esi,TEST_REC_SIZE-4

	jmp	@b

@@:

	mov	esi,comment_string_2

	mov	ecx,44

	rep	movsb

	mcall	70,stFileInfoBlock

	ret

;---------------------------------------------------------------------

align 4

stFileInfoBlock dd 0,0,0

dwDataSize	dd TESTS_NUM*4+44	;1

		dd mgb_data

		db 0

		dd fname_buf

;---------------------------------------------------------------------

wFlags		dd 0

;---------------------------------------------------------------------

align 4

results_table dd \

	?,?,testDrawWindow,aDrawingWindow,\

	?,?,testDrawBar,aDrawingBar,\

	?,?,testDrawPicture,aDrawingPicture,\

	?,?,testDrawPicture_f73,aDrawingPictF73,\

	?,?,testDrawVertLine,aDrawingVLine,\

	?,?,testDrawHorzLine,aDrawingHLine,\

	?,?,testDrawFreeLine,aDrawingFLine,\

	?,?,testDrawText1,aDrawingText1,\

	?,?,testDrawText2,aDrawingText2,\

	?,?,testDrawNumber,aDrawingNumber,\

	?,?,testDrawPixel,aDrawingPixel,\

	0,0,0,0

;---------------------------------------------------------------------

LINE_HEIGHT   = 13

TEST_REC_SIZE = 16

TESTS_NUM     = ($ - results_table) / TEST_REC_SIZE - 1

;---------------------------------------------------------------------

aDrawingWindow	db 'Window Of Type #3, 325x400 px',0

aDrawingBar	db 'Filled Rectangle, 100x250 px',0

aDrawingPicture db 'Picture, 90x123, px',0

aDrawingPictF73	db 'Picture for Blitter, 90x123, px',0

aDrawingVLine	db 'Vertical Line, 350 px',0

aDrawingHLine	db 'Horizontal Line, 270 px',0

aDrawingFLine	db 'Free-angled Line, 350 px',0

aDrawingText1	db 'Fixed-width Text, 34 chars',0

aDrawingText2	db 'Proportional Text, 34 chars',0

aDrawingNumber	db 'Decimal Number, 8 digits',0

aDrawingPixel	db 'Single Pixel',0

aTestText	db 'This is a 34-charachters test text'

aButtonsText	db 'Test      Comment+    Pattern+      Open        Save',0

aCaption	db 'Kolibri Graphical Benchmark 0.5',0

aLeft	db 'Left    :',0

aRight	db 'Right   :',0

aComment1	db 'current',0

aComment2	db 'no pattern',0

aComment	db 'Comment',0

;---------------------------------------------------------------------

system_dir_Boxlib	db '/sys/lib/box_lib.obj',0

system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0

;---------------------------------------------------------------------

head_f_i:

head_f_l	db 'System error',0

err_message_found_lib1	db 'box_lib.obj - Not found!',0

err_message_found_lib2	db 'proc_lib.obj - Not found!',0

err_message_import1	db 'box_lib.obj - Wrong import!',0

err_message_import2	db 'proc_lib.obj - Wrong import!',0

;---------------------------------------------------------------------

align 4

l_libs_start:

library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \

err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i

library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \

err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i

end_l_libs:

;---------------------------------------------------------------------

align 4

OpenDialog_data:

.type			dd 1	; Save

.procinfo		dd procinfo	;+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_buf	;+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_dialog',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 '/rd0/1/',0

Filter:

dd	Filter.end - Filter

.1:

db	'MGB',0

.end:

db	0

start_temp_file_name:	db 'pattern.mgb',0

path4	db '/rd/1/pattern.mgb',0

;---------------------------------------------------------------------

align 4

params_f73:

; destination

.offset_X_dest	dd 0	; +0

.offset_Y_dest	dd 0	; +4

.width_dest	dd 90	; +8

.height_dest	dd 123	; +12

; source

.offset_X_src	dd 0	; +16

.offset_Y_src	dd 0	; +20

.width_src	dd 90	; +24

.height_src	dd 123	; +28

; other

.pointer	dd 0	; 90*4	; +32

.row_size	dd 90*4	; +36

;---------------------------------------------------------------------

align 4

ProcLib_import:

OpenDialog_Init		dd aOpenDialog_Init

OpenDialog_Start	dd aOpenDialog_Start

;OpenDialog__Version	dd aOpenDialog_Version

	dd 0

	dd 0

aOpenDialog_Init	db 'OpenDialog_init',0

aOpenDialog_Start	db 'OpenDialog_start',0

;aOpenDialog_Version	db 'Version_OpenDialog',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

;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

			dd 0

			dd 0

;a_init			db 'lib_init',0

;a_version		db 'version',0

aEdit_box_draw		db 'edit_box',0

aEdit_box_key		db 'edit_box_key',0

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

;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

;---------------------------------------------------------------------

; for EDITBOX

align 4

name_editboxes:

edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,comment_string_1,mouse_dd,ed_focus+ed_always_focus,0

name_editboxes_end:

;---------------------------------------------------------------------

IM_END:

mouse_dd	rd 1

align 4

dwTestEndTime	dd ?

dwMainPID	dd ?

;---------------------------------------------------------------------

textarea:

	rb 8

;---------------------------------------------------------------------

comment_string_1:

	rb 44

;---------------------------------------------------------------------

comment_string_2:

	rb 44

;---------------------------------------------------------------------

mgb_data:

	rb 100

;---------------------------------------------------------------------

procinfo:

	rb 1024

;---------------------------------------------------------------------

cur_dir_path:

	rb 4096

;---------------------------------------------------------------------

library_path:

	rb 4096

;---------------------------------------------------------------------

temp_dir_pach:

	rb 4096

;---------------------------------------------------------------------

fname_buf:

	rb 4096

;---------------------------------------------------------------------

filename_area:

	rb 256

;---------------------------------------------------------------------

	rb 4096

thread_stack2:

;---------------------------------------------------------------------

	rb 4096

thread_stack1:

;---------------------------------------------------------------------

	rb 4096

	rb 0x2884	; for F73 image size 123*90*4

stacktop:

I_END: