Subversion Repositories Kolibri OS

Rev

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

Rev 6238 Rev 8262
Line 1... Line 1...
1 
;Ž£à®¬­ ï ¡« £®¤ à­®áâì Maxxxx32, Diamond, Heavyiron
 1 
;Ž£à®¬­ ï ¡« £®¤ à­®áâì Maxxxx32, Diamond, Heavyiron
2 
;¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬,   â ª¦¥ ’¥¯«®¢ã €«¥ªá¥î
 2 
;¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬,   â ª¦¥ ’¥¯«®¢ã €«¥ªá¥î
3 
use32
 3 
use32
4 
  org 0x0
 4 
  org 0
5 
  db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
 5 
  db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
6 
  dd 1,start,i_end,mem,stacktop,0,sys_path
 6 
  dd 1,start,i_end,mem,stacktop,0,sys_path
Line 7... Line 7...
7 
 
 7 
 
8 
include '../../proc32.inc'
 8 
include '../../proc32.inc'
9 
include '../../macros.inc'
 9 
include '../../macros.inc'
10 
include '../../KOSfuncs.inc'
 10 
include '../../KOSfuncs.inc'
- 
 
 11 
include '../../load_img.inc'
11 
include '../../load_img.inc'
 12 
include '../../load_lib.mac'
Line 12... Line 13...
12 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
 13 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
13 
 
 14 
 
14 
min_window_w equ 485 ;¬¨­¨¬ «ì­ ï è¨à¨­  ®ª­ 
 15 
min_window_w equ 485 ;¬¨­¨¬ «ì­ ï è¨à¨­  ®ª­ 
Line 15... Line 16...
15 
min_window_h equ 325 ;¬¨­¨¬ «ì­ ï ¢ëá®â  ®ª­ 
 16 
min_window_h equ 325 ;¬¨­¨¬ «ì­ ï ¢ëá®â  ®ª­ 
16 
otst_panel_left equ 265
 17 
otst_panel_left equ 265
Line 17... Line 18...
17 
 
 18 
 
Line 18... Line 19...
18 
include 'tile_fun.inc'
 19 
include 'tile_fun.inc'
19 
include 'pl_import.inc'
 20 
include 'pl_import.inc'
20 
 
 21 
 
21 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
 22 
@use_library mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
Line 361... Line 362...
361 
 
 362 
 
362 
	mcall SF_REDRAW,SSF_END_DRAW
 363 
	mcall SF_REDRAW,SSF_END_DRAW
363 
popad
 364 
popad
Line 364... Line -...
364 
	ret
 - 
 
365 
 
 - 
 
366 
  head_f_i:
 - 
 
367 
  head_f_l  db '‘¨á⥬­ ï ®è¨¡ª ',0
 - 
 
368 
  err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  box_lib.obj',0
 - 
 
369 
  err_message_import0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ box_lib.obj',0
 - 
 
370 
  err_message_found_lib1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  libimg.obj',0
 - 
 
371 
  err_message_import1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ libimg.obj',0
 - 
 
372 
  err_message_found_lib2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  str.obj',0
 - 
 
373 
  err_message_import2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ str.obj',0
 - 
 
374 
  err_message_found_lib3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  libini.obj',0
 - 
 
375 
  err_message_import3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ libini.obj',0
 - 
 
376 
  err_message_found_lib4 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  proc_lib.obj',0
 - 
 
377 
  err_message_import4 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ proc_lib.obj',0
 365 
	ret
378 
 
 366 
 
Line 379... Line 367...
379 
system_dir0 db '/sys/lib/'
 367 
system_dir0 db '/sys/lib/'
380 
lib0_name db 'box_lib.obj',0
 368 
lib0_name db 'box_lib.obj',0
Line 391... Line 379...
391 
system_dir4 db '/sys/lib/'
 379 
system_dir4 db '/sys/lib/'
392 
lib4_name db 'proc_lib.obj',0
 380 
lib4_name db 'proc_lib.obj',0
Line 393... Line 381...
393 
 
 381 
 
394 
;library structures
 382 
;library structures
395 
l_libs_start:
 383 
l_libs_start:
396 
	lib_0 l_libs lib0_name, sys_path, file_name, system_dir0,\
 - 
 
397 
		err_message_found_lib0, head_f_l, boxlib_import, err_message_import0, head_f_i
 384 
	lib_0 l_libs lib0_name, file_name, system_dir0, boxlib_import
398 
	lib_1 l_libs lib1_name, sys_path, file_name, system_dir1,\
 - 
 
399 
		err_message_found_lib1, head_f_l, libimg_import, err_message_import1, head_f_i
 385 
	lib_1 l_libs lib1_name, file_name, system_dir1, libimg_import
