WebSVN – Kolibri OS – Diff – /programs/develop/info3ds/info3ds.asm


use32
	org 0x0
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
	dd 0x1
	dd start
	dd i_end ;à §¬¥à ¯à¨«®¦¥­¨ï
	dd mem
	dd stacktop
	dd 0
	dd sys_path
 
include '../../macros.inc'
include '../../proc32.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../dll.inc'
include 'lang.inc'
include 'info_fun_float.inc'
 
debug equ 0
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
		db ?
	FileName dd ?
ends
 
run_file_70 FileInfoBlock
image_data dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì, ­ã¦¥­ ¤«ï ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
open_file_lif dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©« 
 
;
fn_toolbar db 'toolbar.png',0
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7
image_data_toolbar dd 0
;
TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©«  á á¨áâ¥¬­ë¬¨ ¨ª®­ª ¬¨
icon_tl_sys dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨áâ¥¬­ëå ¨ª®­®ª
icon_toolbar dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*8+54 ;à §¬¥à bmp ä ©«  á ¨ª®­ª ¬¨ ®¡ê¥ªâ®¢
;
IMAGE_FILE1_SIZE equ 128*144*3+54 ;à §¬¥à ä ©«  á ¨§®¡à ¦¥­¨¥¬
 
macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥­¨©
	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥­­®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ ­ «¨ áâà®ª®© ¯ à ¬¥âà path
		jmp @f
			local .path_str
			.path_str db path ;ä®à¬¨àã¥¬ «®ª «ì­ãî ¯¥à¥¬¥­­ãî
			db 0
		@@:
		;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨áâ¥¬­ë¬ ¯ãâ¥¬
		copy_path .path_str,[32],file_name,0
	else
		copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	end if
 
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [buf],eax
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword size
	m2m [run_file_70.Buffer], [buf]
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], file_name
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je @f
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_decode], dword[buf],ebx,0
		mov dword[image_data],eax
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_destroy], dword[image_data]
	@@:
}
 
;--------------------------------------
include 'data.inc'
 
level_stack dd 0
offs_last_timer dd 0 ;¯®á«¥¤­¨© á¤¢¨£ ¯®ª § ­ë© ¢ äã­ªæ¨¨ â ©¬¥à 
 
ID_ICON_CHUNK_MAIN equ 0 ;¨ª®­ª  £« ¢­®£® ¡«®ª 
ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®­ª  ­¥ ¨§¢¥áâ­®£® ¡«®ª 
ID_ICON_DATA equ 2 ;¨ª®­ª  ¤«ï ¤ ­­ëå ¡«®ª , ­¥ ®¯à¥¤¥«¥­­®© áâàãªâãàë
 
FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª  ¢ à §¬¥à¥ ¡«®ª 
 
align 4
file_3ds: ;¯¥à¥¬¥­­ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©« 
.offs: dd 0 ;+0 ãª § â¥«ì ­  ­ ç «® ¡«®ª 
.size: dd 0 ;+4 à §¬¥à ¡«®ª  (¤«ï 1-£® ¯ à ¬¥âà  = à §¬¥à ä ©«  3ds)
rb 8*MAX_FILE_LEVEL
 
size_one_list equ 42
list_offs_chunk_del equ 8 ;¬®¦¥â «¨ ¡«®ª ã¤ «ïâáï
list_offs_chunk_lev equ 9 ;ãà®¢¥­ì ¡«®ª  (¯à®¯¨á ­ ¢ ¤ ­­ë¥ ã§« )
list_offs_p_data equ 10 ;ãª § â¥«ì ­  ¯®¤¯¨áì ¡«®ª 
list_offs_text equ 14 ;á¤¢¨£ ­ ç «  â¥ªáâ  ¢ «¨áâ¥
buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥­¨ï áâàãªâãà ¢ á¯¨á®ª tree1
 
txt_3ds_symb db 0,0
;--------------------------------------
 
include 'info_wnd_coords.inc'
 
align 4
start:
	load_libraries l_libs_start,l_libs_end
	;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
	mov ebp,lib_0
	cmp dword [ebp+ll_struc_size-4],0
	jz @f
	mov ebp,lib_1
	cmp dword [ebp+ll_struc_size-4],0
	jz @f
	mov ebp,lib_2
	cmp dword [ebp+ll_struc_size-4],0
	jz @f
	mov ebp,lib_3
	cmp dword [ebp+ll_struc_size-4],0
	jz @f
		mcall -1 ;exit not correct
	@@:
	mcall 48,3,sc,sizeof.system_colors
	mcall 40,0x27
	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
 
	stdcall dword[tl_data_init], tree1
	;á¨áâ¥¬­ë¥ ¨ª®­ª¨ 16*16 ¤«ï tree_list
	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
	;¥á«¨ ¨§®¡à ¦¥­¨¥ ­¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
	;­¥ ¨­¨æ¨ «¨§¨à®¢ ­­ë¥ ¤ ­­ë¥, ­® ®è¨¡ª¨ ­¥ ¡ã¤¥â, â. ª. ¡ãä¥à ­ã¦­®£® à §¬¥à 
	mov eax,dword[icon_tl_sys]
	mov dword[tree1.data_img_sys],eax
 
	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
	mov eax,dword[icon_toolbar]
	mov dword[tree1.data_img],eax
 
	stdcall [buf2d_create], buf_0 ;á®§¤ ­¨¥ ¡ãä¥à 
 
	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®áâ¨ 8 ¡¨â
	stdcall [buf2d_convert_text_matrix], buf_1
 
	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
 
	stdcall mem.Alloc,MAX_FILE_SIZE
	mov dword[open_file_lif],eax
 
	mcall 26,9
	mov [last_time],eax
 
align 4
red_win:
	call draw_window
 
align 4
still:
	mcall 26,9
	mov ebx,[last_time]
	add ebx,10 ;§ ¤¥à¦ª 
	cmp ebx,eax
	jge @f
		mov ebx,eax
	@@:
	sub ebx,eax
	;cmp ebx,10 ;§ ¤¥à¦ª 
	;ja timer_funct
	;test ebx,ebx
	;jz timer_funct
	mcall 23
	cmp eax,0
	je timer_funct
 
	cmp al,1
	jz red_win
	cmp al,2
	jz key
	cmp al,3
	jz button
	cmp al,6
	jne @f
		mcall 9,procinfo,-1
		cmp ax,word[procinfo+4]
		jne @f ;®ª­® ­¥  ªâ¨¢­®
		call mouse
	@@:
	jmp still
 
align 4
mouse:
	stdcall [tl_mouse], dword tree1
	ret
 
align 4
timer_funct:
	pushad
if debug
 
 
	mcall 4, (5 shl 16)+8, 0xff+0x80000000, txt_0002
 
 
end if
	mcall 26,9
	mov [last_time],eax
 
	;
	stdcall [tl_node_get_data],tree1
	pop ebx
	cmp ebx,0
	je @f
		mov eax,dword[ebx] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª  ®â­®á¨â¥«ì­® ­ ç «  ä ©« 
		mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª 
		stdcall hex_in_str, txt_3ds_offs.dig, eax,8
		stdcall hex_in_str, txt_3ds_offs.siz, ecx,8
 
		add eax,dword[open_file_lif] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ ¯ ¬ïâ¨
		cmp dword[offs_last_timer],eax
		je @f
			mov dword[offs_last_timer],eax
			call buf_draw_beg
			stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000
			mov edx,dword[ebx+list_offs_p_data]
			cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ­¨¥ ¡«®ª 
			je .no_info
				stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000
			.no_info:
			add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª 
			stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥­¨¥ 16-à¨ç­ëå ¤ ­­ëå
			stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	@@:
	popad
	jmp still
 
align 4
buf_draw_beg:
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff
	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff
	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦­  ®è¨¡ª  ä ©« 
	jne @f
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000
	@@:
	ret
 
align 4
proc buf_draw_hex_table, offs:dword, size_line:dword
	pushad
	locals
		coord_y dd 55 ;ª®®à¤¨­ â  y ¤«ï ­ ç «  ¢ë¢®¤  â ¡«¨æë
	endl
		mov esi,dword[offs]
		mov edi,dword[open_file_lif]
		add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ­  ª®­¥æ ä ©«  ¢ ¯ ¬ïâ¨
		mov dword[txt_3ds_offs.dig],0
		cld
		.cycle_rows:
			mov ebx,5 ;®âáâã¯ á«¥¢  ¤«ï æ¨äà
			mov edx,5+10*24 ;®âáâã¯ á«¥¢  ¤«ï â¥ªáâ 
			mov ecx,10
			@@:
				stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
 
				mov al,byte[esi]
				mov byte[txt_3ds_symb],al
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
				inc esi
				cmp esi,dword[size_line]
				jne .end_block
					stdcall draw_block_end_line, dword[coord_y]
				.end_block:
				cmp esi,edi
				jge @f ;jg ???
				add ebx,24
				add edx,9 ;è¨à¨­  1-£® á¨¬¢®«  +1pix
				loop @b
			add dword[coord_y],10 ;¢ëá®â  1-£® á¨¬¢®«  (¨«¨ ¨­â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)
			mov ebx,dword[buf_0.h]
			cmp dword[coord_y],ebx
			jl .cycle_rows
		@@:
	popad
	ret
