WebSVN – Kolibri OS – Diff – /programs/system/mgb/trunk/mgb.asm

 ;=============================================================================
-;
+; 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:
 use32
-  db 'MENUET01'
+	db 'MENUET01'
-  dd 1
+	dd 1
-  dd start
+	dd start
-  dd APP_MEM_END
+	dd IM_END
-  dd 0x200000
+	dd I_END	;0x200000
-  dd 0x07FFF0
+	dd stacktop	;0x07FFF0
-  dd 0
+	dd fname_buf
-  dd 0
+	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'
-include '..\..\..\macros.inc'
+	@use_library
-;__CPU_type	equ	p6  ; charge it
+;---------------------------------------------------------------------
+start:
-include 'proc32.inc'
+	mcall	68,11
+load_libraries l_libs_start,end_l_libs
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+	cmp	eax,-1
+	jz	close
+;---------------------------------------------------------------------
+	mov	edi,filename_area
-proc		start			; DATA XREF: seg000:off_Co
-; FUNCTION CHUNK AT 000000CF SIZE 00000147 BYTES
+	mov	esi,start_temp_file_name
-		mov	ecx, -1
+	call	copy_str_1
-		call	subGetThreadInfo
-		mov	edx, [dwMainPID]
-		mov	ecx, eax
-loc_36: 				; CODE XREF: start+20j
+	mov	edi,comment_string_1
-		call	subGetThreadInfo
+	mov	esi,aComment1
-loc_3B:
+	call	copy_str_1
-		cmp	edx, [dwMainPID]
-		jz	loc_46
+	mov	edi,comment_string_2
-		dec	ecx
+	mov	esi,aComment2
-		jnz	loc_36
+	call	copy_str_1
+	mov	edi,fname_buf
-loc_46: 				; CODE XREF: start+1Dj
+	cmp	[edi],byte 0
-		mov	[dwMainWndSlot], ecx
+	jne	@f
+	mov	esi,path4
+	call	copy_str_1
+	jmp	.OpenDialog
+@@:
-locRedrawEvent: 			; CODE XREF: start+3Cj
+	call	locLoadFile
-		call	subDrawMainWindow
+	xor  dword [wFlags],1
+.OpenDialog:
+;OpenDialog	initialisation
+	push    dword OpenDialog_data
+	call    [OpenDialog_Init]
+;---------------------------------------------------------------------
+	mcall	40,0x27
-locWaitForEvent:			; CODE XREF: start+6Cj start:loc_B3j ...
+red:
-		mcall	23, 20		; Kolibri - WAIT FOR EVENT WITH TIMEOUT
-					; ebx = timeout
-					; Return: eax = event
+	call	draw_window
-		cmp	eax, 1
+still:
-		jz	locRedrawEvent
+	mcall	10
 	cmp	eax,1
-loc_62:
-		cmp	eax, 2
-		jz	locKeyEvent
+	jz	red
-		cmp	eax, 3
-loc_6A:
-		jz	locButtonEvent
+	cmp	eax,2
-loc_70:
-		;btr     word[wFlags], 2
+	jz	key
-		;jnb     loc_87
-		;mov     eax, 58
-		;mov     ebx, stFileInfoBlock
-		;int     0x40             ; Kolibri - ACCESS TO FILE SYSTEM (obsolete)
-					; ebx -> fileinfo struc
+	cmp	eax,3
-loc_87: 				; CODE XREF: start+55j
-		btr	word[wFlags], 1
+	jz	button
-		jnb	locWaitForEvent
+	jmp	still
-		call	subDelay100ms
+;---------------------------------------------------------------------
-		mcall	0x12, 3, [dwMainWndSlot]	; Kolibri - ACTIVATE WINDOW
+copy_str_1:
-					; ecx = slot
-		call	subDelay100ms
+	xor	eax,eax
-loc_AE:
+	cld
-		call	subDrawBars
+@@:
-loc_B3:
-		jmp	locWaitForEvent
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subGetThreadInfo	; CODE XREF: start+5p start:loc_36p
+	lodsb
-		mcall	9, APP_MEM_END	; Kolibri - GET THREAD INFO
-					; ebx -> buffer, ecx = slot (-1 for self)
-					; Return: eax = maximum slot
-		retn
-endp
+	stosb
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+	test	eax,eax
-proc		subDelay100ms		; CODE XREF: start+6Ep start+85p
+	jnz	@b
-		mcall	5, 0x0a 	; Kolibri - DELAY
-					; ebx = time (in 1/100th of second)
-		retn
-endp
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-; START OF FUNCTION CHUNK FOR start
 	ret
-locKeyEvent:				; CODE XREF: start+41j
+;---------------------------------------------------------------------
-		mcall	2		; Kolibri - GET KEY CODE
+key:
-					; Return: ah = keycode
+	mcall	2
-		cmp	ah, 't'
+	cmp	ah,'t'
-		jz	locActionTest
+	jz	ActionTest
-		cmp	ah, 'c'
+	cmp	ah,'c'
-		jz	locActionComment
+	jz	ActionComment
-		cmp	ah, 'p'
+	cmp	ah,'p'
-		jz	locActionPattern
+	jz	ActionPattern
-		cmp	ah, 'o'
+	cmp	ah,'o'
-		jz	locActionOpen
+	jz	ActionOpen
-		cmp	ah, 's'
+	cmp	ah,'s'
-		jz	locActionSave
-		jmp	locWaitForEvent
+	jz	ActionSave
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 	jmp	still
-locButtonEvent: 			; CODE XREF: start:loc_6Aj
+;---------------------------------------------------------------------
+button:
-		mcall	0x11		; Kolibri - GET PRESSED BUTTON
+	mcall	17
-					; Return: ah = button ID
-		cmp	ah, 1
+	cmp	ah,1
-		jnz	locNotClose
+	jnz	NotClose
-		mcall	-1		; Kolibri - FINISH EXECUTION
+close:
-locNotClose:				; CODE XREF: start+E6j
+	mcall	-1
-		cmp	ah, 2
+NotClose:
-		jnz	locNotTest
+	cmp	ah,2
+	jnz	locNotTest
-locActionTest:				; CODE XREF: start+B5j
-		bts	[wFlags], 0
-		jb	locWaitForEvent
+ActionTest:
-		mcall	5, 50		; Kolibri - DELAY
+	test	dword [wFlags],1
-					; ebx = time (in 1/100th of second)
-loc_132:
-		mcall	51, 1, subTestWndProc, 0x17FFF0; Kolibri - CREATE THREAD
+	jnz	still
-					; ebx = 1 - unique subfunction
-					; ecx = starting eip
-					; edx = starting esp
-		jmp	locWaitForEvent
+	mcall	51,1,TestWndProc,thread_stack1
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+	jmp	still
-locNotTest:				; CODE XREF: start+F2j
+;---------------------------------------------------------------------
-		cmp	ah, 3
+locNotTest:
-		jnz	locNotComment
+	cmp	ah,3
-locActionComment:			; CODE XREF: start+BAj
-		bts	[wFlags], 0
-		jb	locWaitForEvent
+	jnz	NotComment
-		mov	[dwBufferPtr], aComment1 ; "Current                               "...
+ActionComment:
-		mov	[dwEditLabel], aComment ; "Comment"
+	test	dword [wFlags],1
-		mov	[dwEditLabelLen], 7
-		call	subCreateOpenSaveDlg
+	jnz	still
-		jmp	locWaitForEvent
+	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
-locNotComment:				; CODE XREF: start+12Cj
+@@:
+	lodsd
+	mov	[esi],eax
+	add	esi,TEST_REC_SIZE-4
-		cmp	ah, 4
+	cmp	dword [esi+TEST_REC_SIZE-4],0
-		jnz	locNotPattern
+	jne	@b
+	mov	esi,comment_string_1
-locActionPattern:			; CODE XREF: start+BFj
+	mov	edi,comment_string_2
-		call	subSavePattern
-		call	subDrawBars
+	call	copy_str_1
-		jmp	locWaitForEvent
+	call	DrawBars
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+	jmp	still
-locNotPattern:				; CODE XREF: start+167j
+;---------------------------------------------------------------------
-		cmp	ah, 5
+NotPattern:
-		jnz	locNotOpen
+	cmp	ah,5
-locActionOpen:				; CODE XREF: start+C8j
+	jnz	NotOpen
-		bts	[wFlags], 0
+ActionOpen:
+	test	dword [wFlags],1
-		jb	locWaitForEvent
+	jnz	still
-		mov	[dwBufferPtr], aPatternPath ; "/rd/1/pattern.mgb                             "...
+	mov	[OpenDialog_data.type],0 ; open
-		mov	[dwEditLabel], aOpenFile	; "Open file"
-		mov	[dwEditLabelLen], 9
+	call	OpenDialog_Start_1
+	jne	.1
+	call	locLoadFile
+	call	DrawBars
+.1:
+	xor  dword [wFlags],1
+	jmp	still
-		call	subCreateOpenSaveDlg
+;---------------------------------------------------------------------
+OpenDialog_Start_1:
+	push    dword OpenDialog_data
+	call    [OpenDialog_Start]
-		jmp	locWaitForEvent
+	cmp	[OpenDialog_data.status],1
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+	ret
-locNotOpen:				; CODE XREF: start+17Bj
+;---------------------------------------------------------------------
-		cmp	ah, 6
+NotOpen:
-		jnz	locWaitForEvent
+	cmp	ah,6
-locActionSave:				; CODE XREF: start+D1j
+	jnz	still
-		bts	[wFlags], 0
+ActionSave:
-		jb	locWaitForEvent
+	test	dword [wFlags],1
-		mov	[dwBufferPtr], aPatternPath ; "/rd/1/pattern.mgb                             "...
+	jnz	still
-		mov	[dwEditLabel], aSaveAs ;        "Save as..."
+	mov	[OpenDialog_data.type],1 ; save
-		mov	[dwEditLabelLen], 0Ah
-		call	subCreateOpenSaveDlg
-		jmp	locWaitForEvent
-; END OF FUNCTION CHUNK FOR start
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+	call	OpenDialog_Start_1
+	jne	ActionOpen.1
-proc		subCreateOpenSaveDlg	  ; CODE XREF: start+15Ap start+1A9p ...
+	call	locSaveFile
-		mcall	51, 1, subOpenSaveDlgProc, 0x19FFF0; Kolibri - CREATE THREAD
-					; ebx = 1 - unique subfunction
-					; ecx = starting eip
-					; edx = starting esp
-		retn
-endp
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+	jmp	ActionOpen.1
-subTestWndProc: 			; DATA XREF: start+118o
 ;---------------------------------------------------------------------
-		mov	esi,results_table+8
-  .next_test:	call	subInitTestTimer
-align 4
-	@@:	push	esi
-		call	dword[esi]
-		pop	esi
-		call	subIfTimeElapsed
-		jb	@b
-		mov	[esi-8],edi
+TestWndProc:
-		add	esi,TEST_REC_SIZE
-		cmp	dword[esi],0
-		jnz	.next_test
-macro unused {
-		call	subInitTestTimer
-locDrawNextWindow:			; CODE XREF: seg000:00000241j
-		mov	ecx, 4F0190h
-		call	testDrawWindow
-		call	subIfTimeElapsed
-		jb	locDrawNextWindow
-		mov	[results_table+TEST_REC_SIZE*0], edi
-		call	subInitTestTimer
-locDrawNextBar: 			; CODE XREF: seg000:00000269j
-		mcall	0x0d, 0x0A0064, 0x1E00FA, 0x6A73D0; Kolibri - DRAW RECTANGLE
-					; ebx = [xstart]*65536+[xsize], ecx = [ystart]*65536+[ysize]
-					; edx = 0xRRGGBB or 0x80RRGGBB for gradient
-		call	subIfTimeElapsed
-		jb	locDrawNextBar
-		mov	[results_table+TEST_REC_SIZE*1], edi
-		call	subInitTestTimer
-locDrawNextLine:			; CODE XREF: seg000:00000291j
-		; Kolibri - DRAW LINE
-		mcall	38, 0x8C008C, 0x1E017C, 0x1090207F
-					; ebx = [xstart]*65536+[xend], ecx = [ystart]*65536+[yend]
-					; edx = 0x00RRGGBB - color or 0x01****** - inversed line
-		call	subIfTimeElapsed
-		jb	locDrawNextLine
-		mov	[results_table+TEST_REC_SIZE*2], edi
-		call	subInitTestTimer
-locDrawNextText1:			; CODE XREF: seg000:000002BEj
-		; Kolibri - DRAW STRING
-		mcall	4, 0x0A012C, 0x0AA66, aTestText, 34
-					; ebx = [xstart]*65536+[ystart]
-					; ecx = 0xX0RRGGBB, edx -> string
-		call	subIfTimeElapsed
-		jb	locDrawNextText1
-		mov	[results_table+TEST_REC_SIZE*3], edi
-		call	subInitTestTimer
-locDrawNextText2:			; CODE XREF: seg000:000002EBj
-		; Kolibri - DRAW STRING
-		mcall	4, 0x0A015E, 0x10E7B850, aTestText, 34
-					; ebx = [xstart]*65536+[ystart]
-					; ecx = 0xX0RRGGBB, edx -> string
-		call	subIfTimeElapsed
-		jb	locDrawNextText2
-		mov	[results_table+TEST_REC_SIZE*4], edi
-		call	subInitTestTimer
-locDrawNextNumber:			; CODE XREF: seg000:00000318j
-					; Kolibri - DRAW NUMBER
-					; bl = 0/1 - ecx is number/pointer
-					; bh = 0/1/2 - dec/hex/bin
-					; highword(ebx) = number of digits
-					; ecx = number/pointer
-					; edx = [x]*65536+[y]
-					; esi = 0xX0RRGGBB
-		mcall	47, 80000h, 12345678, 140172h, 0E0B27Bh
-		call	subIfTimeElapsed
-		jb	locDrawNextNumber
-		mov	[results_table+TEST_REC_SIZE*5], edi
-		call	subInitTestTimer
-locDrawNextPixel:			; CODE XREF: seg000:00000340j
-					; Kolibri - PUT PIXEL
-					; ebx = x, ecx = y, edx = color
-		mcall	1, 100, 100, 0x0FFFFFF
-		call	subIfTimeElapsed
-		jb	locDrawNextPixel
-		mov	[results_table+TEST_REC_SIZE*6], edi
-}
-		bts	word[wFlags], 1
-		btr	word[wFlags], 0
-		; Kolibri - FINISH EXECUTION
-		mcall	-1
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
 	or	dword [wFlags],1
-proc		subInitTestTimer	; CODE XREF: seg000:subTestWndProcp
+	mov	esi,results_table+8
-					; seg000:00000249p ...
-		xor	edi, edi
-		mov	eax, 26
+align 4
-		mov	ebx, 9
+.next_test:
-		mcall		 ; Kolibri - GET SYSTEM PARAMETERS - TIME COUNTER
+	xor	edi,edi
-					; Return: eax = time counter
+	mcall	 26,9
+	inc	eax
-		inc	eax
+	mov	ecx,eax
-		mov	ecx, eax
-		add	eax, 100
+	add	eax,100
-		mov	[dwTestEndTime], eax
-locWait10ms:				; CODE XREF: subInitTestTimer+22j
+	mov	[dwTestEndTime],eax
-		mov	eax, 26
-		mcall		 ; Kolibri - GET SYSTEM PARAMETERS - TIME COUNTER
+align 4
-					; Return: eax = time counter
+@@:
-		cmp	eax, ecx
-		jb	locWait10ms
-		retn
-endp
+	mcall	 26
+	cmp	eax,ecx
+	jb	@r
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+align 4
 @@:
-proc		subIfTimeElapsed	; CODE XREF: seg000:0000023Cp
+	push	esi
-					; seg000:00000264p ...
-		inc	edi
-		mov	eax, 26
+	call	dword [esi]
-		mov	ebx, 9
+	pop	esi
-		mcall		 ; Kolibri - GET SYSTEM PARAMETERS - TIME COUNTER
+	inc	edi
-					; Return: eax = time counter
-		cmp	eax, [dwTestEndTime]
-		retn
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subSavePattern		; CODE XREF: start:locActionPatternp
-;               mov     esi, dwDrawWindowTime
-;               mov     edi, dwDrawWindowTime2
-;               mov     ecx, 18
-;               cld
-;               rep movsd
+	mcall	26,9
-		mov	esi,results_table
+	cmp	eax,[dwTestEndTime]
-		cld
-	    @@: lodsd
+	jb	@b
-		mov	[esi],eax
+	mov	[esi-8],edi
-		add	esi,TEST_REC_SIZE-4
-		cmp	dword[esi+TEST_REC_SIZE-4],0
-		jne	@b
-		mov	esi,aComment1
-		mov	edi,aComment2
-		mov	ecx,44/4
-		rep	movsd
-		retn
-endp
+	add	esi,TEST_REC_SIZE
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+	cmp	dword [esi],0
-proc		subDrawMainWindow	; CODE XREF: start:locRedrawEventp
+	jnz	.next_test
-		mov	eax, 12
+	xor  dword [wFlags],1
-		mov	ebx, 1
+	mcall	-1
-		mcall		 ; Kolibri - BEGIN WINDOW REDRAW
+;---------------------------------------------------------------------
-		mov	eax,48
+draw_window:
-		mov	ebx,4
-		mcall
-		mov	ebx, 100*65536+72*5+14;640145h
+	mcall	12,1
-		mov	ecx, 80*65536+TESTS_NUM*LINE_HEIGHT+15+20+35
+	mcall	48,4
+	mov	ebx,100*65536+72*5+14
+	mov	ecx,80*65536+TESTS_NUM*LINE_HEIGHT+15+20+35
-		add	cx, ax
+	add	cx,ax
-		mov	edx, 34000000h
+	xor	eax,eax
-		mov	edi, aCaption
+	xor	esi,esi
-		xor	eax, eax
+	mcall	,,,34000000h,,aCaption
-		mcall
-		mov	eax, 8
+	mov	eax,8
-		mov	ebx, 050036h+12
-		mov	ecx, 5*65536+20
+	mov	ebx,050036h+12
-		mov	edx, 2
-		mov	esi, 0x00007F7F;702050h
-locDrawButtonsLoop:			; CODE XREF: subDrawMainWindow+3Bj
+	mov	ecx,5*65536+20
-		mcall		 ; Kolibri - DEFINE/DELETE BUTTON
+	mov	edx,2
-					; ebx = [xstart]*65536+[xsize]
+	mov	esi,0x00007F7F
-					; ecx = [ystart]*65536+[ysize]
+@@:
-					; edx = 0xXYnnnnnn, esi = color
+	mcall
-		add	ebx, 72*65536
+	add	ebx,72*65536
-		inc	edx
+	inc	edx
-		cmp	edx, 7
+	cmp	edx,7
-		jb	locDrawButtonsLoop
-		mov	ecx,31
+	jb	@r
-		mov	edx,0x00007F7F
-		mov	esi,(72*5)/2
-		call	drawSeparator
-		mov	eax, 4
-		mov	ebx, 27*65536+12
+	mov	ecx,31
-		mov	ecx, 0x80DDEEFF
+	mov	edx,0x00007F7F
-		mov	edx, aButtonsText ; "Test    Comment+  Pattern+   Open     "...
+	mov	esi,(72*5)/2
-		mcall		 ; Kolibri - DRAW STRING
+	call	drawSeparator
-					; ebx = [xstart]*65536+[ystart]
-					; ecx = 0xX0RRGGBB, edx -> string
-		call	subDrawBars
-		mov	ecx,TESTS_NUM*LINE_HEIGHT+15+21
+	mcall	4,<27,12>,0x80DDEEFF,aButtonsText
-		mov	edx,0x00007F7F
-		mov	esi,(72*5)/2
+	call	DrawBars
-		call	drawSeparator
 	mov	ecx,TESTS_NUM*LINE_HEIGHT+15+21
-		mov	eax, 12
+	mov	edx,0x00007F7F
+	mov	esi,(72*5)/2
-		mov	ebx, 2
+	call	drawSeparator
-		mcall		 ; Kolibri - END WINDOW REDRAW
+	mcall	12,2
-		retn
+	ret
-endp
+;---------------------------------------------------------------------
+drawSeparator:
+	mov	eax,1
-proc		drawSeparator
+	mov	ebx,3
-		mov	eax,1
-		mov	ebx,3
-	    @@: mcall
-		add	ebx,2
-		dec	esi
+@@:
-		jnz	@b
+	mcall
-		retn
-endp
+	add	ebx,2
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+	dec	esi
+	jnz	@b
+	ret
-proc		testDrawWindow
-		xor	eax, eax
+;---------------------------------------------------------------------
-		mov	ebx, 640145h
-		mov	ecx, 4F0190h
-		mov	edx, 3000000h
-		mcall
+align 4
-		retn
-endp
+testDrawWindow:
+	xor	eax,eax
+	mcall	,640145h,4F0190h,3000000h
-proc		testDrawBar
-		mov	eax, 13
+	ret
-		mov	ebx, 0A0064h
-		mov	ecx, 1E00FAh
+;---------------------------------------------------------------------
-		mov	edx, 6A73D0h
+align 4
-		mcall
-		retn
-endp
+testDrawBar:
+	mcall	13,0A0064h,1E00FAh,6A73D0h
+	ret
-proc		testDrawPicture
-		mov	eax, 7
+;---------------------------------------------------------------------
-		mov	ebx, 0
-		mov	ecx, 90*65536+123
-		mov	edx, 15*65536+33
+align 4
-		mcall
-		retn
-endp
+testDrawPicture:
+	xor	ebx,ebx
+	mcall	7,,<90,123>,<15,33>
-proc		testDrawVertLine
-		mov	eax, 38
+	ret
-		mov	ebx, 300*65536+300 ;8C008Ch
-		mov	ecx, 30*65536+380  ;1E017Ch
-		mov	edx, 1090207Fh
+;---------------------------------------------------------------------
-		mcall
-		retn
-endp
+align 4
+testDrawVertLine:
+	mcall	38,<300,300>,<30,380>,1090207Fh
-proc		testDrawHorzLine
-		mov	eax, 38
+	ret
-		mov	ebx, 30*65536+300  ;20008Ch
-		mov	ecx, 380*65536+380 ;17C017Ch
-		mov	edx, 1090207Fh
+;---------------------------------------------------------------------
-		mcall
-		retn
-endp
+align 4
+testDrawHorzLine:
+	mcall	38,<30,300>,<380,380>,1090207Fh
-proc		testDrawFreeLine
-		mov	eax, 38
+	ret
-		mov	ebx, 30*65536+300  ;20008Ch
-		mov	ecx, 380*65536+30  ;17C001Eh
-		mov	edx, 1090207Fh
-		mcall
+;---------------------------------------------------------------------
-		retn
-endp
+align 4
+testDrawFreeLine:
-proc		testDrawText1
+	mcall	38,<30,300>,<380,30>,1090207Fh
-		mov	eax, 4
-		mov	ebx, 0C012Ch
+	ret
-		mov	ecx, 0AA66h
-		mov	edx, aTestText
-		mov	esi, 34
-		mcall
+;---------------------------------------------------------------------
-		retn
-endp
+align 4
+testDrawText1:
-proc		testDrawText2
+	mcall	4,0C012Ch,0AA66h,aTestText,34
-		mov	eax, 4
-		mov	ebx, 1B013Bh
+	ret
-		mov	ecx, 10E7B850h
-		mov	edx, aTestText
-		mov	esi, 34
-		mcall
-		retn
+;---------------------------------------------------------------------
-endp
+align 4
+testDrawText2:
-proc		testDrawNumber
+	mcall	4,1B013Bh,10E7B850h,aTestText,34
-		mov	eax, 47
-		mov	ebx, 80000h
+	ret
-		mov	ecx, 12345678
-		mov	edx, 2A014Ah
-		mov	esi, 0E0B27Bh
-		mcall
+;---------------------------------------------------------------------
-		retn
-endp
+align 4
-proc		testDrawPixel
-		mov	eax, 1
-		mov	ebx, 100
-		mov	ecx, 100
-		mov	edx, 0FFFFFFh
-		mcall
+testDrawNumber:
+	mcall	47,80000h,12345678,2A014Ah,0E0B27Bh
-		retn
+	ret
-endp
+;---------------------------------------------------------------------
+align 4
+testDrawPixel:
 	mcall	1,100,100,0FFFFFFh
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
+	ret
 ;---------------------------------------------------------------------
