Subversion Repositories Kolibri OS

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

; Kolibri Graphics Benchmark 0.82

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

; MGB - Menuet Graphics Benchmark 0.3

; Compile with FASM

;

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

; version:	0.82

; last update:  03/11/2014

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      fix "benchmark GS selector" for 16bpp (support SVN r.5154)

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

; version:	0.81

; last update:  01/05/2014

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      fix "benchmark GS selector" for some display sizes

;               (for example, 1366 by horizontal) and code optimization

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

; version:	0.8

; last update:  08/07/2013

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      benchmark f4 with memory + f65

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

; version:	0.7

; last update:  05/04/2013

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      benchmark GS selector - read screen area

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

; version:	0.6

; last update:  14/03/2013

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      benchmark f36 - read screen area

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

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

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

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

include 'lang.inc'	;language support

	@use_library

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

start:

	mcall	68,11

	mcall	68,12,8+9*6*38*4	; 7352

	mov	[text_scren_buffer],eax

	mcall	68,12,8+9*6*38*4	; 8216

	mov	[text_scren_buffer2],eax

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,0x80000027

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:

	mcall	68,12,90*123*3

	mov	[area_for_f36],eax

	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 edi

	call	dword [esi]

	pop	edi esi

	inc	edi

	mcall	26,9

	cmp	eax,[dwTestEndTime]

	jb	@b

	mov	[esi-8],edi

	add	esi,TEST_REC_SIZE

	cmp	dword [esi], testDrawPicture_f73

	jnz	@f

	call	prepare_f73

@@:

	cmp	dword [esi],0

	jnz	.next_test

	xor	dword [wFlags],1

	mcall	68,13,[area_for_f36]

	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,[area_for_f36],<90,123>,<15,33>

	ret

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

prepare_f73:

	mov	ecx, 90*123

	mov	eax, params_f73.data

	mov	ebx, [area_for_f36]

@@:

	mov	edx, [ebx]

	and	edx, 0xFFFFFF

	mov	[eax], edx

	add	ebx, 3

	add	eax, 4

	dec	ecx

	jnz	@b

	ret

align 4

testDrawPicture_f73:

	xor	ebx,ebx

	mcall	73,,params_f73

	ret

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

align 4

testGetScreen_f36:

	xor	ebx,ebx

	mcall	36,[area_for_f36],<90,123>,<15,33>

	ret

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

GS_start_x = 15

GS_start_y = 33

GS_size_x = 90

GS_size_y = 123

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

align 4

testGetScreen_GS:

	push	edi

	mov	edi,[area_for_f36]

	mcall	61,2

	cmp	eax,24

	je	get_area_with_GS_24

	cmp	eax,16

	je	get_area_with_GS_16

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

align 4

get_area_with_GS_32:

	mcall	61,3

	mov	ebx,eax

	mov	esi,GS_start_y

	imul	esi,eax

	mov	eax,GS_start_x

	shl	eax,2

	add	esi,eax

	mov	ebp,GS_size_x

	mov	eax,ebp

	shl	eax,2

	sub	ebx,eax

	mov	edx,GS_size_y

	sub	esi,ebx

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

align 4

.start_y:

	add	esi,ebx

	mov	ecx,ebp

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

align 4

.start_x:

	mov	eax,[gs:esi]

	mov	[edi],eax

	add	esi,4

	add	edi,3

        dec     ecx

        jnz     .start_x

        dec     edx

        jnz     .start_y

	pop	edi

	ret

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

align 4

get_area_with_GS_24:

	mcall	61,3

	mov	ebx,eax

	mov	esi,GS_start_y

	imul	esi,eax

	mov	eax,GS_start_x

	lea	eax,[eax*3]

	add	esi,eax

	mov	ebp,GS_size_x

	mov	eax,ebp

	lea	eax,[eax*3]

	sub	ebx,eax

	mov	edx,GS_size_y

	sub	esi,ebx

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

align 4

.start_y:

	add	esi,ebx

	mov	ecx,ebp

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

align 4

.start_x:

	mov	eax,[gs:esi]

	mov	[edi],eax

	add	esi,3

	add	edi,3

        dec     ecx

        jnz     .start_x

        dec     edx

        jnz     .start_y

	pop	edi

	ret

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

align 4

get_area_with_GS_16:

	mcall	61,3

	mov	ebx,eax

	mov	esi,GS_start_y

	imul	esi,eax

	mov	eax,GS_start_x

	shl	eax,1

	add	esi,eax

	mov	ebp,GS_size_x

	mov	eax,ebp

	shl	eax,1

	sub	ebx,eax

	mov	edx,GS_size_y

	sub	esi,ebx

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

align 4

.start_y:

	add	esi,ebx

	mov	ecx,ebp

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