endp
 
align 4
proc draw_block_end_line, coord_y:dword
	push eax ebx ecx
		add ebx,20 ;20 = width 2.5 symbols
		mov eax,[coord_y]
		sub eax,2
		mov ecx,eax
		add ecx,10
		stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
		stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
		stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
	pop ecx ebx eax
	ret
endp
 
align 4
draw_window:
pushad
	mcall 12,1
	xor eax,eax
	mov ebx,(20 shl 16)+560
	mov ecx,(20 shl 16)+315
	mov edx,[sc.work]
	or  edx,(3 shl 24)+0x10000000+0x20000000
	mov edi,capt
	int 0x40
 
	mcall 9,procinfo,-1
	mov eax,dword[procinfo.box.height]
	cmp eax,250
	jge @f
		mov eax,250
	@@:
	sub eax,65
	mov dword[tree1.box_height],eax
	mov word[w_scr_t1+4],ax ;­®¢ë¥ à §¬¥àë áªà®««¨­£ 
	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à 
	jle @f
		stdcall [buf2d_resize],buf_0,0,eax
		mov dword[offs_last_timer],0 ;¤«ï ®¡­®¢«¥­¨ï ¡ãä¥à  ¢ â ©¬¥à¥
	@@:
 
	mov eax,dword[procinfo.box.width]
	cmp eax,400
	jge @f
		mov eax,400
	@@:
	sub eax,[buf_0.w]
	sub eax,41
	mov dword[tree1.box_width],eax
	add ax,word[tree1.box_left]
	mov word[w_scr_t1.start_x],ax
	add ax,16+5
	mov word[buf_0.l],ax
 
	mov eax,8
	mov ebx,(5 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,3
	mov esi,[sc.work_button]
	int 0x40
 
	mov ebx,(30 shl 16)+20
	mov edx,4
	int 0x40
 
	cmp byte[can_save],0
	je @f
		mov ebx,(55 shl 16)+20
		mov edx,5
		int 0x40
	@@:
 
	mov ebx,(85 shl 16)+20
	mov edx,6 ;®ª­® á ª®®à¤¨­ â ¬¨
	int 0x40
 
	mov ebx,(110 shl 16)+20
	mov edx,7 ;ã¤ «¥­¨¥ ¡«®ª 
	int 0x40
 
	mov eax,7
	mov ebx,[image_data_toolbar]
	mov ecx,(16 shl 16)+16
	mov edx,(7 shl 16)+7 ;new
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(32 shl 16)+7 ;open
	int 0x40
 
	cmp byte[can_save],0
	je @f
		add ebx,IMAGE_TOOLBAR_ICON_SIZE
		mov edx,(57 shl 16)+7 ;save
		int 0x40
		sub ebx,IMAGE_TOOLBAR_ICON_SIZE
	@@:
 
	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(87 shl 16)+7
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(112 shl 16)+7
	int 0x40
 
	mov dword[w_scr_t1.all_redraw],1
	stdcall [tl_draw],dword tree1
 
	stdcall [buf2d_draw], buf_0
 
	mcall 12,2
popad
	ret
 
align 4
key:
	mcall 2
	stdcall [tl_key], dword tree1
	jmp still
 
 
align 4
button:
	mcall 17
	cmp ah,3
	jne @f
		call but_new_file
		jmp still
	@@:
	cmp ah,4
	jne @f
		call but_open_file
		jmp still
	@@:
	cmp ah,5
	jne @f
		call but_save_file
		jmp still
	@@:
	cmp ah,6
	jne @f
		call but_wnd_coords
		jmp still
	@@:
	cmp ah,7
	jne @f
		call but_delete_chunk
		jmp still
	@@:
 
	cmp ah,1
	jne still
.exit:
	mov dword[tree1.data_img],0
	mov dword[tree1.data_img_sys],0
	stdcall dword[tl_data_clear], tree1
	stdcall [buf2d_delete],buf_0
	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_toolbar]
	stdcall mem.Free,[open_file_lif]
	mcall -1
 
 
align 4
but_new_file:
	mov byte[can_save],0
	stdcall [tl_info_clear], tree1 ;®ç¨áâª  á¯¨áª  ®¡ê¥ªâ®¢
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [tl_draw], tree1
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	ret
 
align 4
but_open_file:
 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	pushad
	mov [OpenDialog_data.type],0
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_open_file
	;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov dword[run_file_70.Count], MAX_FILE_SIZE
	m2m [run_file_70.Buffer], dword[open_file_lif]
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_open_file
 
	mov [open_file_size],ebx
	;mcall 71,1,openfile_path
 
	mov byte[can_save],0
	call init_tree
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
 
	.end_open_file:
	popad
	ret
 
align 4
init_tree:
	stdcall [tl_info_clear], tree1 ;®ç¨áâª  á¯¨áª  ®¡ê¥ªâ®¢
 
	mov esi,dword[open_file_lif]
	cmp word[esi],CHUNK_MAIN
	je @f
		call buf_draw_beg
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
		jmp .end_open
	@@:
	cmp dword[esi+2],MAX_FILE_SIZE
	jle @f
		call buf_draw_beg
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_big_file,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
		jmp .end_open
	@@:
	;--- ®¡à ¡®âª  ®âªàëâ®£® *.3ds ä ©« 
	mov eax,file_3ds
	mov dword[level_stack],0 ;®¡­ã«ï¥¬ ãà®¢¥­ì áâ¥ª 
	mov dword[offs_last_timer],0
	;--- ¤®¡ ¢«¥­¨¥ £« ¢­®£® ¡«®ª  ¢ á¯¨á®ª
	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0
	call block_children ;¢å®¤ ¢ ¤®ç¥à­¨© ¡«®ª
 
	mov edi,dword[file_3ds.offs]
	add edi,dword[file_3ds.size]
	.cycle_main:
		cmp dword[level_stack],0
		jle .end_cycle
		
		cmp esi,edi ;¥á«¨ ª®­¥æ ä ©« 
		jge .end_cycle
 
		mov edx,dword[esi+2] ;à §¬¥à ¡«®ª 
		call block_analiz
		cmp dword[bl_found],0
		jne @f
			;®¡ê¥ªâ ­¥ ¨§¢¥áâ­®£® ¢¨¤ 
			stdcall add_3ds_object, ID_ICON_CHUNK_NOT_FOUND,dword[level_stack],edx,0
			call block_next
			jmp .cycle_main
		@@:
			;®¡ê¥ªâ ¨§¢¥áâ­®£® ¢¨¤ 
			mov ecx,dword[bl_found]
			mov bx,word[ecx+2] ;­®¬¥à ¨ª®­ª¨ ¤«ï ®¡ê¥ªâ 
			stdcall add_3ds_object, ebx,dword[level_stack],edx,dword[ecx+5]
			cmp byte[ecx+4],1
			je .bl_data
				;¡«®ª á®¤¥à¦¨â ¤®ç¥à­¨¥ ¡«®ª¨
				call block_children ;¢å®¤ ¢ ¤®ç¥à­¨© ¡«®ª
				jmp .cycle_main
			.bl_data:
				;¡«®ª á®¤¥à¦¨â ¤ ­­ë¥
				call block_analiz_data
				jmp .cycle_main
	.end_cycle:
		stdcall [tl_cur_beg], tree1
		stdcall [tl_draw], tree1
	.end_open:
	ret
 
