Subversion Repositories Kolibri OS

Rev

Rev 3446 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3446 Rev 3628
Line 62... Line 62...
62
include '..\..\..\macros.inc'
62
include '..\..\..\macros.inc'
63
include '..\..\..\proc32.inc'
63
include '..\..\..\proc32.inc'
64
;include '..\..\..\debug.inc'
64
;include '..\..\..\debug.inc'
65
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
65
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
66
include '../../../develop/libraries/box_lib/load_lib.mac'
66
include '../../../develop/libraries/box_lib/load_lib.mac'
-
 
67
include 'lang.inc'	;language support
67
	@use_library
68
	@use_library
68
;---------------------------------------------------------------------
69
;---------------------------------------------------------------------
69
start:
70
start:
70
	mcall	68,11
71
	mcall	68,11
Line 683... Line 684...
683
;---------------------------------------------------------------------
684
;---------------------------------------------------------------------
684
LINE_HEIGHT   = 13
685
LINE_HEIGHT   = 13
685
TEST_REC_SIZE = 16
686
TEST_REC_SIZE = 16
686
TESTS_NUM     = ($ - results_table) / TEST_REC_SIZE - 1
687
TESTS_NUM     = ($ - results_table) / TEST_REC_SIZE - 1
687
;---------------------------------------------------------------------
688
;---------------------------------------------------------------------
-
 
689
if lang eq it
-
 
690
	aDrawingWindow	db 'Window Of Type #3, 325x400 px',0
-
 
691
	aDrawingBar	db 'Filled Rectangle, 100x250 px',0
-
 
692
	aDrawingPicture db 'Picture, 90x123, px',0
-
 
693
	aDrawingPictF73	db 'Picture for Blitter, 90x123, px',0
-
 
694
	aGetScreenF36	db 'Get a piece of screen f.36, 90x123, px',0
-
 
695
	aGetScreen_GS	db 'Get a piece of screen GS, 90x123, px',0
-
 
696
	aDrawingVLine	db 'Linea verticale, 350 px',0
-
 
697
	aDrawingHLine	db 'Linea orizzontale, 270 px',0
-
 
698
	aDrawingFLine	db 'Free-angled Line, 350 px',0
-
 
699
	aDrawingText1	db 'Fixed-width Text, 34 chars',0
-
 
700
	aDrawingText2	db 'Proportional Text, 34 chars',0
-
 
701
	aDrawingNumber	db 'Decimal Number, 8 digits',0
-
 
702
	aDrawingPixel	db 'Singolo pixel',0
-
 
703
 
-
 
704
	aTestText	db 'This is a 34-charachters test text'
-
 
705
	aButtonsText	db 'Test      Commenti    Pattern+     Apri        Salva',0
-
 
706
	aCaption	db 'Kolibri Graphical Benchmark 0.7',0
-
 
707
 
-
 
708
	aLeft	db 'Sinistra:',0
-
 
709
	aRight	db 'Destra  :',0
-
 
710
 
-
 
711
	aComment1	db 'Attuale ',0
-
 
712
	aComment2	db 'no pattern',0
-
 
713
	aComment	db 'Commento',0
-
 
714
else
688
aDrawingWindow	db 'Window Of Type #3, 325x400 px',0
715
	aDrawingWindow	db 'Window Of Type #3, 325x400 px',0
689
aDrawingBar	db 'Filled Rectangle, 100x250 px',0
716
	aDrawingBar	db 'Filled Rectangle, 100x250 px',0
690
aDrawingPicture db 'Picture, 90x123, px',0
717
	aDrawingPicture db 'Picture, 90x123, px',0
691
aDrawingPictF73	db 'Picture for Blitter, 90x123, px',0
718
	aDrawingPictF73	db 'Picture for Blitter, 90x123, px',0
692
aGetScreenF36	db 'Get a piece of screen f.36, 90x123, px',0
719
	aGetScreenF36	db 'Get a piece of screen f.36, 90x123, px',0
Line 707... Line 734...
707
aRight	db 'Right   :',0
734
	aRight	db 'Right   :',0
Line 708... Line 735...
708
 
735
 
709
aComment1	db 'current',0
736
	aComment1	db 'current',0
710
aComment2	db 'no pattern',0
737
	aComment2	db 'no pattern',0
-
 
738
	aComment	db 'Comment',0
711
aComment	db 'Comment',0
739
end if
712
;---------------------------------------------------------------------
740
;---------------------------------------------------------------------
713
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
741
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
714
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
742
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
715
;---------------------------------------------------------------------
743
;---------------------------------------------------------------------
-
 
744
head_f_i:
-
 
745
if lang eq it
-
 
746
	head_f_l	db 'Errore Sistema',0
716
head_f_i:
747
else
-
 
748
	head_f_l	db 'System error',0
Line 717... Line 749...
717
head_f_l	db 'System error',0
749
end if
718
 
750
 
Line 719... Line 751...
719
err_message_found_lib1	db 'box_lib.obj - Not found!',0
751
err_message_found_lib1	db 'box_lib.obj - Not found!',0