Subversion Repositories Kolibri OS

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

; Kolibri Graphics Benchmark 0.4

; MGB - Menuet Graphics Benchmark 0.3

; Compile with FASM

;

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

; 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 '..\..\..\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	.1

	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	ActionOpen.1

	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

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,\

  ?,?,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, 55x123, 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.4',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:

	db '/sys/File Managers/opendial',0

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

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

stacktop:

I_END: