WebSVN – Kolibri OS – Diff – /programs/games/nu_pogodi/trunk/nu_pogod.asm

 ;á®§¤ ¥¬ ¯à®§à çë¥ ¡ãä¥à  ¯® 8 ¡¨â (âà ä à¥âë), ¤«ï à¨á®¢ ¨ï
 ;£¤¥ buf - ¡ãä¥à   ®á®¢¥ ª®â®à®£® ¡ã¤¥â á®§¤  âà ä à¥â
 ;ä®®¢ë© æ¢¥â ¡ãä¥à  ¤®«¦¥ ¡ëâì 0xffffff, ¨ ç¥ ¥ ¯à®¨§®©¤¥â ®¡à¥§ª
 ;¯® ä®®¢®¬ã æ¢¥âã ¨ âà ä à¥â ¡ã¤¥â § ¨¬ â ì¬®£® ¬¥áâ  ¢ ¯ ¬ïâ¨
 align 4
-proc CreateTrapharetBuffer, buf:dword, img_data:dword
+proc CreateTrapharetBuffer uses eax edi, buf:dword, img_data:dword
-	push eax edi
 	mov edi,dword[buf]
 	;§ ¯®«¥¨¥ ¤ ëå ¡ãä¥à
 	mov buf2d_size_lt,0
 	stdcall [buf2d_create_f_img], edi,[img_data] ;á®§¤ ¥¬ ¡ãä¥à
 	stdcall [buf2d_conv_24_to_8], edi,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8¡¨â
 	;®¡à¥§ ¥¬ «¨è¨¥ ªà ï ¡ãä¥à , ¤«ï ¡®«¥¥ ¡ëáâà®£® à¨á®¢ ¨ï
-	stdcall [buf2d_crop_color], edi,buf2d_color,BUF2D_OPT_CROP_TOP+BUF2D_OPT_CROP_BOTTOM+BUF2D_OPT_CROP_RIGHT+BUF2D_OPT_CROP_LEFT
-	pop edi eax
+	stdcall [buf2d_crop_color], edi,buf2d_color,BUF2D_OPT_CROP_TOP+BUF2D_OPT_CROP_BOTTOM+BUF2D_OPT_CROP_RIGHT+BUF2D_OPT_CROP_LEFT
 	ret
 endp
 txt_tile_type_0 rb FILE_NAME_MAX
 align 4
-user_is_select:
-	push ecx esi edi
+user_is_select:
-	stdcall [tl_node_get_data], tree1
+	push eax ecx esi edi
-	pop esi
+	stdcall [tl_node_get_data], tree1
+	cmp eax,0 ;¥á«¨ ¨¬ï ¨£àë ¯ãáâ®¥
-	cmp esi,0 ;¥á«¨ ¨¬ï ¨£àë ¯ãáâ®¥
+	je @f
-	je @f
+		mov esi,eax
 		mov edi,ini_name
 		mov ecx,FILE_NAME_MAX
 		cld
 		rep movsb
 		mov byte[game_select_mode],0
 		call InitAll
 	@@:
-	pop edi esi ecx
+	pop edi esi ecx eax
 align 4
 start:
 	load_libraries l_libs_start,load_lib_end
+	;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
+	cmp	dword [lib0+ll_struc_size-4],0
+	jnz @f
-	;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨« áì  è  «¨¡
+	cmp	dword [lib1+ll_struc_size-4],0
-	mov	ebp,lib0
+	jnz @f
-	cmp	dword [ebp+ll_struc_size-4],0
+	cmp	dword [lib2+ll_struc_size-4],0
+	jnz @f
+	cmp	dword [lib3+ll_struc_size-4],0
-	jz	@f
+	jnz @f
-		mcall -1 ;exit not correct
-	@@:
-	mov	ebp,lib1
-	cmp	dword [ebp+ll_struc_size-4],0
+	jmp .lib
-	jz	@f
+	@@:
 		mcall -1 ;exit not correct