-proc		subDrawBars		; CODE XREF: start:loc_AEp start+16Ep ...
+DrawBars:
-		mov	edi,results_table
+	mov	edi,results_table
-		mov	ebx,30+7
+	mov	ebx,30+7
-  .next_result: cmp	dword[edi+TEST_REC_SIZE-4],0
+.next_result:
-		je	.exit
+	cmp	dword[edi+TEST_REC_SIZE-4],0
+	je	.exit
 		push	ebx
-		mov	eax,13
+	push	ebx
-		movzx	ecx,bx
+	movzx	ecx,bx
-		add	ecx,-2
+	add	ecx,-2
-		shl	ecx,16
+	shl	ecx,16
-		mov	cx,LINE_HEIGHT
-		mov	ebx,0*65536+72*5+5
-		xor	edx,edx
+	mov	cx,LINE_HEIGHT
-		mcall
+	mov	ebx,0*65536+72*5+5
-		pop	ebx
+	xor	edx,edx
 	mcall	13
-		and	ebx,0x0000FFFF
+	pop	ebx
 		or	ebx,5*65536
-		mov	edx,[edi+TEST_REC_SIZE-4]
+	and	ebx,0x0000FFFF
-		mov	ecx,0x8000CCCC ; 0x00E7E05A
+	or	ebx,5*65536
-		mov	eax,4
+	mov	edx,[edi+TEST_REC_SIZE-4]
+	mcall	4,,0x8000CCCC
-		mcall
 	push	'=' 0x00FFFF00 0x00FFFF7F 0x00FFFF7F
-		push	'=' 0x00FFFF00 0x00FFFF7F 0x00FFFF7F
+	mov	eax,[edi+0]
-		mov	eax,[edi+0]
+	cmp	eax,[edi+4]
-		cmp	eax,[edi+4]
+	je	@f
-		je	@f
+	jb	.lp1
-		jb	.lp1
+	mov	dword[esp+0],0x007FFF7F
-		mov	dword[esp+0],0x007FFF7F
+	mov	dword[esp+4],0x00FF7F7F
-		mov	dword[esp+4],0x00FF7F7F
+	mov	dword[esp+8],0x0000FF00
-		mov	dword[esp+8],0x0000FF00
+	mov	byte[esp+12],'>'
-		mov	byte[esp+12],'>'
-	  .lp1: ja	@f
-		mov	dword[esp+0],0x00FF7F7F
-		mov	dword[esp+4],0x007FFF7F
+.lp1:
-		mov	dword[esp+8],0x00FF0000
+	ja	@f
-		mov	byte[esp+12],'<'
+	mov	dword[esp+0],0x00FF7F7F
-	    @@:
+	mov	dword[esp+4],0x007FFF7F
-		pop	ecx
-		call	int2str
+	mov	dword[esp+8],0x00FF0000
-		add	ebx,(72*5-6*8*2-6-10-5)*65536 ; 196
+	mov	byte[esp+12],'<'
-		mov	edx,APP_MEM_END
+@@:
-		mov	esi,8
+	pop	ecx
-		mov	eax,4
+	call	int2str
-		add	edi,TEST_REC_SIZE
+	add	edi,TEST_REC_SIZE
-		add	bx,LINE_HEIGHT
+	add	bx,LINE_HEIGHT
-		jmp	.next_result
+	jmp	.next_result
-  .exit:
-		mov	eax, 13
+.exit:
-		mov	ebx, 0*65536+72*5+5
+	mov	ebx, 0*65536+72*5+5
-		mov	ecx, (TESTS_NUM*LINE_HEIGHT+15+25)*65536+26
+	mov	ecx, (TESTS_NUM*LINE_HEIGHT+15+25)*65536+26
-		xor	edx, edx
+	xor	edx, edx
-		mcall
 	mcall	13
-		mov	eax, 4
-		mov	ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27)
-		mov	ecx, 0x8000CCCC
-		mov	edx, aLeft
+	mov	ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27)
-		mcall		 ; Kolibri - DRAW STRING
-		add	ebx, (6*10)*65536
-		mov	ecx, 0x00FFFF00
+	mcall	4,,0x8000CCCC,aLeft
-		mov	edx, aComment1
 		mov	esi, 42
-		mcall		 ; Kolibri - DRAW STRING
+	add	ebx, (6*10)*65536
-		mov	eax, 4
-		mov	ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27+12)
+	mcall	,,0x80FFFF00,comment_string_1
-		mov	ecx, 0x8000CCCC
-		mov	edx, aRight
-		mcall		 ; Kolibri - DRAW STRING
-		add	ebx, (6*10)*65536
-		mov	ecx, 0x00FFFF00
+	mov	ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27+12)
-		mov	edx, aComment2
-		mov	esi, 42
+	mcall	,,0x8000CCCC,aRight
-		mcall		 ; Kolibri - DRAW STRING
 	add	ebx, (6*10)*65536