; ­ «¨§ ¤ ­­ëå ¡«®ª 
;input:
; esi - memory pointer
;output:
; eax - new stack pointer
; esi - new memory pointer
align 4
block_analiz_data:
	push ebx ecx edx edi
		mov dx,word[esi]
		mov ecx,dword[esi+2]
		sub ecx,6 ;à §¬¥à ¤ ­­ëå ¢ ¡«®ª¥
		add esi,6
		mov ebx,dword[level_stack]
		inc ebx
		; ***  ­ «¨§ ¡«®ª®¢ á à §­ë¬¨ ¤ ­­ë¬¨ ¨ ¢ë¤¥«¥­¨¥¬ ¯®¤¡«®ª®¢
		cmp dx,CHUNK_OBJBLOCK ;®¡ê¥ªâ
		jne @f
			push ax
				cld
				xor al,al
				mov edi,esi
				repne scasb
			pop ax
			sub edi,esi ;edi - strlen
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;­ §¢ ­¨¥ ®¡ê¥ªâ 
			add esi,edi
			;sub ecx,edi ;ã¦¥ á¤¥« ­® ¢ repne
			jmp .next_bl
		@@:
		cmp dx,CHUNK_VERTLIST ;á¯¨á®ª ¢¥àè¨­
		je .vertexes
		cmp dx,0x4111 ;ä« £¨ ¢¥àè¨­
		je .vertexes
		cmp dx,CHUNK_MAPLIST ;â¥ªáâãà­ë¥ ª®®à¤¨­ âë
		je .vertexes
		jmp @f
		.vertexes: ;®¡à ¡®âª  ¡«®ª®¢, á®¤¥à¦ é¨å ¤ ­­ë¥ ¢¥àè¨­
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® ¢¥àè¨­
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;¤ ­­ë¥ ¢¥àè¨­
			sub esi,8 ;¢®ááâ ­®¢«¥­¨¥ esi
			call block_next
			jmp .end_f		
		@@:
		cmp dx,CHUNK_FACELIST ;á¯¨á®ª £à ­¥©
		jne @f
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® £à ­¥©
			push eax
			xor eax,eax
			mov ax,[esi]
			shl eax,3
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,eax,0 ;¤ ­­ë¥ ¢¥àè¨­
 
			sub ecx,eax
			cmp ecx,1
			jl .data_3 ;¯à®¢¥àï¥¬ ¥áâì «¨ ¡«®ª ®¯¨áë¢ îé¨© ¬ â¥à¨ «, ¯à¨¬¥­ï¥¬ë© ª ®¡ê¥ªâã
				add esi,eax
				pop eax
				jmp .next_bl
				;stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;¤ ­­ë¥ ¬ â¥à¨ « 
				;sub esi,eax ;¢®ááâ ­®¢«¥­¨¥ esi
			.data_3:
 
			sub esi,8 ;¢®ááâ ­®¢«¥­¨¥ esi
			pop eax
			call block_next
			jmp .end_f		
		@@:
		cmp dx,CHUNK_FACEMAT ;¬ â¥à¨ «ë £à ­¥©
		jne @f
			push ax
				cld
				xor al,al
				mov edi,esi
				repne scasb
			pop ax
			sub edi,esi ;edi - strlen
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;­ §¢ ­¨¥ ®¡ê¥ªâ 
			add esi,edi
			;sub ecx,edi ;ã¦¥ á¤¥« ­® ¢ repne
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® £à ­¥©
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;­®¬¥à  £à ­¥©, ª ª®â®àë¬ ¯à¨¬¥­¥­ ¬ â¥à¨ «
			sub esi,edi ;¢®ááâ ­®¢«¥­¨¥ esi (1)
			sub esi,8   ;¢®ááâ ­®¢«¥­¨¥ esi (2)
			call block_next
			jmp .end_f
		@@:
		; ***  ­ «¨§ ¡«®ª  á ¤ ­­ë¬¨ ¯® ã¬®«ç ­¨î (¡¥§ ¢ë¤¥«¥­¨ï ¯®¤¡«®ª®¢)
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0
			sub esi,6 ;¢®ááâ ­®¢«¥­¨¥ esi
			call block_next
			jmp .end_f
		.next_bl:
		; *** ­ áâà®©ª¨ ¤«ï  ­ «¨§  ®áâ ¢è¨åáï ¯®¤¡«®ª®¢
			mov dword[eax],esi ;ãª § â¥«ì ­  ­ ç «® ¡«®ª 
			mov ebx,dword[esi+2]
			mov dword[eax+4],ebx ;à §¬¥à ¡«®ª 
			inc dword[level_stack]
			add eax,8
		.end_f:
	pop edi edx ecx ebx
	ret
 
;¢å®¤ ¢ 1-© ¤®ç¥à­¨© ¡«®ª
;output:
; edx - destroy
align 4
block_children:
	push ecx
		;¯à®¢¥àª  ¯à ¢¨«ì­®áâ¨ à §¬¥à®¢ ¤®ç¥à­¥£® ¡«®ª 
		mov ebx,esi ;á¬¥é¥­¨¥ ­ ç «  à®¤¨â¥«ìáª®£® ¡«®ª 
		add ebx,6 ;¯¥à¥å®¤ ­  ­ ç «® ¤®ç¥à­¥£® ¡«®ª 
		add ebx,dword[ebx+2] ;¤®¡ ¢«ï¥¬ à §¬¥à ¤®ç¥à­¥£® ¡«®ª 
		mov ecx,esi ;á¬¥é¥­¨¥ ­ ç «  à®¤¨â¥«ìáª®£® ¡«®ª 
		add ecx,dword[esi+2] ;¤®¡ ¢«ï¥¬ à §¬¥à à®¤¨â¥«ìáª®£® ¡«®ª 
		cmp ebx,ecx ;ãç¨âë¢ âì § £®«®¢ª¨ ­¥ ­ã¦­®, â. ª. áà ¢­¨¢ îâáï â®«ìª® ¤ ­­ë¥ ¡«®ª®¢
		jle @f
			;¤¨ £­®áâ¨à®¢ «¨ ®è¨¡ªã ä ©« , ¤®ç¥à­¨© ¡«®ª ¢ëå®¤¨â §  ¯à¥¤¥«ë à®¤¨â¥«ìáª®£®
			mov dword[level_stack],FILE_ERROR_CHUNK_SIZE
			jmp .end_f
		@@:
		mov dword[eax],esi ;ãª § â¥«ì ­  ­ ç «® ¡«®ª 
		mov ebx,dword[esi+2]
		mov dword[eax+4],ebx ;à §¬¥à ¡«®ª 
		add esi,6 ;¯¥à¥å®¤¨¬ ª ¤ ­­ë¬ ¡«®ª 
		inc dword[level_stack]
		add eax,8
	.end_f:
	pop ecx
	ret
 
;¯¥à¥å®¤ ª á«¥¤ãé¥¬ã ¡«®ªã â¥ªãé¥£® ãà®¢­ï
;input:
; eax -  ¤à¥á áâàãªâãàë á ¯¥à¥¬¥­­ë¬¨
align 4
block_next:
push ebx
	add esi,dword[esi+2] ;¯à®¯ãáª ¥¬ ¤ ­­ë¥ ¡«®ª 
 
	;¯à®¢¥àª  à §¬¥à®¢ à®¤¨â¥«ìáª®£® ¡«®ª , ¤«ï ¢®§¬®¦­®£® ¢ëå®¤  ­  ¢¥àå­¨© ãà®¢¥­ì ¥á«¨ ª®­¥æ ¡«®ª 
	@@:
	mov ebx,dword[eax-8]
	add ebx,dword[eax-4]
	cmp esi,ebx
	jl @f
		dec dword[level_stack]
		sub eax,8
		cmp dword[level_stack],0
		jg @b
	@@:
pop ebx
	ret
 
;äã­ªæ¨ï ¯®¨áª  áâàãªâãàë ®¯¨áë¢ îé¥© ¡«®ª
;input:
;esi - memory pointer
;output:
;dword[bl_found] - pointer to chunk struct (= 0 if not found)
align 4
bl_found dd 0
block_analiz:
pushad
	mov dword[bl_found],0
	mov ecx,type_bloks
	@@:
		mov bx,word[ecx]
		cmp word[esi],bx
		je .found
		add ecx,sizeof.block_3ds
		cmp ecx,type_bloks.end
		jl @b
	jmp .no_found
	.found:
		mov dword[bl_found],ecx
	.no_found:
popad
	ret
 
;input:
; esi - ãª § â¥«ì ­   ­ «¨§¨àã¥¬ë¥ ¤ ­­ë¥
; level - ãà®¢¥­ì ¢«®¦¥­­®áâ¨ ã§« 
; size_bl - à §¬¥à ¡«®ª 
align 4
proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword
	pushad
		mov bx,word[icon]
		shl ebx,16
		mov bx,word[level]
 
		mov eax,esi
		sub eax,dword[open_file_lif]
		mov dword[buffer],eax ;á¬¥é¥­¨¥ ¡«®ª 
		mov ecx,dword[size_bl]
		mov dword[buffer+4],ecx ;à §¬¥à ¡«®ª  (¨á¯®«ì§ã¥âáï ¢ äã­ªæ¨¨ buf_draw_hex_table ¤«ï à¨á®¢ ­¨ï «¨­¨¨)
		mov ecx,dword[bl_found]
		cmp ecx,0
		je @f
			;... §¤¥áì ­ã¦¥­ ¤àã£®©  «£®à¨â¬ § é¨âë ®â ã¤ «¥­¨ï
			mov cl,byte[ecx+4]
		@@:
		mov byte[buffer+list_offs_chunk_del],cl
		mov ecx,[level]
		mov byte[buffer+list_offs_chunk_lev],cl
		mov ecx,dword[info_bl]
		mov dword[buffer+list_offs_p_data],ecx
		stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2
		stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;ª®¤ 3ds ¡«®ª 
		cmp ecx,0
		jne @f
			mov byte[buffer+list_offs_text+4],0 ;0 - á¨¬¢®« ª®­æ  áâà®ª¨
			jmp .no_capt
		@@:
			mov byte[buffer+list_offs_text+4],' '
			mov esi,ecx
			mov edi,buffer+list_offs_text+5
			mov ecx,size_one_list-(list_offs_text+5)
			cld
			rep movsb
			mov byte[buffer+size_one_list-1],0 ;0 - á¨¬¢®« ª®­¥æ  áâà®ª¨
		.no_capt:
		stdcall [tl_node_add], buffer, ebx, tree1
		stdcall [tl_cur_next], tree1
		if debug
			stdcall print_err,sz_add_3ds_object,buffer+list_offs_text
		end if
	popad
	ret
endp
 
if debug
sz_add_3ds_object db 13,10,'3ds_object',0
 