-	@@:
+	.lib:
 	mcall 40,0x27
 	mcall 48,3,sc,sizeof.system_colors ;¯®«ãç ¥¬ á¨áâ¥¬ë¥ æ¢¥â
 ;******************************************************************************
-; ¯®¤£®â®¢ª  á¯¨áª  ¨£®à
+; ¯®¤£®â®¢ª  á¯¨áª  ¨£à
 	@@:
 		mov byte[key_game_ind],dl
 		inc dl
 		push ecx edx
 		stdcall dword[ini_get_str],file_name,ini_sec_files,key_game,txt_tile_type_0,FILE_NAME_MAX,ini_def_decorat_file
-		stdcall dword[tl_node_add], txt_tile_type_0, 0, tree1 ;¤®¡ ¢«ï¥¬  §¢ ¨¥ ¨£àë
+		stdcall dword[tl_node_add], tree1, 0, txt_tile_type_0 ;¤®¡ ¢«ï¥¬  §¢ ¨¥ ¨£àë
 		stdcall dword[tl_cur_next], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¨§, çâ®-¡ë ¥ ¯®¬¥ï«áï ¯®àï¤®ª ¨£à
 		pop edx ecx
 	loop @b
 	stdcall dword[tl_cur_beg], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¢¥àå
 	inc edx
 	add ecx,BUT1_NEXT_TOP
 	int 0x40
 pop esi
 	mov eax,4 ; ð¡R÷ÿ-ð? ¢?ò¡¢ÿ
 	mov bx,BUT1_H
 	add ebx,3*65536;+3
 	mov ecx,dword[color_but_te]
 	or  ecx,0x80000000
 	mov edx,txt_game_a
-	int 0x40
+	mcall 4
 	ror ebx,16
 	add ebx,BUT1_NEXT_TOP
 ; à §¬¥à ¯®«¥© ¢ëç¨á«ï¥âáï ¨áå®¤ï ¨§ à §¬¥à®¢ client_rect
 ; ¯à¥¤¯®« £ ¥âáï, çâ® ¢ ¡®«ìè¨áâ¢¥ á«ãç ¥¢ client_rect > user_box
 align 4
 proc draw_rect_border, client_rect:dword, user_box:dword
 	pushad
-	mov edi,dword[client_rect]
 	mov esi,dword[user_box]
 	cmp esi,0
 	je @f
+		mov edi,dword[client_rect]
 		mov ebx,dword[edi+8] ;+8 = width
 		inc bx
 		mov ecx,dword[esi+4] ;+4 = top
 		mov edx,[sc.work]
-		mov eax,13
-		int 0x40 ;top
+		mcall 13 ;top
 		mov eax,dword[esi+4] ;+4 = top
 		add eax,dword[esi+12] ;+12 = height
 		cmp eax,dword[edi+12]
 		jge .no_bottom
 			mov ecx,eax
 			shl ecx,16
 			mov cx,word[edi+12] ;+12 = bottom
 			inc cx
-			sub cx,ax
-			mov eax,13
+			sub cx,ax
-			int 0x40 ;bottom
+			mcall 13 ;bottom
 		.no_bottom:
 		mov ebx,dword[esi] ;+0 left
 		mov ecx,dword[esi+4] ;+4 = top
 		shl ecx,16
-		mov cx,word[esi+12] ;+12 = height
-		inc cx
+		mov cx,word[esi+12] ;+12 = height
-		mov eax,13
+		inc cx
-		int 0x40 ;left
+		mcall 13 ;left
 		mov eax,dword[esi] ;+0 left
 		add eax,dword[esi+8] ;+8 = width
 		mov ebx,eax
 		shl ebx,16
-		mov bx,word[edi+8] ;+8 = right
-		sub bx,ax
+		mov bx,word[edi+8] ;+8 = right
-		inc bx
+		sub bx,ax
-		mov eax,13
+		inc bx
-		int 0x40 ;right
+		mcall 13 ;right
 	@@:
 	lib2 l_libs lib2_name, sys_path, file_name, system_dir2, err_message_found_lib2, head_f_l, import_libini, err_message_import2, head_f_i
 	lib3 l_libs lib3_name, sys_path, file_name, system_dir3, err_message_found_lib3, head_f_l, import_box_lib, err_message_import3, head_f_i
 load_lib_end:
 align 4