-		retn
+	mcall	,,0x80FFFF00,comment_string_2
-endp
+	ret
+;---------------------------------------------------------------------
-proc		int2str
+int2str:
+	push	eax ecx edx edi
-		push	eax ecx edx edi
+	mov	edi,textarea+7
-		mov	edi,APP_MEM_END+7
+	mov	dword[textarea+0],'    '
-		mov	dword[APP_MEM_END+0],'    '
+	mov	dword[textarea+4],'    '
-		mov	dword[APP_MEM_END+4],'    '
+	mov	ecx,10
-		mov	ecx,10
+@@:
-	    @@: xor	edx,edx
+	xor	edx,edx
-		div	ecx
+	div	ecx
-		add	dl,'0'
+	add	dl,'0'
-		mov	[edi],dl
+	mov	[edi],dl
-		dec	edi
-		or	eax,eax
-		jnz	@b
-		pop	edi edx ecx eax
-		retn
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subDrawResultComments	   ; CODE XREF: subDrawBars+92p
+	dec	edi
-					; subDrawBars+AFp ...
-		xor	di, di
-		mov	eax, 4
-locDrawCommentsLoop:			; CODE XREF: subDrawResultComments+1Cj
-		mcall		 ; Kolibri - DRAW STRING
-					; ebx = [xstart]*65536+[ystart]
-					; ecx = 0xX0RRGGBB, edx -> string
-		add	bx, 13;55
-		bt	edi, 31
-		jnb	loc_52F
-		add	edx, esi
+	or	eax,eax
-loc_52F:				; CODE XREF: subDrawResultComments+12j
-		inc	di
-		cmp	di, 7
-		jb	locDrawCommentsLoop
-		retn
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subDrawResultNumbers	  ; CODE XREF: subDrawBars+CDp
-					; subDrawBars+DCp
-		xor	edi, edi
-		mov	eax, 47
-		mov	esi, 0DDEEFFh
-locDrawNumbersLoop:			; CODE XREF: subDrawResultNumbers+1Ej
-		call	subGetDigitsCount
-		mcall		 ; Kolibri -
-		add	dx, 13;55
-		add	ecx, 4
-		inc	edi
-		cmp	edi, 7
-		jb	locDrawNumbersLoop
-		retn
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subGetDigitsCount	; CODE XREF: subDrawResultNumbers:locDrawNumbersLoopp
-		xor	ebx, ebx
-		mov	bh, 6
-		cmp	dword[ecx], 99999
-		ja	loc_589
-		dec	bh
-		cmp	dword[ecx], 9999
-		ja	loc_589
-		dec	bh
-		cmp	dword[ecx], 999
-		ja	loc_589
+	jnz	@b
-		dec	bh
-		cmp	dword[ecx], 99
-		ja	loc_589
-		dec	bh
-		cmp	dword[ecx], 9
-		ja	loc_589
-		dec	bh
-loc_589:				; CODE XREF: subGetDigitsCount+Aj
-					; subGetDigitsCount+14j ...
-		bswap	ebx
-		inc	bl
-		retn
-endp
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-subOpenSaveDlgProc:			; CODE XREF: seg000:0000059Dj
-					; DATA XREF: subCreateOpenSaveDlg+Ao
-		call	subDrawOpenSaveDlg
-locOSDWaitForEvent:			; CODE XREF: seg000:000005ADj
-					; seg000:000005C3j ...
-		mov	eax, 10
-		mcall		 ; Kolibri -
-		cmp	eax, 1
-		jz	subOpenSaveDlgProc
-		cmp	eax, 2
-		jz	locOSDKeyEvent
-		cmp	eax, 3
-		jz	locOSDButtonEvent
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDKeyEvent: 			; CODE XREF: seg000:000005A2j
-		mov	eax, 2
-		mcall		 ; Kolibri - GET KEY CODE
-					; Return: ah = keycode
-		cmp	ah, 0B3h
-		jnz	locOSDNotRightKey
-		mov	eax, [dwOSDCaretPos]
-		cmp	eax, 41
-		ja	locOSDWaitForEvent
-		inc	eax
-		mov	[dwOSDCaretPos], eax
-		call	subDrawOpenSaveDlgControls
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDNotRightKey:			; CODE XREF: seg000:000005B9j
-		cmp	ah, 0B0h
-		jnz	locOSDNotLeftKey
-		mov	eax, [dwOSDCaretPos]
-		test	eax, eax
-		jz	locOSDWaitForEvent
-		dec	eax
-		mov	[dwOSDCaretPos], eax
-		call	subDrawOpenSaveDlgControls
+	pop	edi edx ecx eax
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDNotLeftKey:			; CODE XREF: seg000:000005D5j
-		cmp	ah, 0B6h
-		jnz	locOSDNotDeleteKey
-		call	subOSDDeleteChar
-		call	subDrawOpenSaveDlgControls
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDNotDeleteKey:			; CODE XREF: seg000:000005F0j
-		cmp	ah, 8
-		jnz	locOSDNotBackspaceKey
-		mov	eax, [dwOSDCaretPos]
-		test	eax, eax
-		jz	locOSDWaitForEvent
-		dec	eax
-		mov	[dwOSDCaretPos], eax
-		call	subOSDDeleteChar
-		call	subDrawOpenSaveDlgControls
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDNotBackspaceKey:			; CODE XREF: seg000:00000601j
-		cmp	ah, 0Dh
+	ret
-		jnz	locOSDNotReturnKey
-locOSDReturnKey:			; CODE XREF: seg000:000006E1j
-		mov	al, ' '
-		mov	edi, [dwBufferPtr]
+;---------------------------------------------------------------------
+thread_comment:
+	or	dword [wFlags],1
+	mcall	40,0x27
+	mov	esi,comment_string_1
+	cld
+@@:
-		add	edi,43
+	lodsb
-		mov	ecx,43
+	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 ?
-		std
+	je	.button
+	push    dword name_editboxes
+	call    [edit_box_mouse]
+	jmp	.still
+;---------------------------------------------------------------------
-		repe scasb
+.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
-		cld
+;---------------------------------------------------------------------
+.draw_window:
+	mcall	12,1
+	xor	eax,eax
+	xor	esi,esi
+	mcall	,<100,300>,<100,80>,0x34780078,,aComment
-		inc	edi
+	push    dword name_editboxes
-		mov	byte[edi+1], 0
+	call    [edit_box_draw]
-		cmp	[dwBufferPtr], aPatternPath ; "/rd/1/pattern.mgb                             "...
-		jnz	locCloseOSD
+	mcall	12,2
-		cmp	[dwEditLabel], aOpenFile	; "Open file"
-		jnz	locSaveFile
+	ret
-		mov	[stFileInfoBlock], 0
-		mov	[dwDataSize], TESTS_NUM*4+44
+;---------------------------------------------------------------------
-		bts	word[wFlags], 2
+locLoadFile:
-		mov	eax,70 ; 58
+	mov	[stFileInfoBlock], 0
+	or	dword [wFlags],1
-		mov	ebx,stFileInfoBlock
+	mcall	70,stFileInfoBlock
-		mcall
+	mov	esi,mgb_data
-		mov	esi,APP_MEM_END+100
+	mov	edi,results_table+4
-		mov	edi,results_table+4
+	cld
-		cld
+@@:
-	    @@: cmp	dword[edi+TEST_REC_SIZE-8],0
+	cmp	dword[edi+TEST_REC_SIZE-8],0
-		je	@f
+	je	@f
-		movsd
+	movsd
-		add	edi,TEST_REC_SIZE-4
+	add	edi,TEST_REC_SIZE-4
-		jmp	@b
+	jmp	@b
-	    @@:
+@@:
-		mov	edi,aComment2
-		mov	ecx,44
+	mov	edi,comment_string_2
-		rep	movsb
+	mov	ecx,44
-		jmp	locCloseOSD
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+	rep	movsb
 	ret
