WebSVN – Kolibri OS – Diff – /programs/other/planet_v/tile_fun.inc

 ;       get_parent_tiles (æ¨ª«¨ç¥áª¨© ¯à®á¬®âà à®¤¨â¥«ìáª¨å â ©«®¢)
 ;               get_tile_path
 ;               load_new_tile (¢¥àåïï ª àâ¨ª )
-;???
+;¯¥à¥¤¢¨£ ¥¬ ª®®à¤¨ âã ªãàá®à  ¢¯à ¢®
 align 4
-CursorMoveRight: ;¯¥à¥¤¢¨£ ¥¬ ª®®à¤¨ âã ªãàá®à  ¢¯à ¢®
+CursorMoveRight:
   push ebx ecx
   xor ebx,ebx
   xor ecx,ecx
     call but_Refresh
   .no_move:
   pop ecx ebx
   ret
-;???
+;¯¥à¥¤¢¨£ ¥¬ ª®®à¤¨ âã ªãàá®à  ¢¨§
 align 4
-CursorMoveDown: ;¯¥à¥¤¢¨£ ¥¬ ª®®à¤¨ âã ªãàá®à  ¢¨§
+CursorMoveDown:
   push ebx ecx
   xor ebx,ebx
   xor ecx,ecx
   mov cl,byte[map.zoom]
     call but_Refresh
   .no_move:
   pop ecx ebx
   ret
-;???
+;¯¥à¥¬¥é¥¨¥ ¬¥âª¨ ¢¢¥àå, ¯® á¯¨áªã
 align 4
-but_met_up: ;¯¥à¥¬¥é¥¨¥ ¬¥âª¨ ¢¢¥àå, ¯® á¯¨áªã
+but_met_up:
   stdcall dword[tl_node_move_up], tree2
-  ret
+  ret
-;???
+;¯¥à¥¬¥é¥¨¥ ¬¥âª¨ ¢¨§, ¯® á¯¨áªã?
 align 4
-but_met_dn: ;¯¥à¥¬¥é¥¨¥ ¬¥âª¨ ¢¨§, ¯® á¯¨áªã
+but_met_dn:
-  stdcall dword[tl_node_move_down], tree2
+  stdcall dword[tl_node_move_down], tree2
   ret
-;???
+;¬¥ï¥¬ à áè¨à¥¨¥ ¤«ï ª àâë
 align 4
-fun_new_map_type: ;¬¥ï¥¬ à áè¨à¥¨¥ ¤«ï ª àâë
-  push eax
+fun_new_map_type:
-    stdcall dword[tl_node_get_data], tree1
+  push eax
-    pop eax
+    stdcall dword[tl_node_get_data], tree1
     cmp eax,0
     je @f
       mov dword[txt_tile_type],eax
     @@:
   pop eax
   ret
 ;§ ¤ ¥¬ à á¯®«®¦¥¨¥ â ©«®¢ ¯® á¥âª¥
-align 4
+;§ ¤ ¥¬ à á¯®«®¦¥¨¥ â ©«®¢ ¯® á¥âª¥
-proc tiles_init_grid, beg_tiles:dword, count:dword, cols:dword
+align 4
-  push eax ebx ecx edx edi
+proc tiles_init_grid uses eax ebx ecx edx edi, beg_tiles:dword, count:dword, cols:dword
   xor eax,eax
     jl .old_lin
       xor eax,eax
       inc bx
     .old_lin:
     loop @b