-proc mem_copy, source:dword, destination:dword, len:dword
-  push ecx esi edi
+proc mem_copy uses ecx esi edi, source:dword, destination:dword, len:dword
-    cld
+	cld
-    mov esi, dword[source]
+	mov esi, dword[source]
-    mov edi, dword[destination]
+	mov edi, dword[destination]
-    mov ecx, dword[len]
+	mov ecx, dword[len]
-    rep movsb
-  pop edi esi ecx
+	rep movsb
-  ret
+	ret
 endp
 align 4
-convert_to_str:
-	pushad
-	;mov eax,dword[value]
+convert_to_str:
-	;mov edi,dword[text]
+	pushad
 	mov dword[edi+1],0
 	cld
 	call .str
-	popad
-	ret
+	popad
 	ret
 align 4
 .str:
   mov ecx,0x0a ;§ ¤ ¥âáï á¨áâ¥¬  áç¨á«¥¨ï ¨§¬¥ïîâáï à¥£¨áâàë ebx,eax,ecx,edx ¢å®¤ë¥ ¯ à ¬¥âàë eax - ç¨á«®
     ;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâà®ªã ¢§®¤ë¥ ¤ ë¥ ecx=á¨áâ¥¬  áç¨á«¥ï edi  ¤à¥á ªã¤  § ¯¨áë¢ âì, ¡ã¤¥¬ áâà®ªã, ¯à¨ç¥¬ ª®¥æ ¯¥à¥¬¥®©
   cmp eax,ecx  ;áà ¢¨âì ¥á«¨ ¢ eax ¬¥ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨   @@-1 â.¥.   pop eax
   jb @f
-  xor edx,edx  ;®ç¨áâ¨âì edx
-  div ecx      ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
+  xor edx,edx  ;®ç¨áâ¨âì edx
-  push edx     ;¯®«®¦¨âì ¢ áâ¥ª
+  div ecx      ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
-  ;dec edi             ;á¬¥é¥¨¥ ¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®æ  áâà®ª¨
+  push edx     ;¯®«®¦¨âì ¢ áâ¥ª
-  call .str;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
-  pop eax
-  @@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
+  call .str;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
-  ;sbb al,$69  ;- ç¥áâ® ¤  ï ¨áâàãªæ¨ï ¬¥ï § áâ ¢«ï¥â § ¤ã¬ âìáï â.¥. ï ¥ § î ª ª íâ® à ¡®â ¥â
+  pop eax
-  ;das        ;¯®á«¥ ¤ ®© ª®¬ ¤ë ª ª ¡ë ¯à®¨áå®¤¨â ã¬¥ìè¥¨¥ al   66h  (¢ ª¨£¥  ¯¨á ® ¤àã£®¥)
+  @@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
   or al,0x30  ;¤  ï ª®¬ ¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
   stosb       ;§ ¯¨á âì í«¥¬¥â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
-  ret	      ;¢¥àãâìáï ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
+  ret	      ;¢¥àãâìáï ®ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
 last_time dd 0
 image_data dd 0 ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ¨ï ª àâ¨ª¨ äãªæ¨ï¬¨ libimg
 image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥ë¬¨ á¥àë¬¨ ¨§®¡à ¦¥¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ á®§¤ ¢ âìáï âà ä à¥âë
 	sz_tl_node_close_open db 'tl_node_close_open',0
 	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
 	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
 i_end:
-	rb 1024
+align 16
+i_end:
-	align 16
+	procinfo process_information
-	procinfo process_information
+	rb 1024
 stacktop:
 	sys_path rb 4096
 	file_name:

Subversion Repositories Kolibri OS

(root)/programs/games/nu_pogodi/trunk/nu_pogod.asm – Rev 3014 → 5911