WebSVN – Kolibri OS – Diff – /programs/games/life3/trunk/life3.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 '../../../dll.inc'
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
hed db 'Life 05.09.14',0 ;¯®¤¯¨áì ®ª­ 
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
		db ?
	FileName dd ?
ends
 
run_file_70 FileInfoBlock
image_data dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
 
fn_toolbar db 'toolbar.png',0
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9
image_data_toolbar dd 0
 
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,0x0
	else
		copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	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]
	@@:
}
 
;--------------------------------------
struct Cell
	x dd ? ;+0
	y dd ? ;+4
	tc dd ? ;+8
	liv db ? ;+12
	so db ? ;+13
ends
 
MAX_CELL equ 90000
COL_MEM equ 64 ;ç¨á«® æ¢¥â®¢
 
cell dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì á® áâàãªâãà ¬¨ ïç¥¥ª
memCell dd 0
CellColors dd 0
 
macro get_cell_offset reg,ind
{
	mov reg,ind
	imul reg,sizeof.Cell
	add reg,dword[cell]
}
 
capt rb 50
er_oom db 0 ;­  á«ãç © ¨áç¥à¯ ­¨ï ¯ ¬ïâ¨
tim_ch db 0 ; ¢â®¬ â¨ç¥áª¨ ¯à®áç¨âë¢ âì ¯®ª®«¥­¨ï
poc_stop dd 1 ;¯à®áç¥â ­  ç¨á«® ¯®ª®«¥­¨©
Cor_x dd 0
Cor_y dd 0
tim dd 0 ;¢à¥¬ï (¯®ª®«¥­¨¥)
b_sort dd 0 ;£à ­¨æ  ¤«ï á®àâ¨à®¢ ­­ëå ïç¥¥ª
osob dd 0 ;ç¨á«® ®á®¡¥©
zoom db 3 ;¬ áèâ ¡ ¯®«ï
txt_zoom db ' áèâ ¡:',0
txt_gen db '®ª®«¥­¨¥:',0
txt_osob db 'á®¡¥©:',0
 
;­ áâà®©ª  ¬ áá¨¢  á æ¢¥â ¬¨
; col_pole - æ¢¥â ¯®«ï
; col_cell_n - æ¢¥â ­®¢®© ïç¥©ª¨
; col_cell_o - æ¢¥â áâ à®© ïç¥©ª¨
align 4
proc pole_init_colors uses eax ebx ecx edx esi edi, col_pole:dword, col_cell_n:dword, col_cell_o:dword
	mov esi,dword[CellColors]
	mov ebx,dword[col_pole]
	mov dword[esi],ebx
 
	add esi,4
	mov edi,COL_MEM
	dec edi
	shl edi,2
	add edi,esi
	; esi - ãª § â¥«ì ­  1-© £à ¤¨¥­â­ë© æ¢¥â
	; edi - ãª § â¥«ì ­  ¯®á«¥¤­¨© £à ¤¨¥­â­ë© æ¢¥â
	mov eax,dword[col_cell_n]
	mov ebx,dword[col_cell_o]
 
	mov dword[esi],eax
	mov dword[edi],ebx
	;need save ecx edx
	stdcall middle_colors, esi,edi
 
	ret
endp
 
;¢á¯®¬®£ â¥«ì­ ï äã­ªæ¨ï ¤«ï ­ å®¤¦¥­¨ï áà¥¤­¥£® æ¢¥â  ¨ § ¯¨á¨ ¥£® ¢ ¬ áá¨¢
;input:
; eax - æ¢¥â ­ ç «ì­ë©
; ebx - æ¢¥â ª®­¥ç­ë©
;§ §àãè îâìáï: ecx, edx
align 4
proc middle_colors uses edi esi, i0:dword, i1:dword
	mov esi,dword[i0]
	mov edi,dword[i1]
	;¯¥à¥¤ ¢ë§®¢®¬ äã­ªæ¨¨
	;dword[esi]=eax
	;dword[edi]=ebx
	sub edi,esi
	shr edi,1
	btr edi,1 ;®ªàã£«ï¥¬ ¤® 4-å, â. ª. ­ã¦­® ¯®«ãç¨âì  ¤à¥á (®ªàã£«¥­¨¥ å¨âà®¥ - ã¡¨à ¥¬ ®¤¨­ ¡¨â ¢¬¥áâ® ¯à¥¤¯®« £ ¥¬ëå 2-å)
	add edi,esi
	cmp edi,esi
	je @f
		push eax ebx
 
		mov ecx,eax
		mov edx,ebx
 
		;­ å®¤¨¬ áà¥¤­¨© æ¢¥â ¬¥¦¤ã eax ¨ ebx
		and ebx,111111101111111011111110b ;ã¡¨à ¥¬ ¯®á«¥¤­¨¥ ¡¨âë ¢ æ¢¥â å r, g, b
		and eax,111111101111111011111110b
		add eax,ebx ;áã¬¨àã¥¬ æ¢¥â  ¨§ r, g, b
		shr eax,1   ;¤¥«¨¬ ­  2
		mov dword[edi],eax
 
		;à¥ªãàá¨¢­ë© ¢ë§®¢ ¤«ï ¤à®¡«¥­¨ï ¢¥àå­¥© ¯®«®¢¨­ë
		mov ebx,eax
		mov eax,ecx
		stdcall middle_colors, [i0],edi
 
		;à¥ªãàá¨¢­ë© ¢ë§®¢ ¤«ï ¤à®¡«¥­¨ï ­¨¦­¥© ¯®«®¢¨­ë
		mov eax,ebx
		mov ebx,edx
		stdcall middle_colors, edi,[i1]
 
		pop ebx eax
	@@:
	ret
endp
 
