WebSVN – Kolibri OS – Diff – /programs/other/planet_v/planet_v.asm

 align 4
 start:
   load_libraries l_libs_start,load_lib_end
-;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨« áì  è  «¨¡
-	mov	ebp,lib0
+;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
-	cmp	dword [ebp+ll_struc_size-4],0
-	jz	@f
-	mcall	-1	;exit not correct
-@@:
+	cmp	dword [lib0+ll_struc_size-4],0
-	mov	ebp,lib1
+	jnz @f
-	cmp	dword [ebp+ll_struc_size-4],0
+	cmp	dword [lib1+ll_struc_size-4],0
-	jz	@f
+	jnz @f
-	mcall	-1	;exit not correct
-@@:
+	cmp	dword [lib2+ll_struc_size-4],0
-	mov	ebp,lib2
+	jnz @f
-	cmp	dword [ebp+ll_struc_size-4],0
+	cmp	dword [lib3+ll_struc_size-4],0
-	jz	@f
+	jnz @f
-	mcall	-1	;exit not correct
-@@:
-	mov	ebp,lib3
-	cmp	dword [ebp+ll_struc_size-4],0
+	jmp .lib
-	jz	@f
+	@@:
-	mcall	-1	;exit not correct
+		mcall -1 ;exit not correct
-@@:
+	.lib:
-  copy_path ini_name,sys_path,file_name,0x0
+  copy_path ini_name,sys_path,file_name,0
   stdcall dword[ini_get_str],file_name,ini_sec,ini_k_cache,dword[edit1.text],dword[edit1.max],ini_def_cache
 @@: ;áç¨âë¢ ¥¬ ¯ à ¬¥âàë ®â ext1 ¤® ext9
   inc byte[ini_ext.number]
   stdcall dword[ini_get_str],file_name,ini_sec,ini_ext,txt_tile_type_0,dword[tree1.info_capt_len],ini_ext.def
   cmp byte[txt_tile_type_0],0
   je @f
-    stdcall dword[tl_node_add], txt_tile_type_0, 0, tree1
+    stdcall dword[tl_node_add], tree1, 0, txt_tile_type_0
   jmp @b
 @@:
   mov byte[ini_ext.number],'0' ;áç¨âë¢ ¥¬ ¯ à ¬¥âà ®â ext0 ª®â®àë© ¡ã¤¥â ¢ë¡à  ¢ á¯¨áª¥
   stdcall dword[ini_get_str],file_name,ini_sec,ini_ext,txt_tile_type_0,dword[tree1.info_capt_len],ini_ext.def
   cmp byte[txt_tile_type_0],0
   jne @f
     mov dword[txt_tile_type_0],'.bmp' ;¥á«¨ ¢ *.ini ä ©«¥ ¨ç¥£® ¥â ¤®¡ ¢«ï¥¬ à áè¨à¥¨¥ .bmp
   @@:
-  stdcall dword[tl_node_add], txt_tile_type_0, 0, tree1
+  stdcall dword[tl_node_add], tree1, 0, txt_tile_type_0
 ; init bmp file
   stdcall mem.Alloc, dword RGB_TILE_SIZE+300 ;300 - § ¯ áë¥ ¡ ©âë á ãç¥â®¬ § £®«®¢ª  bmp ä ©«
   mov [tree_sys_icon],eax
   stdcall mem.Alloc, dword TREE_ICON_NOD16_BMP_SIZE
   mov [tree_nod_icon],eax
   copy_path fn_icon1,sys_path,file_name,0x0
-  mov eax,70 ;load icon file
+  copy_path fn_icon1,sys_path,file_name,0
   mov [run_file_70.Function], 0
   mov [run_file_70.Position], 0
   mov [run_file_70.Flags], 0
   mov [run_file_70.Count], TREE_ICON_SYS16_BMP_SIZE
   m2m [run_file_70.Buffer], [tree_sys_icon]
   mov byte[run_file_70+20], 0
-  mov [run_file_70.FileName], file_name
-  mov ebx,run_file_70
+  mov [run_file_70.FileName], file_name
-  int 0x40
+  mcall 70,run_file_70
   cmp ebx,0xffffffff
   je @f
     stdcall dword[img_decode], dword[tree_sys_icon],ebx,0
     m2m dword[tree1.data_img_sys],dword[tree_sys_icon]
     m2m dword[tree2.data_img_sys],dword[tree_sys_icon]
   @@:
   copy_path fn_icon2,sys_path,file_name,0x0
-  mov eax,70 ;load icon file
+  copy_path fn_icon2,sys_path,file_name,0
   mov [run_file_70.Count], TREE_ICON_NOD16_BMP_SIZE