-  pop edi edx ecx ebx eax
   ret
 endp
 ;á¤¢¨£ ¥¬ á¥âªã ¢«¥¢®, ¢ë«¥§è¨¥ áâ®«¡æë ¡ã¤ãâ ¯¥à¥ª¨ãâë   ¯à ¢ãî áâ®à®ã
 ;äãªæ¨ï ã¦  ¤«ï ®¯â¨¬¨§ æ¨¨ ®¡à é¥¨ï ª ¤¨áªã, ¯à¨ ¤¢¨¦¥¨¨ ªãàá®à  ¬ë ¤¢¨£ ¥¬
 ;â ©«ë ¢ ¯à®â¨¢®¯®«®¦ãî áâ®à®ã, ¢ à¥§ã«ìâ â¥ ª®®à¤¨ âë ¡®«ìè¨áâ¢  â ©«®¢ ¥ ¬¥ïîâáï
 ;  § ç¨â ¯à®£à ¬¬  ¥ ¡ã¤¥â ¯¥à¥ç¨âë¢ âì ¨å § ®¢®, ç¥¬ ¨ ¤®áâ¨£ ¥âáï ®¯â¨¬¨§ æ¨ï
 align 4
-proc tiles_grid_move_left, beg_tiles:dword, count:dword, cols:dword
-  push eax ebx ecx edx edi
+proc tiles_grid_move_left uses eax ebx ecx edx edi, beg_tiles:dword, count:dword, cols:dword
   xor eax,eax
   xor ebx,ebx
   mov edi,[beg_tiles]
   mov ecx,[count]
       add tile_delta_x,dl ;¥á«¨ áâ®«¡¥æ = 0, â® ¤®¡ ¢«ï¥¬ 'cols' çâ®-¡ë ¥ ¢ë« §¨« ¢«¥¢®
     .no_jump:
     dec tile_delta_x
     add edi,size_tile_struc
     loop @b
-  pop edi edx ecx ebx eax
   ret
 endp
 ;á¤¢¨£ ¥¬ á¥âªã ¢¯à ¢®, ¢ë«¥§è¨¥ áâ®«¡æë ¡ã¤ãâ ¯¥à¥ª¨ãâë   «¥¢ãî áâ®à®ã
 ;¤¥« ¥â â®¦¥ çâ® ¨ tiles_grid_move_left â®«ìª® ¤¢¨£ ¥â ª®®à¤¨ âë ¢ ¤àã£ãî áâ®à®ã
 align 4
-proc tiles_grid_move_right, beg_tiles:dword, count:dword, cols:dword
-  push eax ebx ecx edx edi
+proc tiles_grid_move_right uses eax ebx ecx edx edi, beg_tiles:dword, count:dword, cols:dword
   xor eax,eax
   xor ebx,ebx
   mov edi,[beg_tiles]
   mov ecx,[count]
     jl .no_jump
       mov tile_delta_x,0 ;¥á«¨ áâ®«¡¥æ = 'cols', â® áâ ¢¨¬ ¥¬ã 0 çâ®-¡ë ¥ ¢ë« §¨« ¢¯à ¢®
     .no_jump:
     add edi,size_tile_struc
     loop @b
-  pop edi edx ecx ebx eax
   ret
 endp
 align 4
-proc tiles_grid_move_up, beg_tiles:dword, count:dword, rows:dword
-  push eax ebx ecx edx edi
+proc tiles_grid_move_up uses eax ebx ecx edx edi, beg_tiles:dword, count:dword, rows:dword
   xor eax,eax
   xor ebx,ebx
   mov edi,[beg_tiles]
   mov ecx,[count]
       add tile_delta_y,dl ;¥á«¨ áâà®ª  = 0, â® ¤®¡ ¢«ï¥¬ 'rows' çâ®-¡ë ¥ ¢ë« §¨«  ¢¨§
     .no_jump:
     dec tile_delta_y
     add edi,size_tile_struc
     loop @b
-  pop edi edx ecx ebx eax
   ret
 endp
 align 4
-proc tiles_grid_move_down, beg_tiles:dword, count:dword, rows:dword
-  push eax ebx ecx edx edi
+proc tiles_grid_move_down uses eax ebx ecx edx edi, beg_tiles:dword, count:dword, rows:dword
   xor eax,eax
   xor ebx,ebx
   mov edi,[beg_tiles]
   mov ecx,[count]
     jl .no_jump
       mov tile_delta_y,0 ;¥á«¨ áâà®ª  = 'rows', â® áâ ¢¨¬ ¥© 0 çâ®-¡ë ¥ ¢ë« §¨«  ¢¢¥àå
     .no_jump:
     add edi,size_tile_struc
     loop @b