-locSaveFile:				; CODE XREF: seg000:00000654j
+;---------------------------------------------------------------------
-		mov	[stFileInfoBlock], 2 ; 1
+locSaveFile:
+	mov	[stFileInfoBlock], 2
-		mov	[dwDataSize], TESTS_NUM*4+44
+	or	dword [wFlags],1
-		bts	word[wFlags], 2
+	mov	esi,results_table+4
-		mov	esi,results_table+4
+	mov	edi,mgb_data
-		mov	edi,APP_MEM_END+100
+	cld
-		cld
+@@:
+	cmp	dword[esi+TEST_REC_SIZE-8],0
-	    @@: cmp	dword[esi+TEST_REC_SIZE-8],0
+	je	@f
-		je	@f
+	movsd
-		movsd
+	add	esi,TEST_REC_SIZE-4
-		add	esi,TEST_REC_SIZE-4
-		jmp	@b
+	jmp	@b
-	    @@: mov	esi,aComment2
-		mov	ecx,44
-		rep	movsb
-		mov	eax,70 ; 58
-		mov	ebx,stFileInfoBlock
-		mcall
-		jmp	locCloseOSD
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDNotReturnKey:			; CODE XREF: seg000:00000624j
-		cmp	[dwOSDCaretPos], 42
-		jnb	locOSDWaitForEvent
-		mov	edi, [dwBufferPtr]
-		add	edi, 42
-		mov	esi, edi
-		dec	esi
-		mov	ecx, 42
-		sub	ecx, [dwOSDCaretPos]
-		std
-		rep movsb
-		shr	eax, 8
-		mov	esi, [dwBufferPtr]
-		add	esi, [dwOSDCaretPos]
-		mov	[esi], al
-		inc	[dwOSDCaretPos]
-		call	subDrawOpenSaveDlgControls
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locOSDButtonEvent:			; CODE XREF: seg000:000005A7j
-		mov	eax, 17
-		mcall		 ; Kolibri - GET PRESSED BUTTON
-					; Return: ah = button ID
-		cmp	ah, 1
-		jnz	locNotCloseOSD
-		jmp	locOSDReturnKey
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locCloseOSD:				; CODE XREF: seg000:00000644j
-					; seg000:0000066Cj ...
-		bts	[wFlags], 1
-		btr	[wFlags], 0
-		mov	eax, -1
-		mcall		 ; Kolibri - FINISH EXECUTION
-locNotCloseOSD: 			; CODE XREF: seg000:000006DFj
-		cmp	ah, 2
-		jnz	locNotSetCaretOSD
-		mov	eax, 37
-		mov	ebx, 1
-		mcall		 ; Kolibri - GET MOUSE COORDINATES, WINDOW-RELATIVE
-					; Return: eax = [x]*65536 + [y]
-		shr	eax, 16
-		sub	eax, 21
-		xor	edx, edx
-		mov	ebx, 6
-		div	ebx
-		mov	[dwOSDCaretPos], eax
-		call	subDrawOpenSaveDlgControls
-		jmp	locOSDWaitForEvent
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-locNotSetCaretOSD:			; CODE XREF: seg000:00000700j
-		jmp	locOSDWaitForEvent
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subOSDDeleteChar	; CODE XREF: seg000:000005F2p
-					; seg000:00000612p
-		mov	edi, [dwBufferPtr]
-		add	edi, [dwOSDCaretPos]
-		mov	esi, edi
-		inc	esi
-		mov	ecx, 43
-		sub	ecx, [dwOSDCaretPos]
-		cld
-		rep movsb
-		retn
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subDrawOpenSaveDlg	; CODE XREF: seg000:subOpenSaveDlgProcp
-		mov	eax, 12
-		mov	ebx, 1
-		mcall		 ; Kolibri - BEGIN WINDOW REDRAW
-		xor	eax, eax
-		mov	ebx, 64012Ch
-		mov	ecx, 640050h
-		mov	edx, 3780078h
-		mcall		 ; Kolibri - DEFINE/DRAW WINDOW
-					; ebx = [xstart]*65536+[xsize]
-					; ecx = [ystart]*65536+[ysize]
-		mov	eax, 4
-		mov	ebx, 80008h
-		mov	ecx, 10DDEEFFh
-		mov	edx, [dwEditLabel]
-		mov	esi, [dwEditLabelLen]
-		mcall		 ; Kolibri - DRAW STRING
-					; ebx = [xstart]*65536+[ystart]
-					; ecx = 0xX0RRGGBB, edx -> string
+@@:
-		call	subDrawOpenSaveDlgControls
-		mov	eax, 12
-		mov	ebx, 2
-		mcall		 ; Kolibri - END WINDOW REDRAW
-		retn
-endp
-; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ S U B R O U T I N E ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
-proc		subDrawOpenSaveDlgControls	; CODE XREF: seg000:000005CBp
-					; seg000:000005E6p ...
-		pusha
-		mov	eax, 8
-		mov	ebx, 150102h
-		mov	ecx, 28000Fh
-		mov	edx, 40000002h
-		mcall		 ; Kolibri - DEFINE/DELETE BUTTON
-					; ebx = [xstart]*65536+[xsize]
-					; ecx = [ystart]*65536+[ysize]
+	mov	esi,comment_string_2
-					; edx = 0xXYnnnnnn, esi = color
-		mov	eax, 13
-		mov	edx, 0E0E0E0h
-		mcall		 ; Kolibri - DRAW RECTANGLE
-					; ebx = [xstart]*65536+[xsize], ecx = [ystart]*65536+[ysize]
-					; edx = 0xRRGGBB or 0x80RRGGBB for gradient
-		push	eax
-		mov	eax, 60000h
-		mul	[dwOSDCaretPos]
-		add	eax, 150006h
-		mov	ebx, eax
-		pop	eax
-		mov	edx, 6A73D0h
-		mcall		 ; Kolibri -
-		mov	eax, 4
-		mov	ebx, 15002Ch
-		xor	ecx, ecx
-		mov	edx, [dwBufferPtr]
-		mov	esi, 43
-		mcall		 ; Kolibri - DRAW STRING
-					; ebx = [xstart]*65536+[ystart]
-					; ecx = 0xX0RRGGBB, edx -> string
-		popa
-		retn
-endp
-; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-dwMainWndSlot	dd 0			; DATA XREF: start:loc_46w start+7Dr
-dwBufferPtr	dd 0			; DATA XREF: start+13Cw start+18Bw ...
-dwEditLabel	dd 0			; DATA XREF: start+146w start+195w ...
-dwEditLabelLen	dd 0			; DATA XREF: start+150w start+19Fw ...
-aComment	db 'Comment'		; DATA XREF: start+146o
-aOpenFile	db 'Open file'		; DATA XREF: start+195o
-					; seg000:0000064Ao
-aSaveAs 	db 'Save as...' 	; DATA XREF: start+1D4o
-dwOSDCaretPos	dd 0			; DATA XREF: seg000:000005BBr
-					; seg000:000005C6w ...
-macro unused {
-stFileInfoBlock dd 0			; DATA XREF: start+5Co
-					; seg000:00000658w ...
-		dd 0
-dwDataSize	dd 1			; DATA XREF: seg000:0000065Ew
-					; seg000:00000678w
+	mov	ecx,44
-		dd APP_MEM_END+100
+	rep	movsb
-		dd APP_MEM_END
+	mcall	70,stFileInfoBlock
-aPatternPath	db '/hd0/1/pattern.mgb                           ' ; DATA XREF: start+18Bo
+	ret
-}
-align 4
+;---------------------------------------------------------------------
-stFileInfoBlock dd 0,0,0
+align 4
-dwDataSize	dd 1
+stFileInfoBlock dd 0,0,0
-		dd APP_MEM_END+100
+dwDataSize	dd TESTS_NUM*4+44	;1
-aPatternPath	db '/hd0/1/pattern.mgb                           ' ; DATA XREF: start+18Bo
+		dd mgb_data
+		db 0
-					; start+1CAo ...
+		dd fname_buf
-wFlags		dd 0			; DATA XREF: start:loc_70w
+;---------------------------------------------------------------------
-					; start:loc_87w ...
+wFlags		dd 0
-dwTestEndTime	dd 0			; DATA XREF: subInitTestTimer+14w
+;---------------------------------------------------------------------
-					; subIfTimeElapsed+Dr
+align 4
   ?,?,testDrawText1,aDrawingText1,\
   ?,?,testDrawText2,aDrawingText2,\
   ?,?,testDrawNumber,aDrawingNumber,\
   ?,?,testDrawPixel,aDrawingPixel,\
 ,0,0,0
