Kolibri Graphics Benchmark 0.6 / benchmark f36 - read screen area

git-svn-id: svn://kolibrios.org@3377 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/system/mgb/trunk/mgb.asm

@@ -1,10 +1,15 @@
 ;=============================================================================
-; Kolibri Graphics Benchmark 0.5
+; Kolibri Graphics Benchmark 0.6
 ;--------------------------------------
 ; MGB - Menuet Graphics Benchmark 0.3
 ; Compile with FASM
 ;
 ;=============================================================================
+; 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
@@ -204,6 +209,8 @@ ActionSave:
 	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
@@ -234,6 +241,7 @@ align 4
 	cmp	dword [esi],0
 	jnz	.next_test
 	xor	dword [wFlags],1
+	mcall	68,13,[area_for_f36]
 	mcall	-1
 ;---------------------------------------------------------------------
 draw_window:
@@ -296,8 +304,8 @@ testDrawBar:
 ;---------------------------------------------------------------------
 align 4
 testDrawPicture:
-	xor	ebx,ebx
+;	xor	ebx,ebx
-	mcall	7,,<90,123>,<15,33>
+	mcall	7,[area_for_f36],<90,123>,<15,33>
 	ret
 ;---------------------------------------------------------------------
 align 4
@@ -307,6 +315,12 @@ testDrawPicture_f73:
 	ret
 ;---------------------------------------------------------------------
 align 4
+testGetScreen_f36:
+	xor	ebx,ebx
+	mcall	36,[area_for_f36],<90,123>,<15,33>
+	ret
+;---------------------------------------------------------------------
+align 4
 testDrawVertLine:
 	mcall	38,<300,300>,<30,380>,1090207Fh
 	ret
@@ -547,6 +561,7 @@ align 4
 results_table dd \
 	?,?,testDrawWindow,aDrawingWindow,\
 	?,?,testDrawBar,aDrawingBar,\
+	?,?,testGetScreen_f36,aGetScreenF36,\
 	?,?,testDrawPicture,aDrawingPicture,\
 	?,?,testDrawPicture_f73,aDrawingPictF73,\
 	?,?,testDrawVertLine,aDrawingVLine,\
@@ -566,6 +581,7 @@ 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, 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
@@ -576,7 +592,7 @@ 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
+aCaption	db 'Kolibri Graphical Benchmark 0.6',0
 
 aLeft	db 'Left    :',0
 aRight	db 'Right   :',0
@@ -771,10 +787,11 @@ name_editboxes_end:
 ;---------------------------------------------------------------------
 
 IM_END:
-mouse_dd	rd 1
 align 4
-dwTestEndTime	dd ?
+mouse_dd	rd 1
-dwMainPID	dd ?
+area_for_f36	rd 1
+dwTestEndTime	rd 1
+dwMainPID	rd 1
 ;---------------------------------------------------------------------
 textarea:
 	rb 8