align 4
proc print_err, fun:dword, mes:dword ;¢ë¢®¤¨¬ á®®¡é¥­¨¥ ®¡ è¨¡ª¥ ­  ¤®áªã ®â« ¤ª¨
	pushad
	mov eax,63
	mov ebx,1
 
	mov esi,[fun]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	mov cl,':'
	int 0x40
	mov cl,' '
	int 0x40
	mov esi,[mes]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	popad
	ret
endp
end if
 
align 4
proc hex_in_str, buf:dword,val:dword,zif:dword
	pushad
		mov edi,dword[buf]
		mov ecx,dword[zif]
		add edi,ecx
		dec edi
		mov ebx,dword[val]
 
		.cycle:
			mov al,bl
			and al,0xf
			cmp al,10
			jl @f
				add al,'a'-'0'-10
			@@:
			add al,'0'
			mov byte[edi],al
			dec edi
			shr ebx,4
		loop .cycle
 
	popad
	ret
endp
 
align 4
but_save_file:
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	mov [OpenDialog_data.type],1
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_save_file
	;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 2
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov ebx, dword[open_file_lif]
	mov [run_file_70.Buffer], ebx
	mov ebx,dword[ebx+2]
	mov dword[run_file_70.Count], ebx ;à §¬¥à ä ©« 
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_save_file
 
	.end_save_file:
	popad
	ret
 
align 4
but_wnd_coords:
	cmp byte[prop_wnd_run],0
	jne @f
		pushad
		mcall 51,1,prop_start,thread_coords
		popad
	@@:
	ret
 
;description:
; ã¤ «¥­¨¥ ¢ë¡à ­­®£® ¡«®ª  ¨§ ®âªàëâ®£® ä ©« 
align 4
but_delete_chunk:
	pushad
	stdcall [tl_node_get_data],tree1
	pop ebx
	cmp ebx,0
	je .end_f
	cmp byte[ebx+list_offs_chunk_del],0 ;¥á«¨ ¡«®ª § é¨é¥­ ®â ã¤ «¥­¨ï
	jne .notify
 
	;(1) ª®¯¨à®¢ ­¨¥ ­¨¦­¥© ç áâ¨ ä ©« 
	mov edx,dword[ebx+4] ;à §¬¥à ¡«®ª 
	sub [open_file_size],edx ;¨§¬¥­¥­¨¥ à §¬¥à®¢ ä ©« 
	mov ecx,[open_file_size]
	mov eax,dword[ebx] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª  ®â­®á¨â¥«ì­® ­ ç «  ä ©« 
	sub ecx,eax ;ecx - à §¬¥à ­¨¦­¥© á¤¢¨£ ¥¬®© ç áâ¨ ä ©« 
	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ ¯ ¬ïâ¨
	mov edi,eax
	mov esi,eax
	add esi,edx
	mov al,byte[ebx+list_offs_chunk_lev] ;¡¥à¥¬ ãà®¢¥­ì â¥ªãé¥£® ã§« 
	rep movsb
	mov byte[can_save],1
 
	;(2) ¨§¬¥­¥­¨¥ à §¬¥à®¢ à®¤¨â¥«ìáª¨å ¡«®ª®¢
	cmp al,0
	je .end_2
	.cycle_2:
	stdcall [tl_cur_perv], tree1
	stdcall [tl_node_get_data],tree1
	pop ebx
	cmp ebx,0
	je .end_2
		cmp byte[ebx+list_offs_chunk_lev],al
		jge .cycle_2
		mov al,byte[ebx+list_offs_chunk_lev]
		mov ecx,[ebx]
		add ecx,[open_file_lif]
		sub dword[ecx+2],edx
		cmp al,0 ;¥á«¨ á ¬ë© ¢¥àå­¨© ã§¥«, â® al=0
		jne .cycle_2
	.end_2:
	
	;(3) ®¡­®¢«¥­¨¥ á¯¨áª  tree1
	call init_tree
	call draw_window
 
	jmp .end_f
	.notify:
	notify_window_run txt_not_delete
	.end_f:
	popad
	ret
 
;input:
; buf - ãª § â¥«ì ­  áâà®ªã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
;output:
; eax - ç¨á«®
align 4
proc conv_str_to_int uses ebx ecx esi, buf:dword
	xor eax,eax
 
	xor ebx,ebx
	mov esi,[buf]
	;®¯à¥¤¥«¥­¨¥ ®âà¨æ â¥«ì­ëå ç¨á¥«
	xor ecx,ecx
	inc ecx
	cmp byte[esi],'-'
	jne @f
		dec ecx
		inc esi
	@@:
 
	cmp word[esi],'0x'
	je .load_digit_16
 
	.load_digit_10: ;áç¨âë¢ ­¨¥ 10-â¨ç­ëå æ¨äà
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'9'
		jg @f
			sub bl,'0'
			imul eax,10
			add eax,ebx
			inc esi
			jmp .load_digit_10
	jmp @f
 
	.load_digit_16: ;áç¨âë¢ ­¨¥ 16-à¨ç­ëå æ¨äà
		add esi,2
	.cycle_16:
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'f'
		jg @f
		cmp bl,'9'
		jle .us1
			cmp bl,'A'
			jl @f ;®âá¥¨¢ ¥¬ á¨¬¢®«ë >'9' ¨ <'A'
		.us1: ;á®áâ ¢­®¥ ãá«®¢¨¥
		cmp bl,'F'
		jle .us2
			cmp bl,'a'
			jl @f ;®âá¥¨¢ ¥¬ á¨¬¢®«ë >'F' ¨ <'a'
			sub bl,32 ;¯¥à¥¢®¤¨¬ á¨¬¢®«ë ¢ ¢¥àå­¨© à¥£¨áâà, ¤«ï ã¯à®é¥­¨ï ¨å ¯®á«¥¤ãé¥© ®¡à ¡®âª¨
		.us2: ;á®áâ ¢­®¥ ãá«®¢¨¥
			sub bl,'0'
			cmp bl,9
			jle .cor1
				sub bl,7 ;convert 'A' to '10'
			.cor1:
			shl eax,4
			add eax,ebx
			inc esi
			jmp .cycle_16
	@@:
	cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
	jne @f
		sub ecx,eax
		mov eax,ecx
	@@:
 
	ret
endp
 
;¤ ­­ë¥ ¤«ï ¤¨ «®£  ®âªàëâ¨ï ä ©«®¢
align 4
OpenDialog_data:
.type			dd 0 ;0 - ®âªàëâì, 1 - á®åà ­¨âì, 2 - ¢ë¡à âì ¤âà¥ªâ®à¨î
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_path		dd plugin_path	;+16
.dir_default_path	dd default_dir ;+20
.start_path		dd file_name ;+24 ¯ãâì ª ¤¨ «®£ã ®âªàëâ¨ï ä ©«®¢
.draw_window		dd draw_window	;+28
.status 		dd 0	;+32
.openfile_path		dd openfile_path	;+36 ¯ãâì ª ®âªàë¢ ¥¬®¬ã ä ©«ã
.filename_area		dd filename_area	;+40
.filter_area		dd Filter
.x:
.x_size 		dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size 		dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
default_dir db '/rd/1',0
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_name:
	db 'opendial',0
communication_area_default_path:
	db '/rd/1/File managers/',0
 
Filter:
dd Filter.end - Filter.1
.1:
db '3DS',0
db 'TXT',0
.end:
db 0
 
 
 
head_f_i:
head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0
 
system_dir_0 db '/sys/lib/'
lib_name_0 db 'proc_lib.obj',0
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
err_message_import_0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 
system_dir_1 db '/sys/lib/'
lib_name_1 db 'libimg.obj',0
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
err_message_import_1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 
system_dir_2 db '/sys/lib/'
lib_name_2 db 'box_lib.obj',0
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
err_msg_import_2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0
 
system_dir_3 db '/sys/lib/'
lib_name_3 db 'buf2d.obj',0
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
err_msg_import_3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 
l_libs_start:
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
		err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i
	lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
		err_msg_found_lib_2,head_f_l,import_box_lib,err_msg_import_2,head_f_i
	lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\
		err_msg_found_lib_3,head_f_l,import_buf2d,err_msg_import_3,head_f_i
l_libs_end:
 