400 
	lib_2 l_libs lib2_name, sys_path, file_name, system_dir2,\
 - 
 
401 
		err_message_found_lib2, head_f_l, strlib_import, err_message_import2, head_f_i
 386 
	lib_2 l_libs lib2_name, file_name, system_dir2, strlib_import
402 
	lib_3 l_libs lib3_name, sys_path, file_name, system_dir3,\
 - 
 
403 
		err_message_found_lib3, head_f_l, libini_import, err_message_import3, head_f_i
 387 
	lib_3 l_libs lib3_name, file_name, system_dir3, libini_import
404 
	lib_4 l_libs lib4_name, sys_path, file_name, system_dir4,\
 - 
 
405 
		err_message_found_lib4, head_f_l, proclib_import, err_message_import4, head_f_i
 388 
	lib_4 l_libs lib4_name, file_name, system_dir4, proclib_import
Line 406... Line 389...
406 
load_lib_end:
 389 
load_lib_end:
407 
 
 390 
 
408 
align 4
 391 
align 4
Line 885... Line 868...
885 
	ret
 868 
	ret
886 
endp
 869 
endp
Line 887... Line 870...
887 
 
 870 
 
888 
align 4
 871 
align 4
889 
.str:
 - 
 
890 
	mov ecx,0x0a ;§ ¤ ¥âáï á¨á⥬  áç¨á«¥­¨ï ¨§¬¥­ïîâáï ॣ¨áâàë ebx,eax,ecx,edx ¢å®¤­ë¥ ¯ à ¬¥âàë eax - ç¨á«®
 - 
 
- 
 
 872 
.str:
891 
	;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâப㠢§®¤­ë¥ ¤ ­­ë¥ ecx=á¨á⥬  áç¨á«¥­ï edi  ¤à¥á ªã¤  § ¯¨á뢠âì, ¡ã¤¥¬ áâபã, ¯à¨ç¥¬ ª®­¥æ ¯¥à¥¬¥­­®©
873 
	mov ecx,10
892 
	cmp eax,ecx ;áà ¢­¨âì ¥á«¨ ¢ eax ¬¥­ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨ ­  @@-1 â.¥. ­  pop eax
 874 
	cmp eax,ecx
893 
	jb @f
 875 
	jb @f
894 
		xor edx,edx ;®ç¨áâ¨âì edx
 876 
		xor edx,edx
895 
		div ecx   ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
 877 
		div ecx
896 
		push edx  ;¯®«®¦¨âì ¢ á⥪
 878 
		push edx
- 
 
 879 
		;dec edi  ;ᬥ饭¨¥ ­¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®­æ  áâப¨
897 
		call .str ;¯¥à¥©â¨ ­  á ¬ã ᥡï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® ⮣® ¬®¬¥­â  ¯®ª  ¢ eax ­¥ áâ ­¥â ¬¥­ìè¥ ç¥¬ ¢ ecx
 880 
		call .str
898 
		pop eax
 - 
 
- 
 
 881 
		pop eax
899 
	@@: ;cmp al,10 ;¯à®¢¥à¨âì ­¥ ¬¥­ìè¥ «¨ §­ ç¥­¨¥ ¢ al 祬 10 (¤«ï á¨á⥬ë áç¨á«¥­ï 10 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
 882 
	@@:
900 
	cmp edi,esi
 883 
	cmp edi,esi
901 
	jge @f
 884 
	jge @f
902 
		or al,0x30 ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥  祬 ¤¢¥ ¢ëè¥
 - 
 
- 
 
 885 
		or al,0x30
903 
		stosb	   ;§ ¯¨á âì í«¥¬¥­â ¨§ ॣ¨áâà  al ¢ ï祪㠯 ¬ï⨠es:edi
 886 
		stosb
904 
		mov byte[edi],0 ;¢ ª®­¥æ áâப¨ áâ ¢¨¬ 0, çâ®-¡ë ­¥ ¢ë« §¨« ¬ãá®à
 887 
		mov byte[edi],0 ;¢ ª®­¥æ áâப¨ áâ ¢¨¬ 0, çâ®-¡ë ­¥ ¢ë« §¨« ¬ãá®à
905 
	@@:
 - 
 
- 
 
 888 
	@@:
Line 906... Line 889...
906 
	ret	   ;¯®ª  ¢ á⥪¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® á⮫쪮 à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
 889 
	ret
907 
 
 890 
 
Line 908... Line 891...
908 
hed db 'Planet viewer 16.02.16',0 ;¯®¤¯¨áì ®ª­ 
 891 
hed db 'Planet viewer 16.02.16',0 ;¯®¤¯¨áì ®ª­