-  pop edi edx ecx ebx eax
   ret
 endp
 align 4
-proc array_tile_function, beg_tiles:dword, count:dword, funct:dword
-  push ecx edi
+proc array_tile_function uses ecx edi, beg_tiles:dword, count:dword, funct:dword
   mov edi,[beg_tiles]
   mov ecx,[count]
   @@:
     stdcall [funct],edi
     add edi,size_tile_struc
-    loop @b
-  pop edi ecx
+    loop @b
   ret
 endp
 align 4
-draw_tiles:
-pushad
-  mov eax,47
-  mov ebx,0x20000
+draw_tiles:
-  xor ecx,ecx
-  mov cl,byte[map.zoom]
+pushad
-  mov edx,128*65536+13
+  movzx ecx,byte[map.zoom]
   mov esi,[sc.work_text]
   or  esi,0x40000000
   mov edi,[sc.work]
-  int 0x40
+  mcall 47,0x20000,, (128 shl 16)+13
     shr dword[map.coord_y],1
     call but_Refresh
   @@:
   ret
-;???
+;á®åà ¥¨¥ ä ©«  á ¬¥âª ¬¨
 align 4
-but_MetSave: ;á®åà ¥¨¥ ä ©«  á ¬¥âª ¬¨
+but_MetSave:
+	stdcall dword[tl_save_mem], tree2,0,[bmp_icon],TREE_ICON_SYS16_BMP_SIZE
   stdcall dword[tl_save_mem], TREE_ICON_SYS16_BMP_SIZE,[bmp_icon],0,tree2
+	copy_path fn_metki,sys_path,file_name,0
+	push eax ebx ecx edi
-  push eax ebx ecx edi
-    copy_path fn_metki,sys_path,file_name,0x0
-    stdcall dword[tl_get_mem_size], [bmp_icon],tree2
-    pop ecx
-    inc ecx ;¤«ï § ¯¨á¨ ¢ ä ©« § ¢¥àè îé¥£® ã«ï
+		stdcall dword[tl_get_mem_size], tree2,[bmp_icon]
 		inc eax ;¤«ï § ¯¨á¨ ¢ ä ©« § ¢¥àè îé¥£® ã«ï
     mov eax,70
-    m2m [run_file_70.Buffer], [bmp_icon]
+		m2m [run_file_70.Buffer], [bmp_icon]
-    mov [run_file_70.Function], 2
+		mov [run_file_70.Function], 2
-    mov [run_file_70.Position], 0
+		mov [run_file_70.Position], 0
-    mov [run_file_70.Flags], 0
+		mov [run_file_70.Flags], 0
-    mov [run_file_70.Count], ecx
+		mov [run_file_70.Count], eax
-    mov byte[run_file_70+20], 0
-    mov [run_file_70.FileName], file_name
+		mov byte[run_file_70+20], 0
-    mov ebx,run_file_70
+		mov [run_file_70.FileName], file_name
-    int 0x40
+		mcall 70,run_file_70
-  pop edi ecx ebx eax
+	pop edi ecx ebx eax
-  jmp still
+	jmp still
-;???
+;áç¨âë¢ ¥¬ ä ©« á ¬¥âª ¬¨
+align 4
-align 4
+but_MetLoad:
-but_MetLoad: ;áç¨âë¢ ¥¬ ä ©« á ¬¥âª ¬¨
+	cmp byte[met_fr_opn],0
-  cmp byte[met_fr_opn],0
-  jne .end_f
-  pushad
+	jne .end_f
-    mov byte[met_fr_opn],1
+	copy_path fn_metki,sys_path,file_name,0
-    copy_path fn_metki,sys_path,file_name,0x0
+	pushad
-    mov eax,70 ;load icon file
+		mov byte[met_fr_opn],1
-    mov [run_file_70.Function], 0
+		mov [run_file_70.Function], 0
-    mov [run_file_70.Position], 0
+		mov [run_file_70.Position], 0
-    mov [run_file_70.Flags], 0
+		mov [run_file_70.Flags], 0
-    mov [run_file_70.Count], TREE_ICON_SYS16_BMP_SIZE
-    mov byte[run_file_70+20], 0
+		mov [run_file_70.Count], TREE_ICON_SYS16_BMP_SIZE
-    mov [run_file_70.FileName], file_name
-    m2m [run_file_70.Buffer], [bmp_icon]
+		mov byte[run_file_70+20], 0
-    mov eax,70
+		mov [run_file_70.FileName], file_name
-    mov ebx,run_file_70
+		m2m [run_file_70.Buffer], [bmp_icon]
-    int 0x40
+		mcall 70,run_file_70
-    cmp ebx,0xffffffff
+		cmp ebx,0xffffffff
-    je @f
-      stdcall [tl_load_mem], TREE_ICON_SYS16_BMP_SIZE,dword[bmp_icon],0,tree2
+		je @f
-      stdcall [tl_cur_beg], tree2 ;?
+			stdcall [tl_load_mem], tree2,0,[bmp_icon],TREE_ICON_SYS16_BMP_SIZE
-      stdcall [tl_draw], tree2 ;?
+			stdcall [tl_cur_beg], tree2
-      pop eax
+			stdcall [tl_draw], tree2
-    @@:
+		@@:
-    mov byte[file_name],0 ;clear file name
+		mov byte[file_name],0 ;clear file name
-  popad
+	popad
-  .end_f:
+	.end_f:
-  ret
+	ret
-;???
+;¤®¡ ¢«¥¨¥ ¬¥âª¨
 align 4