align 4
import_libimg:
	dd alib_init1
	img_is_img  dd aimg_is_img
	img_info    dd aimg_info
	img_from_file dd aimg_from_file
	img_to_file dd aimg_to_file
	img_from_rgb dd aimg_from_rgb
	img_to_rgb  dd aimg_to_rgb
	img_to_rgb2 dd aimg_to_rgb2
	img_decode  dd aimg_decode
	img_encode  dd aimg_encode
	img_create  dd aimg_create
	img_destroy dd aimg_destroy
	img_destroy_layer dd aimg_destroy_layer
	img_count   dd aimg_count
	img_lock_bits dd aimg_lock_bits
	img_unlock_bits dd aimg_unlock_bits
	img_flip    dd aimg_flip
	img_flip_layer dd aimg_flip_layer
	img_rotate  dd aimg_rotate
	img_rotate_layer dd aimg_rotate_layer
	img_draw    dd aimg_draw
 
	dd 0,0
	alib_init1   db 'lib_init',0
	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ­­ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ­¨å ¨§®¡à ¦¥­¨¥
	aimg_info    db 'img_info',0
	aimg_from_file db 'img_from_file',0
	aimg_to_file db 'img_to_file',0
	aimg_from_rgb db 'img_from_rgb',0
	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ­¨¥ ¨§®¡à ¦¥­¨ï ¢ ¤ ­­ë¥ RGB
	aimg_to_rgb2 db 'img_to_rgb2',0
	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ­­ëå
	aimg_encode  db 'img_encode',0
	aimg_create  db 'img_create',0
	aimg_destroy db 'img_destroy',0
	aimg_destroy_layer db 'img_destroy_layer',0
	aimg_count   db 'img_count',0
	aimg_lock_bits db 'img_lock_bits',0
	aimg_unlock_bits db 'img_unlock_bits',0
	aimg_flip    db 'img_flip',0
	aimg_flip_layer db 'img_flip_layer',0
	aimg_rotate  db 'img_rotate',0
	aimg_rotate_layer db 'img_rotate_layer',0
	aimg_draw    db 'img_draw',0
 
align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨àã¥¬ëå äã­ªæ¨©
	OpenDialog_Init dd aOpenDialog_Init
	OpenDialog_Start dd aOpenDialog_Start
dd 0,0
	aOpenDialog_Init db 'OpenDialog_init',0
	aOpenDialog_Start db 'OpenDialog_start',0
 
align 4
import_buf2d:
	dd sz_init0
	buf2d_create dd sz_buf2d_create
	buf2d_create_f_img dd sz_buf2d_create_f_img
	buf2d_clear dd sz_buf2d_clear
	buf2d_draw dd sz_buf2d_draw
	buf2d_delete dd sz_buf2d_delete
	buf2d_resize dd sz_buf2d_resize
	buf2d_line dd sz_buf2d_line
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
	buf2d_circle dd sz_buf2d_circle
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
	buf2d_bit_blt dd sz_buf2d_bit_blt
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
	buf2d_curve_bezier dd sz_buf2d_curve_bezier
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
	buf2d_draw_text dd sz_buf2d_draw_text
	buf2d_crop_color dd sz_buf2d_crop_color
	buf2d_offset_h dd sz_buf2d_offset_h
	buf2d_flood_fill dd sz_buf2d_flood_fill
	buf2d_set_pixel dd sz_buf2d_set_pixel
	dd 0,0
	sz_init0 db 'lib_init',0
	sz_buf2d_create db 'buf2d_create',0
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
	sz_buf2d_clear db 'buf2d_clear',0
	sz_buf2d_draw db 'buf2d_draw',0
	sz_buf2d_delete db 'buf2d_delete',0
	sz_buf2d_resize db 'buf2d_resize',0
	sz_buf2d_line db 'buf2d_line',0
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
	sz_buf2d_circle db 'buf2d_circle',0
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
	sz_buf2d_draw_text db 'buf2d_draw_text',0
	sz_buf2d_crop_color db 'buf2d_crop_color',0
	sz_buf2d_offset_h db 'buf2d_offset_h',0
	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
 
align 4
import_box_lib:
	dd sz_init1
	init_checkbox dd sz_init_checkbox
	check_box_draw dd sz_check_box_draw
	edit_box_draw dd sz_edit_box_draw
	edit_box_key dd sz_edit_box_key
	edit_box_mouse dd sz_edit_box_mouse
	edit_box_set_text dd sz_edit_box_set_text
	scrollbar_ver_draw dd sz_scrollbar_ver_draw
	scrollbar_hor_draw dd sz_scrollbar_hor_draw
 
	tl_data_init dd sz_tl_data_init
	tl_data_clear dd sz_tl_data_clear
	tl_info_clear dd sz_tl_info_clear
	tl_key dd sz_tl_key
	tl_mouse dd sz_tl_mouse
	tl_draw dd sz_tl_draw
	tl_info_undo dd sz_tl_info_undo
	tl_info_redo dd sz_tl_info_redo
	tl_node_add dd sz_tl_node_add
	tl_node_set_data dd sz_tl_node_set_data
	tl_node_get_data dd sz_tl_node_get_data
	tl_node_delete dd sz_tl_node_delete
	tl_node_move_up dd sz_tl_node_move_up
	tl_node_move_down dd sz_tl_node_move_down
	tl_cur_beg dd sz_tl_cur_beg
	tl_cur_next dd sz_tl_cur_next
	tl_cur_perv dd sz_tl_cur_perv
	tl_node_close_open dd sz_tl_node_close_open
	tl_node_lev_inc dd sz_tl_node_lev_inc
	tl_node_lev_dec dd sz_tl_node_lev_dec
	tl_node_poi_get_info dd sz_tl_node_poi_get_info
	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
	tl_node_poi_get_data dd sz_tl_node_poi_get_data
 
	dd 0,0
	sz_init1 db 'lib_init',0
	sz_init_checkbox db 'init_checkbox2',0
	sz_check_box_draw db 'check_box_draw2',0
	sz_edit_box_draw db 'edit_box',0
	sz_edit_box_key db 'edit_box_key',0
	sz_edit_box_mouse db 'edit_box_mouse',0
	sz_edit_box_set_text db 'edit_box_set_text',0
	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
 
	sz_tl_data_init db 'tl_data_init',0
	sz_tl_data_clear db 'tl_data_clear',0
	sz_tl_info_clear db 'tl_info_clear',0
	sz_tl_key db 'tl_key',0
	sz_tl_mouse db 'tl_mouse',0
	sz_tl_draw db 'tl_draw',0
	sz_tl_info_undo db 'tl_info_undo',0
	sz_tl_info_redo db 'tl_info_redo',0
	sz_tl_node_add db 'tl_node_add',0
	sz_tl_node_set_data db 'tl_node_set_data',0
	sz_tl_node_get_data db 'tl_node_get_data',0
	sz_tl_node_delete db 'tl_node_delete',0
	sz_tl_node_move_up db 'tl_node_move_up',0
	sz_tl_node_move_down db 'tl_node_move_down',0
	sz_tl_cur_beg db 'tl_cur_beg',0
	sz_tl_cur_next db 'tl_cur_next',0
	sz_tl_cur_perv db 'tl_cur_perv',0
	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
	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
 
 
 
mouse_dd dd 0x0
sc system_colors 
last_time dd 0
 
align 16
procinfo process_information 
 
align 4
buf_0: dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
.l: dw 205 ;+4 left
.t: dw 35 ;+6 top
.w: dd 340 ;+8 w
.h: dd 250 ;+12 h
.color: dd 0xffffd0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_1:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 25 ;+4 left
	dw 25 ;+6 top
	dd 128 ;+8 w
	dd 144 ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
el_focus dd tree1
tree1 tree_list size_one_list,300+2, tl_key_no_edit+tl_draw_par_line,\
	16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,35,195-16,250, 16,list_offs_text,0, el_focus,\
	w_scr_t1,0
 
align 4
w_scr_t1:
.size_x     dw 16 ;+0
.start_x    dw 0
rb 2+2
.btn_high   dd 15 ;+8
.type	    dd 1  ;+12
.max_area   dd 100  ;+16
rb 4+4
.bckg_col   dd 0xeeeeee ;+28
.frnt_col   dd 0xbbddff ;+32
.line_col   dd 0  ;+36
rb 4+2+2
.run_x:
rb 2+2+2+2+4+4+4+4+4+4
.all_redraw dd 0 ;+80
.ar_offset  dd 1 ;+84
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
align 4
i_end:
	rb 1024
thread_coords:
	rb 1024
stacktop:
	sys_path rb 1024
	file_name:
		rb 4096 
	library_path rb 1024
	plugin_path rb 4096
	openfile_path rb 4096
	filename_area rb 256
mem:
>
>