align 4
pole_clear:
	push eax ecx edi
	xor eax,eax
	mov dword[tim],eax
	mov dword[osob],eax
	mov  byte[tim_ch],al
	mov dword[Cor_x],eax
	mov dword[Cor_y],eax
	mov dword[b_sort],eax
	mov  byte[er_oom],al
	cld
	mov ecx,MAX_CELL
	imul ecx,sizeof.Cell
	mov edi,dword[cell]
	repne stosb ;memset(cell,0,sizeof(Cell)*MAX_CELL);
	mov edi,dword[memCell]
	mov ecx,MAX_CELL
	@@:
		stosd ;for(i=0;i
		;mov dword[edi],eax
		;add edi,4
		inc eax
		loop @b
	pop edi ecx eax
	ret
 
align 4
proc pole_cell_creat, x:dword, y:dword, li:dword
	pushad ;eax ebx ecx edx edi
 
	; *** ¥á«¨ ª«¥âª  ã¦¥ ¡ë«  á®§¤ ­ 
	stdcall pole_cell_find, [x],[y]
	cmp eax,0
	je @f ;if(i){
		get_cell_offset ebx,eax
		cmp dword[li],0
		jne .else_if ;if(!li)
			; ¥á«¨ á®§¤ ¥âáï ¯ãáâ ï ª«¥âª 
			inc byte[ebx+13] ;+13 = .so
			jmp .fun_e
		.else_if: ;else if(!(cell[i].liv&1) ){
		bt word[ebx+12],0 ;+12 = .liv
			; ¥á«¨ á®§¤ ¥âáï ¦¨¢ ï ª«¥âª 
			; ¨ à ­ìè¥ ª«¥âª  ¡ë«  á®§¤ ­  ­® ®ª § « áì ¯ãáâ®©
			jae .creat_border_cells
		jmp .fun_e
	@@:
 
	; *** á®§¤ ­¨¥ ­®¢®© ïç¥©ª¨
	; ­ å®¤¨¬ ­®¬¥à á¢®¡®¤­®© ïç¥©ª¨ (i) ¤«ï ¤®¡ ¢«¥­¨ï ­®¢®©
	mov edi,dword[memCell]
	inc dword[edi]
	cmp dword[edi],MAX_CELL
	jne @f
		dec dword[edi]
		mov byte[tim_ch],0
		;... need call message: "eror out of memory" ...
		;... ¢ë¢®¤ á®®¡é¥­¨ï ¯¥à¥¯®«­¥­¨ï ­ ¤® ¤®¡ ¢¨âì  ...
		mov byte[er_oom],0
		jmp .fun_e ;return;
	@@:
	mov eax,dword[edi]
	shl eax,2
	add eax,dword[memCell] ;eax -> memCell[firstC]
	get_cell_offset ebx,dword[eax]
 
	mov ecx,dword[x]
	mov dword[ebx],ecx ;+0 = .x
	mov edx,dword[y]
	mov dword[ebx+4],edx ;+4 = .y
	mov eax,dword[tim]
	mov dword[ebx+8],eax ;+8 = .tc
	mov byte[ebx+12],0 ;+12 = .liv
 
	cmp dword[li],0
	jne @f
		mov byte[ebx+13],1 ;+13 = .so
		jmp .fun_e
	@@:
	mov byte[ebx+13],0 ;+13 = .so
 
	.creat_border_cells:
		inc dword[osob]
		or byte[ebx+12],1 ;+12 = .liv
		mov ecx,dword[x]
		dec ecx
		mov edx,dword[y]
		dec edx
		stdcall pole_cell_creat,ecx,edx,0
		inc edx
		stdcall pole_cell_creat,ecx,edx,0
		inc edx
		stdcall pole_cell_creat,ecx,edx,0
		inc ecx
		stdcall pole_cell_creat,ecx,edx,0
		sub edx,2
		stdcall pole_cell_creat,ecx,edx,0
		inc ecx
		stdcall pole_cell_creat,ecx,edx,0
		inc edx
		stdcall pole_cell_creat,ecx,edx,0
		inc edx
		stdcall pole_cell_creat,ecx,edx,0
	.fun_e:
	popad ;edi edx ecx ebx eax
	ret
endp
 
;output:
; eax - index
align 4
proc pole_cell_find, x:dword, y:dword
	mov eax,dword[memCell]
	cmp dword[eax],0
	jne @f
		xor eax,eax ;if(!fristC) return 0;
		jmp .fun_e
	@@:
 
	xor eax,eax ;fnd=0;
	cmp dword[b_sort],0
	je @f
		stdcall pole_bin_find, [memCell], [x],[y], [b_sort] ;i=BinFind(memCell, x,y, b_sort);
		cmp eax,0
		je @f
			shl eax,2
			add eax,dword[memCell]
			mov eax,dword[eax] ;if(i) fnd=memCell[i];
			jmp .fun_e
	@@:
 
	cmp eax,0
	jne @f ;if(!fnd){ // ¯®¨áª ïç¥©ª¨ §  ¡¨­ à­ë¬ ¤¥à¥¢®¬
		push ebx ecx edx edi esi
		;ebx -> i
		;ecx -> firstC
		;edx -> &memCell[i]
		;edi -> cell[memCell[i]]
		mov ecx,dword[memCell]
		mov ebx,dword[b_sort]
		mov edx,ebx
		shl edx,2
		add edx,ecx
		mov ecx,dword[ecx]
		.cycle_b: ;for(i=b_sort+1;i<=fristC;i++)
			inc ebx
			cmp ebx,ecx
			jg .cycle_e
			add edx,4
			get_cell_offset edi,dword[edx]
			mov esi,dword[x]
			cmp dword[edi],esi ;+0 = .x
			jne .if_e
			mov esi,dword[y]
			cmp dword[edi+4],esi ;+4 = .y
			jne .if_e
				;if(cell[memCell[i]].x==x && cell[memCell[i]].y==y){
				mov eax,dword[edx] ;fnd=memCell[i];
				jmp .cycle_e ;break;
			.if_e:
			jmp .cycle_b
		.cycle_e:
		pop esi edi edx ecx ebx
	@@:
	.fun_e:
	ret
endp
 
;output:
; eax - index
align 4
proc pole_bin_find, mas:dword, fx:dword, fy:dword, k:dword
	push ebx ecx edx edi
	xor eax,eax
	mov ebx,1 ;ebx - ¬ ªá¨¬ «ì­ë© ¯®àï¤®ª ¤«ï ¤¥à¥¢ 
	@@:
	cmp dword[k],ebx
	jle @f ;while(k>por)
		shl ebx,1 ;por<<=1;
		jmp @b
	@@:
	cmp dword[k],ebx
	jge @f ;if(k
		shr ebx,1 ;por>>=1;
	@@:
	mov ecx,ebx ;i=por;
 
	;ecx -> i
	;edi -> mas[i]
	.cycle_b: ;do{
		shr ebx,1 ;por>>=1;
 
		mov edi,ecx
		shl edi,2
		add edi,dword[mas]
		;if(compare_cells_mb(mas[i],fx,fy)){
		stdcall pole_compare_cells_mb_coords, dword[edi],[fx],[fy]
		cmp dl,0
		je .if_u0_e
			@@: ;while(i+por>k)
			mov edx,ecx
			add edx,ebx
			cmp edx,dword[k] ;i+por>k
			jle @f
				shr ebx,1 ;por>>=1;
				jmp @b
			@@:
			add ecx,ebx ;i+=por;
			jmp .if_e
		.if_u0_e:
		;else if(compare_cells_bm(mas[i],fx,fy))i-=por;
		stdcall pole_compare_cells_bm_coords, dword[edi],[fx],[fy]
		cmp dl,0
		je .if_u1_e
			sub ecx,ebx
			jmp .if_e
		.if_u1_e:
		;else { m=i; por=0; }
			mov eax,ecx
			xor ebx,ebx
		.if_e:
	cmp ebx,0
	jne .cycle_b ;}while(por);
 
	pop edi edx ecx ebx
	ret
endp
 
;output:
; dl
align 4
proc pole_compare_cells_bm_coords, i0:dword, fx:dword, fy:dword
	push eax ebx ecx
	get_cell_offset eax,[i0]
	;eax -> cell[i0]
	mov ebx,dword[fx]
	cmp dword[eax],ebx
	jle @f
		mov dl,1
		jmp .fun_e
	@@:
	mov ecx,dword[fy]
	cmp dword[eax+4],ecx
	jle @f
	cmp dword[eax],ebx
	jne @f
		mov dl,1
		jmp .fun_e
	@@:
	xor dl,dl
	.fun_e:
	pop ecx ebx eax
	ret
endp
 
;output:
; dl
align 4
proc pole_compare_cells_mb_coords, i0:dword, fx:dword, fy:dword
	push eax ebx ecx
	get_cell_offset eax,[i0]
	;eax -> cell[i0]
	mov ebx,dword[fx]
	cmp dword[eax],ebx
	jge @f
		mov dl,1
		jmp .fun_e
	@@:
	mov ecx,dword[fy]
	cmp dword[eax+4],ecx
	jge @f
	cmp dword[eax],ebx
	jne @f
		mov dl,1
		jmp .fun_e
	@@:
	xor dl,dl
	.fun_e:
	pop ecx ebx eax
	ret
endp
 
;output:
; dl
align 4
proc pole_compare_cells_bm, i0:dword, i1:dword
	push eax ebx ecx
	get_cell_offset eax,[i0] ;eax -> cell[i0]
	get_cell_offset ebx,[i1] ;ebx -> cell[i1]
	mov ecx,dword[ebx] ;+0 = .x
	cmp dword[eax],ecx
	jle @f ;x0>x1
		mov dl,1
		jmp .fun_e
	@@:
	jne @f ;x0==x1
	mov ecx,dword[ebx+4] ;+4 = .y
	cmp dword[eax+4],ecx
	jle @f ;y0>y1
		mov dl,1
		jmp .fun_e
	@@:
	xor dl,dl
	.fun_e:
	pop ecx ebx eax
	ret
endp
 
align 4
pole_paint:
	pushad
	;eax -> firstC
	;ebx -> i
	;ecx -> cell[memCell[i]]
	;edx -> color
	;edi -> coord_x
	;esi -> coord_y
	mov eax,dword[memCell]
	cmp dword[eax],0
	je .no_draw
 
	mov eax,dword[eax]
	mov ebx,1
 
;---
	@@: ;while(i
		cmp ebx,dword[b_sort]
		jge @f ;¯¥à¥å®¤¨¬ ­  ­ ç «® ­¨¦­¥£® æ¨ª« 
		mov ecx,ebx
		shl ecx,2
		add ecx,dword[memCell]
		get_cell_offset ecx,dword[ecx]
		mov edx,dword[ecx] ;+0 = .x
		add edx,dword[Cor_x]
		cmp edx,0
		jge @f ;¯¥à¥å®¤¨¬ ­  ­ ç «® ­¨¦­¥£® æ¨ª« 
			inc ebx ;i++; // ¤«ï ¯à®¯ãáª  ïç¥¥ª §  ®ª­®¬ á«¥¢ 
		jmp @b
	@@:
 
	cmp byte[zoom],2
	jge .zoom2
	@@: ;for(;i<=fristC;i++){
		mov ecx,ebx
		shl ecx,2
		add ecx,dword[memCell]
		get_cell_offset ecx,dword[ecx]
;...
		mov edi,dword[Cor_x]
		add edi,dword[ecx] ;+0 = .x
		mov esi,dword[Cor_y]
		add esi,dword[ecx+4] ;+4 = .y
		bt word[ecx+12],0 ;+12 = .liv
		jc .cell_1
			;­¥ ¦¨¢ ï ïç¥©ª 
			mov edx,dword[CellColors]
			mov edx,dword[edx]
			jmp .cell_0
		.cell_1:
			;¦¨¢ ï ïç¥©ª 
			mov edx,dword[tim]
			inc edx
			sub edx,dword[ecx+8] ;+8 = .tc
			cmp edx,COL_MEM
			jle .in_color
				mov edx,COL_MEM
			.in_color:
			shl edx,2
			add edx,dword[CellColors]
			mov edx,dword[edx]
		.cell_0:
		stdcall [buf2d_set_pixel], buf_0, edi, esi, edx
;...
		inc ebx
		cmp ebx,eax
		jle @b
 
	jmp .no_draw
	.zoom2:
 
	@@: ;for(;i<=fristC;i++){
		mov ecx,ebx
		shl ecx,2
		add ecx,dword[memCell]
		get_cell_offset ecx,dword[ecx]
 
		xor edx,edx
		mov dl,byte[zoom] ;edx ¨á¯®«ì§ã¥âáï ¤«ï ¢­¥á¥­¨ï zoom ¢ 4 ¡ ©â­®¥ ç¨á«®
		mov edi,dword[ecx] ;+0 = .x
		add edi,dword[Cor_x]
		imul edi,edx
		mov esi,dword[ecx+4] ;+4 = .y
		add esi,dword[Cor_y]
		imul esi,edx
		bt word[ecx+12],0 ;+12 = .liv
		jc .z2_cell_1
			;­¥ ¦¨¢ ï ïç¥©ª 
			mov edx,dword[CellColors]
			mov edx,dword[edx]
			jmp .z2_cell_0
		.z2_cell_1:
			;¦¨¢ ï ïç¥©ª 
			mov edx,dword[tim]
			inc edx
			sub edx,dword[ecx+8] ;+8 = .tc
			cmp edx,COL_MEM
			jle .z2_in_color
				mov edx,COL_MEM
			.z2_in_color:
			shl edx,2
			add edx,dword[CellColors]
			mov edx,dword[edx]
		.z2_cell_0:
		xor ecx,ecx
		mov cl,byte[zoom] ;ecx ¨á¯®«ì§ã¥âáï ¤«ï ¢­¥á¥­¨ï zoom ¢ 4 ¡ ©â­®¥ ç¨á«®
		;;;dec ecx
		stdcall [buf2d_filled_rect_by_size], buf_0, edi, esi, ecx, ecx, edx
		inc ebx
		cmp ebx,eax
		jle @b
 
	.no_draw:
	popad
	ret
 
align 4
pole_next_gen:
	pushad
	;eax -> firstC
	;ebx -> i
	;ecx -> &memCell[i]
	;edx -> cell[memCell[i]]
 
	mov eax,dword[memCell]
	mov ecx,eax
	mov eax,dword[eax]
	cmp eax,1
	jl .fun_e
	inc dword[tim]
	mov ebx,1
	@@: ;for(i=1;i<=firstC;i++)
		add ecx,4
		get_cell_offset edx,dword[ecx]
		bt word[edx+12],0 ;+12 = .liv
		jae .if_0_e
			; á®åà ­¥­¨¥ ïç¥©ª¨ (á®á¥¤¥© 2 ¨«¨ 3)
			cmp byte[edx+13],2 ;+13 = .so
			je .if_2_e
			cmp byte[edx+13],3 ;+13 = .so
			je .if_2_e
			jmp .change
		.if_0_e:
			; á®§¤ ­¨¥ ïç¥©ª¨ (á®á¥¤¥© 3)
			cmp byte[edx+13],3 ;+13 = .so
			jne .if_1_e
			.change:
				or byte[edx+12],2 ;+12 = .liv
				jmp .if_2_e
		.if_1_e:
			; ã¤ «¥­¨¥ ¯ãáâ®© ïç¥©ª¨ ¤«ï ®á¢®¡®¦¤¥­¨ï ¯ ¬ïâ¨
			cmp byte[edx+13],0 ;+13 = .so
			jne .if_2_e
			mov edi,dword[edx+8] ;+8 = .tc
			add edi,5 ; 5 - ¢à¥¬ï á®åà ­¥­¨ï ¯ãáâ®© ïç¥©ª¨, ¤® ¥ñ ã¤ «¥­¨ï
			cmp edi,dword[tim]
			jge .if_2_e
				mov edi,eax
				shl edi,2
				add edi,dword[memCell] ;edi -> &memCell[fristC]
				mov esi,dword[edi] ;swp=memCell[fristC];
				mov edx,dword[ecx] ;edx - ã¦¥ ­¥ ¨á¯®«ì§ã¥¬, ¯®â®¬ã ¬®¦¥¬ ¯®àâ¨âì
				mov dword[edi],edx ;memCell[fristC]=memCell[i];
				mov dword[ecx],esi ;memCell[i]=swp;
				dec eax
				dec ebx
				sub ecx,4
		.if_2_e:
 
		inc ebx
		cmp ebx,eax
		jle @b
	mov ebx,dword[memCell]
	mov dword[ebx],eax ;firstC <- eax
 
	mov dword[b_sort],eax
	stdcall pole_fl_sort, dword[memCell],eax
 
	mov ecx,dword[memCell]
	mov ebx,1
	@@: ;for(i=1;i<=firstC;i++)
		add ecx,4
		get_cell_offset edx,dword[ecx]
		bt word[edx+12],1 ;+12 = .liv
		jae .no_change
			xor byte[edx+12],3 ;+12 = .liv
			mov edi,dword[tim]
			mov dword[edx+8],edi ;+8 = .tc
			bt word[edx+12],0 ;+12 = .liv
			jc .new_cell
				push eax
				mov edi,dword[edx]
				dec edi
				mov esi,dword[edx+4]
				dec esi
				dec dword[osob]
				;¤ «ìè¥ §­ ç¥­¨¥ edx ¯®àâ¨âáï
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				inc esi
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				inc esi
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				inc edi
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				sub esi,2
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				inc edi
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				inc esi
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				inc esi
				stdcall pole_cell_find,edi,esi
				get_cell_offset edx,eax
				dec byte[edx+13] ;+13 = .so
				pop eax
				jmp .no_change
			.new_cell: ; ¯®ï¢¨« áì ­®¢ ï ïç¥©ª 
				inc dword[osob]
				mov edi,dword[edx]
				dec edi
				mov esi,dword[edx+4]
				dec esi
				stdcall pole_cell_creat,edi,esi,0
				inc esi
				stdcall pole_cell_creat,edi,esi,0
				inc esi
				stdcall pole_cell_creat,edi,esi,0
				inc edi
				stdcall pole_cell_creat,edi,esi,0
				sub esi,2
				stdcall pole_cell_creat,edi,esi,0
				inc edi
				stdcall pole_cell_creat,edi,esi,0
				inc esi
				stdcall pole_cell_creat,edi,esi,0
				inc esi
				stdcall pole_cell_creat,edi,esi,0
		.no_change:
		inc ebx
		cmp ebx,eax
		jle @b
	.fun_e:
	popad
	ret
 
;®àâ¨à®¢ª  ¢¥ªâ®à  a[1..n] ¬¥â®¤®¬ «®©¤ 
align 4
proc pole_fl_sort, a:dword, n:dword
	pushad
	mov ecx,dword[a]
	;®à¬¨à®¢ âì ¨áå®¤­®¥ ç áâ¨ç­® ã¯®àï¤®ç¥­­®¥ ¤¥à¥¢®
	mov eax,dword[n]
	shr eax,1
	@@: ;for(i=n>>1; i>=2; i--)
		stdcall pole_fl_surface, ecx,eax,[n] ;(a,i,n)
		dec eax
		cmp eax,2
		jge @b
	;ë¯®«­¨âì ¯à®æ¥¤ãàã ¢á¯«ëâ¨ï «®©¤  ¤«ï ª ¦¤®£® ¯®¤¤¥à¥¢ 
	mov eax,dword[n]
	@@: ;for(i=n; i>=2; i--){
		stdcall pole_fl_surface, ecx,1,eax ;(a,1,i)
		;®¬¥áâ¨âì ­ ©¤¥­­ë© ¬ ªá¨¬ «ì­ë© í«¥¬¥­â ¢ ª®­¥æ á¯¨áª 
		mov edi,eax
		shl edi,2
		add edi,ecx ;edi -> &a[i]
		mov esi,dword[edi] ;w=a[i];
		mov edx,dword[ecx+4]
		mov dword[edi],edx ;a[i]=a[1];
		mov dword[ecx+4],esi ;a[1]=w;
 
		dec eax
		cmp eax,2
		jge @b
	popad
	ret
endp
 
;à®æ¥¤ãà  ¢á¯«ëâ¨ï «®©¤  ¯® ¤¥à¥¢ã a[1..k]
align 4
proc pole_fl_surface, a:dword, i:dword, k:dword
locals
	copy dd ?
endl
	pushad
	;edx -> ...
	;edi -> m
	;esi -> j
	mov eax,dword[a]
	mov ebx,dword[i]
	mov ecx,dword[k]
 
	mov edx,ebx
	shl edx,2
	add edx,eax
	mov edx,dword[edx]
	mov dword[copy],edx ;copy=a[i];
	mov edi,ebx
	shl edi,1 ;m=i<<1;
	.cycle_b: ;while (m<=k) {
		cmp edi,ecx
		jg .cycle_e
		jne @f ;if (m==k) j=m;
			mov esi,edi
			jmp .else_e
		@@: ;else if (pole_compare_cells_bm(a[m],a[m+1])) j=m;
		mov edx,edi
		shl edx,2
		add edx,eax
		stdcall pole_compare_cells_bm, dword[edx],dword[edx+4]
		cmp dl,0
		je @f
			mov esi,edi
			jmp .else_e
		@@: ;else j=m+1;
			mov esi,edi
			inc esi
		.else_e:
 
		;if (pole_compare_cells_bm(a[j],copy)) {
		mov edx,esi
		shl edx,2
		add edx,eax
		stdcall pole_compare_cells_bm, dword[edx],dword[copy]
		cmp dl,0
		je .cycle_e ;} else break; //¢ëå®¤ ¨§ æ¨ª« 
 
		mov edx,esi
		shl edx,2
		add edx,eax
		push dword[edx] ;push a[j];
		mov edx,ebx
		shl edx,2
		add edx,eax
		pop dword[edx] ;a[i]=a[j];
		mov ebx,esi ;i=j;
		mov edi,ebx
		shl edi,1 ;m=i<<1;
 
		jmp .cycle_b
	.cycle_e:
 
	;§­ ç¥­¨ï ¬­®£¨å à¥£¨áâà®¢ ã¦¥ ­¥ ¢ ¦­ë â. ª. ª®­¥æ äã­ªæ¨¨
	shl ebx,2
	add eax,ebx
	mov edx,dword[copy]
	mov dword[eax],edx ;a[i]=copy;
 
	popad
	ret
endp
;--------------------------------------
 
 
align 4
start:
	load_libraries l_libs_start,l_libs_end
	;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨« áì ­ è  «¨¡ 
	mov	ebp,lib_7
	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 [buf2d_create], buf_0 ;á®§¤ ­¨¥ ¡ãä¥à 
 
	stdcall mem.Alloc,MAX_CELL*sizeof.Cell
	mov [cell],eax
	stdcall mem.Alloc,MAX_CELL*4
	mov [memCell],eax
	stdcall mem.Alloc,(COL_MEM+1)*4
	mov [CellColors],eax
	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
 
	;­ áâà®©ª  æ¢¥â®¢ ïç¥¥ª
	stdcall pole_init_colors, 0xffffd0,0xff0000,0x0000ff
	call pole_clear
	call pole_paint ;à¨á®¢ ­¨¥ ¯®«ï ¢ ¡ãä¥à¥ (­¥ ­  íªà ­¥)
 
	;xor eax,eax
	;mov edi,txt_zoom.zi
	;mov al,byte[zoom]
	;call tl_convert_to_str
 
	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
 
	jmp still
 
align 4
timer_funct:
	pushad
	mcall 26,9
	mov [last_time],eax
 
	cmp byte[tim_ch],0
	je @f
		;call but_next_gen
		cld
		mov ecx,dword[poc_stop]
		cmp ecx,1
		jg .clear
			mov ecx,1 ;¨á¯à ¢«¥­¨¥ ecx ­  á«ãç © ç¨á¥« ¬¥­ìè¨å 1
			jmp .cycle
		.clear: ;ç¨áâ¨¬ ¯®«¥ ¥á«¨ ¥áâì ¯à®áç¥â ­  ­¥áª®«ìª® ¯®ª®«¥­¨© §  1 â ªâ â ©¬¥à 
			stdcall [buf2d_clear], buf_0, [buf_0.color]
		.cycle:
			call pole_next_gen
			loop .cycle
		call pole_paint
		stdcall [buf2d_draw], buf_0
		call draw_pok
	@@:
	popad
	jmp still
 
align 4
draw_window:
pushad
	mcall 12,1
	xor eax,eax
	mov ebx,(20 shl 16)+485
	mov ecx,(20 shl 16)+415
	mov edx,[sc.work]
	or  edx,(3 shl 24)+0x10000000+0x20000000
	mov edi,hed
	int 0x40
 
	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 ecx,(5 shl 16)+20
	mov edx,4
	int 0x40
 
	mov ebx,(55 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,5
	int 0x40
 
	mov ebx,(85 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,6
	int 0x40
 
	mov ebx,(110 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,7
	int 0x40
 
	mov ebx,(135 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,8
	int 0x40
 
	mov ebx,(165 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,9
	int 0x40
 
	mov ebx,(190 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,10
	int 0x40
 
	mov ebx,(220 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,11
	int 0x40
 
	mov ebx,(245 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,12
	int 0x40
 
	mov ebx,(270 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,13
	int 0x40
 
	mov ebx,(295 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,14
	int 0x40
 
	mov eax,7
	mov ebx,[image_data_toolbar]
	mov ecx,(16 shl 16)+16
	mov edx,(32 shl 16)+7
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(87 shl 16)+7 ;run once
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(112 shl 16)+7 ;run auto
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(137 shl 16)+7 ;stop
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(167 shl 16)+7 ;-
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(192 shl 16)+7 ;+
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(222 shl 16)+7 ;move up
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(247 shl 16)+7 ;move doun
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(272 shl 16)+7 ;move left
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(297 shl 16)+7 ;move up
	int 0x40
 
	call draw_pok
 
	stdcall [buf2d_draw], buf_0
 
	mcall 12,2
popad
	ret
 
align 4
draw_pok:
	mov eax,4 ;à¨á®¢ ­¨¥ â¥ªáâ 
	mov ebx,325*65536+5
	mov ecx,[sc.work_text]
	or  ecx,0x80000000 ;or (1 shl 30)
	mov edx,txt_zoom
	;mov edi,[sc.work]
	int 0x40
	add bx,9
	mov edx,txt_gen
	int 0x40
	add bx,9
	mov edx,txt_osob
	int 0x40
 
	mov eax,47
	xor ecx,ecx
	mov cl,byte[zoom]
	mov ebx,(2 shl 16)
	mov edx,(325+6*9)*65536+5
	mov esi,[sc.work_button_text]
	or  esi,(1 shl 30)
	mov edi,[sc.work_button]
	int 0x40 ;¬ áèâ ¡
	mov ebx,(5 shl 16)
	mov ecx,[tim]
	add edx,(6*2)*65536+9
	int 0x40 ;¢à¥¬ï
	mov ebx,(5 shl 16)
	mov ecx,[osob]
	add edx,(6*0)*65536+9
	int 0x40 ;¯®¯ã«ïæ¨ï
	ret
 
align 4
key:
	mcall 2
	jmp still
 
 
align 4
button:
	mcall 17
	cmp ah,3
	jne @f
		call but_new_file
	@@:
	cmp ah,4
	jne @f
		call but_open_file
	@@:
	cmp ah,5
	jne @f
		call but_save_file
	@@:
	cmp ah,6
	jne @f
		call but_next_gen
	@@:
	cmp ah,7
	jne @f
		call but_run
	@@:
	cmp ah,8
	jne @f
		call but_stop
	@@:
	cmp ah,9
	jne @f
		call but_zoom_p
	@@:
	cmp ah,10
	jne @f
		call but_zoom_m
	@@:
	cmp ah,11
	jne @f
		call but_pole_up
	@@:
	cmp ah,12
	jne @f
		call but_pole_dn
	@@:
	cmp ah,13
	jne @f
		call but_pole_left
	@@:
	cmp ah,14
	jne @f
		call but_pole_right
	@@:
	cmp ah,1
	jne still
.exit:
	stdcall [buf2d_delete],buf_0
	stdcall mem.Free,[cell]
	stdcall mem.Free,[memCell]
	stdcall mem.Free,[CellColors]
	stdcall mem.Free,[image_data_toolbar]
	mcall -1
 
 
align 4
but_new_file:
	ret
 
align 4
open_file_lif:
	rb 4096 ;®¡« áâì ¤«ï ®âªàëâ¨ï ä ©«®¢
.end:
 
align 4
but_open_file:
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	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], open_file_lif.end-open_file_lif
	m2m [run_file_70.Buffer], 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
 
	add ebx,open_file_lif
	mov byte[ebx],0 ;­  á«ãç © ¥á«¨ à ­¥¥ ¡ë« ®âªàëâ ä ©« ¡®«ìè¥£® à §¬¥à  ç¨áâ¨¬ ª®­¥æ ¡ãä¥à  á ä ©«®¬
	mcall 71,1,openfile_path
 
	call pole_clear
	mov eax,dword[buf_0.w]
	shr eax,1
	xor ecx,ecx
	mov cl,byte[zoom]
	cmp cx,2
	jl @f ;¤¥«¥­¨¥ ­  ¢¥«¨ç¨­ã zoom
		xor edx,edx
		div ecx
	@@:
	add dword[Cor_x],eax
	mov eax,dword[buf_0.h]
	shr eax,1
	cmp cx,2
	jl @f ;¤¥«¥­¨¥ ­  ¢¥«¨ç¨­ã zoom
		xor edx,edx
		div ecx
	@@:
	add dword[Cor_y],eax
 
	;eax - first x position
	;ebx - x position
	;ecx - y position
	mov edi,open_file_lif
	xor ebx,ebx
	xor ecx,ecx
	mov eax,ebx
	@@:
		cmp byte[edi],'*'
		jne .no_cell
			stdcall pole_cell_creat, ebx,ecx,1
			inc ebx
		.no_cell:
		cmp byte[edi],'.'
		jne .cell_move
			inc ebx
		.cell_move:
		cmp byte[edi],13
		jne .cell_nl
			mov ebx,eax
			inc ecx
		.cell_nl:
		cmp word[edi],'#P' ;á¬¥­  ¯®§¨æ¨¨
		jne .pos
			inc edi ;¯à®¯ãáª '#'
			.space:
				inc edi ;¯à®¯ãáª 'P' ¨ ' '
				cmp byte[edi],' '
				je .space
			stdcall conv_str_to_int,edi
			mov ebx,eax
			cmp byte[edi],'-'
			jne .digit
				inc edi
			.digit:
				cmp byte[edi],'0'
				jl .digit_no
				cmp byte[edi],'9'
				jg .digit_no
				inc edi
				jmp .digit
			.digit_no:
			;.space_1:
				inc edi ;¯à®¯ãáª 'P' ¨ ' '
				cmp byte[edi],' '
				je .digit_no ;.space_1
			stdcall conv_str_to_int,edi
			mov ecx,eax
			mov eax,ebx ;¢®ááâ ­®¢«¥­¨¥ «¥¢®£® ®âáâã¯  ¢ eax
		.pos:
		inc edi
		cmp byte[edi],0
		jne @b
	;---
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	call pole_paint ;à¨áã¥¬ ¯®«¥ (­  á«ãç © ¥á«¨ ¥áâì á¥âª  ¨«¨ â¥ªáâ®¢ë¥ ¯®¤¯¨á¨)
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	.end_open_file:
	popad
	ret
 
align 4
but_save_file:
	ret
 
align 4
but_next_gen:
	call pole_next_gen
	call pole_paint
	stdcall [buf2d_draw], buf_0
	pushad
		call draw_pok
	popad
	ret
 
align 4
but_run:
	mov byte[tim_ch],1
	ret
 
align 4
but_stop:
	mov byte[tim_ch],0
	;cld
	;mov ecx,100
	;@@:
	;       call pole_next_gen
	;loop @b
	;stdcall [buf2d_clear], buf_0, [buf_0.color]
	;call pole_paint
	;stdcall [buf2d_draw], buf_0
	ret
 
align 4
but_zoom_p:
	cmp byte[zoom],16
	jge @f
		pushad
		;¢ëç¨á«¥­¨¥ á¤¢¨£®¢ ¤«ï ¯®«ï, ª®â®àë¥ ®¡¥á¯¥ç â æ¥­âà®¢ªã ¯®«ï ¯à¨ ã¢¥«¨ç¥­¨¨ ¬ áèâ ¡ 
		xor ecx,ecx
		mov cl,byte[zoom]
		xor edx,edx
		mov eax,dword[buf_0.w]
		shr eax,1 ;¢ eax ¯®«®¢¨­  è¨à¨­ë ¯®«ï
		mov ebx,eax ;¤¥« ¥¬ à¥§¥à¢­ãî ª®¯¨î eax
		div ecx ;¤¥«¨¬ eax ­  â¥ªãé¨© ¬ áèâ ¡
		xchg eax,ebx
		xor edx,edx
		inc ecx
		div ecx ;¤¥«¨¬ eax ­  ­®¢ë© ¬ áèâ ¡
		sub ebx,eax ;¢ëç¨á«ï¥âáï á¤¢¨£ ¯®«ï ª®â®àë© ®¡¥á¯¥ç¨â æ¥­âà®¢ªã ¯®«ï
		sub dword[Cor_x],ebx ;á¤¢¨£ ¥¬ ¯®«¥ §à¥­¨ï ¯® ®á¨ x
		xor ecx,ecx
		mov cl,byte[zoom]
		xor edx,edx
		mov eax,dword[buf_0.h]
		shr eax,1
		mov ebx,eax
		div ecx
		xchg eax,ebx
		xor edx,edx
		inc ecx
		div ecx
		sub ebx,eax
		sub dword[Cor_y],ebx ;á¤¢¨£ ¥¬ ¯®«¥ §à¥­¨ï ¯® ®á¨ y
 
		inc byte[zoom]
		;xor eax,eax
		;mov edi,txt_zoom.zi
		;mov al,byte[zoom]
		;call tl_convert_to_str
		call draw_pok
		popad
 
		cmp dword[poc_stop],1
		jle .buf_clear
		cmp byte[tim_ch],0
		jne @f
			.buf_clear:
			stdcall [buf2d_clear], buf_0, [buf_0.color]
			call pole_paint
			stdcall [buf2d_draw], buf_0
	@@:
	ret
 
align 4
but_zoom_m:
	cmp byte[zoom],1
	jle @f
		pushad
		;¢ëç¨á«¥­¨¥ á¤¢¨£®¢ ¤«ï ¯®«ï, ª®â®àë¥ ®¡¥á¯¥ç â æ¥­âà®¢ªã ¯®«ï ¯à¨ ã¬¥­ìè¥­¨¨ ¬ áèâ ¡ 
		xor ecx,ecx
		mov cl,byte[zoom]
		xor edx,edx
		mov eax,dword[buf_0.w]
		shr eax,1 ;¢ eax ¯®«®¢¨­  è¨à¨­ë ¯®«ï
		mov ebx,eax ;¤¥« ¥¬ à¥§¥à¢­ãî ª®¯¨î eax
		div ecx ;¤¥«¨¬ eax ­  â¥ªãé¨© ¬ áèâ ¡
		xchg eax,ebx
		xor edx,edx
		dec ecx
		div ecx ;¤¥«¨¬ eax ­  ­®¢ë© ¬ áèâ ¡
		sub ebx,eax ;¢ëç¨á«ï¥âáï á¤¢¨£ ¯®«ï ª®â®àë© ®¡¥á¯¥ç¨â æ¥­âà®¢ªã ¯®«ï
		sub dword[Cor_x],ebx ;á¤¢¨£ ¥¬ ¯®«¥ §à¥­¨ï ¯® ®á¨ x
		xor ecx,ecx
		mov cl,byte[zoom]
		xor edx,edx
		mov eax,dword[buf_0.h]
		shr eax,1
		mov ebx,eax
		div ecx
		xchg eax,ebx
		xor edx,edx
		dec ecx
		div ecx
		sub ebx,eax
		sub dword[Cor_y],ebx ;á¤¢¨£ ¥¬ ¯®«¥ §à¥­¨ï ¯® ®á¨ y
 
		dec byte[zoom]
		;xor eax,eax
		;mov edi,txt_zoom.zi
		;mov al,byte[zoom]
		;call tl_convert_to_str
		call draw_pok
		popad
 
		cmp dword[poc_stop],1
		jle .buf_clear
		cmp byte[tim_ch],0
		jne @f
			.buf_clear:
			stdcall [buf2d_clear], buf_0, [buf_0.color]
			call pole_paint
			stdcall [buf2d_draw], buf_0
	@@:
	ret
 
align 4
but_pole_up:
	push eax ecx edx
	mov eax,dword[buf_0.h]
	shr eax,2
	xor ecx,ecx
	mov cl,byte[zoom]
	cmp cx,2
	jl @f ;¤¥«¥­¨¥ ­  ¢¥«¨ç¨­ã zoom
		xor edx,edx
		div ecx
	@@:
	add dword[Cor_y],eax
	pop edx ecx eax
	stdcall [buf2d_clear], buf_0, [buf_0.color]
	call pole_paint
	stdcall [buf2d_draw], buf_0
	ret
 
align 4
but_pole_dn:
	push eax ecx edx
	mov eax,dword[buf_0.h]
	shr eax,2
	xor ecx,ecx
	mov cl,byte[zoom]
	cmp cx,2
	jl @f ;¤¥«¥­¨¥ ­  ¢¥«¨ç¨­ã zoom
		xor edx,edx
		div ecx
	@@:
	sub dword[Cor_y],eax
	pop edx ecx eax
	stdcall [buf2d_clear], buf_0, [buf_0.color]
	call pole_paint
	stdcall [buf2d_draw], buf_0
	ret
 
align 4
but_pole_left:
	push eax ecx edx
	mov eax,dword[buf_0.w]
	shr eax,2
	xor ecx,ecx
	mov cl,byte[zoom]
	cmp cx,2
	jl @f ;¤¥«¥­¨¥ ­  ¢¥«¨ç¨­ã zoom
		xor edx,edx
		div ecx
	@@:
	add dword[Cor_x],eax
	pop edx ecx eax
	stdcall [buf2d_clear], buf_0, [buf_0.color]
	call pole_paint
	stdcall [buf2d_draw], buf_0
	ret
 
align 4
but_pole_right:
	push eax ecx edx
	mov eax,dword[buf_0.w]
	shr eax,2
	xor ecx,ecx
	mov cl,byte[zoom]
	cmp cx,2
	jl @f ;¤¥«¥­¨¥ ­  ¢¥«¨ç¨­ã zoom
		xor edx,edx
		div ecx
	@@:
	sub dword[Cor_x],eax
	pop edx ecx eax
	stdcall [buf2d_clear], buf_0, [buf_0.color]
	call pole_paint
	stdcall [buf2d_draw], buf_0
	ret
 
;align 4
;but_bru_clear:
;        ret
 
;input:
; buf - ãª § â¥«ì ­  áâà®ªã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
;output:
; eax - ç¨á«®
align 4
proc conv_str_to_int, buf:dword
	xor eax,eax
	push ebx ecx esi
	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
	@@:
	pop esi ecx ebx
	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 'LIF',0
db 'RLE',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_7 db '/sys/lib/'
lib_name_7 db 'buf2d.obj',0
err_msg_found_lib_7 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
err_msg_import_7 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 
l_libs_start:
	lib0 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
	lib1 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_7 l_libs lib_name_7, sys_path, library_path, system_dir_7,\
		err_msg_found_lib_7,head_f_l,import_buf2d,err_msg_import_7,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:
	init dd sz_init
	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_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_init 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_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
 
mouse_dd dd 0x0
sc system_colors 
last_time dd 0
 
align 16
procinfo process_information 
 
align 4
buf_0: dd 0 ;a? § a?«i ­  ?aa?a ?§®?a ¦?­?i
	dw 5 ;+4 left
	dw 35 ;+6 top
.w: dd 460 ;+8 w
.h: dd 340 ;+12 h
.color: dd 0xffffd0 ;+16 color
	db 24 ;+20 bit in pixel
 
;íâ®â ª®¤ ­¥ ¬®©, ®­ ¯à¥®¡à §ã¥â ç¨á«® ¢ áâà®ªã
;input:
; eax = value
; edi = string buffer
;output:
align 4
tl_convert_to_str:
	pushad
		mov dword[edi+1],0
		call .str
	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
		push edx     ;¯®«®¦¨âì ¢ áâ¥ª
		;dec edi             ;á¬¥é¥­¨¥ ­¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®­æ  áâà®ª¨
		call .str ;¯¥à¥©â¨ ­  á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥­â  ¯®ª  ¢ eax ­¥ áâ ­¥â ¬¥­ìè¥ ç¥¬ ¢ ecx
		pop eax
	@@: ;cmp al,10 ;¯à®¢¥à¨âì ­¥ ¬¥­ìè¥ «¨ §­ ç¥­¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥­ï 10 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
	or al,0x30  ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
	stosb	    ;§ ¯¨á âì í«¥¬¥­â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
	ret	      ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
 
i_end:
	rb 1024
stacktop:
	sys_path rb 1024
	file_name:
		rb 1024 ;4096 
	library_path rb 1024
	plugin_path rb 4096
	openfile_path rb 4096
	filename_area rb 256
mem:
>
>
 
>
 
>
>
>
>
>
>
>
>
>
>
>
>

Rev 2501	Rev 5092
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 '../../nu_pogodi/trunk/mem.inc'	-
16	include '../../nu_pogodi/trunk/dll.inc'	15	include '../../../dll.inc'
17		16
18	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	17	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
19	hed db 'Life 23.03.12',0 ;¯®¤¯¨áì ®ª	18	hed db 'Life 05.09.14',0 ;¯®¤¯¨áì ®ª
20		19
21	struct FileInfoBlock	20	struct FileInfoBlock
22	Function dd ?	21	Function dd ?
23	Position dd ?	22	Position dd ?
24	Flags dd ?	23	Flags dd ?
25	Count dd ?	24	Count dd ?
26	Buffer dd ?	25	Buffer dd ?
27	db ?	26	db ?
28	FileName dd ?	27	FileName dd ?
29	ends	28	ends
30		29
31	run_file_70 FileInfoBlock	30	run_file_70 FileInfoBlock
32	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	31	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
33		32
34	fn_toolbar db 'toolbar.png',0	33	fn_toolbar db 'toolbar.png',0
35	IMAGE_TOOLBAR_ICON_SIZE equ 16163	34	IMAGE_TOOLBAR_ICON_SIZE equ 16163
36	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9	35	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9
37	image_data_toolbar dd 0	36	image_data_toolbar dd 0
38		37
39	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	38	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
40	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	39	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
41	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	40	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
42	jmp @f	41	jmp @f
43	local .path_str	42	local .path_str
44	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	43	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
45	db 0	44	db 0
46	@@:	45	@@:
47	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	46	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
48	copy_path .path_str,[32],file_name,0x0	47	copy_path .path_str,[32],file_name,0x0
49	else	48	else
50	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	49	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
51	end if	50	end if
52		51
53	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	52	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
54	mov [buf],eax	53	mov [buf],eax
55		54
56	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	55	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
57	mov [run_file_70.Function], 0	56	mov [run_file_70.Function], 0
58	mov [run_file_70.Position], 0	57	mov [run_file_70.Position], 0
59	mov [run_file_70.Flags], 0	58	mov [run_file_70.Flags], 0
60	mov [run_file_70.Count], dword size	59	mov [run_file_70.Count], dword size
61	m2m [run_file_70.Buffer], [buf]	60	m2m [run_file_70.Buffer], [buf]
62	mov byte[run_file_70+20], 0	61	mov byte[run_file_70+20], 0
63	mov [run_file_70.FileName], file_name	62	mov [run_file_70.FileName], file_name
64	mov ebx,run_file_70	63	mov ebx,run_file_70
65	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	64	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
66	cmp ebx,0xffffffff	65	cmp ebx,0xffffffff
67	je @f	66	je @f
68	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	67	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
69	stdcall dword[img_decode], dword[buf],ebx,0	68	stdcall dword[img_decode], dword[buf],ebx,0
70	mov dword[image_data],eax	69	mov dword[image_data],eax
71	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	70	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
72	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	71	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
73	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	72	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
74	stdcall dword[img_destroy], dword[image_data]	73	stdcall dword[img_destroy], dword[image_data]
75	@@:	74	@@:
76	}	75	}
77		76
78	;--------------------------------------	77	;--------------------------------------
79	struct Cell	78	struct Cell
80	x dd ? ;+0	79	x dd ? ;+0
81	y dd ? ;+4	80	y dd ? ;+4
82	tc dd ? ;+8	81	tc dd ? ;+8
83	liv db ? ;+12	82	liv db ? ;+12
84	so db ? ;+13	83	so db ? ;+13
85	ends	84	ends
86		85
87	MAX_CELL equ 90000	86	MAX_CELL equ 90000
88	COL_MEM equ 64 ;ç¨á«® æ¢¥â®¢	87	COL_MEM equ 64 ;ç¨á«® æ¢¥â®¢
89		88
90	cell dd 0 ;ãª § â¥«ì ¯ ¬ïâì á® áâàãªâãà ¬¨ ïç¥¥ª	89	cell dd 0 ;ãª § â¥«ì ¯ ¬ïâì á® áâàãªâãà ¬¨ ïç¥¥ª
91	memCell dd 0	90	memCell dd 0
92	CellColors dd 0	91	CellColors dd 0
93		92
94	macro get_cell_offset reg,ind	93	macro get_cell_offset reg,ind
95	{	94	{
96	mov reg,ind	95	mov reg,ind
97	imul reg,sizeof.Cell	96	imul reg,sizeof.Cell
98	add reg,dword[cell]	97	add reg,dword[cell]
99	}	98	}
100		99
101	capt rb 50	100	capt rb 50
102	er_oom db 0 ; á«ãç © ¨áç¥à¯ ¨ï ¯ ¬ïâ¨	101	er_oom db 0 ; á«ãç © ¨áç¥à¯ ¨ï ¯ ¬ïâ¨
103	tim_ch db 0 ; ¢â®¬ â¨ç¥áª¨ ¯à®áç¨âë¢ âì ¯®ª®«¥¨ï	102	tim_ch db 0 ; ¢â®¬ â¨ç¥áª¨ ¯à®áç¨âë¢ âì ¯®ª®«¥¨ï
104	poc_stop dd 1 ;¯à®áç¥â ç¨á«® ¯®ª®«¥¨©	103	poc_stop dd 1 ;¯à®áç¥â ç¨á«® ¯®ª®«¥¨©
105	Cor_x dd 0	104	Cor_x dd 0
106	Cor_y dd 0	105	Cor_y dd 0
107	tim dd 0 ;¢à¥¬ï (¯®ª®«¥¨¥)	106	tim dd 0 ;¢à¥¬ï (¯®ª®«¥¨¥)
108	b_sort dd 0 ;£à ¨æ ¤«ï á®àâ¨à®¢ ëå ïç¥¥ª	107	b_sort dd 0 ;£à ¨æ ¤«ï á®àâ¨à®¢ ëå ïç¥¥ª
109	osob dd 0 ;ç¨á«® ®á®¡¥©	108	osob dd 0 ;ç¨á«® ®á®¡¥©
110	zoom db 3 ;¬ áèâ ¡ ¯®«ï	109	zoom db 3 ;¬ áèâ ¡ ¯®«ï
111	txt_zoom db ' áèâ ¡:',0	110	txt_zoom db ' áèâ ¡:',0
112	txt_gen db '®ª®«¥¨¥:',0	111	txt_gen db '®ª®«¥¨¥:',0
113	txt_osob db 'á®¡¥©:',0	112	txt_osob db 'á®¡¥©:',0
114		113
115	; áâà®©ª ¬ áá¨¢ á æ¢¥â ¬¨	114	; áâà®©ª ¬ áá¨¢ á æ¢¥â ¬¨
116	; col_pole - æ¢¥â ¯®«ï	115	; col_pole - æ¢¥â ¯®«ï
117	; col_cell_n - æ¢¥â ®¢®© ïç¥©ª¨	116	; col_cell_n - æ¢¥â ®¢®© ïç¥©ª¨
118	; col_cell_o - æ¢¥â áâ à®© ïç¥©ª¨	117	; col_cell_o - æ¢¥â áâ à®© ïç¥©ª¨
119	align 4	118	align 4
120	proc pole_init_colors uses eax ebx ecx edx esi edi, col_pole:dword, col_cell_n:dword, col_cell_o:dword	119	proc pole_init_colors uses eax ebx ecx edx esi edi, col_pole:dword, col_cell_n:dword, col_cell_o:dword
121	mov esi,dword[CellColors]	120	mov esi,dword[CellColors]
122	mov ebx,dword[col_pole]	121	mov ebx,dword[col_pole]
123	mov dword[esi],ebx	122	mov dword[esi],ebx
124		123
125	add esi,4	124	add esi,4
126	mov edi,COL_MEM	125	mov edi,COL_MEM
127	dec edi	126	dec edi
128	shl edi,2	127	shl edi,2
129	add edi,esi	128	add edi,esi
130	; esi - ãª § â¥«ì 1-© £à ¤¨¥âë© æ¢¥â	129	; esi - ãª § â¥«ì 1-© £à ¤¨¥âë© æ¢¥â
131	; edi - ãª § â¥«ì ¯®á«¥¤¨© £à ¤¨¥âë© æ¢¥â	130	; edi - ãª § â¥«ì ¯®á«¥¤¨© £à ¤¨¥âë© æ¢¥â
132	mov eax,dword[col_cell_n]	131	mov eax,dword[col_cell_n]
133	mov ebx,dword[col_cell_o]	132	mov ebx,dword[col_cell_o]
134		133
135	mov dword[esi],eax	134	mov dword[esi],eax
136	mov dword[edi],ebx	135	mov dword[edi],ebx
137	;need save ecx edx	136	;need save ecx edx
138	stdcall middle_colors, esi,edi	137	stdcall middle_colors, esi,edi
139		138
140	ret	139	ret
141	endp	140	endp
142		141
143	;¢á¯®¬®£ â¥«ì ï äãªæ¨ï ¤«ï å®¤¦¥¨ï áà¥¤¥£® æ¢¥â ¨ § ¯¨á¨ ¥£® ¢ ¬ áá¨¢	142	;¢á¯®¬®£ â¥«ì ï äãªæ¨ï ¤«ï å®¤¦¥¨ï áà¥¤¥£® æ¢¥â ¨ § ¯¨á¨ ¥£® ¢ ¬ áá¨¢
144	;input:	143	;input:
145	; eax - æ¢¥â ç «ìë©	144	; eax - æ¢¥â ç «ìë©
146	; ebx - æ¢¥â ª®¥çë©	145	; ebx - æ¢¥â ª®¥çë©
147	;§ §àãè îâìáï: ecx, edx	146	;§ §àãè îâìáï: ecx, edx
148	align 4	147	align 4
149	proc middle_colors uses edi esi, i0:dword, i1:dword	148	proc middle_colors uses edi esi, i0:dword, i1:dword
150	mov esi,dword[i0]	149	mov esi,dword[i0]
151	mov edi,dword[i1]	150	mov edi,dword[i1]
152	;¯¥à¥¤ ¢ë§®¢®¬ äãªæ¨¨	151	;¯¥à¥¤ ¢ë§®¢®¬ äãªæ¨¨
153	;dword[esi]=eax	152	;dword[esi]=eax
154	;dword[edi]=ebx	153	;dword[edi]=ebx
155	sub edi,esi	154	sub edi,esi
156	shr edi,1	155	shr edi,1
157	btr edi,1 ;®ªàã£«ï¥¬ ¤® 4-å, â. ª. ã¦® ¯®«ãç¨âì ¤à¥á (®ªàã£«¥¨¥ å¨âà®¥ - ã¡¨à ¥¬ ®¤¨ ¡¨â ¢¬¥áâ® ¯à¥¤¯®« £ ¥¬ëå 2-å)	156	btr edi,1 ;®ªàã£«ï¥¬ ¤® 4-å, â. ª. ã¦® ¯®«ãç¨âì ¤à¥á (®ªàã£«¥¨¥ å¨âà®¥ - ã¡¨à ¥¬ ®¤¨ ¡¨â ¢¬¥áâ® ¯à¥¤¯®« £ ¥¬ëå 2-å)
158	add edi,esi	157	add edi,esi
159	cmp edi,esi	158	cmp edi,esi
160	je @f	159	je @f
161	push eax ebx	160	push eax ebx
162		161
163	mov ecx,eax	162	mov ecx,eax
164	mov edx,ebx	163	mov edx,ebx
165		164
166	; å®¤¨¬ áà¥¤¨© æ¢¥â ¬¥¦¤ã eax ¨ ebx	165	; å®¤¨¬ áà¥¤¨© æ¢¥â ¬¥¦¤ã eax ¨ ebx
167	and ebx,111111101111111011111110b ;ã¡¨à ¥¬ ¯®á«¥¤¨¥ ¡¨âë ¢ æ¢¥â å r, g, b	166	and ebx,111111101111111011111110b ;ã¡¨à ¥¬ ¯®á«¥¤¨¥ ¡¨âë ¢ æ¢¥â å r, g, b
168	and eax,111111101111111011111110b	167	and eax,111111101111111011111110b
169	add eax,ebx ;áã¬¨àã¥¬ æ¢¥â ¨§ r, g, b	168	add eax,ebx ;áã¬¨àã¥¬ æ¢¥â ¨§ r, g, b
170	shr eax,1 ;¤¥«¨¬ 2	169	shr eax,1 ;¤¥«¨¬ 2
171	mov dword[edi],eax	170	mov dword[edi],eax
172		171
173	;à¥ªãàá¨¢ë© ¢ë§®¢ ¤«ï ¤à®¡«¥¨ï ¢¥àå¥© ¯®«®¢¨ë	172	;à¥ªãàá¨¢ë© ¢ë§®¢ ¤«ï ¤à®¡«¥¨ï ¢¥àå¥© ¯®«®¢¨ë
174	mov ebx,eax	173	mov ebx,eax
175	mov eax,ecx	174	mov eax,ecx
176	stdcall middle_colors, [i0],edi	175	stdcall middle_colors, [i0],edi
177		176
178	;à¥ªãàá¨¢ë© ¢ë§®¢ ¤«ï ¤à®¡«¥¨ï ¨¦¥© ¯®«®¢¨ë	177	;à¥ªãàá¨¢ë© ¢ë§®¢ ¤«ï ¤à®¡«¥¨ï ¨¦¥© ¯®«®¢¨ë
179	mov eax,ebx	178	mov eax,ebx
180	mov ebx,edx	179	mov ebx,edx
181	stdcall middle_colors, edi,[i1]	180	stdcall middle_colors, edi,[i1]
182		181
183	pop ebx eax	182	pop ebx eax
184	@@:	183	@@:
185	ret	184	ret
186	endp	185	endp
187		186
188	align 4	187	align 4
189	pole_clear:	188	pole_clear:
190	push eax ecx edi	189	push eax ecx edi
191	xor eax,eax	190	xor eax,eax
192	mov dword[tim],eax	191	mov dword[tim],eax
193	mov dword[osob],eax	192	mov dword[osob],eax
194	mov byte[tim_ch],al	193	mov byte[tim_ch],al
195	mov dword[Cor_x],eax	194	mov dword[Cor_x],eax
196	mov dword[Cor_y],eax	195	mov dword[Cor_y],eax
197	mov dword[b_sort],eax	196	mov dword[b_sort],eax
198	mov byte[er_oom],al	197	mov byte[er_oom],al
199	cld	198	cld
200	mov ecx,MAX_CELL	199	mov ecx,MAX_CELL
201	imul ecx,sizeof.Cell	200	imul ecx,sizeof.Cell
202	mov edi,dword[cell]	201	mov edi,dword[cell]
203	repne stosb ;memset(cell,0,sizeof(Cell)*MAX_CELL);	202	repne stosb ;memset(cell,0,sizeof(Cell)*MAX_CELL);
204	mov edi,dword[memCell]	203	mov edi,dword[memCell]
205	mov ecx,MAX_CELL	204	mov ecx,MAX_CELL
206	@@:	205	@@:
207	stosd ;for(i=0;i	206	stosd ;for(i=0;i
208	;mov dword[edi],eax	207	;mov dword[edi],eax
209	;add edi,4	208	;add edi,4
210	inc eax	209	inc eax
211	loop @b	210	loop @b
212	pop edi ecx eax	211	pop edi ecx eax
213	ret	212	ret
214		213
215	align 4	214	align 4
216	proc pole_cell_creat, x:dword, y:dword, li:dword	215	proc pole_cell_creat, x:dword, y:dword, li:dword
217	pushad ;eax ebx ecx edx edi	216	pushad ;eax ebx ecx edx edi
218		217
219	; *** ¥á«¨ ª«¥âª ã¦¥ ¡ë« á®§¤	218	; *** ¥á«¨ ª«¥âª ã¦¥ ¡ë« á®§¤
220	stdcall pole_cell_find, [x],[y]	219	stdcall pole_cell_find, [x],[y]
221	cmp eax,0	220	cmp eax,0
222	je @f ;if(i){	221	je @f ;if(i){
223	get_cell_offset ebx,eax	222	get_cell_offset ebx,eax
224	cmp dword[li],0	223	cmp dword[li],0
225	jne .else_if ;if(!li)	224	jne .else_if ;if(!li)
226	; ¥á«¨ á®§¤ ¥âáï ¯ãáâ ï ª«¥âª	225	; ¥á«¨ á®§¤ ¥âáï ¯ãáâ ï ª«¥âª
227	inc byte[ebx+13] ;+13 = .so	226	inc byte[ebx+13] ;+13 = .so
228	jmp .fun_e	227	jmp .fun_e
229	.else_if: ;else if(!(cell[i].liv&1) ){	228	.else_if: ;else if(!(cell[i].liv&1) ){
230	bt word[ebx+12],0 ;+12 = .liv	229	bt word[ebx+12],0 ;+12 = .liv
231	; ¥á«¨ á®§¤ ¥âáï ¦¨¢ ï ª«¥âª	230	; ¥á«¨ á®§¤ ¥âáï ¦¨¢ ï ª«¥âª
232	; ¨ à ìè¥ ª«¥âª ¡ë« á®§¤ ® ®ª § « áì ¯ãáâ®©	231	; ¨ à ìè¥ ª«¥âª ¡ë« á®§¤ ® ®ª § « áì ¯ãáâ®©
233	jae .creat_border_cells	232	jae .creat_border_cells
234	jmp .fun_e	233	jmp .fun_e
235	@@:	234	@@:
236		235
237	; *** á®§¤ ¨¥ ®¢®© ïç¥©ª¨	236	; *** á®§¤ ¨¥ ®¢®© ïç¥©ª¨
238	; å®¤¨¬ ®¬¥à á¢®¡®¤®© ïç¥©ª¨ (i) ¤«ï ¤®¡ ¢«¥¨ï ®¢®©	237	; å®¤¨¬ ®¬¥à á¢®¡®¤®© ïç¥©ª¨ (i) ¤«ï ¤®¡ ¢«¥¨ï ®¢®©
239	mov edi,dword[memCell]	238	mov edi,dword[memCell]
240	inc dword[edi]	239	inc dword[edi]
241	cmp dword[edi],MAX_CELL	240	cmp dword[edi],MAX_CELL
242	jne @f	241	jne @f
243	dec dword[edi]	242	dec dword[edi]
244	mov byte[tim_ch],0	243	mov byte[tim_ch],0
245	;... need call message: "eror out of memory" ...	244	;... need call message: "eror out of memory" ...
246	;... ¢ë¢®¤ á®®¡é¥¨ï ¯¥à¥¯®«¥¨ï ¤® ¤®¡ ¢¨âì ...	245	;... ¢ë¢®¤ á®®¡é¥¨ï ¯¥à¥¯®«¥¨ï ¤® ¤®¡ ¢¨âì ...
247	mov byte[er_oom],0	246	mov byte[er_oom],0
248	jmp .fun_e ;return;	247	jmp .fun_e ;return;
249	@@:	248	@@:
250	mov eax,dword[edi]	249	mov eax,dword[edi]
251	shl eax,2	250	shl eax,2
252	add eax,dword[memCell] ;eax -> memCell[firstC]	251	add eax,dword[memCell] ;eax -> memCell[firstC]
253	get_cell_offset ebx,dword[eax]	252	get_cell_offset ebx,dword[eax]
254		253
255	mov ecx,dword[x]	254	mov ecx,dword[x]
256	mov dword[ebx],ecx ;+0 = .x	255	mov dword[ebx],ecx ;+0 = .x
257	mov edx,dword[y]	256	mov edx,dword[y]
258	mov dword[ebx+4],edx ;+4 = .y	257	mov dword[ebx+4],edx ;+4 = .y
259	mov eax,dword[tim]	258	mov eax,dword[tim]
260	mov dword[ebx+8],eax ;+8 = .tc	259	mov dword[ebx+8],eax ;+8 = .tc
261	mov byte[ebx+12],0 ;+12 = .liv	260	mov byte[ebx+12],0 ;+12 = .liv
262		261
263	cmp dword[li],0	262	cmp dword[li],0
264	jne @f	263	jne @f
265	mov byte[ebx+13],1 ;+13 = .so	264	mov byte[ebx+13],1 ;+13 = .so
266	jmp .fun_e	265	jmp .fun_e
267	@@:	266	@@:
268	mov byte[ebx+13],0 ;+13 = .so	267	mov byte[ebx+13],0 ;+13 = .so
269		268
270	.creat_border_cells:	269	.creat_border_cells:
271	inc dword[osob]	270	inc dword[osob]
272	or byte[ebx+12],1 ;+12 = .liv	271	or byte[ebx+12],1 ;+12 = .liv
273	mov ecx,dword[x]	272	mov ecx,dword[x]
274	dec ecx	273	dec ecx
275	mov edx,dword[y]	274	mov edx,dword[y]
276	dec edx	275	dec edx
277	stdcall pole_cell_creat,ecx,edx,0	276	stdcall pole_cell_creat,ecx,edx,0
278	inc edx	277	inc edx
279	stdcall pole_cell_creat,ecx,edx,0	278	stdcall pole_cell_creat,ecx,edx,0
280	inc edx	279	inc edx
281	stdcall pole_cell_creat,ecx,edx,0	280	stdcall pole_cell_creat,ecx,edx,0
282	inc ecx	281	inc ecx
283	stdcall pole_cell_creat,ecx,edx,0	282	stdcall pole_cell_creat,ecx,edx,0
284	sub edx,2	283	sub edx,2
285	stdcall pole_cell_creat,ecx,edx,0	284	stdcall pole_cell_creat,ecx,edx,0
286	inc ecx	285	inc ecx
287	stdcall pole_cell_creat,ecx,edx,0	286	stdcall pole_cell_creat,ecx,edx,0
288	inc edx	287	inc edx
289	stdcall pole_cell_creat,ecx,edx,0	288	stdcall pole_cell_creat,ecx,edx,0
290	inc edx	289	inc edx
291	stdcall pole_cell_creat,ecx,edx,0	290	stdcall pole_cell_creat,ecx,edx,0
292	.fun_e:	291	.fun_e:
293	popad ;edi edx ecx ebx eax	292	popad ;edi edx ecx ebx eax
294	ret	293	ret
295	endp	294	endp
296		295
297	;output:	296	;output:
298	; eax - index	297	; eax - index
299	align 4	298	align 4
300	proc pole_cell_find, x:dword, y:dword	299	proc pole_cell_find, x:dword, y:dword
301	mov eax,dword[memCell]	300	mov eax,dword[memCell]
302	cmp dword[eax],0	301	cmp dword[eax],0
303	jne @f	302	jne @f
304	xor eax,eax ;if(!fristC) return 0;	303	xor eax,eax ;if(!fristC) return 0;
305	jmp .fun_e	304	jmp .fun_e
306	@@:	305	@@:
307		306
308	xor eax,eax ;fnd=0;	307	xor eax,eax ;fnd=0;
309	cmp dword[b_sort],0	308	cmp dword[b_sort],0
310	je @f	309	je @f
311	stdcall pole_bin_find, [memCell], [x],[y], [b_sort] ;i=BinFind(memCell, x,y, b_sort);	310	stdcall pole_bin_find, [memCell], [x],[y], [b_sort] ;i=BinFind(memCell, x,y, b_sort);
312	cmp eax,0	311	cmp eax,0
313	je @f	312	je @f
314	shl eax,2	313	shl eax,2
315	add eax,dword[memCell]	314	add eax,dword[memCell]
316	mov eax,dword[eax] ;if(i) fnd=memCell[i];	315	mov eax,dword[eax] ;if(i) fnd=memCell[i];
317	jmp .fun_e	316	jmp .fun_e
318	@@:	317	@@:
319		318
320	cmp eax,0	319	cmp eax,0
321	jne @f ;if(!fnd){ // ¯®¨áª ïç¥©ª¨ § ¡¨ àë¬ ¤¥à¥¢®¬	320	jne @f ;if(!fnd){ // ¯®¨áª ïç¥©ª¨ § ¡¨ àë¬ ¤¥à¥¢®¬
322	push ebx ecx edx edi esi	321	push ebx ecx edx edi esi
323	;ebx -> i	322	;ebx -> i
324	;ecx -> firstC	323	;ecx -> firstC
325	;edx -> &memCell[i]	324	;edx -> &memCell[i]
326	;edi -> cell[memCell[i]]	325	;edi -> cell[memCell[i]]
327	mov ecx,dword[memCell]	326	mov ecx,dword[memCell]
328	mov ebx,dword[b_sort]	327	mov ebx,dword[b_sort]
329	mov edx,ebx	328	mov edx,ebx
330	shl edx,2	329	shl edx,2
331	add edx,ecx	330	add edx,ecx
332	mov ecx,dword[ecx]	331	mov ecx,dword[ecx]
333	.cycle_b: ;for(i=b_sort+1;i<=fristC;i++)	332	.cycle_b: ;for(i=b_sort+1;i<=fristC;i++)
334	inc ebx	333	inc ebx
335	cmp ebx,ecx	334	cmp ebx,ecx
336	jg .cycle_e	335	jg .cycle_e
337	add edx,4	336	add edx,4
338	get_cell_offset edi,dword[edx]	337	get_cell_offset edi,dword[edx]
339	mov esi,dword[x]	338	mov esi,dword[x]
340	cmp dword[edi],esi ;+0 = .x	339	cmp dword[edi],esi ;+0 = .x
341	jne .if_e	340	jne .if_e
342	mov esi,dword[y]	341	mov esi,dword[y]
343	cmp dword[edi+4],esi ;+4 = .y	342	cmp dword[edi+4],esi ;+4 = .y
344	jne .if_e	343	jne .if_e
345	;if(cell[memCell[i]].x==x && cell[memCell[i]].y==y){	344	;if(cell[memCell[i]].x==x && cell[memCell[i]].y==y){
346	mov eax,dword[edx] ;fnd=memCell[i];	345	mov eax,dword[edx] ;fnd=memCell[i];
347	jmp .cycle_e ;break;	346	jmp .cycle_e ;break;
348	.if_e:	347	.if_e:
349	jmp .cycle_b	348	jmp .cycle_b
350	.cycle_e:	349	.cycle_e:
351	pop esi edi edx ecx ebx	350	pop esi edi edx ecx ebx
352	@@:	351	@@:
353	.fun_e:	352	.fun_e:
354	ret	353	ret
355	endp	354	endp
356		355
357	;output:	356	;output:
358	; eax - index	357	; eax - index
359	align 4	358	align 4
360	proc pole_bin_find, mas:dword, fx:dword, fy:dword, k:dword	359	proc pole_bin_find, mas:dword, fx:dword, fy:dword, k:dword
361	push ebx ecx edx edi	360	push ebx ecx edx edi
362	xor eax,eax	361	xor eax,eax
363	mov ebx,1 ;ebx - ¬ ªá¨¬ «ìë© ¯®àï¤®ª ¤«ï ¤¥à¥¢	362	mov ebx,1 ;ebx - ¬ ªá¨¬ «ìë© ¯®àï¤®ª ¤«ï ¤¥à¥¢
364	@@:	363	@@:
365	cmp dword[k],ebx	364	cmp dword[k],ebx
366	jle @f ;while(k>por)	365	jle @f ;while(k>por)
367	shl ebx,1 ;por<<=1;	366	shl ebx,1 ;por<<=1;
368	jmp @b	367	jmp @b
369	@@:	368	@@:
370	cmp dword[k],ebx	369	cmp dword[k],ebx
371	jge @f ;if(k	370	jge @f ;if(k
372	shr ebx,1 ;por>>=1;	371	shr ebx,1 ;por>>=1;
373	@@:	372	@@:
374	mov ecx,ebx ;i=por;	373	mov ecx,ebx ;i=por;
375		374
376	;ecx -> i	375	;ecx -> i
377	;edi -> mas[i]	376	;edi -> mas[i]
378	.cycle_b: ;do{	377	.cycle_b: ;do{
379	shr ebx,1 ;por>>=1;	378	shr ebx,1 ;por>>=1;
380		379
381	mov edi,ecx	380	mov edi,ecx
382	shl edi,2	381	shl edi,2
383	add edi,dword[mas]	382	add edi,dword[mas]
384	;if(compare_cells_mb(mas[i],fx,fy)){	383	;if(compare_cells_mb(mas[i],fx,fy)){
385	stdcall pole_compare_cells_mb_coords, dword[edi],[fx],[fy]	384	stdcall pole_compare_cells_mb_coords, dword[edi],[fx],[fy]
386	cmp dl,0	385	cmp dl,0
387	je .if_u0_e	386	je .if_u0_e
388	@@: ;while(i+por>k)	387	@@: ;while(i+por>k)
389	mov edx,ecx	388	mov edx,ecx
390	add edx,ebx	389	add edx,ebx
391	cmp edx,dword[k] ;i+por>k	390	cmp edx,dword[k] ;i+por>k
392	jle @f	391	jle @f
393	shr ebx,1 ;por>>=1;	392	shr ebx,1 ;por>>=1;
394	jmp @b	393	jmp @b
395	@@:	394	@@:
396	add ecx,ebx ;i+=por;	395	add ecx,ebx ;i+=por;
397	jmp .if_e	396	jmp .if_e
398	.if_u0_e:	397	.if_u0_e:
399	;else if(compare_cells_bm(mas[i],fx,fy))i-=por;	398	;else if(compare_cells_bm(mas[i],fx,fy))i-=por;
400	stdcall pole_compare_cells_bm_coords, dword[edi],[fx],[fy]	399	stdcall pole_compare_cells_bm_coords, dword[edi],[fx],[fy]
401	cmp dl,0	400	cmp dl,0
402	je .if_u1_e	401	je .if_u1_e
403	sub ecx,ebx	402	sub ecx,ebx
404	jmp .if_e	403	jmp .if_e
405	.if_u1_e:	404	.if_u1_e:
406	;else { m=i; por=0; }	405	;else { m=i; por=0; }
407	mov eax,ecx	406	mov eax,ecx
408	xor ebx,ebx	407	xor ebx,ebx
409	.if_e:	408	.if_e:
410	cmp ebx,0	409	cmp ebx,0
411	jne .cycle_b ;}while(por);	410	jne .cycle_b ;}while(por);
412		411
413	pop edi edx ecx ebx	412	pop edi edx ecx ebx
414	ret	413	ret
415	endp	414	endp
416		415
417	;output:	416	;output:
418	; dl	417	; dl
419	align 4	418	align 4
420	proc pole_compare_cells_bm_coords, i0:dword, fx:dword, fy:dword	419	proc pole_compare_cells_bm_coords, i0:dword, fx:dword, fy:dword
421	push eax ebx ecx	420	push eax ebx ecx
422	get_cell_offset eax,[i0]	421	get_cell_offset eax,[i0]
423	;eax -> cell[i0]	422	;eax -> cell[i0]
424	mov ebx,dword[fx]	423	mov ebx,dword[fx]
425	cmp dword[eax],ebx	424	cmp dword[eax],ebx
426	jle @f	425	jle @f
427	mov dl,1	426	mov dl,1
428	jmp .fun_e	427	jmp .fun_e
429	@@:	428	@@:
430	mov ecx,dword[fy]	429	mov ecx,dword[fy]
431	cmp dword[eax+4],ecx	430	cmp dword[eax+4],ecx
432	jle @f	431	jle @f
433	cmp dword[eax],ebx	432	cmp dword[eax],ebx
434	jne @f	433	jne @f
435	mov dl,1	434	mov dl,1
436	jmp .fun_e	435	jmp .fun_e
437	@@:	436	@@:
438	xor dl,dl	437	xor dl,dl
439	.fun_e:	438	.fun_e:
440	pop ecx ebx eax	439	pop ecx ebx eax
441	ret	440	ret
442	endp	441	endp
443		442
444	;output:	443	;output:
445	; dl	444	; dl
446	align 4	445	align 4
447	proc pole_compare_cells_mb_coords, i0:dword, fx:dword, fy:dword	446	proc pole_compare_cells_mb_coords, i0:dword, fx:dword, fy:dword
448	push eax ebx ecx	447	push eax ebx ecx
449	get_cell_offset eax,[i0]	448	get_cell_offset eax,[i0]
450	;eax -> cell[i0]	449	;eax -> cell[i0]
451	mov ebx,dword[fx]	450	mov ebx,dword[fx]
452	cmp dword[eax],ebx	451	cmp dword[eax],ebx
453	jge @f	452	jge @f
454	mov dl,1	453	mov dl,1
455	jmp .fun_e	454	jmp .fun_e
456	@@:	455	@@:
457	mov ecx,dword[fy]	456	mov ecx,dword[fy]
458	cmp dword[eax+4],ecx	457	cmp dword[eax+4],ecx
459	jge @f	458	jge @f
460	cmp dword[eax],ebx	459	cmp dword[eax],ebx
461	jne @f	460	jne @f
462	mov dl,1	461	mov dl,1
463	jmp .fun_e	462	jmp .fun_e
464	@@:	463	@@:
465	xor dl,dl	464	xor dl,dl
466	.fun_e:	465	.fun_e:
467	pop ecx ebx eax	466	pop ecx ebx eax
468	ret	467	ret
469	endp	468	endp
470		469
471	;output:	470	;output:
472	; dl	471	; dl
473	align 4	472	align 4
474	proc pole_compare_cells_bm, i0:dword, i1:dword	473	proc pole_compare_cells_bm, i0:dword, i1:dword
475	push eax ebx ecx	474	push eax ebx ecx
476	get_cell_offset eax,[i0] ;eax -> cell[i0]	475	get_cell_offset eax,[i0] ;eax -> cell[i0]
477	get_cell_offset ebx,[i1] ;ebx -> cell[i1]	476	get_cell_offset ebx,[i1] ;ebx -> cell[i1]
478	mov ecx,dword[ebx] ;+0 = .x	477	mov ecx,dword[ebx] ;+0 = .x
479	cmp dword[eax],ecx	478	cmp dword[eax],ecx
480	jle @f ;x0>x1	479	jle @f ;x0>x1
481	mov dl,1	480	mov dl,1
482	jmp .fun_e	481	jmp .fun_e
483	@@:	482	@@:
484	jne @f ;x0==x1	483	jne @f ;x0==x1
485	mov ecx,dword[ebx+4] ;+4 = .y	484	mov ecx,dword[ebx+4] ;+4 = .y
486	cmp dword[eax+4],ecx	485	cmp dword[eax+4],ecx
487	jle @f ;y0>y1	486	jle @f ;y0>y1
488	mov dl,1	487	mov dl,1
489	jmp .fun_e	488	jmp .fun_e
490	@@:	489	@@:
491	xor dl,dl	490	xor dl,dl
492	.fun_e:	491	.fun_e:
493	pop ecx ebx eax	492	pop ecx ebx eax
494	ret	493	ret
495	endp	494	endp
496		495
497	align 4	496	align 4
498	pole_paint:	497	pole_paint:
499	pushad	498	pushad
500	;eax -> firstC	499	;eax -> firstC

Subversion Repositories Kolibri OS

(root)/programs/games/life3/trunk/life3.asm @ 2501 – Rev 2501 → 5092