-but_MetAdd: ;¤®¡ ¢«¥¨¥ ¬¥âª¨
+but_MetAdd:
   push eax
     mov eax,dword[bmp_icon]
     m2m dword[eax],  dword[map.coord_x]
     m2m dword[eax+4],dword[map.coord_y]
     m2m  word[eax+8], word[map.zoom]
     add eax,12
-    stdcall dword[str_copy], eax,30,dword[edit2.text],30
+    stdcall dword[str_copy], eax,30,dword[edit2.text],30
-    stdcall dword[tl_node_add], dword[bmp_icon], 0, tree2
+    stdcall dword[tl_node_add], tree2, 0, dword[bmp_icon]
     stdcall dword[tl_draw], tree2
   pop eax
   jmp still
 ;???
-align 4
+;¯¥à¥å®¤ ª ¢ë¡à ®© ¬¥âª¥
-fun_goto_met: ;¯¥à¥å®¤ ª ¢ë¡à ®© ¬¥âª¥
+align 4
-  push eax
+fun_goto_met:
-  stdcall dword[tl_node_get_data], tree2
+	push eax
   stdcall array_tile_function, tile_00,max_tiles_count,load_tile
   stdcall draw_tiles
   ret
 align 4
-proc tile_init, tile:dword
-  push eax edi
+proc tile_init uses eax edi, tile:dword
-    mov edi,[tile]
+	mov edi,[tile]
-    push dword RGB_TILE_SIZE+300
-    call mem.Alloc
+	stdcall mem.Alloc, RGB_TILE_SIZE+300
-    mov tile_rgb_icon,eax
+	mov tile_rgb_icon,eax
-    push dword RGB_TILE_SIZE
-    call mem.Alloc
+	stdcall mem.Alloc, RGB_TILE_SIZE
-    mov tile_drobn_icon,eax
-  pop edi eax
+	mov tile_drobn_icon,eax
-  ret
+	ret
 endp
-align 4
-proc tile_destroy, tile:dword
+align 4
-  push edi
+proc tile_destroy uses edi, tile:dword
-    mov edi,[tile]
-    push tile_rgb_icon
+	mov edi,[tile]
-    call mem.Free
-    push tile_drobn_icon
-    call mem.Free
+	stdcall mem.Free,tile_rgb_icon
-  pop edi
+	stdcall mem.Free,tile_drobn_icon
-  ret
-endp
+	ret
+endp
 ;???