-  m2m [run_file_70.Buffer], [tree_nod_icon]
-  mov ebx,run_file_70
+  m2m [run_file_70.Buffer], [tree_nod_icon]
-  int 0x40
+  mcall 70,run_file_70
   cmp ebx,0xffffffff
   je @f
     stdcall dword[img_decode], dword[tree_nod_icon],ebx,0
-  call but_MetLoad
+	call but_MetLoad
-  call but_Refresh ; Auto Refresh after program start
+	call but_Refresh ; Auto Refresh after program start
 align 4
-still:
-  mov eax,10
+still:
-  mcall
+	mcall 10
-  cmp al,0x1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
+	cmp al,0x1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
-  jz red_win
+	jz red_win
-  cmp al,0x2
+	cmp al,0x2
-  jz key
+	jz key
-  cmp al,0x3
-  jz button
+	cmp al,0x3
-  push dword ch2
+	jz button
-  call [check_box_mouse]
   push dword ch1
-  call [check_box_mouse]
+	stdcall [check_box_mouse],ch2
-  stdcall [edit_box_mouse], edit1
+	stdcall [check_box_mouse],ch1
-  stdcall [edit_box_mouse], edit2
+	stdcall [edit_box_mouse], edit1
 	stdcall [edit_box_mouse], edit2
-  push eax ebx
+	push eax ebx
-  mcall 2
+	mcall 2
-  stdcall [edit_box_key], edit1
+	stdcall [edit_box_key], edit1
-  stdcall [edit_box_key], edit2
+	stdcall [edit_box_key], edit2
-  push dword tree1
-  call [tl_key]
-  push dword tree2
+	stdcall [tl_key],tree1
-  call [tl_key]
+	stdcall [tl_key],tree2
-  mov ebx,dword[el_focus] ;çâ®-¡ë ª àâ  ¥ ¤¢¨£ « áì ¥á«¨ ®ª  treelist ¢ ä®ªãá¥
+	mov ebx,dword[el_focus] ;çâ®-¡ë ª àâ  ¥ ¤¢¨£ « áì ¥á«¨ ®ª  treelist ¢ ä®ªãá¥
-  cmp ebx, dword tree1
+	cmp ebx, dword tree1
 draw_window:
 pushad
   mcall 12,1
-  xor eax,eax
-  mov ebx,20*65536+min_window_w
-  mov ecx,20*65536+min_window_h
+  xor eax,eax
   mov edx,[sc.work]
   or  edx,0x33000000
   mov edi,hed
-  mcall
+  mcall ,20*65536+min_window_w,20*65536+min_window_h
   mcall 9,procinfo,-1
   mov dword[tree1.box_left],edi
   mov dword[tree2.box_left],edi
   mov eax,dword[tree2.box_left] ;¤¢¨£ ¥¬ áªà®««¨£
   add eax,dword[tree2.box_width]
-  mov ebx,dword[tree2.p_scrol]
+  mov ebx,dword[tree2.p_scroll]
   mov word[ebx+2],ax
   mov dword[edit2.left],edi
   add dword[edit2.left],370-otst_panel_left
   stdcall dword[tl_draw],dword tree1
-  stdcall dword[tl_draw],dword tree2
-  mov dword[wScrMetki.all_redraw],1
-  stdcall [scrollbar_ver_draw], dword wScrMetki
-  mov eax,8 ;ª®¯ª
+  stdcall dword[tl_draw],dword tree2
-  mov ebx,145*65536+20
+  mov dword[wScrMetki.all_redraw],1
-  mov ecx,5*65536+25
+  stdcall [scrollbar_ver_draw], dword wScrMetki
-  mov edx,6
-  mov esi,[sc.work_button]
-  int 0x40
-  mov ebx,100*65536+20
+  mov esi,[sc.work_button]
-  mov ecx,5*65536+25
+  mcall 8,145*65536+20,5*65536+25,6 ;ª®¯ª
   mov edx,5
 button:
-  mcall 17 ;¯®«ãç¨âì ª®¤  ¦ â®© ª®¯ª¨
+	mcall 17 ;¯®«ãç¨âì ª®¤  ¦ â®© ª®¯ª¨
-  cmp ah,5
+	cmp ah,5
-  jne @f
+	jne @f
-    call but_ZoomM
+		call but_ZoomM
+		jmp still
-  @@:
+	@@:
-  cmp ah,6
+	cmp ah,6
-  jne @f
+	jne @f
-    call but_ZoomP
+		call but_ZoomP
+		jmp still
-  @@:
+	@@:
-  cmp ah,7
+	cmp ah,7
-  jne @f
+	jne @f
-    call but_Refresh
+		call but_Refresh
+		jmp still
-  @@:
+	@@:
-  cmp ah,9
+	cmp ah,9
-  jz  but_MetSave
+	jz  but_MetSave
-  cmp ah,8
+	cmp ah,8
-  jz  but_MetAdd
+	jz  but_MetAdd
-  cmp ah,10
+	cmp ah,10
+	jne @f
-  jne @f
+		call but_met_up
-    call but_met_up
+		jmp still
-  @@:
+	@@:
-  cmp ah,11
+	cmp ah,11
+	jne @f
-  jne @f
+		call but_met_dn
-    call but_met_dn
+		jmp still
-  @@:
+	@@:
-  cmp ah,12
+	cmp ah,12
+	jne @f
-  jne @f
+		call fun_goto_met
-    call fun_goto_met
+		jmp still
-  @@:
+	@@:
-  cmp ah,13 ;¤¨ «®£ OpenDialog ¤«ï ¯®¨áª  ¯ ¯ª¨
+	cmp ah,13 ;¤¨ «®£ OpenDialog ¤«ï ¯®¨áª  ¯ ¯ª¨
+	jne @f
-  jne @f
+		call fun_opn_dlg
-    call fun_opn_dlg
+		jmp still
-  @@:
+	@@:
-  cmp ah,1
+	cmp ah,1
 ;input:
 ;data_rgb - pointer to rgb data
 ;size - count img pixels (size img data / 3(rgb) )
 align 4
-proc img_rgb_wdiv2 data_rgb:dword, size:dword
-  push eax ebx ecx edx
+proc img_rgb_wdiv2 uses eax ebx ecx edx, data_rgb:dword, size:dword
   mov eax,dword[data_rgb]
   mov ecx,dword[size] ;ecx = size
   imul ecx,3
   @@: ;§ â¥¬¥¨¥ æ¢¥â  ¯¨ªá¥«¥©
     mov byte[eax+2],dl
     add eax,3
     add ebx,6
-    loop @b
-  pop edx ecx ebx eax
+    loop @b
   ret
 endp
 ;input:
 ;data_rgb - pointer to rgb data
 ;size - count img pixels (size img data / 3(rgb) )
 align 4
-proc img_rgb_wmul2, data_rgb:dword, size:dword
-  push eax ebx ecx edx
+proc img_rgb_wmul2 uses eax ebx ecx edx, data_rgb:dword, size:dword
-  ;eax - source
+	;eax - source
-  ;ebx - destination
+	;ebx - destination
-  mov ecx,dword[size] ;ecx = size
+	mov ecx,dword[size] ;ecx = size
-  mov eax,ecx
+	mov eax,ecx
-    mov byte[ebx+2],dl
+		mov byte[ebx+2],dl
-    mov byte[ebx+3+2],dl
+		mov byte[ebx+3+2],dl
-    sub eax,3
+		sub eax,3
-    sub ebx,6
+		sub ebx,6
-    loop @b
+		loop @b
-  pop edx ecx ebx eax
-  ret
+	ret
 endp
 ;äãªæ¨ï ¤«ï à áâï£¨¢ ¨ï ¨§®¡à ¦¥¨ï ¯® ¢ëá®â¥ ¢ 2 à §
 ;input:
 ;data_rgb - pointer to rgb data
 ;size - count img pixels (size img data / 3(rgb) )
 ;size_w - width img in pixels
 align 4
-proc img_rgb_hoffs, data_rgb:dword, size:dword, size_w:dword, hoffs:dword
+proc img_rgb_hoffs uses eax ebx ecx edx esi, data_rgb:dword, size:dword, size_w:dword, hoffs:dword
-  push eax ebx ecx edx esi
-  mov esi,dword[size_w]
+	mov esi,dword[size_w]
-  lea esi,[esi+esi*2] ;esi = width * 3(rgb)
+	lea esi,[esi+esi*2] ;esi = width * 3(rgb)
-  imul esi,dword[hoffs]
+	imul esi,dword[hoffs]
-    mov byte[ebx+2],dl
+		mov byte[ebx+2],dl
-    sub eax,3
+		sub eax,3
-    sub ebx,3
+		sub ebx,3
-    loop @b
-  pop esi edx ecx ebx eax
+		loop @b
-  ret
+	ret
 endp
   popad
   ret
 endp
 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
-proc mem_clear, mem:dword, len:dword
+align 4
-  push eax ecx edi
+proc mem_clear uses eax ecx edi, mem:dword, len:dword
-    cld
+	cld
-    xor al,al
+	xor al,al
-    mov edi, dword[mem]
+	mov edi, dword[mem]
-    mov ecx, dword[len]
-    repne stosb
+	mov ecx, dword[len]
-  pop edi ecx eax
+	repne stosb
-  ret
+	ret
 endp
 tree2 tree_list 32,300, tl_draw_par_line, 16,16,\
 x8080ff,0x0000ff,0xffffff, 265,145,190,85, 0,12,0,\
     el_focus, wScrMetki,fun_goto_met