align 4

.start_x:

	xor	eax,eax

	mov	ax,[gs:esi]

        shl     eax, 3

        ror     eax, 8

        shl     ax, 2

        ror     eax, 8

        shl     al, 3

        rol     eax, 16

	mov	[edi],eax

	add	esi,2

	add	edi,3

        dec     ecx

        jnz     .start_x

        dec     edx

        jnz     .start_y

	pop	edi

	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,<12,300>,0x0000AA66,aTestText,34

	ret

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

align 4

testDrawText1m:

	mov	eax,[text_scren_buffer]

	mov	[eax],dword 6*34

	mov	[eax+4],dword 9

	mcall	4,<0,0>,0x0800AA66,aTestText,34,[text_scren_buffer]

	xor	ebp,ebp

	mov	ebx,[text_scren_buffer]

	add	ebx,8

	mcall	65,,<6*34,9>,<18,309>,32

	ret

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

align 4

testDrawText2:

	mcall	4,<27,315>,0x10E7B850,aTestText,34

	ret

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

align 4

testDrawText2m:

	mov	eax,[text_scren_buffer2]

	mov	[eax],dword 6*38

	mov	[eax+4],dword 9

	mcall	4,<0,0>,0x18E7B850,aTestText,34,[text_scren_buffer2]

	xor	ebp,ebp

	mov	ebx,[text_scren_buffer2]

	add	ebx,8

	mcall	65,,<6*38,9>,<33,324>,32

	ret

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

align 4

testDrawNumber:

	mcall	47,0x80000,12345678,<42,333>,0x0E0B27B

	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,0x80000027

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

	?,?,testGetScreen_f36,aGetScreenF36,\

	?,?,testGetScreen_GS,aGetScreen_GS,\

	?,?,testDrawPicture,aDrawingPicture,\

	?,?,testDrawPicture_f73,aDrawingPictF73,\

	?,?,testDrawVertLine,aDrawingVLine,\

	?,?,testDrawHorzLine,aDrawingHLine,\

	?,?,testDrawFreeLine,aDrawingFLine,\

	?,?,testDrawText1,aDrawingText1,\

	?,?,testDrawText1m,aDrawingText1m,\

	?,?,testDrawText2,aDrawingText2,\

	?,?,testDrawText2m,aDrawingText2m,\

	?,?,testDrawNumber,aDrawingNumber,\

	?,?,testDrawPixel,aDrawingPixel,\

	0,0,0,0

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

LINE_HEIGHT   = 13

TEST_REC_SIZE = 16

TESTS_NUM     = ($ - results_table) / TEST_REC_SIZE - 1

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

if lang eq it

	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

	aGetScreenF36	db 'Get a piece of screen f.36, 90x123, px',0

	aGetScreen_GS	db 'Get a piece of screen GS, 90x123, px',0

	aDrawingVLine	db 'Linea verticale, 350 px',0

	aDrawingHLine	db 'Linea orizzontale, 270 px',0

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

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

	aDrawingText1m	db 'Fixed-width Text(m), 34 chars',0

	aDrawingText2	db 'Proportional Text, 34 chars',0

	aDrawingText2m	db 'Proportional Text(m), 34 chars',0

	aDrawingNumber	db 'Decimal Number, 8 digits',0

	aDrawingPixel	db 'Singolo pixel',0

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

	aButtonsText	db 'Test      Commenti    Pattern+     Apri        Salva',0

	aCaption	db 'Kolibri Graphical Benchmark 0.82',0

	aLeft	db 'Sinistra:',0

	aRight	db 'Destra  :',0

	aComment1	db 'Attuale ',0

	aComment2	db 'no pattern',0

	aComment	db 'Commento',0

else

	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

	aGetScreenF36	db 'Get a piece of screen f.36, 90x123, px',0

	aGetScreen_GS	db 'Get a piece of screen GS, 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

	aDrawingText1m	db 'Fixed-width Text(m), 34 chars',0

	aDrawingText2	db 'Proportional Text, 34 chars',0

	aDrawingText2m	db 'Proportional Text(m), 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.82',0

	aLeft	db 'Left    :',0

	aRight	db 'Right   :',0

	aComment1	db 'current',0

	aComment2	db 'no pattern',0

	aComment	db 'Comment',0

end if

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

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

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

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

head_f_i:

if lang eq it

	head_f_l	db 'Errore Sistema',0

else

	head_f_l	db 'System error',0

end if

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 .data; 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:

align 4

mouse_dd	rd 1

area_for_f36	rd 1

dwTestEndTime	rd 1

dwMainPID	rd 1

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

text_scren_buffer	rd 1

text_scren_buffer2	rd 1

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

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

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

align 4

	rb 4096

thread_stack2:

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

align 4

	rb 4096