Rev 4332	Rev 5881
1	use32	1	use32
2	org 0x0	2	org 0x0
3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
4	dd 0x1	4	dd 0x1
5	dd start	5	dd start
6	dd i_end ;à §¬¥à ¯à¨«®¦¥¨ï	6	dd i_end ;à §¬¥à ¯à¨«®¦¥¨ï
7	dd mem	7	dd mem
8	dd stacktop	8	dd stacktop
9	dd 0	9	dd 0
10	dd sys_path	10	dd sys_path
11		11
12	include '../../macros.inc'	12	include '../../macros.inc'
13	include '../../proc32.inc'	13	include '../../proc32.inc'
14	include '../../develop/libraries/box_lib/load_lib.mac'	14	include '../../develop/libraries/box_lib/load_lib.mac'
15	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	15	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
16	include '../../dll.inc'	16	include '../../dll.inc'
17	include 'lang.inc'	17	include 'lang.inc'
18	include 'info_fun_float.inc'	18	include 'info_fun_float.inc'
19		19
20	debug equ 0	20	debug equ 0
21		21
22	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	22	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
23		23
24	struct FileInfoBlock	24	struct FileInfoBlock
25	Function dd ?	25	Function dd ?
26	Position dd ?	26	Position dd ?
27	Flags dd ?	27	Flags dd ?
28	Count dd ?	28	Count dd ?
29	Buffer dd ?	29	Buffer dd ?
30	db ?	30	db ?
31	FileName dd ?	31	FileName dd ?
32	ends	32	ends
33		33
34	run_file_70 FileInfoBlock	34	run_file_70 FileInfoBlock
35	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	35	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì, ã¦¥ ¤«ï ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
36	open_file_lif dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds	36	open_file_lif dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
37	open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©«	37	open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©«
38		38
39	;	39	;
40	fn_toolbar db 'toolbar.png',0	40	fn_toolbar db 'toolbar.png',0
41	IMAGE_TOOLBAR_ICON_SIZE equ 16163	41	IMAGE_TOOLBAR_ICON_SIZE equ 16163
42	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7	42	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7
43	image_data_toolbar dd 0	43	image_data_toolbar dd 0
44	;	44	;
45	TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨	45	TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨
46	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª	46	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
47	icon_toolbar dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢	47	icon_toolbar dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢
48	TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*8+54 ;à §¬¥à bmp ä ©« á ¨ª®ª ¬¨ ®¡ê¥ªâ®¢	48	TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*8+54 ;à §¬¥à bmp ä ©« á ¨ª®ª ¬¨ ®¡ê¥ªâ®¢
49	;	49	;
50	IMAGE_FILE1_SIZE equ 1281443+54 ;à §¬¥à ä ©« á ¨§®¡à ¦¥¨¥¬	50	IMAGE_FILE1_SIZE equ 1281443+54 ;à §¬¥à ä ©« á ¨§®¡à ¦¥¨¥¬
51		51
52	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	52	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
53	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	53	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
54	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	54	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
55	jmp @f	55	jmp @f
56	local .path_str	56	local .path_str
57	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	57	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
58	db 0	58	db 0
59	@@:	59	@@:
60	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	60	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
61	copy_path .path_str,[32],file_name,0x0	61	copy_path .path_str,[32],file_name,0
62	else	62	else
63	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	63	copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
64	end if	64	end if
65		65
66	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	66	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
67	mov [buf],eax	67	mov [buf],eax
68		68
69	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	69	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
70	mov [run_file_70.Function], 0	70	mov [run_file_70.Function], 0
71	mov [run_file_70.Position], 0	71	mov [run_file_70.Position], 0
72	mov [run_file_70.Flags], 0	72	mov [run_file_70.Flags], 0
73	mov [run_file_70.Count], dword size	73	mov [run_file_70.Count], dword size
74	m2m [run_file_70.Buffer], [buf]	74	m2m [run_file_70.Buffer], [buf]
75	mov byte[run_file_70+20], 0	75	mov byte[run_file_70+20], 0
76	mov [run_file_70.FileName], file_name	76	mov [run_file_70.FileName], file_name
77	mov ebx,run_file_70	77	mov ebx,run_file_70
78	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	78	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
79	cmp ebx,0xffffffff	79	cmp ebx,0xffffffff
80	je @f	80	je @f
81	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	81	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
82	stdcall dword[img_decode], dword[buf],ebx,0	82	stdcall dword[img_decode], dword[buf],ebx,0
83	mov dword[image_data],eax	83	mov dword[image_data],eax
84	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	84	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
85	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	85	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
86	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	86	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
87	stdcall dword[img_destroy], dword[image_data]	87	stdcall dword[img_destroy], dword[image_data]
88	@@:	88	@@:
89	}	89	}
90		90
91	;--------------------------------------	91	;--------------------------------------
92	include 'data.inc'	92	include 'data.inc'
93		93
94	level_stack dd 0	94	level_stack dd 0
95	offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à	95	offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à
96		96
97	ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª £« ¢®£® ¡«®ª	97	ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª £« ¢®£® ¡«®ª
98	ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª ¥ ¨§¢¥áâ®£® ¡«®ª	98	ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª ¥ ¨§¢¥áâ®£® ¡«®ª
99	ID_ICON_DATA equ 2 ;¨ª®ª ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë	99	ID_ICON_DATA equ 2 ;¨ª®ª ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë
100		100
101	FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª ¢ à §¬¥à¥ ¡«®ª	101	FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª ¢ à §¬¥à¥ ¡«®ª
102		102
103	align 4	103	align 4
104	file_3ds: ;¯¥à¥¬¥ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©«	104	file_3ds: ;¯¥à¥¬¥ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©«
105	.offs: dd 0 ;+0 ãª § â¥«ì ç «® ¡«®ª	105	.offs: dd 0 ;+0 ãª § â¥«ì ç «® ¡«®ª
106	.size: dd 0 ;+4 à §¬¥à ¡«®ª (¤«ï 1-£® ¯ à ¬¥âà = à §¬¥à ä ©« 3ds)	106	.size: dd 0 ;+4 à §¬¥à ¡«®ª (¤«ï 1-£® ¯ à ¬¥âà = à §¬¥à ä ©« 3ds)
107	rb 8*MAX_FILE_LEVEL	107	rb 8*MAX_FILE_LEVEL
108		108
109	size_one_list equ 42	109	size_one_list equ 42
110	list_offs_chunk_del equ 8 ;¬®¦¥â «¨ ¡«®ª ã¤ «ïâáï	110	list_offs_chunk_del equ 8 ;¬®¦¥â «¨ ¡«®ª ã¤ «ïâáï
111	list_offs_chunk_lev equ 9 ;ãà®¢¥ì ¡«®ª (¯à®¯¨á ¢ ¤ ë¥ ã§« )	111	list_offs_chunk_lev equ 9 ;ãà®¢¥ì ¡«®ª (¯à®¯¨á ¢ ¤ ë¥ ã§« )
112	list_offs_p_data equ 10 ;ãª § â¥«ì ¯®¤¯¨áì ¡«®ª	112	list_offs_p_data equ 10 ;ãª § â¥«ì ¯®¤¯¨áì ¡«®ª
113	list_offs_text equ 14 ;á¤¢¨£ ç « â¥ªáâ ¢ «¨áâ¥	113	list_offs_text equ 14 ;á¤¢¨£ ç « â¥ªáâ ¢ «¨áâ¥
114	buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥¨ï áâàãªâãà ¢ á¯¨á®ª tree1	114	buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥¨ï áâàãªâãà ¢ á¯¨á®ª tree1
115		115
116	txt_3ds_symb db 0,0	116	txt_3ds_symb db 0,0
117	;--------------------------------------	117	;--------------------------------------
118		118
119	include 'info_wnd_coords.inc'	119	include 'info_wnd_coords.inc'
120		120
121	align 4	121	align 4
122	start:	122	start:
123	load_libraries l_libs_start,l_libs_end	123	load_libraries l_libs_start,l_libs_end
124	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è «¨¡	124	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
-		125	mov ebp,lib_0
-		126	cmp dword [ebp+ll_struc_size-4],0
-		127	jz @f
-		128	mov ebp,lib_1
-		129	cmp dword [ebp+ll_struc_size-4],0
-		130	jz @f
-		131	mov ebp,lib_2
-		132	cmp dword [ebp+ll_struc_size-4],0
-		133	jz @f
125	mov ebp,lib_7	134	mov ebp,lib_3
126	cmp dword [ebp+ll_struc_size-4],0	135	cmp dword [ebp+ll_struc_size-4],0
127	jz @f	136	jz @f
128	mcall -1 ;exit not correct	137	mcall -1 ;exit not correct
129	@@:	138	@@:
130	mcall 48,3,sc,sizeof.system_colors	139	mcall 48,3,sc,sizeof.system_colors
131	mcall 40,0x27	140	mcall 40,0x27
132	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£	141	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£
133		142
134	stdcall dword[tl_data_init], tree1	143	stdcall dword[tl_data_init], tree1
135	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list	144	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list
136	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE	145	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
137	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ	146	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
138	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à	147	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à
139	mov eax,dword[icon_tl_sys]	148	mov eax,dword[icon_tl_sys]
140	mov dword[tree1.data_img_sys],eax	149	mov dword[tree1.data_img_sys],eax
141		150
142	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE	151	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
143	mov eax,dword[icon_toolbar]	152	mov eax,dword[icon_toolbar]
144	mov dword[tree1.data_img],eax	153	mov dword[tree1.data_img],eax
145		154
146	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à	155	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à
147		156
148	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE	157	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
149	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à	158	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
150	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	159	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
151	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â	160	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
152	stdcall [buf2d_convert_text_matrix], buf_1	161	stdcall [buf2d_convert_text_matrix], buf_1
153		162
154	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE	163	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
155		164
156	stdcall mem.Alloc,MAX_FILE_SIZE	165	stdcall mem.Alloc,MAX_FILE_SIZE
157	mov dword[open_file_lif],eax	166	mov dword[open_file_lif],eax
158		167
159	mcall 26,9	168	mcall 26,9
160	mov [last_time],eax	169	mov [last_time],eax
161		170
162	align 4	171	align 4
163	red_win:	172	red_win:
164	call draw_window	173	call draw_window
165		174
166	align 4	175	align 4
167	still:	176	still:
168	mcall 26,9	177	mcall 26,9
169	mov ebx,[last_time]	178	mov ebx,[last_time]
170	add ebx,10 ;§ ¤¥à¦ª	179	add ebx,10 ;§ ¤¥à¦ª
171	cmp ebx,eax	180	cmp ebx,eax
172	jge @f	181	jge @f
173	mov ebx,eax	182	mov ebx,eax
174	@@:	183	@@:
175	sub ebx,eax	184	sub ebx,eax
176	;cmp ebx,10 ;§ ¤¥à¦ª	185	;cmp ebx,10 ;§ ¤¥à¦ª
177	;ja timer_funct	186	;ja timer_funct
178	;test ebx,ebx	187	;test ebx,ebx
179	;jz timer_funct	188	;jz timer_funct
180	mcall 23	189	mcall 23
181	cmp eax,0	190	cmp eax,0
182	je timer_funct	191	je timer_funct
183		192
184	cmp al,1	193	cmp al,1
185	jz red_win	194	jz red_win
186	cmp al,2	195	cmp al,2
187	jz key	196	jz key
188	cmp al,3	197	cmp al,3
189	jz button	198	jz button
190	cmp al,6	199	cmp al,6
191	jne @f	200	jne @f
192	mcall 9,procinfo,-1	201	mcall 9,procinfo,-1
193	cmp ax,word[procinfo+4]	202	cmp ax,word[procinfo+4]
194	jne @f ;®ª® ¥ ªâ¨¢®	203	jne @f ;®ª® ¥ ªâ¨¢®
195	call mouse	204	call mouse
196	@@:	205	@@:
197	jmp still	206	jmp still
198		207
199	align 4	208	align 4
200	mouse:	209	mouse:
201	stdcall [tl_mouse], dword tree1	210	stdcall [tl_mouse], dword tree1
202	ret	211	ret
203		212
204	align 4	213	align 4
205	timer_funct:	214	timer_funct:
206	pushad	215	pushad
207	if debug	216	if debug
208	mov eax,4	-
209	mov ebx,(5 shl 16)+8	-
210	mov ecx,0xff+0x80000000	217	mcall 4, (5 shl 16)+8, 0xff+0x80000000, txt_0002
211	mov edx,txt_0002	-
212	int 0x40	-
213	end if	218	end if
214	mcall 26,9	219	mcall 26,9
215	mov [last_time],eax	220	mov [last_time],eax
216		221
217	;	222	;
218	stdcall [tl_node_get_data],tree1	223	stdcall [tl_node_get_data],tree1
219	pop ebx	224	pop ebx
220	cmp ebx,0	225	cmp ebx,0
221	je @f	226	je @f
222	mov eax,dword[ebx] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«	227	mov eax,dword[ebx] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«
223	mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª	228	mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª
224	stdcall hex_in_str, txt_3ds_offs.dig, eax,8	229	stdcall hex_in_str, txt_3ds_offs.dig, eax,8
225	stdcall hex_in_str, txt_3ds_offs.siz, ecx,8	230	stdcall hex_in_str, txt_3ds_offs.siz, ecx,8
226		231
227	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ ¯ ¬ïâ¨	232	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ ¯ ¬ïâ¨
228	cmp dword[offs_last_timer],eax	233	cmp dword[offs_last_timer],eax
229	je @f	234	je @f
230	mov dword[offs_last_timer],eax	235	mov dword[offs_last_timer],eax
231	call buf_draw_beg	236	call buf_draw_beg
232	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000	237	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000
233	mov edx,dword[ebx+list_offs_p_data]	238	mov edx,dword[ebx+list_offs_p_data]
234	cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ¨¥ ¡«®ª	239	cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ¨¥ ¡«®ª
235	je .no_info	240	je .no_info
236	stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000	241	stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000
237	.no_info:	242	.no_info:
238	add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª	243	add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª
239	stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥¨¥ 16-à¨çëå ¤ ëå	244	stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥¨¥ 16-à¨çëå ¤ ëå
240	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥	245	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥
241	@@:	246	@@:
242	popad	247	popad
243	jmp still	248	jmp still
244		249
245	align 4	250	align 4
246	buf_draw_beg:	251	buf_draw_beg:
247	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	252	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
248	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff	253	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff
249	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff	254	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff
250	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«	255	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«
251	jne @f	256	jne @f
252	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000	257	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000
253	@@:	258	@@:
254	ret	259	ret
255		260
256	align 4	261	align 4
257	proc buf_draw_hex_table, offs:dword, size_line:dword	262	proc buf_draw_hex_table, offs:dword, size_line:dword
258	pushad	263	pushad
259	locals	264	locals
260	coord_y dd 55 ;ª®®à¤¨ â y ¤«ï ç « ¢ë¢®¤ â ¡«¨æë	265	coord_y dd 55 ;ª®®à¤¨ â y ¤«ï ç « ¢ë¢®¤ â ¡«¨æë
261	endl	266	endl
262	mov esi,dword[offs]	267	mov esi,dword[offs]
263	mov edi,dword[open_file_lif]	268	mov edi,dword[open_file_lif]
264	add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ª®¥æ ä ©« ¢ ¯ ¬ïâ¨	269	add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ª®¥æ ä ©« ¢ ¯ ¬ïâ¨
265	mov dword[txt_3ds_offs.dig],0	270	mov dword[txt_3ds_offs.dig],0
266	cld	271	cld
267	.cycle_rows:	272	.cycle_rows:
268	mov ebx,5 ;®âáâã¯ á«¥¢ ¤«ï æ¨äà	273	mov ebx,5 ;®âáâã¯ á«¥¢ ¤«ï æ¨äà
269	mov edx,5+10*24 ;®âáâã¯ á«¥¢ ¤«ï â¥ªáâ	274	mov edx,5+10*24 ;®âáâã¯ á«¥¢ ¤«ï â¥ªáâ
270	mov ecx,10	275	mov ecx,10
271	@@:	276	@@:
272	stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2	277	stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
273	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0	278	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
274		279
275	mov al,byte[esi]	280	mov al,byte[esi]
276	mov byte[txt_3ds_symb],al	281	mov byte[txt_3ds_symb],al
277	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080	282	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
278	inc esi	283	inc esi
279	cmp esi,dword[size_line]	284	cmp esi,dword[size_line]
280	jne .end_block	285	jne .end_block
281	stdcall draw_block_end_line, dword[coord_y]	286	stdcall draw_block_end_line, dword[coord_y]
282	.end_block:	287	.end_block:
283	cmp esi,edi	288	cmp esi,edi
284	jge @f ;jg ???	289	jge @f ;jg ???
285	add ebx,24	290	add ebx,24
286	add edx,9 ;è¨à¨ 1-£® á¨¬¢®« +1pix	291	add edx,9 ;è¨à¨ 1-£® á¨¬¢®« +1pix
287	loop @b	292	loop @b
288	add dword[coord_y],10 ;¢ëá®â 1-£® á¨¬¢®« (¨«¨ ¨â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)	293	add dword[coord_y],10 ;¢ëá®â 1-£® á¨¬¢®« (¨«¨ ¨â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)
289	mov ebx,dword[buf_0.h]	294	mov ebx,dword[buf_0.h]
290	cmp dword[coord_y],ebx	295	cmp dword[coord_y],ebx
291	jl .cycle_rows	296	jl .cycle_rows
292	@@:	297	@@:
293	popad	298	popad
294	ret	299	ret
295	endp	300	endp
296		301
297	align 4	302	align 4
298	proc draw_block_end_line, coord_y:dword	303	proc draw_block_end_line, coord_y:dword
299	push eax ebx ecx	304	push eax ebx ecx
300	add ebx,20 ;20 = width 2.5 symbols	305	add ebx,20 ;20 = width 2.5 symbols
301	mov eax,[coord_y]	306	mov eax,[coord_y]
302	sub eax,2	307	sub eax,2
303	mov ecx,eax	308	mov ecx,eax
304	add ecx,10	309	add ecx,10
305	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff	310	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
306	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff	311	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
307	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff	312	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
308	pop ecx ebx eax	313	pop ecx ebx eax
309	ret	314	ret
310	endp	315	endp
311		316
312	align 4	317	align 4
313	draw_window:	318	draw_window:
314	pushad	319	pushad
315	mcall 12,1	320	mcall 12,1
316	xor eax,eax	321	xor eax,eax
317	mov ebx,(20 shl 16)+560	322	mov ebx,(20 shl 16)+560
318	mov ecx,(20 shl 16)+315	323	mov ecx,(20 shl 16)+315
319	mov edx,[sc.work]	324	mov edx,[sc.work]
320	or edx,(3 shl 24)+0x10000000+0x20000000	325	or edx,(3 shl 24)+0x10000000+0x20000000
321	mov edi,capt	326	mov edi,capt
322	int 0x40	327	int 0x40
323		328
324	mcall 9,procinfo,-1	329	mcall 9,procinfo,-1
325	mov eax,dword[procinfo.box.height]	330	mov eax,dword[procinfo.box.height]
326	cmp eax,250	331	cmp eax,250
327	jge @f	332	jge @f
328	mov eax,250	333	mov eax,250
329	@@:	334	@@:
330	sub eax,65	335	sub eax,65
331	mov dword[tree1.box_height],eax	336	mov dword[tree1.box_height],eax
332	mov word[w_scr_t1+4],ax ;®¢ë¥ à §¬¥àë áªà®««¨£	337	mov word[w_scr_t1+4],ax ;®¢ë¥ à §¬¥àë áªà®««¨£
333	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à	338	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à
334	jle @f	339	jle @f
335	stdcall [buf2d_resize],buf_0,0,eax	340	stdcall [buf2d_resize],buf_0,0,eax
336	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à ¢ â ©¬¥à¥	341	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à ¢ â ©¬¥à¥
337	@@:	342	@@:
338		343
339	mov eax,dword[procinfo.box.width]	344	mov eax,dword[procinfo.box.width]
340	cmp eax,400	345	cmp eax,400
341	jge @f	346	jge @f
342	mov eax,400	347	mov eax,400
343	@@:	348	@@:
344	sub eax,[buf_0.w]	349	sub eax,[buf_0.w]
345	sub eax,41	350	sub eax,41
346	mov dword[tree1.box_width],eax	351	mov dword[tree1.box_width],eax
347	add ax,word[tree1.box_left]	352	add ax,word[tree1.box_left]
348	mov word[w_scr_t1.start_x],ax	353	mov word[w_scr_t1.start_x],ax
349	add ax,16+5	354	add ax,16+5
350	mov word[buf_0.l],ax	355	mov word[buf_0.l],ax
351		356
352	mov eax,8	357	mov eax,8
353	mov ebx,(5 shl 16)+20	358	mov ebx,(5 shl 16)+20
354	mov ecx,(5 shl 16)+20	359	mov ecx,(5 shl 16)+20
355	mov edx,3	360	mov edx,3
356	mov esi,[sc.work_button]	361	mov esi,[sc.work_button]
357	int 0x40	362	int 0x40
358		363
359	mov ebx,(30 shl 16)+20	364	mov ebx,(30 shl 16)+20
360	mov edx,4	365	mov edx,4
361	int 0x40	366	int 0x40
362		367
363	cmp byte[can_save],0	368	cmp byte[can_save],0
364	je @f	369	je @f
365	mov ebx,(55 shl 16)+20	370	mov ebx,(55 shl 16)+20
366	mov edx,5	371	mov edx,5
367	int 0x40	372	int 0x40
368	@@:	373	@@:
369		374
370	mov ebx,(85 shl 16)+20	375	mov ebx,(85 shl 16)+20
371	mov edx,6 ;®ª® á ª®®à¤¨ â ¬¨	376	mov edx,6 ;®ª® á ª®®à¤¨ â ¬¨
372	int 0x40	377	int 0x40
373		378
374	mov ebx,(110 shl 16)+20	379	mov ebx,(110 shl 16)+20
375	mov edx,7 ;ã¤ «¥¨¥ ¡«®ª	380	mov edx,7 ;ã¤ «¥¨¥ ¡«®ª
376	int 0x40	381	int 0x40
377		382
378	mov eax,7	383	mov eax,7
379	mov ebx,[image_data_toolbar]	384	mov ebx,[image_data_toolbar]
380	mov ecx,(16 shl 16)+16	385	mov ecx,(16 shl 16)+16
381	mov edx,(7 shl 16)+7 ;new	386	mov edx,(7 shl 16)+7 ;new
382	int 0x40	387	int 0x40
383		388
384	add ebx,IMAGE_TOOLBAR_ICON_SIZE	389	add ebx,IMAGE_TOOLBAR_ICON_SIZE
385	mov edx,(32 shl 16)+7 ;open	390	mov edx,(32 shl 16)+7 ;open
386	int 0x40	391	int 0x40
387		392
388	cmp byte[can_save],0	393	cmp byte[can_save],0
389	je @f	394	je @f
390	add ebx,IMAGE_TOOLBAR_ICON_SIZE	395	add ebx,IMAGE_TOOLBAR_ICON_SIZE
391	mov edx,(57 shl 16)+7 ;save	396	mov edx,(57 shl 16)+7 ;save
392	int 0x40	397	int 0x40
393	sub ebx,IMAGE_TOOLBAR_ICON_SIZE	398	sub ebx,IMAGE_TOOLBAR_ICON_SIZE
394	@@:	399	@@:
395		400
396	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE	401	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE
397	mov edx,(87 shl 16)+7	402	mov edx,(87 shl 16)+7
398	int 0x40	403	int 0x40
399		404
400	add ebx,IMAGE_TOOLBAR_ICON_SIZE	405	add ebx,IMAGE_TOOLBAR_ICON_SIZE
401	mov edx,(112 shl 16)+7	406	mov edx,(112 shl 16)+7
402	int 0x40	407	int 0x40
403		408
404	mov dword[w_scr_t1.all_redraw],1	409	mov dword[w_scr_t1.all_redraw],1
405	stdcall [tl_draw],dword tree1	410	stdcall [tl_draw],dword tree1
406		411
407	stdcall [buf2d_draw], buf_0	412	stdcall [buf2d_draw], buf_0
408		413
409	mcall 12,2	414	mcall 12,2
410	popad	415	popad
411	ret	416	ret
412		417
413	align 4	418	align 4
414	key:	419	key:
415	mcall 2	420	mcall 2
416	stdcall [tl_key], dword tree1	421	stdcall [tl_key], dword tree1
417	jmp still	422	jmp still
418		423
419		424
420	align 4	425	align 4
421	button:	426	button:
422	mcall 17	427	mcall 17
423	cmp ah,3	428	cmp ah,3
424	jne @f	429	jne @f
425	call but_new_file	430	call but_new_file
-		431	jmp still
426	@@:	432	@@:
427	cmp ah,4	433	cmp ah,4
428	jne @f	434	jne @f
429	call but_open_file	435	call but_open_file
-		436	jmp still
430	@@:	437	@@:
431	cmp ah,5	438	cmp ah,5
432	jne @f	439	jne @f
433	call but_save_file	440	call but_save_file
-		441	jmp still
434	@@:	442	@@:
435	cmp ah,6	443	cmp ah,6
436	jne @f	444	jne @f
437	call but_wnd_coords	445	call but_wnd_coords
-		446	jmp still
438	@@:	447	@@:
439	cmp ah,7	448	cmp ah,7
440	jne @f	449	jne @f
441	call but_delete_chunk	450	call but_delete_chunk
-		451	jmp still
442	@@:	452	@@:
443		453
444	cmp ah,1	454	cmp ah,1
445	jne still	455	jne still
446	.exit:	456	.exit:
447	mov dword[tree1.data_img],0	457	mov dword[tree1.data_img],0
448	mov dword[tree1.data_img_sys],0	458	mov dword[tree1.data_img_sys],0
449	stdcall dword[tl_data_clear], tree1	459	stdcall dword[tl_data_clear], tree1
450	stdcall [buf2d_delete],buf_0	460	stdcall [buf2d_delete],buf_0
451	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à	461	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à
452	stdcall mem.Free,[image_data_toolbar]	462	stdcall mem.Free,[image_data_toolbar]
453	stdcall mem.Free,[open_file_lif]	463	stdcall mem.Free,[open_file_lif]
454	mcall -1	464	mcall -1
455		465
456		466
457	align 4	467	align 4
458	but_new_file:	468	but_new_file:
459	mov byte[can_save],0	469	mov byte[can_save],0
460	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢	470	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢
461	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	471	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
462	stdcall [tl_draw], tree1	472	stdcall [tl_draw], tree1
463	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥	473	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥
464	ret	474	ret
465		475
466	align 4	476	align 4
467	but_open_file:	477	but_open_file:
468	pushad	-
469	copy_path open_dialog_name,communication_area_default_path,file_name,0	478	copy_path open_dialog_name,communication_area_default_path,file_name,0
-		479	pushad
470	mov [OpenDialog_data.type],0	480	mov [OpenDialog_data.type],0
471	stdcall [OpenDialog_Start],OpenDialog_data	481	stdcall [OpenDialog_Start],OpenDialog_data
472	cmp [OpenDialog_data.status],2	482	cmp [OpenDialog_data.status],2
473	je .end_open_file	483	je .end_open_file
474	;ª®¤ ¯à¨ ã¤ ç®¬ ®âªàëâ¨¨ ¤¨ «®£	484	;ª®¤ ¯à¨ ã¤ ç®¬ ®âªàëâ¨¨ ¤¨ «®£
475		485
476	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	486	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
477	mov [run_file_70.Function], 0	487	mov [run_file_70.Function], 0
478	mov [run_file_70.Position], 0	488	mov [run_file_70.Position], 0
479	mov [run_file_70.Flags], 0	489	mov [run_file_70.Flags], 0
480	mov dword[run_file_70.Count], MAX_FILE_SIZE	490	mov dword[run_file_70.Count], MAX_FILE_SIZE
481	m2m [run_file_70.Buffer], dword[open_file_lif]	491	m2m [run_file_70.Buffer], dword[open_file_lif]
482	mov byte[run_file_70+20], 0	492	mov byte[run_file_70+20], 0
483	mov dword[run_file_70.FileName], openfile_path	493	mov dword[run_file_70.FileName], openfile_path
484	mov ebx,run_file_70	494	mov ebx,run_file_70
485	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	495	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info3ds.asm – Rev 4332 → 5881