-align 4
-wScrMetki:
-.x:
-.size_x     dw 16 ;+0
-.start_x    dw 0 ;+2
-.y:
-.size_y     dw 100 ;+4
-.start_y    dw 0 ;+6
-.btn_high   dd 15 ;+8
-.type	    dd 1  ;+12
-.max_area   dd 100  ;+16
-.cur_area   dd 30  ;+20
-.position   dd 0  ;+24
+align 4
-.bckg_col   dd 0xeeeeee ;+28
-.frnt_col   dd 0xbbddff ;+32
-.line_col   dd 0  ;+36
-.redraw     dd 0  ;+40
-.delta	    dw 0  ;+44
-.delta2     dw 0  ;+46
-.run_x:
-.r_size_x   dw 0  ;+48
-.r_start_x  dw 0  ;+50
-.run_y:
-.r_size_y   dw 0 ;+52
-.r_start_y  dw 0 ;+54
-.m_pos	    dd 0 ;+56
-.m_pos_2    dd 0 ;+60
-.m_keys     dd 0 ;+64
-.run_size   dd 0 ;+68
-.position2  dd 0 ;+72
-.work_size  dd 0 ;+76
-.all_redraw dd 0 ;+80
-.ar_offset  dd 1 ;+84
+wScrMetki scrollbar 16,0, 100,0, 15, 100, 30,0, 0xeeeeee, 0xbbddff, 0, 1
 ed_buffer: ;òåêñò äëÿ edit
   .zoom    db 1 ;¬ áèâ ¡
 align 4
-tile_00 rb size_tile_struc * max_tiles_count
 tile_00 rb size_tile_struc * max_tiles_count
-;íâ®â ª®¤ ¥ ¬®©, ® ¯à¥®¡à §ã¥â ç¨á«® ¢ áâà®ªã
 ;input:
+; eax - ç¨á«®
-; eax = value
+; edi - ¡ãä¥à ¤«ï áâà®ª¨
-; edi = string buffer
-;output:
+; len - ¤«¨  ¡ãä¥à
-; edi =
+;output:
 align 4
-tl_convert_to_str:
+proc convert_int_to_str, len:dword
+pushad
+	mov esi,[len]
-  pushad
+	add esi,edi
-    mov dword[edi+1],0;0x20202020
+	dec esi
-    call .str
+	call .str
+popad
-  popad
+	ret
-  ret
+endp
 align 4
-  push edx     ;¯®«®¦¨âì ¢ áâ¥ª
+		push edx  ;¯®«®¦¨âì ¢ áâ¥ª
-  ;dec edi             ;á¬¥é¥¨¥ ¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®æ  áâà®ª¨
+		;dec edi  ;á¬¥é¥¨¥ ¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®æ  áâà®ª¨
-  call .str;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
+		call .str ;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
-  pop eax
+		pop eax
-  @@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
+	@@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
+	cmp edi,esi
+	jge @f
-  or al,0x30  ;¤  ï ª®¬ ¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
+		or al,0x30 ;¤  ï ª®¬ ¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
-  stosb       ;§ ¯¨á âì í«¥¬¥â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
+		stosb	   ;§ ¯¨á âì í«¥¬¥â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
+		mov byte[edi],0 ;¢ ª®¥æ áâà®ª¨ áâ ¢¨¬ 0, çâ®-¡ë ¥ ¢ë« §¨« ¬ãá®à
+	@@:
-  ret	      ;¢¥àãâìáï ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
+	ret	   ;¯®ª  ¢ áâ¥ª¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
-hed db 'Planet viewer 16.01.13',0 ;¯®¤¯¨áì ®ª
+hed db 'Planet viewer 09.11.15',0 ;¯®¤¯¨áì ®ª
-sc system_colors  ;á¨áâ¥¬ë¥ æ¢¥â
 mouse_dd dd 0 ;ã¦® ¤«ï Shift-  ¢ editbox
+sc system_colors  ;á¨áâ¥¬ë¥ æ¢¥â
-i_end:
+mouse_dd dd 0 ;ã¦® ¤«ï Shift-  ¢ editbox
+align 16
-	rb 1024
+i_end:
-	align 16
+	procinfo process_information
-	procinfo process_information
+	rb 1024
 stacktop:
 	sys_path rb 4096

Subversion Repositories Kolibri OS

(root)/programs/other/planet_v/planet_v.asm @ 3175 – Rev 3175 → 5911