+;---------------------------------------------------------------------
 LINE_HEIGHT   = 13
 TEST_REC_SIZE = 16
 TESTS_NUM     = ($ - results_table) / TEST_REC_SIZE - 1
-macro cstr name,str {
-  local ..end
-  name db ..end-name-1,str
+;---------------------------------------------------------------------
-  ..end:
-}
 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
 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' ; DATA XREF: seg000:000002ADo
-					; seg000:000002DAo
+aTestText	db 'This is a 34-charachters test text'
-aButtonsText	db 'Test      Comment+    Pattern+      Open        Save',0
-					; DATA XREF: subDrawMainWindow+5Do
+aButtonsText	db 'Test      Comment+    Pattern+      Open        Save',0
-aCaption	db 'Menuet Graphical Benchmark 0.3',0 ; DATA XREF: subDrawMainWindow+4Co
+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
-aLeft		db 'Left    :',0
+;---------------------------------------------------------------------
+system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
-aRight		db 'Right   :',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, \
-aComment1	db 'current                                     ' ; DATA XREF: start+13Co
+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:
-					; subDrawBars+9Co
+;---------------------------------------------------------------------
+align 4
+OpenDialog_data:
-;dwDrawWindowTime2 dd 0                  ; DATA XREF: subSubSavePattern+5o
+.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:
-;                                        ; subDrawBars+18o ...
+	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:
-;                dd 0
+OpenDialog_Init		dd aOpenDialog_Init
-;                dd 0
+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
-;                dd 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
-;                dd 0
+;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
-;                dd 0
+;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
+			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
-aComment2	db 'no pattern                                  '
+;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
-					; DATA XREF: subDrawBars+72o
+;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
-					; subDrawBars+B9o
+;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:
+;---------------------------------------------------------------------
-APP_MEM_END:	rb   30 ;               ; DATA XREF: seg000:off_10o
+	rb 4096

Subversion Repositories Kolibri OS

(root)/programs/system/mgb/trunk/mgb.asm – Rev 551 → 1621