-align 4 ;§ £àã¦ ¥â â ©«ë, ¢ ®¯à¥¤¥«¥®© ®¡« áâ¨
+;§ £àã¦ ¥â â ©«ë, ¢ ®¯à¥¤¥«¥®© ®¡« áâ¨
-proc load_tile, tile:dword
+align 4
-  push eax ebx ecx edi
+proc load_tile uses eax ebx ecx edi, tile:dword
       cmp ecx,5 ;5 - ®£à ¨ç¥¨¥   áâ¥¯¥ì à áâï£¨¢ ¨ï ª àâ¨ª¨
       je @f
       jmp .zoom
     @@:
   pop edi ecx ebx eax
   ret
 endp
 ;tile - ãª § â¥«ì   áâàãªâãàã â ©«
 align 4 ;§ £àã¦ ¥â ®¯à¥¤¥«¥ë© â ©«
 proc load_new_tile, tile:dword
   pushad
   mov eax,70 ;load icon file
   mov [run_file_70.Function], 0
   mov [run_file_70.Position], 0
   mov [run_file_70.Flags], 0
   mov [run_file_70.Count], RGB_TILE_SIZE+300 ;+54
   m2m [run_file_70.Buffer], [bmp_icon]
   mov byte[run_file_70+20], 0
   mov [run_file_70.FileName], file_name
-  mov ebx,run_file_70
-  int 0x40
+  mcall 70,run_file_70
   mov edi,[tile]
 ;  cmp ebx,0xffffffff
 ;  je .no_load
   cmp al,6 ;®è¨¡ª  6 - ª®£¤  ä ©« § ª®ç¨«áï à ìè¥ ç¥¬ ¡ãä¥à
   ret
 endp
 ;äãªæ¨ï £¥¥à¨àã¥â ç áâì ¯ãâ¨ ª ä ©«ã ¢ ¢¨¤¥: \z?\?\x?\?\y?
 align 4
-proc get_tile_path, tile:dword
-  push eax ecx edi esi
+proc get_tile_path uses eax ecx edi esi, tile:dword
     mov ecx,300
     mov edi,txt_tile_path
     @@:
       mov byte[edi],0 ;ç¨áâ¨¬ áâà®ªã
     mov byte[txt_tile_path],'z'
     mov edi,txt_tile_path
     inc edi
     xor eax,eax
     mov al,byte[esi+8] ;+8 = zoom
-    call tl_convert_to_str
+    stdcall convert_int_to_str, 300
     inc edi
     cmp byte[esi+8],9 ;+8 = zoom
     jle @f
     mov eax,[esi] ;coord_x
 cmp eax,ecx
 jge .out_of_rang ;coord_x ¡®«ìè¥ ¤®¯ãáâ¨¬®£® § ç¥¨ï ¯à¨ § ¤ ®¬ ¬ áèâ ¡¥
     shr eax,10
-    call tl_convert_to_str
+    stdcall convert_int_to_str, 300
     @@:
       inc edi
     inc edi
     mov byte[edi],'x'
     inc edi
     mov eax,[esi] ;coord_x
-    call tl_convert_to_str
+    stdcall convert_int_to_str, 300
     @@:
       inc edi
     mov eax,[esi+4] ;coord_y
 cmp eax,ecx
 jge .out_of_rang ;coord_y ¡®«ìè¥ ¤®¯ãáâ¨¬®£® § ç¥¨ï ¯à¨ § ¤ ®¬ ¬ áèâ ¡¥
     shr eax,10
-    call tl_convert_to_str
+    stdcall convert_int_to_str, 300
     @@:
       inc edi
     inc edi
     mov byte[edi],'y'
     inc edi
     mov eax,[esi+4] ;coord_y]
-    call tl_convert_to_str
+    stdcall convert_int_to_str, 300
-.out_of_rang:
-    call get_all_path
+.out_of_rang:
-  pop esi edi ecx eax
+    call get_all_path
   ret
 endp

Subversion Repositories Kolibri OS

(root)/programs/other/planet_v/tile_fun.inc – Rev 3175 → 5911