diff --git a/programs/media/log_el/trunk/Tupfile.lua b/programs/media/log_el/Tupfile.lua
similarity index 100%
rename from programs/media/log_el/trunk/Tupfile.lua
rename to programs/media/log_el/Tupfile.lua
diff --git a/programs/media/log_el/trunk/alu_4b.txt b/programs/media/log_el/alu_4b.txt
similarity index 100%
rename from programs/media/log_el/trunk/alu_4b.txt
rename to programs/media/log_el/alu_4b.txt
diff --git a/programs/media/log_el/trunk/and_2.txt b/programs/media/log_el/and_2.txt
similarity index 100%
rename from programs/media/log_el/trunk/and_2.txt
rename to programs/media/log_el/and_2.txt
diff --git a/programs/media/log_el/trunk/and_3.txt b/programs/media/log_el/and_3.txt
similarity index 100%
rename from programs/media/log_el/trunk/and_3.txt
rename to programs/media/log_el/and_3.txt
diff --git a/programs/media/log_el/trunk/build_ru.bat b/programs/media/log_el/build_ru.bat
similarity index 60%
rename from programs/media/log_el/trunk/build_ru.bat
rename to programs/media/log_el/build_ru.bat
index 9a104dba2..d0491280d 100644
--- a/programs/media/log_el/trunk/build_ru.bat
+++ b/programs/media/log_el/build_ru.bat
@@ -1,5 +1,5 @@
 if not exist bin mkdir bin
-if not exist bin\font6x9.bmp @copy ..\..\..\fs\kfar\trunk\font6x9.bmp bin\font6x9.bmp
+if not exist bin\font6x9.bmp @copy ..\..\fs\kfar\trunk\font6x9.bmp bin\font6x9.bmp
 @copy *.png bin\*.png
 @copy *.txt bin\*.txt
 @fasm.exe -m 16384 log_el.asm bin\log_el.kex
diff --git a/programs/media/log_el/trunk/calc.txt b/programs/media/log_el/calc.txt
similarity index 100%
rename from programs/media/log_el/trunk/calc.txt
rename to programs/media/log_el/calc.txt
diff --git a/programs/media/log_el/trunk/cursors.png b/programs/media/log_el/cursors.png
similarity index 100%
rename from programs/media/log_el/trunk/cursors.png
rename to programs/media/log_el/cursors.png
diff --git a/programs/media/log_el/trunk/cursors_gr.png b/programs/media/log_el/cursors_gr.png
similarity index 100%
rename from programs/media/log_el/trunk/cursors_gr.png
rename to programs/media/log_el/cursors_gr.png
diff --git a/programs/media/log_el/trunk/le_libs.inc b/programs/media/log_el/le_libs.inc
similarity index 100%
rename from programs/media/log_el/trunk/le_libs.inc
rename to programs/media/log_el/le_libs.inc
diff --git a/programs/media/log_el/trunk/le_pole.inc b/programs/media/log_el/le_pole.inc
similarity index 100%
rename from programs/media/log_el/trunk/le_pole.inc
rename to programs/media/log_el/le_pole.inc
diff --git a/programs/media/log_el/trunk/le_signal.inc b/programs/media/log_el/le_signal.inc
similarity index 100%
rename from programs/media/log_el/trunk/le_signal.inc
rename to programs/media/log_el/le_signal.inc
diff --git a/programs/media/log_el/trunk/log_el.asm b/programs/media/log_el/log_el.asm
similarity index 95%
rename from programs/media/log_el/trunk/log_el.asm
rename to programs/media/log_el/log_el.asm
index 7873ced2b..981e18230 100644
--- a/programs/media/log_el/trunk/log_el.asm
+++ b/programs/media/log_el/log_el.asm
@@ -1,2614 +1,2620 @@
-use32
-	org 0
-	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
-	dd 1,start,i_end,mem,stacktop,0,sys_path
-
-ini_def_c_bkgnd equ 0
-ini_def_c_border equ 0xff0000
-color_s0 equ 0xff ;сигнал 0
-color_s1 equ 0xffffff ;сигнал 1
-color_s2 equ 0xff00 ;точка без пересечения
-color_s3 equ 0xff0000 ;временное значение для сохранения
-
-color_border dd ini_def_c_border
-opt_sign_moves dd 4
-opt_fast_mode dd 0 ;быстрый режим
-
-debug equ 0
-
-;номара иконок:
-el_icon_group equ 0 ;групповая
-el_icon_points equ 1 ;точки
-el_icon_sub_points equ 2 ;изоляции
-el_icon_elems equ 3 ;элемента
-el_icon_captions equ 4 ;подписи
-
-size_el_opt equ 34 ;размер структуры с опциями элемента
-el_offs_nam equ 0 ;смещение для начала имени элемента
-el_offs_col equ 16 ;цвет элемента
-el_offs_box_x equ 20 ;ширина коробки элемента
-el_offs_box_y equ 21 ;высота коробки элемента
-el_offs_table equ 22 ;указатель на таблицу работы элемента
-el_offs_legs_inp equ 26 ;указатель на таблицу описания входных ног
-el_offs_legs_out equ 30 ;смещение на описание выходных ног
-
-sp_offs_el_angle equ 8 ;смещение для угла поворота элемента в списке
-sp_offs_el_type equ 9 ;смещение для типа элемента в списке
-
-points_max equ 1000
-capt_offs equ 10 ;смещение для начала подписи в листе tree1
-
-include '../../../macros.inc'
-include '../../../proc32.inc'
-include '../../../KOSfuncs.inc'
-include '../../../load_img.inc'
-include '../../../load_lib.mac'
-include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
-include 'le_pole.inc'
-include 'le_signal.inc'
-
-@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db 'Логические элементы 13.02.16',0 ;подпись окна
-
-panel_0_coord_top equ 5 ;верхняя координата 0-го ряда панели инструментов
-panel_1_coord_top equ 35
-panel_2_coord_top equ 60
-panel_3_coord_top equ 85
-
-;input:
-; eax - coord x
-; ebx - coord y
-;output:
-; eax - coord x + d_x * cos(angle)
-; ebx - coord y + d_x * sin(angle)
-align 4
-proc move_rotate_x_n90 uses ecx edi, d_x:dword, angle:dword
-	mov edi,[angle] ;угол поворота / 90 (от 0-3)
-	and edi,3
-	shl edi,4 ;edi*=16
-	add edi,mcs
-
-	mov ecx,[d_x]
-	imul ecx,dword[edi]
-	add eax,ecx
-
-	mov ecx,[d_x]
-	imul ecx,dword[edi+8]
-	add ebx,ecx
-	ret
-endp
-
-macro elOpt nam,col,box_x,box_y,table, tbl_i_legs, ol0, ol1, ol2
-{
-	@@: db nam,0
-	rb @b+el_offs_col-$
-	dd col
-	db box_x
-	db box_y
-	dd table+0 ;+el_offs_table
-	dd tbl_i_legs+0 ;+26 входные ноги
-;+30 выходные ноги
-	db ol0+0, ol1+0, ol2+0, 0
-}
-
-align 4
-el_opt_beg:
-elOpt 'or[2]', 0xff00ff,5,5,tbl_or, tbl_il_2, 2
-elOpt 'or[3]', 0xff00ff,5,7,tbl_or, tbl_il_3, 3
-elOpt 'or[4]', 0xff00ff,5,9,tbl_or, tbl_il_4, 4
-elOpt 'and[2]',0xffff00,5,5,tbl_and.2, tbl_il_2, 2
-elOpt 'and[3]',0xffff00,5,7,tbl_and.3, tbl_il_3, 3
-elOpt 'and[4]',0xffff00,5,9,tbl_and.4, tbl_il_4, 4
-elOpt 'and[5]',0xffff00,5,11,tbl_and.5, tbl_il_5, 5
-elOpt 'not',   0xffff,	3,3,tbl_not, tbl_il_1, 1
-elOpt 'xor',   0x8000ff,5,5,tbl_xor, tbl_il_2, 2
-elOpt 'sm[1]', 0x8080ff,7,7,tbl_sm,  tbl_il_3, 1,4
-elOpt 'ms[2]', 0x8080ff,7,14,tbl_ms_2,  tbl_il_m2,6
-elOpt 'ms[2]e',0x8080ff,7,17,tbl_ms_2_e,tbl_il_m2e,8
-;elOpt 'cd[8]', 0x8000, 7,17,tbl_cd_8,tbl_il_8, 6,2,2 ;шифратор на 8 входов
-.end:
-elOpt '???', 0x808080,3,3,tbl_and.3, tbl_il_1, 1 ;не опознанный элемент
-
-;таблицы по которым задаются правила работы элементов
-align 4
-tbl_or db 0,1,1,1, 1,1,1,1 ;or2, or3
-	db 1,1,1,1,1,1,1,1 ;or4
-tbl_and:
-.5: dq 0,0
-.4: dq 0
-.3: dd 0
-.2: db 0,0,0,1
-tbl_xor db 0,1,1,0
-tbl_sm db 0,2,2,1, 2,1,1,3
-tbl_not db 1,0 ;not
-
-;мультиплексор для 2-х разрядного сигнала
-align 4
-tbl_ms_2_e: ;со входом 'e'
-dq 0,0,0,0,0,0,0,0
-tbl_ms_2:
-db 0,1,0,1,0,1,0,1
-db 0,1,0,1,0,1,0,1
-db 0,0,1,1,0,0,1,1
-db 0,0,1,1,0,0,1,1
-db 0,0,0,0,1,1,1,1
-db 0,0,0,0,1,1,1,1
-dq 0
-db 1,1,1,1,1,1,1,1
-;tbl_cd_8 db ;256=2^8
-
-;таблицы для входных ног
-tbl_il_1 db 1,0   ;корпус на 1 ногу
-tbl_il_2 db 1,2,0 ;корпус на 2 ноги
-tbl_il_3 db 1,2,2,0
-tbl_il_4 db 1,2,2,2,0
-tbl_il_5 db 1,2,2,2,2,0
-tbl_il_m2  db 1,2,2,2,3,2,0
-tbl_il_m2e db 1,2,2,2,3,2,3,0
-;tbl_il_8 db 1,2,2,2,2,2,2,2,0
-
-time dd 0
-tim_ch db 0
-pen_mode dd 0 ;режим рисования провода
-pen_coord_x dd 0 ;координата x начальной точки рисования
-pen_coord_y dd 0
-
-txt_set_0 db '0',0
-txt_set_1 db '1',0
-;txt_mov_l db 27,0 ;<-
-;txt_mov_r db 26,0 ;->
-
-txt_size db 'size',0
-txt_elements db 'elements',0
-txt_points db 'points',0
-txt_sub_points db 'subpoints',0
-txt_captions db 'captions',0
-
-;матрица косинусов и синусов, используемая для поворотов сигналов и элементов
-align 4
-mcs dd 1, 0, 0, 1,\
-	   0, 1,-1, 0,\
-	  -1, 0, 0,-1,\
-	   0,-1, 1, 0
-
-IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
-
-cursors_count equ 4
-
-ini_name db 'log_el.ini',0 ;имя файла
-ini_sec_color db 'Colors',0
-key_color_bkgnd db 'background',0
-key_color_border db 'border',0
-key_color_s0 db 's0',0
-key_color_s1 db 's1',0
-key_color_s2 db 's2',0
-key_color_captions db 'captions',0
-ini_sec_options db 'Options',0
-key_opt_sign_moves db 'signal_moves',0
-key_opt_fast_mode db 'fast_mode',0
-
-align 4
-start:
-	load_libraries l_libs_start,l_libs_end
-	;проверка на сколько удачно загузилась библиотека
-	mov	ebp,lib4
-	cmp	dword [ebp+ll_struc_size-4],0
-	jz	@f
-		mcall SF_TERMINATE_PROCESS
-	@@:
-	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
-	mcall SF_SET_EVENTS_MASK,0x27
-
-	;*** считывание настроек из *.ini файла
-	copy_path ini_name,sys_path,file_name,0
-
-	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_bkgnd,ini_def_c_bkgnd
-	mov dword[buf_0.color],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_border,ini_def_c_border
-	mov dword[color_border],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_s0,color_s0
-	mov dword[shem_colors],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_s1,color_s1
-	mov dword[shem_colors+4],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_s2,color_s2
-	mov dword[shem_colors+8],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_captions,[color_captions]
-	mov dword[color_captions],eax
-
-	mov ebx,el_opt_beg+el_offs_nam
-	mov ecx,(el_opt_beg.end-el_opt_beg)/size_el_opt ;колличество типов элементов
-	cld
-	@@:
-		push ecx
-		stdcall dword[ini_get_color],file_name,ini_sec_color,ebx,[ebx+el_offs_col-el_offs_nam]
-		pop ecx
-		mov dword[ebx+el_offs_col-el_offs_nam],eax
-		add ebx,size_el_opt
-		loop @b
-
-	stdcall dword[ini_get_int],file_name,ini_sec_options,key_opt_sign_moves,[opt_sign_moves]
-	mov dword[opt_sign_moves],eax
-	stdcall dword[ini_get_int],file_name,ini_sec_options,key_opt_fast_mode,[opt_fast_mode]
-	mov dword[opt_fast_mode],eax
-
-	;*** подготовка диалога
-	stdcall [OpenDialog_Init],OpenDialog_data
-	stdcall [buf2d_create], buf_0 ;создание буфера
-	load_image_file 'toolbar.png', image_data_toolbar
-
-	stdcall pole_init, pole
-	stdcall dword[tl_data_init], tree1
-	stdcall dword[tl_data_init], tree2
-
-	;системные иконки 16*16 для tree_list
-	load_image_file 'tl_sys_16.png', icon_tl_sys
-	;если изображение не открылось, то в icon_tl_sys будут
-	;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера
-	mov eax,dword[icon_tl_sys]
-	mov dword[tree1.data_img_sys],eax
-	mov dword[tree2.data_img_sys],eax
-
-	load_image_file 'objects.png', icon_toolbar
-	mov eax,dword[icon_toolbar]
-	mov dword[tree1.data_img],eax
-	mov dword[tree2.data_img],eax
-
-	;*** загрузка шрифта
-	load_image_file 'font6x9.bmp', image_data_gray
-	stdcall [buf2d_create_f_img], buf_font,[image_data_gray] ;создаем буфер
-	stdcall mem.Free,[image_data_gray] ;освобождаем память
-
-	stdcall [buf2d_conv_24_to_8], buf_font,1 ;делаем буфер прозрачности 8 бит
-	stdcall [buf2d_convert_text_matrix], buf_font
-
-	;*** загрузка курсоров
-	load_image_file 'cursors_gr.png',image_data_gray
-	stdcall [buf2d_create_f_img], buf_curs_8,[image_data_gray] ;создаем буфер
-	stdcall mem.Free,[image_data_gray] ;освобождаем память
-
-	load_image_file 'cursors.png',image_data_gray
-	stdcall [buf2d_create_f_img], buf_curs,[image_data_gray] ;создаем буфер
-	stdcall mem.Free,[image_data_gray] ;освобождаем память
-
-	stdcall [buf2d_conv_24_to_8], buf_curs_8,1 ;делаем буфер прозрачности 8бит
-	stdcall [buf2d_conv_24_to_32],buf_curs,buf_curs_8 ;делаем буфер rgba 32бит
-
-	stdcall sign_init, 3000
-	mov eax,el_opt_beg+el_offs_nam
-	mov ecx,(el_opt_beg.end-el_opt_beg)/size_el_opt ;колличество типов элементов
-	cld
-	@@:
-		stdcall [tl_node_add], tree2,el_icon_elems shl 16,eax
-		stdcall [tl_cur_next], tree2
-		add eax,size_el_opt
-		loop @b
-	stdcall [tl_cur_beg], tree2
-
-	;*** установка времени для таймера
-	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
-	mov [last_time],eax
-
-align 4
-red_win:
-	call draw_window
-
-align 4
-still:
-	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
-	mov ebx,[last_time]
-	add ebx,10 ;задержка
-	cmp ebx,eax
-	jge @f
-		mov ebx,eax
-	@@:
-	sub ebx,eax
-	mcall SF_WAIT_EVENT_TIMEOUT
-	cmp eax,0
-	je timer_funct
-
-	cmp al,1
-	jz red_win
-	cmp al,EV_KEY
-	jz key
-	cmp al,3
-	jz button
-	cmp al,EV_MOUSE
-	jne @f
-		call mouse
-	@@:
-	jmp still
-
-align 4
-timer_funct:
-	pushad
-	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
-	mov [last_time],eax
-
-	cmp byte[tim_ch],0
-	je @f
-		inc dword[time]
-	cmp dword[opt_fast_mode],0
-	jne .fast_m
-		call sign_move
-		stdcall [buf2d_draw], buf_0
-		mov eax,[time]
-		xor edx,edx
-		div dword[opt_sign_moves]
-		cmp edx,0 ;проверяем кратность opt_sign_moves
-		jnz @f
-			call sign_from_elems
-			call sign_from_captions
-		jmp @f
-	.fast_m:
-		mov ecx,[opt_sign_moves]
-		cld
-		.cycle:
-		call sign_move
-		loop .cycle
-		call sign_from_elems
-		call sign_from_captions
-		stdcall [buf2d_draw], buf_0
-	@@:
-
-	popad
-	jmp still
-
-align 4
-mouse:
-	stdcall [tl_mouse], tree1
-	stdcall [tl_mouse], tree2
-
-	pushad
-	mcall SF_MOUSE_GET,SSF_BUTTON
-	bt eax,0 ;левая кнопка нажата?
-	jc @f
-	bt eax,1 ;правая кнопка нажата?
-	jc @f
-		xor eax,eax
-		mov [pen_coord_x],eax
-		mov [pen_coord_y],eax
-		jmp .end_buf_wnd
-	@@:
-	mov esi,eax
-
-	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;eax = (x shl 16) + y
-	cmp ax,word[buf_0.t]
-	jl .end_buf_wnd ;не попали в окно буфера по оси y
-
-	mov ebx,eax
-	shr ebx,16
-	cmp bx,word[buf_0.l]
-	jl .end_buf_wnd ;не попали в окно буфера по оси x
-
-		and eax,0xffff ;оставляем координату y
-		sub ax,word[buf_0.t]
-		sub bx,word[buf_0.l]
-		;*** деление на zoom
-		movzx ecx,byte[zoom]
-		xor edx,edx
-		div ecx
-		xchg eax,ebx ;ebx делим на ecx
-		xor edx,edx
-		div ecx
-
-		sub eax,[Cor_x]
-		sub ebx,[Cor_y]
-
-		;*** проверка на попадение в схему
-		bt eax,31
-		jc .end_buf_wnd
-		bt ebx,31
-		jc .end_buf_wnd
-		cmp eax,[shem_w]
-		jge .end_buf_wnd
-		cmp ebx,[shem_h]
-		jge .end_buf_wnd
-
-		cmp byte[pen_mode],0
-		jne .end_mode_0
-			bt esi,1
-			jc .end_mode_0
-			;режим курсора (выбор элемента при нажатии)
-			stdcall element_is_click,eax,ebx
-			test eax,eax
-			jz .end_buf_wnd ;при нажатии не попали ни на один из элементов
-				push eax
-					stdcall [tl_node_get_data], tree1
-					mov ebx,eax
-				pop eax
-				cmp eax,ebx
-				je .end_buf_wnd ;если уже курсор стоит там где нужно
-				
-				stdcall [tl_cur_beg], tree1
-				.cycle0:
-				push eax
-					stdcall [tl_node_get_data], tree1
-					mov ebx,eax
-				pop eax
-				test ebx,ebx
-				jz .end_buf_wnd
-				cmp eax,ebx
-				je @f
-					stdcall [tl_cur_next], tree1
-					jmp .cycle0
-				@@:
-				stdcall [tl_draw], tree1
-			jmp .end_buf_wnd
-		.end_mode_0:
-		cmp byte[pen_mode],1
-		jne .end_mode_1
-			;режим рисования провода
-			cmp dword[pen_coord_x],0
-			jne @f
-			cmp dword[pen_coord_y],0
-			jne @f
-				mov [pen_coord_x],eax
-				mov [pen_coord_y],ebx
-			@@:
-
-			cmp dword[pen_coord_x],eax
-			je .beg_draw
-			cmp dword[pen_coord_y],ebx
-			je .beg_draw
-
-			mov ecx,eax
-			sub ecx,[pen_coord_x]
-			bt ecx,31
-			jnc @f
-				neg ecx
-				inc ecx
-			@@:
-			mov edx,ebx
-			sub edx,[pen_coord_y]
-			bt edx,31
-			jnc @f
-				neg edx
-				inc edx
-			@@:
-			cmp ecx,edx
-			jl @f
-				mov ebx,[pen_coord_y] ;привязка к координате y
-				jmp .beg_draw
-			@@:
-			mov eax,[pen_coord_x] ;привязка к координате x
-
-			.beg_draw:
-			bt esi,1
-			jc @f
-				stdcall pole_cell_creat, pole,eax,ebx,0
-				;ничего не убралось redraw_pole не подходит, т. к. чистить поле не нужно
-				stdcall pole_paint, pole
-				stdcall [buf2d_draw], buf_0
-				jmp .end_buf_wnd
-			@@:
-				stdcall pole_cell_delete, pole,eax,ebx
-				call redraw_pole
-				jmp .end_buf_wnd
-		.end_mode_1:
-		cmp byte[pen_mode],2
-		jne @f
-			;режим рисования изоляции для провода
-			bt esi,1
-			jc .mode_2_del
-				stdcall pole_cell_creat, pole,eax,ebx,2
-				jmp .mode_2_draw
-			.mode_2_del:
-				;стирание изоляции
-				mov ecx,eax
-				stdcall pole_cell_find, pole,ecx,ebx
-				test eax,eax
-				jz .end_buf_wnd
-				stdcall pole_cell_creat, pole,ecx,ebx,0
-			.mode_2_draw:
-			stdcall pole_paint, pole
-			stdcall [buf2d_draw], buf_0
-			jmp .end_buf_wnd
-		@@:
-		cmp byte[pen_mode],3
-		jne @f
-			bt esi,1
-			jc @f
-			;режим стирания провода
-			stdcall pole_cell_delete, pole,eax,ebx
-			call redraw_pole
-			jmp .end_buf_wnd
-		@@:
-		cmp byte[pen_mode],4
-		jne @f
-			bt esi,1
-			jc .rotate
-			;режим создания элементов
-			stdcall shem_element_creat, eax,ebx
-			stdcall pole_paint, pole
-			stdcall [buf2d_draw], buf_0
-			jmp .end_buf_wnd
-			.rotate:
-			;поворот элементов на 90 градусов
-			stdcall element_is_click,eax,ebx
-			test eax,eax
-			jz .end_buf_wnd
-				inc byte[eax+sp_offs_el_angle]
-				and byte[eax+sp_offs_el_angle],3 ;для контроля на переполнение
-				call redraw_pole
-			jmp .end_buf_wnd
-		@@:
-
-	.end_buf_wnd:
-if debug
-stdcall but_test_pole, pole
-end if
-	popad
-	ret
-
-;output:
-; eax - pointer to element data
-align 4
-proc element_is_click uses ebx ecx edx esi edi, coord_x:dword, coord_y:dword
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	@@:
-		cmp esi,0
-		je @f
-		cmp word[esi],el_icon_elems ;получение через esi тип иконки
-		jne .end_add_p1
-			stdcall [tl_node_poi_get_data], tree1,esi
-			mov ecx,eax
-
-			movzx edx,byte[ecx+sp_offs_el_type]
-			imul edx,size_el_opt
-			add edx,el_opt_beg ;находим опцию со свойствами данного элемента
-
-			mov eax,[ecx] ;element coord x
-			mov ebx,[ecx+4] ;element coord y
-			movzx edi,byte[ecx+sp_offs_el_angle]
-			push edi
-			movzx edi,byte[edx+el_offs_box_y]
-			dec edi
-			push edi
-			movzx edi,byte[edx+el_offs_box_x]
-			dec edi
-			push edi
-			stdcall move_rotate_n90 ;,[edx+el_offs_box_x],[edx+el_offs_box_y],[ecx+sp_offs_el_angle]
-			;Rect(eax,ebx,[ecx],[ecx+4])
-			stdcall point_in_rect, [coord_x],[coord_y], eax,ebx,[ecx],[ecx+4]
-			test eax,eax
-			jz .end_add_p1
-				mov eax,ecx
-				jmp .end_f
-		.end_add_p1:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp @b
-	@@:
-		xor eax,eax ;если не нашли
-	.end_f:
-	ret
-endp
-
-;проверка попадения точки в прямоугольник
-;результат:
-; если не попадает то eax=0
-; если попадает то eax=1
-align 4
-proc point_in_rect uses ebx ecx, px:dword, py:dword, rx0:dword, ry0:dword, rx1:dword, ry1:dword
-	xor eax,eax
-
-	;проверка по оси x
-	mov ebx,[rx0]
-	mov ecx,[rx1]
-	cmp ebx,ecx
-	jle @f
-		xchg ebx,ecx
-	@@:
-	cmp ebx,[px]
-	jg .no_contains
-	cmp ecx,[px]
-	jl .no_contains
-
-	;проверка по оси y
-	mov ebx,[ry0]
-	mov ecx,[ry1]
-	cmp ebx,ecx
-	jle @f
-		xchg ebx,ecx
-	@@:
-	cmp ebx,[py]
-	jg .no_contains
-	cmp ecx,[py]
-	jl .no_contains
-
-	;если попали то eax=1
-		inc eax
-		;stdcall draw_scaled_rect, [rx0],[ry0],[rx1],[ry1], 0xffffff
-		;stdcall [buf2d_draw], buf_0
-	.no_contains:
-	ret
-endp
-
-align 4
-draw_window:
-pushad
-	mcall SF_REDRAW,SSF_BEGIN_DRAW
-
-	; *** рисование главного окна (выполняется 1 раз при запуске) ***
-	mov edx,[sc.work]
-	or  edx,(3 shl 24)+0x10000000+0x20000000
-	mov edi,caption
-	mcall SF_CREATE_WINDOW, (20 shl 16)+580,(20 shl 16)+415
-
-	; *** создание кнопок на панель ***
-	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_0_coord_top shl 16)+20, 3, [sc.work_button]
-
-	add ebx,25 shl 16
-	mov edx,4
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,5
-	int 0x40
-
-	add ebx,30 shl 16
-	mov edx,6 ;пуск | остановка
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,7
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,8
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,9
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,10
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,11
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,12
-	int 0x40
-
-	add ebx,30 shl 16
-	mov edx,13 ;центровка схемы
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,14
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,15
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,16 ;сдвиг схемы вверх
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,17 ;сдвиг схемы вниз
-	int 0x40
-
-	; *** рисование иконок на кнопках ***
-	mov edx,(7 shl 16)+panel_0_coord_top+2 ;icon new
-	mcall SF_PUT_IMAGE, [image_data_toolbar],(16 shl 16)+16
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;icon open
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;icon save
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(30 shl 16) ;+
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;-
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(30 shl 16) ;center
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;m
-	int 0x40
-
-	; *** рисование буфера ***
-	stdcall [buf2d_draw], buf_0
-	mov dword[wScr1.all_redraw],1
-	stdcall [tl_draw], tree1
-	mov dword[wScr2.all_redraw],1
-	stdcall [tl_draw], tree2
-	stdcall pole_draw_pok, pole
-
-	; *** создание кнопок установки сигналов set_0 и set_1 ***
-	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_1_coord_top shl 16)+20, 20, [sc.work_button]
-
-	add ebx,25 shl 16
-	inc edx
-	int 0x40
-
-	add ebx,30 shl 16
-	inc edx
-	int 0x40
-
-	add ebx,25 shl 16
-	inc edx
-	int 0x40
-
-	add ebx,25 shl 16
-	inc edx
-	int 0x40
-
-	add ebx,25 shl 16
-	inc edx
-	int 0x40
-
-	mov ecx,[sc.work_text]
-	or  ecx,0x80000000 ;or (1 shl 30)
-	;mov edi,[sc.work]
-	mcall SF_DRAW_TEXT, (12 shl 16)+panel_1_coord_top+6,, txt_set_0
-
-	add ebx,25 shl 16
-	mov edx,txt_set_1
-	int 0x40
-
-	; *** рисование иконок на кнопках ***
-	mov ebx,[image_data_toolbar]
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE*15
-	mcall SF_PUT_IMAGE,, (16 shl 16)+16, (62 shl 16)+panel_1_coord_top+2
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16)
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16)
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16)
-	int 0x40
-
-	; *** создание кнопок рисования провода ***
-	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_2_coord_top shl 16)+20, 30, [sc.work_button]
-
-	add ebx,30 shl 16
-	mov edx,31
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,32
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,33
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,34
-	int 0x40
-
-	add ebx,25 shl 16
-	mov edx,35
-	int 0x40
-
-	; *** рисование иконок на кнопках ***
-	mov ebx,[image_data_toolbar]
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE*19
-	mcall SF_PUT_IMAGE,, (16 shl 16)+16,(7 shl 16)+panel_2_coord_top+2 ;иконка стрела
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(30 shl 16) ;icon - рисование провода
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;icon - рисование пересечений проводов
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;icon - рисование логических элементов
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;icon - рисование подписей
-	int 0x40
-
-	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	add edx,(25 shl 16) ;icon - затирачка
-	int 0x40
-
-	mcall SF_REDRAW,SSF_END_DRAW
-popad
-	ret
-
-align 4
-key:
-	mcall SF_GET_KEY
-	stdcall [tl_key], tree1
-	stdcall [tl_key], tree2
-	jmp still
-
-
-align 4
-button:
-	mcall SF_GET_BUTTON
-	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_run_stop
-		jmp still
-	@@:
-	cmp ah,7
-	jne @f
-		call but_zoom_p
-		jmp still
-	@@:
-	cmp ah,8
-	jne @f
-		call but_zoom_m
-		jmp still
-	@@:
-	cmp ah,9
-	jne @f
-		call but_pole_left
-		jmp still
-	@@:
-	cmp ah,10
-	jne @f
-		call but_pole_right
-		jmp still
-	@@:
-	cmp ah,11
-	jne @f
-		call but_pole_up
-		jmp still
-	@@:
-	cmp ah,12
-	jne @f
-		call but_pole_dn
-		jmp still
-	@@:
-	cmp ah,13
-	jne @f
-		call but_center
-		jmp still
-	@@:
-
-	;передвижение всех объектов схемы
-	cmp byte[tim_ch],0
-	jne .no_move
-	cmp ah,14
-	jne @f
-		stdcall pole_move_all, pole, -1, 0
-		call redraw_pole
-	@@:
-	cmp ah,15
-	jne @f
-		stdcall pole_move_all, pole, 1, 0
-		call redraw_pole
-	@@:
-	cmp ah,16 ;сдвиг схемы вверх
-	jne @f
-		stdcall pole_move_all, pole, 0, -1
-		call redraw_pole
-	@@:
-	cmp ah,17 ;сдвиг схемы вниз
-	jne @f
-		stdcall pole_move_all, pole, 0, 1
-		call redraw_pole
-	@@:
-	.no_move:
-
-	cmp ah,20
-	jne @f
-		call but_set_0
-	@@:
-	cmp ah,21
-	jne @f
-		call but_set_1
-	@@:
-	cmp ah,22
-	jne @f
-		call but_mov_l
-	@@:
-	cmp ah,23
-	jne @f
-		call but_mov_r
-	@@:
-	cmp ah,24
-	jne @f
-		call but_mov_u
-	@@:
-	cmp ah,25
-	jne @f
-		call but_mov_d
-	@@:
-	cmp ah,30
-	jne @f
-		call but_set_none
-	@@:
-	cmp ah,31
-	jne @f
-		stdcall set_pen_mode,1,0,((9 shl 8)+9) shl 16 ;установка режима рисования провода
-	@@:
-	cmp ah,32
-	jne @f
-		stdcall set_pen_mode,2,1,((9 shl 8)+9) shl 16
-	@@:
-	cmp ah,33
-	jne @f
-		stdcall set_pen_mode,4,3,((9 shl 8)+9) shl 16 ;установка режима создания элементов
-	@@:
-	cmp ah,35
-	jne @f
-		stdcall set_pen_mode,3,2,((15 shl 8)+9) shl 16 ;установка режима стирания провода
-	@@:
-	cmp ah,1
-	jne still
-.exit:
-	stdcall [buf2d_delete],buf_0
-	stdcall [buf2d_delete],buf_font
-	stdcall [buf2d_delete],buf_curs
-	stdcall mem.Free,[image_data_toolbar]
-	stdcall pole_delete, pole
-	call sign_delete
-	stdcall [tl_data_clear], tree1
-	;чистим указатели на изображения, которые были общими для листов и удалены листом tree1
-	mov dword[tree2.data_img_sys],0
-	mov dword[tree2.data_img],0
-	stdcall [tl_data_clear], tree2
-	cmp [cursor_pointer],0
-	je @f
-		mcall SF_MOUSE_GET,SSF_DEL_CURSOR,[cursor_pointer]
-	@@:
-	mcall SF_TERMINATE_PROCESS
-
-;создание новой схемы
-align 4
-proc but_new_file uses eax
-	call but_set_none
-	stdcall [tl_info_clear],tree1
-	stdcall [tl_draw],tree1
-	xor eax,eax
-	mov [shem_elems],eax
-	mov [shem_captions],eax
-	stdcall pole_clear, pole
-	call redraw_pole
-	ret
-endp
-
-align 4
-f_size dd 0 ;размер открываемого файла
-shem_w dd 192 ;ширина схемы
-shem_h dd 128 ;высота схемы
-shem_points dd 0 ;колличество узлов на схеме
-shem_sub_points dd 0 ;колличество изолированных узлов на схеме
-shem_elems dd 0 ;колличество элементов на схеме
-shem_captions dd 0
-shem_colors:
-	dd color_s0, color_s1, color_s2, color_s3
-color_captions dd 0x808080
-
-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],1 ;0 - Cancel 1 - Open 2 - Error open dialog
-	jne .end_open_file
-	;код при удачном открытии диалога
-
-	mov [run_file_70.Function], SSF_READ_FILE
-	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
-	mcall SF_FILE,run_file_70 ;загружаем файл
-	cmp ebx,0xffffffff
-	je .end_open_file
-
-		mov dword[f_size],ebx
-		add ebx,open_file_lif
-		mov byte[ebx],0 ;на случай если ранее был открыт файл большего размера чистим конец буфера с файлом
-		mcall SF_SET_CAPTION,1,openfile_path
-		;---
-
-		;задаем минимальные значения, на случай если в файле будут некоректные размеры
-		mov dword[shem_w],5
-		mov dword[shem_h],5
-
-		mov esi,txt_size
-		call str_analiz_r
-		or edi,edi
-		jz @f
-			stdcall str_len,esi
-			add edi,eax
-			stdcall conv_str_to_int,edi
-			cmp eax,5
-			jl @f ;ошибка в файле (на .end_open_file не переходим, пытаемся прочитать другую информацию)
-			mov dword[shem_w],eax
-
-			call str_next_val
-			stdcall conv_str_to_int,edi
-			cmp eax,5
-			jl @f ;ошибка в файле
-			mov dword[shem_h],eax
-		@@:
-
-		stdcall [tl_info_clear],tree1
-
-		;*** добавление в список логических элементов ***
-		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_elements-capt_offs
-		stdcall [tl_cur_next], tree1
-
-		mov esi,txt_elements
-		call str_analiz_r
-		or edi,edi
-		jz .end_elems
-			stdcall str_len,esi
-			add edi,eax
-			stdcall conv_str_to_int,edi
-			cmp eax,0
-			jle .end_elems ;если число элементов = 0
-			mov [shem_elems],eax
-			mov ecx,eax
-			.cycle_elem:
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov dword[txt_buf],eax ;координата x
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov dword[txt_buf+4],eax ;координата y
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov byte[txt_buf+sp_offs_el_angle],al ;направление
-				call str_next_val
-				;по адресу edi название элемента
-				stdcall el_get_name, edi,13 ;13 - ascii code
-				mov byte[txt_buf+sp_offs_el_type],al ;тип элемента
-
-				stdcall make_list_capts,txt_buf,edi
-
-				stdcall [tl_node_add], tree1,(el_icon_elems shl 16)+1,txt_buf
-				stdcall [tl_cur_next], tree1
-				dec ecx
-				jnz .cycle_elem
-		.end_elems:
-
-		;*** добавление в список текстовых подписей ***
-		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_captions-capt_offs
-		stdcall [tl_cur_next], tree1
-
-		mov esi,txt_captions
-		call str_analiz_r
-		cmp edi,0
-		je .end_captions
-			stdcall str_len,esi
-			add edi,eax
-			stdcall conv_str_to_int,edi
-			cmp eax,0
-			jle .end_captions ;если число подписей = 0
-			mov [shem_captions],eax
-			mov ecx,eax
-			.cycle_captions:
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov dword[txt_buf],eax ;координата x
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov dword[txt_buf+4],eax ;координата y
-				call str_next_val
-				mov al,byte[edi] 
-				mov byte[txt_buf+8],al ;вид подписи ('z' - сигнал с 0, 'o' - сигнал с 1, 'n' - нет сигнала)
-				call str_next_val
-
-				stdcall make_list_capts,txt_buf,edi
-
-				stdcall [tl_node_add], tree1,(el_icon_captions shl 16)+1,txt_buf
-				stdcall [tl_cur_next], tree1
-				dec ecx
-				jnz .cycle_captions
-		.end_captions:
-
-		mov byte[txt_buf+capt_offs],0 ;обнуление подписей
-
-		;*** добавление в список ключевых точек ***
-		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_points-capt_offs
-		stdcall [tl_cur_next], tree1
-
-		mov dword[shem_points],0
-		mov esi,txt_points
-		call str_analiz_r
-		cmp edi,0
-		je .end_points ;если описания точек нет в файле
-			stdcall str_len,esi
-			add edi,eax
-			stdcall conv_str_to_int,edi
-			cmp eax,0
-			jle .end_points ;если число точек = 0
-			mov [shem_points],eax
-			mov ecx,eax
-			.cycle_poi:
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov dword[txt_buf],eax ;координата x
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov dword[txt_buf+4],eax ;координата y
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov byte[txt_buf+8],al ;направления
-
-				stdcall [tl_node_add], tree1,(el_icon_points shl 16)+1,txt_buf
-				stdcall [tl_cur_next], tree1
-				dec ecx
-				jnz .cycle_poi
-		.end_points:
-
-		stdcall [tl_cur_beg], tree1
-
-	;*** добавление точечных объектов ***
-	stdcall pole_clear, pole
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	@@:
-		cmp esi,0
-		je @f
-		cmp word[esi],el_icon_points ;получение через esi тип иконки, и пропуск не точечных объектов
-		jne .end_add_p0
-			stdcall [tl_node_poi_get_data], tree1,esi
-			stdcall pole_cell_creat, pole,dword[eax],dword[eax+4],0
-		.end_add_p0:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp @b
-	@@:
-	stdcall pole_sort, pole
-
-	;*** добавление точечных объектов (на основе логических элементов) ***
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	@@:
-		cmp esi,0
-		je @f
-		cmp word[esi],el_icon_elems ;получение через esi тип иконки
-		jne .end_add_p3
-			stdcall [tl_node_poi_get_data], tree1,esi
-			mov ecx,eax
-
-			xor edx,edx ;edx - номер входной ноги
-			.add_p1:
-				stdcall el_get_leg_coords, ecx,edx
-				test eax,eax
-				jnz .add_beg1
-				test ebx,ebx
-				jnz .add_beg1
-					jmp .end_add_p1 ;если координаты не взялись (eax=0 && ebx=0), выход из цикла
-				.add_beg1:
-				stdcall pole_cell_creat, pole,eax,ebx,0
-				inc edx
-				jmp .add_p1
-			.end_add_p1:
-
-			mov edx,(1 shl 16) ;edx - номер выходной ноги
-			.add_p2:
-				stdcall el_get_leg_coords, ecx,edx
-				test eax,eax
-				jnz .add_beg2
-				test ebx,ebx
-				jnz .add_beg2
-					jmp .end_add_p2 ;если координаты не взялись (eax=0 && ebx=0), выход из цикла
-				.add_beg2:
-				stdcall pole_cell_creat, pole,eax,ebx,0
-				inc edx
-				jmp .add_p2
-			.end_add_p2:
-
-		.end_add_p3:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp @b
-	@@:
-	stdcall pole_sort, pole
-
-	;*** добавление точечных объектов (на основе подписей) ***
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	@@:
-		cmp esi,0
-		je @f
-		cmp word[esi],el_icon_captions ;получение через esi тип иконки
-		jne .end_add_p6
-			stdcall [tl_node_poi_get_data], tree1,esi
-			mov ecx,eax
-			cmp byte[ecx+8],'n'
-			je .end_add_p6
-				stdcall pole_cell_creat, pole,[ecx],[ecx+4],0
-		.end_add_p6:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp @b
-	@@:
-	stdcall pole_sort, pole
-
-	;*** рисование проводов (на основе точечных объектов) ***
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	xor ecx,ecx
-	@@:
-		cmp esi,0
-		je @f
-		cmp word[esi],el_icon_points ;получение через esi тип иконки, и пропуск не точечных объектов
-		jne .end_add_p4
-			stdcall [tl_node_poi_get_data], tree1,esi
-			movzx ebx,byte[eax+8]
-			stdcall shem_create_line, dword[eax],dword[eax+4],ebx
-			add ecx,edx
-		.end_add_p4:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		cmp ecx,250 ;ecx - число добавленных точек
-		jl @b
-		xor ecx,ecx
-		stdcall pole_sort, pole ;сортируем для оптимизации быстродействия
-		jmp @b
-	@@:
-	stdcall pole_sort, pole
-
-		stdcall pole_reset_cells, pole ;чистка проводов
-
-		;*** добавление изоляционных объектов (прямо из файла, минуя запись в список) ***
-		mov dword[shem_sub_points],0
-		mov esi,txt_sub_points
-		call str_analiz_r
-		cmp edi,0
-		je .end_sub_points ;если описания точек нет в файле
-			stdcall str_len,esi
-			add edi,eax
-			stdcall conv_str_to_int,edi
-			cmp eax,0
-			jle .end_sub_points ;если число точек = 0
-			mov [shem_sub_points],eax
-			mov ecx,eax
-			.cycle_sub_poi:
-				call str_next_val
-				stdcall conv_str_to_int,edi
-				mov ebx,eax ;координата x
-				call str_next_val
-				stdcall conv_str_to_int,edi ;координата y
-				stdcall pole_cell_creat, pole,ebx,eax,2
-
-				dec ecx
-				jnz .cycle_sub_poi
-		.end_sub_points:
-
-		stdcall pole_sort, pole
-
-		;*** удаление ключевых точек со списка ***
-		mov ecx,[shem_points]
-		inc ecx
-		cld
-		@@:
-			stdcall [tl_info_undo],tree1
-		loop @b
-
-		;*** формирование подписей о параметрах схемы ***
-		mov dword[txt_info.size],0
-		mov eax,dword[shem_w]
-		mov edi,txt_info.size
-		call convert_int_to_str
-		stdcall str_cat, edi,txt_mull
-		mov eax,dword[shem_h]
-		mov edi,txt_buf
-		call convert_int_to_str
-		stdcall str_cat, txt_info.size,edi
-		stdcall str_cat, txt_info.size,txt_space ;завершающий пробел
-
-		;---
-		call but_center ;центровка схемы с учетом shem_w и shem_h
-		call but_set_none
-	.end_open_file:
-	popad
-	ret
-
-align 4
-proc but_save_file
-locals
-	napr dd ?
-	s_param dd ? ;параметр для красивого сохранения
-endl
-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],1 ;if status==1 then save
-	jne .end_save_file
-
-	;*** проверка есть ли провода на схеме
-	mov edi,pole
-	mov esi,pole_index
-	cmp dword[esi],0
-	je .cycle1_beg ;.end_save_file ;если нет ячеек (проводов) то выход
-
-	;*** устанавливаем метки на ключевые точки, которые будут сохранены в файл
-	mov dword[shem_points],0 ;для переопределения точек
-	mov dword[shem_sub_points],0
-	mov ecx,dword[esi]
-	.cycle0: ;цикл по всем точкам
-		add esi,4
-		mov ebx,[esi]
-		imul ebx,sizeof.Cell
-		add ebx,pole_data
-
-		cmp byte[ebx+offs_cell_liv],2
-		jne @f
-			inc dword[shem_sub_points]
-			jmp .cycle0_next
-		@@:
-
-		mov dword[napr],0
-
-		mov edx,[ebx+offs_cell_y]
-		push edx
-		mov edx,[ebx+offs_cell_x]
-		inc edx
-		push edx
-		stdcall pole_cell_find, edi
-		or eax,eax
-		jz @f
-			or dword[napr],1
-		@@:
-
-		mov edx,[ebx+offs_cell_y]
-		inc edx
-		push edx
-		mov edx,[ebx+offs_cell_x]
-		push edx
-		stdcall pole_cell_find, edi
-		or eax,eax
-		jz @f
-			or dword[napr],2
-		@@:
-
-		mov edx,[ebx+offs_cell_y]
-		push edx
-		mov edx,[ebx+offs_cell_x]
-		dec edx
-		push edx
-		stdcall pole_cell_find, edi
-		or eax,eax
-		jz @f
-			or dword[napr],4
-		@@:
-
-		mov edx,[ebx+offs_cell_y]
-		dec edx
-		push edx
-		mov edx,[ebx+offs_cell_x]
-		push edx
-		stdcall pole_cell_find, edi
-		or eax,eax
-		jz @f
-			or dword[napr],8
-		@@:
-
-		cmp dword[napr],5
-		je @f
-		cmp dword[napr],10
-		je @f
-		cmp dword[napr],15
-		je @f
-			mov eax,dword[napr]
-			mov byte[ebx+offs_cell_liv],3 ;установка метки
-			mov byte[ebx+offs_cell_napr],al ;установка направлений
-			inc dword[shem_points]
-		@@:
-		.cycle0_next:
-		dec ecx
-		jnz .cycle0
-
-	;*** снятие метки с точек, которые находятся на входных ногах логических элементов
-	.cycle1_beg:
-	mov dword[shem_elems],0 ;для пепеопределения числа элементов
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	.cycle1:
-		cmp esi,0
-		je .cycle1_end
-		cmp word[esi],el_icon_elems ;получение через esi тип иконки
-		jne .end_add_p1
-			inc dword[shem_elems]
-if 0
-			xor edx,edx ;edx - номер входной ноги
-			@@:
-				stdcall el_get_leg_coords, ecx,edx
-				test eax,eax
-				jz @f ;если координаты не взялись (eax=0 && ebx=0)
-				test ebx,ebx
-				jz @f ;если координаты не взялись (eax=0 && ebx=0)
-				stdcall pole_cell_find, edi,eax,ebx
-				test eax,eax
-				jz .no_erase
-					get_cell_offset ebx,eax
-					mov byte[ebx+offs_cell_liv],0 ;снятие метки
-					dec dword[shem_points]
-				.no_erase:
-				inc edx
-				jmp @b
-			@@:
-			;mov edx,(1 shl 16) ;edx - номер выходной ноги
-end if
-		.end_add_p1:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp .cycle1
-	.cycle1_end:
-
-	;*** создание информации для записи в файл ***
-	mov edi,open_file_lif
-	stdcall mem_copy,edi,txt_size,5
-	stdcall str_cat,edi,txt_space
-	mov eax,dword[shem_w]
-	add edi,5
-	stdcall convert_int_to_str
-	stdcall str_cat,edi,txt_space
-	stdcall str_len,edi
-	add edi,eax
-	mov eax,[shem_h]
-	stdcall convert_int_to_str
-	stdcall str_cat,edi,txt_nl
-
-	;*** сохранение логических элементов ***
-	stdcall str_cat,edi,txt_elements
-	stdcall str_cat,edi,txt_space
-	stdcall str_len,edi
-	add edi,eax
-	mov eax,[shem_elems]
-	stdcall convert_int_to_str
-	stdcall str_cat,edi,txt_nl
-
-	cmp eax,1
-	jl .cycle2_end
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	.cycle2:
-		cmp esi,0
-		je .cycle2_end
-		cmp word[esi],el_icon_elems ;получение через esi тип иконки
-		jne .end_add_p2
-			stdcall [tl_node_poi_get_data], tree1,esi
-			mov ecx,eax
-
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,[ecx] ;coord x
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-	
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,[ecx+4] ;coord y
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			stdcall str_len,edi
-			add edi,eax
-			movzx eax,byte[ecx+sp_offs_el_angle] ;angle
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			;имя элемента
-			movzx eax,byte[ecx+sp_offs_el_type]
-			imul eax,size_el_opt
-			add eax,el_opt_beg+el_offs_nam
-			stdcall str_cat,edi,eax
-
-			stdcall str_cat,edi,txt_nl
-
-		.end_add_p2:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp .cycle2
-	.cycle2_end:
-
-	;*** сохранение подписей ***
-	stdcall str_cat,edi,txt_captions
-	stdcall str_cat,edi,txt_space
-	stdcall str_len,edi
-	add edi,eax
-	mov eax,[shem_captions]
-	stdcall convert_int_to_str
-	stdcall str_cat,edi,txt_nl
-
-	cmp eax,1
-	jl .cycle3_end
-	stdcall dword[tl_node_poi_get_info], tree1,0
-	mov esi,eax
-	.cycle3:
-		cmp esi,0
-		je .cycle3_end
-		cmp word[esi],el_icon_captions ;получение через esi тип иконки
-		jne .end_add_p3
-			stdcall [tl_node_poi_get_data], tree1,esi
-			mov ecx,eax
-
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,[ecx] ;coord x
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-	
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,[ecx+4] ;coord y
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			stdcall str_len,edi
-			add edi,eax
-			movzx eax,byte[ecx+8] ;n,z,o
-			mov ah,' ' ;пробел после буквы, что бы не добавлять txt_space
-			mov dword[edi],eax ;al
-
-			;имя элемента
-			mov ebx,edi
-			mov edi,ecx
-			add edi,capt_offs
-			call str_next_val
-			call str_next_val
-			;call str_next_val
-			xchg ebx,edi
-			stdcall str_cat,edi,ebx
-
-			stdcall str_cat,edi,txt_nl
-
-		.end_add_p3:
-		stdcall dword[tl_node_poi_get_next_info], tree1,esi
-		mov esi,eax ;переходим к следущему узлу
-		jmp .cycle3
-	.cycle3_end:
-
-	;*** сохранение ключевых точек ***
-	stdcall str_cat,edi,txt_points
-	stdcall str_cat,edi,txt_space
-	stdcall str_len,edi
-	add edi,eax
-	mov eax,[shem_points]
-	stdcall convert_int_to_str
-	stdcall str_cat,edi,txt_nl
-
-	mov eax,edi
-	mov edi,pole
-	mov esi,pole_index
-	cmp dword[esi],0
-	je .no_points ;если нет ячеек (проводов) то пропуск
-	mov ebx,pole_data
-	mov dword[napr],ebx
-	mov edi,eax
-
-	mov ecx,dword[esi]
-	mov dword[s_param],0
-	.cycle4: ;цикл по всем точкам
-		add esi,4
-		mov ebx,[esi]
-		imul ebx,sizeof.Cell
-		add ebx,dword[napr] ;pole_data
-
-		movzx edx,word[ebx+offs_cell_liv] ;also use offs_cell_napr
-		cmp dl,3
-		jne @f
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,dword[ebx+offs_cell_x]
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,dword[ebx+offs_cell_y]
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			stdcall str_len,edi
-			add edi,eax
-			movzx eax,dh
-			stdcall convert_int_to_str
-
-			cmp dword[s_param],7 ;для формата строки
-			je .new_line
-				inc dword[s_param]
-				stdcall str_cat,edi,txt_space
-			jmp @f
-			.new_line:
-				mov dword[s_param],0
-				stdcall str_cat,edi,txt_nl
-		@@:
-		dec ecx
-		jnz .cycle4
-		cmp dword[s_param],0
-		je @f
-			stdcall str_cat,edi,txt_nl
-		@@:
-
-	;*** сохранение изоляционных точек ***
-	stdcall str_cat,edi,txt_sub_points
-	stdcall str_cat,edi,txt_space
-	stdcall str_len,edi
-	add edi,eax
-	mov eax,[shem_sub_points]
-	stdcall convert_int_to_str
-	stdcall str_cat,edi,txt_nl
-
-	mov eax,edi
-	mov edi,pole
-	mov esi,pole_index
-	;cmp dword[esi],0
-	;je .no_points ;если нет ячеек (проводов) то пропуск
-	;mov ebx,pole_data
-	;mov dword[napr],ebx
-	mov edi,eax
-
-	mov ecx,dword[esi]
-	.cycle5: ;цикл по всем точкам
-		add esi,4
-		mov ebx,[esi]
-		imul ebx,sizeof.Cell
-		add ebx,dword[napr] ;pole_data
-
-		movzx edx,byte[ebx+offs_cell_liv]
-		cmp dl,2
-		jne @f
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,dword[ebx+offs_cell_x]
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			stdcall str_len,edi
-			add edi,eax
-			mov eax,dword[ebx+offs_cell_y]
-			stdcall convert_int_to_str
-			stdcall str_cat,edi,txt_space
-
-			;stdcall str_cat,edi,txt_nl
-		@@:
-		dec ecx
-		jnz .cycle5
-		stdcall str_cat,edi,txt_nl
-
-	.no_points:
-
-	;*** определение параметров файла
-	mov edi,open_file_lif
-	stdcall str_len,edi
-
-	;*** запись файла
-	mov [run_file_70.Function], SSF_CREATE_FILE
-	mov [run_file_70.Position], 0
-	mov [run_file_70.Flags], 0
-	mov dword[run_file_70.Count], eax
-	mov [run_file_70.Buffer], edi
-	mov byte[run_file_70+20], 0
-	mov dword[run_file_70.FileName], openfile_path
-	mcall SF_FILE,run_file_70 ;сохраняем файл
-
-	call redraw_pole
-	.end_save_file:
-popad
-	ret
-endp
-
-;формирование подписи для списка
-align 4
-proc make_list_capts uses eax ebx ecx edi, buf:dword, txt:dword
-	mov ebx,dword[buf]
-
-	mov edi,ebx
-	add edi,capt_offs
-	mov dword[edi],'    ' ;пробелы для выравнивания маленьких чисел
-
-	mov eax,dword[ebx] ;+0 - offset coord x
-	cmp eax,100
-	jge @f
-		inc edi
-	@@:
-	cmp eax,10
-	jge @f
-		inc edi
-	@@:
-	call convert_int_to_str ;координата x (для подписи)
-	stdcall str_cat,edi,txt_space
-	stdcall str_len,edi
-	add edi,eax
-	mov eax,dword[ebx+4] ;+4 - offset coord y
-	call convert_int_to_str ;координата y (для подписи)
-	stdcall str_cat,edi,txt_space
-
-	mov edi,dword[txt]
-	cmp edi,0
-	je .end_f
-		stdcall str_len,edi ;eax = strlen([edi])
-		mov ecx,edi
-		call str_next_spaces
-		sub edi,ecx ;определяем длинну подписи
-
-		cmp edi,eax
-		jle @f
-			mov edi,eax ;если строка закончилась не пробелом
-		@@:
-		;cmp edi,1
-		;jge @f
-		;       mov edi,1 ;минимум 1 символ
-		;@@:
-
-		add ebx,capt_offs	
-		stdcall str_n_cat, ebx,ecx,edi
-	.end_f:
-	ret
-endp
-
-;добавление нового элемента управления на схему
-;при добавлении используются стандартные настройки
-align 4
-proc shem_element_creat uses eax ebx, coord_x:dword, coord_y:dword
-	mov eax,dword[coord_x]
-	mov dword[txt_buf],eax ;координата x
-	mov ebx,dword[coord_y]
-
-	stdcall element_is_click,eax,ebx ;проверяем есть ли в данной точке другой элемент созданный раньше
-	test eax,eax
-	jnz .end_f ;при нажатии попали на один из элементов
-	mov dword[txt_buf+4],ebx ;координата y
-
-	;xor eax,eax
-	mov byte[txt_buf+sp_offs_el_angle],al ;направление
-
-	stdcall [tl_node_get_data], tree2
-	mov ebx,eax
-	test ebx,ebx
-	jnz @f
-		mov ebx,el_opt_beg+el_offs_nam ;если не взялось имя элемента, то по умолчанию берем 1-й из списка
-	@@:
-	stdcall el_get_name, ebx,0
-	mov byte[txt_buf+sp_offs_el_type],al ;тип элемента
-
-	stdcall make_list_capts,txt_buf,ebx
-	stdcall [tl_node_add], tree1,(el_icon_elems shl 16)+1,txt_buf
-	stdcall [tl_cur_next], tree1
-	stdcall [tl_draw], tree1
-	.end_f:
-	ret
-endp
-
-;description:
-; анализирует строку с именем лог. элемента и возвращает номер лог. элемента
-;input:
-; str - указатель на строку содержащую имя лог. элемента
-; asciiz - символ который должен быть заменен на ascii 0
-;output:
-; eax - тип элемента
-align 4
-proc el_get_name uses ebx ecx edi esi, str:dword, asciiz:dword
-	mov edi,[str]
-	cmp dword[asciiz],0
-	je @f
-		mov eax,dword[asciiz]
-		mov ecx,el_offs_col ;размер текста в str не больше el_offs_col
-		cld
-		repne scasb
-		mov ebx,edi
-		dec ebx
-		mov byte[ebx],0 ;0 - символ конца строки для правильной работы str_cmp
-	@@:
-
-	mov edi,[str]
-	mov esi,el_opt_beg+el_offs_nam
-	xor ecx,ecx
-	@@:
-		stdcall str_cmp, edi,esi
-		cmp eax,0
-		je @f
-		add esi,size_el_opt
-		cmp esi,el_opt_beg.end
-		jge @f
-		inc ecx
-		jmp @b
-	@@:
-	mov eax,ecx
-
-	cmp dword[asciiz],0
-	je @f
-		mov ecx,dword[asciiz]
-		mov byte[ebx],cl
-	@@:
-	ret
-endp
-
-;input:
-; el_data - указатель на данные элемента
-; l_opt - номер ноги, для которой ищутся координаты, входная/выходная нога
-;output:
-; eax - coord x (if not found eax=0)
-; ebx - coord y (if not found ebx=0)
-align 4
-proc el_get_leg_coords uses ecx edx edi esi, el_data:dword, l_opt:dword
-	mov edi,[el_data] ;данные элемента
-	movzx esi,byte[edi+sp_offs_el_type] ;тип элемента
-	imul esi,size_el_opt
-	add esi,el_opt_beg
-	;esi+el_offs_legs_inp - указатель на таблицу с параметрами входных ног
-
-	mov eax,[edi+0]
-	mov ebx,[edi+4]
-	mov edx,[l_opt]
-	movzx edi,byte[edi+sp_offs_el_angle] ;угол поворота / 90 (от 0-3)
-
-	btr edx,16 ;входная/выходная нога
-	jc .output_leg
-
-	;если нога входная
-	inc edx ;номерация ног начинается с нуля, потому добавляем 1
-	stdcall move_rotate_x_n90, -2,edi
-	mov esi,[esi+el_offs_legs_inp]
-	@@:
-		movzx ecx,byte[esi]
-		cmp ecx,0
-		je .not_found ;ноги кончились раньше, чем ожидалось
-		stdcall move_rotate_n90, 0,ecx,edi
-		inc esi
-		dec edx
-		jnz @b
-		jmp .end_f
-
-	;если нога выходная
-	.output_leg:
-	inc edx ;номерация ног начинается с нуля, потому добавляем 1
-	movzx ecx,byte[esi+el_offs_box_x]
-	add ecx,2
-	stdcall move_rotate_x_n90, ecx,edi
-	add esi,el_offs_legs_out
-	@@:
-		movzx ecx,byte[esi]
-		cmp ecx,0
-		je .not_found ;ноги кончились раньше, чем ожидалось
-		stdcall move_rotate_n90, 0,ecx,edi
-		inc esi
-		dec edx
-		jnz @b
-		jmp .end_f
-
-	.not_found:
-		xor eax,eax
-		xor ebx,ebx
-	.end_f:
-	ret
-endp
-
-align 4
-proc move_rotate_n90 uses ecx edi, d_x:dword, d_y:dword, angle:dword
-	mov edi,[angle] ;угол поворота / 90 (от 0-3)
-	and edi,3
-	shl edi,4 ;edi*=16
-	add edi,mcs
-
-	mov ecx,[d_x]
-	imul ecx,dword[edi]
-	add eax,ecx
-	mov ecx,[d_y]
-	imul ecx,dword[edi+4]
-	add eax,ecx
-
-	mov ecx,[d_x]
-	imul ecx,dword[edi+8]
-	add ebx,ecx
-	mov ecx,[d_y]
-	imul ecx,dword[edi+12]
-	add ebx,ecx
-	ret
-endp
-
-align 4
-proc mem_copy uses ecx esi edi, destination:dword, source:dword, len:dword
-	cld
-	mov edi,[destination]
-	mov esi,[source]
-	mov ecx,[len]
-	rep movsb
-	ret
-endp
-
-;description:
-; Функция пропускает одно слово (или число) с учетом разделительных символов:
-; пробела, табуляции, новой строки. Нужна для последовательного считывани чисел из строки
-;input:
-; edi - указатель на пробел или слово
-;output:
-; edi - указатель на следующее слово
-align 4
-str_next_val:
-	call str_skip_spaces
-	@@:
-		cmp byte[edi],0
-		je @f
-
-		cmp byte[edi],' '
-		je @f
-		cmp byte[edi],9
-		je @f
-		cmp byte[edi],10
-		je @f
-		cmp byte[edi],13
-		je @f
-
-		inc edi
-		jmp @b
-	@@:
-	call str_skip_spaces
-	ret
-
-align 4
-str_skip_spaces:
-	dec edi
-	@@:
-		inc edi
-		cmp byte[edi],' '
-		je @b
-		cmp byte[edi],9
-		je @b
-		cmp byte[edi],10
-		je @b
-		cmp byte[edi],13
-		je @b
-	ret
-
-align 4
-str_next_spaces:
-	dec edi
-	@@:
-		inc edi
-		cmp byte[edi],0
-		je @f
-		cmp byte[edi],' '
-		je @f
-		cmp byte[edi],9
-		je @f
-		cmp byte[edi],10
-		je @f
-		cmp byte[edi],13
-		je @f
-		jmp @b
-	@@:	
-	ret
-
-;input:
-; esi - указатель на искомое слово
-;output:
-; edi - указатель на позицию в которой слово найдено, если слово не найдено то edi=0
-;портятся регистры:
-; eax ecx
-align 4
-str_analiz_r:
-	mov edi,open_file_lif
-	mov ecx,dword[f_size]
-	@@:
-		mov al,byte[esi] ;устанавливаем первый символ для поиска
-		cld
-		repnz scasb
-		cmp ecx,0
-		je @f ;если закончился весь текст, то выход из функции
-		;первый символ по адресу edi-1 должен быть из строки esi
-		dec edi
-		stdcall str_instr, edi,esi ;проверяем слово на совпадение
-		inc edi
-		cmp al,0
-		jne @b ;если слово не совпало, ищем в строке следующий первый символ для сравнения
-		;сюда попадаем если нашли слово esi по адресу edi
-		jmp .exit_f
-	@@:
-		;сюда попадаем если не нашли слово esi по адресу edi
-		xor edi,edi
-	.exit_f:
-	ret
-
-;description:
-; проверяет содержится ли строка str1 в строке str0
-; проверка делается только начиная с первых символов, указанных в str0 и str1
-; пример 1: если str0='aaabbbccc', str1='bbb' совпадения не будет
-; пример 2: если str0='aaabbbccc', str1='aaa' совпадение будет
-;output:
-; al = 0 если строка str1 содержится в str0
-; al != 0 если строка str1 не содержится в str0
-align 4
-proc str_instr uses edi esi, str0:dword, str1:dword
-	;xor eax,eax
-	mov edi,[str0]
-	mov esi,[str1]
-	cld
-	@@:
-		mov al,[esi]
-		cmp al,0
-		je .e1
-		inc esi
-		scasb ;сравниваем символы
-	jz @b ;если совпали, то переходим к сравнению следующих
-	;сюда попадаем если строки не совпали
-	sub al,[edi-1]
-	.e1: ;сюда попадаем если строка str1 (esi) закончилась
-	ret
-endp
-
-;description:
-; проверяет совпадение строк str0 и str1
-;output:
-; eax = 0 если str0 = str1
-; eax = 1 если str0 != str1
-align 4
-proc str_cmp uses ecx edi esi, str0:dword, str1:dword
-	xor eax,eax
-	mov edi,[str0]
-	mov esi,[str1]
-	mov ecx,0x8fffffff ;ecx - очень большое число
-	cld
-	repne scasb
-	;dec edi
-	sub edi,[str0]
-	mov ecx,edi ;ecx = strlen(str0)+1
-
-	mov edi,[str0]
-	repe cmpsb
-	je @f
-		inc eax
-	@@:
-	ret
-endp
-
-align 4
-proc but_run_stop
-	xor byte[tim_ch],1
-	cmp byte[tim_ch],0
-	jne @f
-		;остановка схемы
-		stdcall pole_reset_cells, pole ;чистка проводов
-		call redraw_pole
-		jmp .end_f
-	@@:
-		;подготовка схемы к запуску
-		call sign_clear
-		call sign_set_captions_angles
-	.end_f:
-	ret
-endp
-
-align 4
-proc but_set_0 uses eax
-	stdcall [tl_node_get_data], tree1
-	test eax,eax
-	jz .end_f
-;el_icon_captions
-;       cmp byte[eax+8],'n'
-;       je .end_f
-	cmp byte[eax+8],'o' ;временное отсечение, пока нет проверки типа текущей иконки
-	jne .end_f
-		mov byte[eax+8],'z'
-	.end_f:
-	ret
-endp
-
-align 4
-proc but_set_1 uses eax
-	stdcall [tl_node_get_data], tree1
-	test eax,eax
-	jz .end_f
-;el_icon_captions
-;       cmp byte[eax+8],'n'
-;       je .end_f
-	cmp byte[eax+8],'z' ;временное отсечение, пока нет проверки типа текущей иконки
-	jne .end_f
-		mov byte[eax+8],'o'
-	.end_f:
-	ret
-endp
-
-;сдвиг объекта влево
-align 4
-proc but_mov_l uses eax edi
-	cmp byte[tim_ch],0
-	jne .end_f
-	stdcall [tl_node_get_data], tree1
-	test eax,eax
-	jz .end_f
-		cmp dword[eax],1
-		jle .end_f
-		dec dword[eax]
-		mov edi,eax
-		stdcall mem_copy,txt_buf,eax,capt_offs
-		add edi,capt_offs
-		call str_next_val
-		call str_next_val
-		stdcall make_list_capts,txt_buf,edi
-		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
-		call redraw_pole
-		stdcall [tl_draw],tree1
-	.end_f:
-	ret
-endp
-
-;сдвиг объекта вправо
-align 4
-proc but_mov_r uses eax edi
-	cmp byte[tim_ch],0
-	jne .end_f
-	stdcall [tl_node_get_data], tree1
-	test eax,eax
-	jz .end_f
-		inc dword[eax]
-		mov edi,eax
-		stdcall mem_copy,txt_buf,eax,capt_offs
-		add edi,capt_offs
-		call str_next_val
-		call str_next_val
-		stdcall make_list_capts,txt_buf,edi
-		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
-		call redraw_pole
-		stdcall [tl_draw],tree1
-	.end_f:
-	ret
-endp
-
-align 4
-proc but_mov_u uses eax edi
-	cmp byte[tim_ch],0
-	jne .end_f
-	stdcall [tl_node_get_data], tree1
-	test eax,eax
-	jz .end_f
-		cmp dword[eax+4],1
-		jle .end_f
-		dec dword[eax+4]
-		mov edi,eax
-		stdcall mem_copy,txt_buf,eax,capt_offs
-		add edi,capt_offs
-		call str_next_val
-		call str_next_val
-		stdcall make_list_capts,txt_buf,edi
-		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
-		call redraw_pole
-		stdcall [tl_draw],tree1
-	.end_f:
-	ret
-endp
-
-align 4
-proc but_mov_d uses eax edi
-	cmp byte[tim_ch],0
-	jne .end_f
-	stdcall [tl_node_get_data], tree1
-	test eax,eax
-	jz .end_f
-		inc dword[eax+4]
-		mov edi,eax
-		stdcall mem_copy,txt_buf,eax,capt_offs
-		add edi,capt_offs
-		call str_next_val
-		call str_next_val
-		stdcall make_list_capts,txt_buf,edi
-		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
-		call redraw_pole
-		stdcall [tl_draw],tree1
-	.end_f:
-	ret
-endp
-
-;установка обычного режима, без рисования
-align 4
-proc but_set_none
-	mov byte[pen_mode],0
-	cmp [cursor_pointer],0
-	je @f
-		push eax ebx ecx
-		mcall SF_MOUSE_GET,SSF_DEL_CURSOR,[cursor_pointer]
-		pop ecx ebx eax
-	@@:
-	ret
-endp
-
-;hot_p - координаты горячей точки курсора, смещенные на бит 16 ((cx shl 8) + cy) shl 16
-align 4
-proc set_pen_mode uses eax ebx ecx edx, mode:dword, icon:dword, hot_p:dword
-	mov eax,[mode]
-	cmp byte[pen_mode],al
-	je @f
-		mov byte[pen_mode],al
-		mov edx,[hot_p]
-		mov dx,2 ;LOAD_INDIRECT
-		mov ecx,[icon]
-		shl ecx,12 ;умножаем на 4 кб
-		add ecx,[buf_curs.data]
-		mcall SF_MOUSE_GET,SSF_LOAD_CURSOR
-
-		or eax,eax
-		jz @f
-			mov [cursor_pointer],eax
-			mcall SF_MOUSE_GET,SSF_SET_CURSOR,[cursor_pointer]
-	@@:
-	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 '/sys',0
-
-communication_area_name:
-	db 'FFFFFFFF_open_dialog',0
-open_dialog_name:
-	db 'opendial',0
-communication_area_default_path:
-	db '/sys/File managers/',0
-
-Filter:
-dd Filter.end - Filter ;.1
-.1:
-db 'TXT',0
-db 'ASM',0
-.end:
-db 0
-
-include 'le_libs.inc'
-
-align 4
-buf_0: dd 0 ;
-.l: dw 170 ;+4 left
-.t: dw panel_1_coord_top ;+6 top
-.w: dd 395 ;+8 w
-.h: dd 340 ;+12 h
-.color: dd ini_def_c_bkgnd ;+16 color
-	db 24 ;+20 bit in pixel
-
-align 4
-buf_font: ;буфер со шрифтом
-	dd 0 ;указатель на буфер изображения
-	dw 25,25 ;+4 left,top
-	dd 96 ;+8 w
-	dd 144 ;+12 h
-	dd 0 ;+16 color
-	db 24 ;+20 bit in pixel
-
-align 4
-buf_curs: ;буфер с курсорами
-.data: dd 0 ;указатель на буфер изображения
-	dw 0,0 ;+4 left,top
-	dd 32 ;+8 w
-	dd 32*cursors_count ;+12 h
-	dd 0 ;+16 color
-	db 24 ;+20 bit in pixel
-
-align 4
-buf_curs_8: ;буфер с курсорами
-.data: dd 0 ;указатель на буфер изображения
-	dw 0,0 ;+4 left,top
-	dd 32 ;+8 w
-	dd 32*cursors_count ;+12 h
-	dd 0 ;+16 color
-	db 24 ;+20 bit in pixel
-
-cursor_pointer dd 0 ;указатель на данные для курсора
-
-el_focus dd 0
-tree1 tree_list 32,points_max+2, tl_key_no_edit, 16,16,\
-    0x8080ff,0x0000ff,0xffffff, 5,panel_3_coord_top+85,145,170, 0,capt_offs,0,\
-    el_focus, wScr1,0
-tree2 tree_list el_offs_col-el_offs_nam,100+2, tl_key_no_edit+tl_list_box_mode, 16,16,\
-    0x8080ff,0x0000ff,0xffffff, 5,panel_3_coord_top,145,80, 0,0,0,\
-    el_focus, wScr2,0
-
-align 4
-wScr1:
-.x:
-.size_x     dw 16 ;+0
-.start_x    dw 0 ;+2
-.y:
-.size_y     dw 150 ;+4
-.start_y    dw 0 ;+6
-.btn_high   dd 15 ;+8
-.type	    dd 1  ;+12
-.max_area   dd 100  ;+16
-.cur_area   dd 30  ;+20
-.position   dd 0  ;+24
-.bckg_col   dd 0xeeeeee ;+28
-.frnt_col   dd 0xbbddff ;+32
-.line_col   dd 0  ;+36
-.redraw     dd 0  ;+40
-.delta	    dw 0  ;+44
-.delta2     dw 0  ;+46
-.run_x:
-.r_size_x   dw 0  ;+48
-.r_start_x  dw 0  ;+50
-.run_y:
-.r_size_y   dw 0 ;+52
-.r_start_y  dw 0 ;+54
-.m_pos	    dd 0 ;+56
-.m_pos_2    dd 0 ;+60
-.m_keys     dd 0 ;+64
-.run_size   dd 0 ;+68
-.position2  dd 0 ;+72
-.work_size  dd 0 ;+76
-.all_redraw dd 0 ;+80
-.ar_offset  dd 1 ;+84
-
-align 4
-wScr2:
-.x:
-.size_x     dw 16 ;+0
-.start_x    dw 0 ;+2
-.y:
-.size_y     dw 150 ;+4
-.start_y    dw 0 ;+6
-.btn_high   dd 15 ;+8
-.type	    dd 1  ;+12
-.max_area   dd 100  ;+16
-.cur_area   dd 30  ;+20
-.position   dd 0  ;+24
-.bckg_col   dd 0xeeeeee ;+28
-.frnt_col   dd 0xbbddff ;+32
-.line_col   dd 0  ;+36
-.redraw     dd 0  ;+40
-.delta	    dw 0  ;+44
-.delta2     dw 0  ;+46
-.run_x:
-.r_size_x   dw 0  ;+48
-.r_start_x  dw 0  ;+50
-.run_y:
-.r_size_y   dw 0 ;+52
-.r_start_y  dw 0 ;+54
-.m_pos	    dd 0 ;+56
-.m_pos_2    dd 0 ;+60
-.m_keys     dd 0 ;+64
-.run_size   dd 0 ;+68
-.position2  dd 0 ;+72
-.work_size  dd 0 ;+76
-.all_redraw dd 0 ;+80
-.ar_offset  dd 1 ;+84
-
-align 4
-proc str_n_cat uses eax ecx edi esi, str1:dword, str2:dword, n:dword
-	mov esi,dword[str2]
-	mov ecx,dword[n]
-	mov edi,dword[str1]
-	stdcall str_len,edi
-	add edi,eax
-	cld
-	repne movsb
-	mov byte[edi],0
-	ret
-endp
-
-align 4
-proc str_cat uses eax ecx edi esi, str1:dword, str2:dword
-	mov esi,dword[str2]
-	stdcall str_len,esi
-	mov ecx,eax
-	inc ecx
-	mov edi,dword[str1]
-	stdcall str_len,edi
-	add edi,eax
-	cld
-	repne movsb
-	ret
-endp
-
-;output:
-; eax = strlen
-align 4
-proc str_len, str1:dword
-	mov eax,[str1]
-	@@:
-		cmp byte[eax],0
-		je @f
-		inc eax
-		jmp @b
-	@@:
-	sub eax,[str1]
-	ret
-endp
-
-;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]
-
-	;на случай если перед числом находятся пробелы
-	@@:
-	cmp byte[esi],' '
-	jne @f
-		inc esi
-		jmp @b
-	@@:
-
-	;определение отрицательных чисел
-	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
-
-;этот код не мой, он преобразует число в строку
-;input:
-; eax = value
-; edi = string buffer
-;output:
-align 4
-proc convert_int_to_str uses eax ecx edx edi
-	mov dword[edi+1],0
-	call .str
-	ret
-endp
-
-align 4
-.str:
-	mov ecx,0x0a ;задается система счисления изменяются регистры 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	      ;вернуться очень интересный ход т.к. пока в стеке храниться кол-во вызовов то столько раз мы и будем вызываться
-
-align 16
-i_end:
-	image_data_toolbar dd 0
-	icon_tl_sys dd 0 ;указатель на память для хранения системных иконок
-	icon_toolbar dd 0 ;указатель на память для хранения иконок объектов
-	image_data_gray dd 0 ;память с временными серыми изображениями в формате 24-bit, из которых будут создаваться трафареты
-	mouse_dd dd 0
-	last_time dd 0
-	sc system_colors
-	procinfo process_information
-	run_file_70 FileInfoBlock
-	open_file_lif:
-		rb 2*4096 ;область для открытия файлов
-	.end:
-	rb 1024
-stacktop:
-	sys_path rb 1024
-	file_name rb 2048 ;4096
-	plugin_path rb 4096
-	openfile_path rb 4096
-	filename_area rb 256
-mem:
+; SPDX-License-Identifier: NOASSERTION
+;
+
+; Text encoded with Code Page 866 - Cyrillic
+
+
+use32
+	org 0
+	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
+	dd 1,start,i_end,mem,stacktop,0,sys_path
+
+ini_def_c_bkgnd equ 0
+ini_def_c_border equ 0xff0000
+color_s0 equ 0xff ;сигнал 0
+color_s1 equ 0xffffff ;сигнал 1
+color_s2 equ 0xff00 ;точка без пересечения
+color_s3 equ 0xff0000 ;временное значение для сохранения
+
+color_border dd ini_def_c_border
+opt_sign_moves dd 4
+opt_fast_mode dd 0 ;быстрый режим
+
+debug equ 0
+
+;номара иконок:
+el_icon_group equ 0 ;групповая
+el_icon_points equ 1 ;точки
+el_icon_sub_points equ 2 ;изоляции
+el_icon_elems equ 3 ;элемента
+el_icon_captions equ 4 ;подписи
+
+size_el_opt equ 34 ;размер структуры с опциями элемента
+el_offs_nam equ 0 ;смещение для начала имени элемента
+el_offs_col equ 16 ;цвет элемента
+el_offs_box_x equ 20 ;ширина коробки элемента
+el_offs_box_y equ 21 ;высота коробки элемента
+el_offs_table equ 22 ;указатель на таблицу работы элемента
+el_offs_legs_inp equ 26 ;указатель на таблицу описания входных ног
+el_offs_legs_out equ 30 ;смещение на описание выходных ног
+
+sp_offs_el_angle equ 8 ;смещение для угла поворота элемента в списке
+sp_offs_el_type equ 9 ;смещение для типа элемента в списке
+
+points_max equ 1000
+capt_offs equ 10 ;смещение для начала подписи в листе tree1
+
+include '../../macros.inc'
+include '../../proc32.inc'
+include '../../KOSfuncs.inc'
+include '../../load_img.inc'
+include '../../load_lib.mac'
+include '../../develop/libraries/box_lib/trunk/box_lib.mac'
+include 'le_pole.inc'
+include 'le_signal.inc'
+
+@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
+caption db 'Логические элементы 13.02.16',0 ;подпись окна
+
+panel_0_coord_top equ 5 ;верхняя координата 0-го ряда панели инструментов
+panel_1_coord_top equ 35
+panel_2_coord_top equ 60
+panel_3_coord_top equ 85
+
+;input:
+; eax - coord x
+; ebx - coord y
+;output:
+; eax - coord x + d_x * cos(angle)
+; ebx - coord y + d_x * sin(angle)
+align 4
+proc move_rotate_x_n90 uses ecx edi, d_x:dword, angle:dword
+	mov edi,[angle] ;угол поворота / 90 (от 0-3)
+	and edi,3
+	shl edi,4 ;edi*=16
+	add edi,mcs
+
+	mov ecx,[d_x]
+	imul ecx,dword[edi]
+	add eax,ecx
+
+	mov ecx,[d_x]
+	imul ecx,dword[edi+8]
+	add ebx,ecx
+	ret
+endp
+
+macro elOpt nam,col,box_x,box_y,table, tbl_i_legs, ol0, ol1, ol2
+{
+	@@: db nam,0
+	rb @b+el_offs_col-$
+	dd col
+	db box_x
+	db box_y
+	dd table+0 ;+el_offs_table
+	dd tbl_i_legs+0 ;+26 входные ноги
+;+30 выходные ноги
+	db ol0+0, ol1+0, ol2+0, 0
+}
+
+align 4
+el_opt_beg:
+elOpt 'or[2]', 0xff00ff,5,5,tbl_or, tbl_il_2, 2
+elOpt 'or[3]', 0xff00ff,5,7,tbl_or, tbl_il_3, 3
+elOpt 'or[4]', 0xff00ff,5,9,tbl_or, tbl_il_4, 4
+elOpt 'and[2]',0xffff00,5,5,tbl_and.2, tbl_il_2, 2
+elOpt 'and[3]',0xffff00,5,7,tbl_and.3, tbl_il_3, 3
+elOpt 'and[4]',0xffff00,5,9,tbl_and.4, tbl_il_4, 4
+elOpt 'and[5]',0xffff00,5,11,tbl_and.5, tbl_il_5, 5
+elOpt 'not',   0xffff,	3,3,tbl_not, tbl_il_1, 1
+elOpt 'xor',   0x8000ff,5,5,tbl_xor, tbl_il_2, 2
+elOpt 'sm[1]', 0x8080ff,7,7,tbl_sm,  tbl_il_3, 1,4
+elOpt 'ms[2]', 0x8080ff,7,14,tbl_ms_2,  tbl_il_m2,6
+elOpt 'ms[2]e',0x8080ff,7,17,tbl_ms_2_e,tbl_il_m2e,8
+;elOpt 'cd[8]', 0x8000, 7,17,tbl_cd_8,tbl_il_8, 6,2,2 ;шифратор на 8 входов
+.end:
+elOpt '???', 0x808080,3,3,tbl_and.3, tbl_il_1, 1 ;не опознанный элемент
+
+;таблицы по которым задаются правила работы элементов
+align 4
+tbl_or db 0,1,1,1, 1,1,1,1 ;or2, or3
+	db 1,1,1,1,1,1,1,1 ;or4
+tbl_and:
+.5: dq 0,0
+.4: dq 0
+.3: dd 0
+.2: db 0,0,0,1
+tbl_xor db 0,1,1,0
+tbl_sm db 0,2,2,1, 2,1,1,3
+tbl_not db 1,0 ;not
+
+;мультиплексор для 2-х разрядного сигнала
+align 4
+tbl_ms_2_e: ;со входом 'e'
+dq 0,0,0,0,0,0,0,0
+tbl_ms_2:
+db 0,1,0,1,0,1,0,1
+db 0,1,0,1,0,1,0,1
+db 0,0,1,1,0,0,1,1
+db 0,0,1,1,0,0,1,1
+db 0,0,0,0,1,1,1,1
+db 0,0,0,0,1,1,1,1
+dq 0
+db 1,1,1,1,1,1,1,1
+;tbl_cd_8 db ;256=2^8
+
+;таблицы для входных ног
+tbl_il_1 db 1,0   ;корпус на 1 ногу
+tbl_il_2 db 1,2,0 ;корпус на 2 ноги
+tbl_il_3 db 1,2,2,0
+tbl_il_4 db 1,2,2,2,0
+tbl_il_5 db 1,2,2,2,2,0
+tbl_il_m2  db 1,2,2,2,3,2,0
+tbl_il_m2e db 1,2,2,2,3,2,3,0
+;tbl_il_8 db 1,2,2,2,2,2,2,2,0
+
+time dd 0
+tim_ch db 0
+pen_mode dd 0 ;режим рисования провода
+pen_coord_x dd 0 ;координата x начальной точки рисования
+pen_coord_y dd 0
+
+txt_set_0 db '0',0
+txt_set_1 db '1',0
+;txt_mov_l db 27,0 ;<-
+;txt_mov_r db 26,0 ;->
+
+txt_size db 'size',0
+txt_elements db 'elements',0
+txt_points db 'points',0
+txt_sub_points db 'subpoints',0
+txt_captions db 'captions',0
+
+;матрица косинусов и синусов, используемая для поворотов сигналов и элементов
+align 4
+mcs dd 1, 0, 0, 1,\
+	   0, 1,-1, 0,\
+	  -1, 0, 0,-1,\
+	   0,-1, 1, 0
+
+IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
+
+cursors_count equ 4
+
+ini_name db 'log_el.ini',0 ;имя файла
+ini_sec_color db 'Colors',0
+key_color_bkgnd db 'background',0
+key_color_border db 'border',0
+key_color_s0 db 's0',0
+key_color_s1 db 's1',0
+key_color_s2 db 's2',0
+key_color_captions db 'captions',0
+ini_sec_options db 'Options',0
+key_opt_sign_moves db 'signal_moves',0
+key_opt_fast_mode db 'fast_mode',0
+
+align 4
+start:
+	load_libraries l_libs_start,l_libs_end
+	;проверка на сколько удачно загузилась библиотека
+	mov	ebp,lib4
+	cmp	dword [ebp+ll_struc_size-4],0
+	jz	@f
+		mcall SF_TERMINATE_PROCESS
+	@@:
+	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
+	mcall SF_SET_EVENTS_MASK,0x27
+
+	;*** считывание настроек из *.ini файла
+	copy_path ini_name,sys_path,file_name,0
+
+	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_bkgnd,ini_def_c_bkgnd
+	mov dword[buf_0.color],eax
+	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_border,ini_def_c_border
+	mov dword[color_border],eax
+	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_s0,color_s0
+	mov dword[shem_colors],eax
+	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_s1,color_s1
+	mov dword[shem_colors+4],eax
+	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_s2,color_s2
+	mov dword[shem_colors+8],eax
+	stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_captions,[color_captions]
+	mov dword[color_captions],eax
+
+	mov ebx,el_opt_beg+el_offs_nam
+	mov ecx,(el_opt_beg.end-el_opt_beg)/size_el_opt ;колличество типов элементов
+	cld
+	@@:
+		push ecx
+		stdcall dword[ini_get_color],file_name,ini_sec_color,ebx,[ebx+el_offs_col-el_offs_nam]
+		pop ecx
+		mov dword[ebx+el_offs_col-el_offs_nam],eax
+		add ebx,size_el_opt
+		loop @b
+
+	stdcall dword[ini_get_int],file_name,ini_sec_options,key_opt_sign_moves,[opt_sign_moves]
+	mov dword[opt_sign_moves],eax
+	stdcall dword[ini_get_int],file_name,ini_sec_options,key_opt_fast_mode,[opt_fast_mode]
+	mov dword[opt_fast_mode],eax
+
+	;*** подготовка диалога
+	stdcall [OpenDialog_Init],OpenDialog_data
+	stdcall [buf2d_create], buf_0 ;создание буфера
+	load_image_file 'toolbar.png', image_data_toolbar
+
+	stdcall pole_init, pole
+	stdcall dword[tl_data_init], tree1
+	stdcall dword[tl_data_init], tree2
+
+	;системные иконки 16*16 для tree_list
+	load_image_file 'tl_sys_16.png', icon_tl_sys
+	;если изображение не открылось, то в icon_tl_sys будут
+	;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера
+	mov eax,dword[icon_tl_sys]
+	mov dword[tree1.data_img_sys],eax
+	mov dword[tree2.data_img_sys],eax
+
+	load_image_file 'objects.png', icon_toolbar
+	mov eax,dword[icon_toolbar]
+	mov dword[tree1.data_img],eax
+	mov dword[tree2.data_img],eax
+
+	;*** загрузка шрифта
+	load_image_file 'font6x9.bmp', image_data_gray
+	stdcall [buf2d_create_f_img], buf_font,[image_data_gray] ;создаем буфер
+	stdcall mem.Free,[image_data_gray] ;освобождаем память
+
+	stdcall [buf2d_conv_24_to_8], buf_font,1 ;делаем буфер прозрачности 8 бит
+	stdcall [buf2d_convert_text_matrix], buf_font
+
+	;*** загрузка курсоров
+	load_image_file 'cursors_gr.png',image_data_gray
+	stdcall [buf2d_create_f_img], buf_curs_8,[image_data_gray] ;создаем буфер
+	stdcall mem.Free,[image_data_gray] ;освобождаем память
+
+	load_image_file 'cursors.png',image_data_gray
+	stdcall [buf2d_create_f_img], buf_curs,[image_data_gray] ;создаем буфер
+	stdcall mem.Free,[image_data_gray] ;освобождаем память
+
+	stdcall [buf2d_conv_24_to_8], buf_curs_8,1 ;делаем буфер прозрачности 8бит
+	stdcall [buf2d_conv_24_to_32],buf_curs,buf_curs_8 ;делаем буфер rgba 32бит
+
+	stdcall sign_init, 3000
+	mov eax,el_opt_beg+el_offs_nam
+	mov ecx,(el_opt_beg.end-el_opt_beg)/size_el_opt ;колличество типов элементов
+	cld
+	@@:
+		stdcall [tl_node_add], tree2,el_icon_elems shl 16,eax
+		stdcall [tl_cur_next], tree2
+		add eax,size_el_opt
+		loop @b
+	stdcall [tl_cur_beg], tree2
+
+	;*** установка времени для таймера
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
+	mov [last_time],eax
+
+align 4
+red_win:
+	call draw_window
+
+align 4
+still:
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
+	mov ebx,[last_time]
+	add ebx,10 ;задержка
+	cmp ebx,eax
+	jge @f
+		mov ebx,eax
+	@@:
+	sub ebx,eax
+	mcall SF_WAIT_EVENT_TIMEOUT
+	cmp eax,0
+	je timer_funct
+
+	cmp al,1
+	jz red_win
+	cmp al,EV_KEY
+	jz key
+	cmp al,3
+	jz button
+	cmp al,EV_MOUSE
+	jne @f
+		call mouse
+	@@:
+	jmp still
+
+align 4
+timer_funct:
+	pushad
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
+	mov [last_time],eax
+
+	cmp byte[tim_ch],0
+	je @f
+		inc dword[time]
+	cmp dword[opt_fast_mode],0
+	jne .fast_m
+		call sign_move
+		stdcall [buf2d_draw], buf_0
+		mov eax,[time]
+		xor edx,edx
+		div dword[opt_sign_moves]
+		cmp edx,0 ;проверяем кратность opt_sign_moves
+		jnz @f
+			call sign_from_elems
+			call sign_from_captions
+		jmp @f
+	.fast_m:
+		mov ecx,[opt_sign_moves]
+		cld
+		.cycle:
+		call sign_move
+		loop .cycle
+		call sign_from_elems
+		call sign_from_captions
+		stdcall [buf2d_draw], buf_0
+	@@:
+
+	popad
+	jmp still
+
+align 4
+mouse:
+	stdcall [tl_mouse], tree1
+	stdcall [tl_mouse], tree2
+
+	pushad
+	mcall SF_MOUSE_GET,SSF_BUTTON
+	bt eax,0 ;левая кнопка нажата?
+	jc @f
+	bt eax,1 ;правая кнопка нажата?
+	jc @f
+		xor eax,eax
+		mov [pen_coord_x],eax
+		mov [pen_coord_y],eax
+		jmp .end_buf_wnd
+	@@:
+	mov esi,eax
+
+	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;eax = (x shl 16) + y
+	cmp ax,word[buf_0.t]
+	jl .end_buf_wnd ;не попали в окно буфера по оси y
+
+	mov ebx,eax
+	shr ebx,16
+	cmp bx,word[buf_0.l]
+	jl .end_buf_wnd ;не попали в окно буфера по оси x
+
+		and eax,0xffff ;оставляем координату y
+		sub ax,word[buf_0.t]
+		sub bx,word[buf_0.l]
+		;*** деление на zoom
+		movzx ecx,byte[zoom]
+		xor edx,edx
+		div ecx
+		xchg eax,ebx ;ebx делим на ecx
+		xor edx,edx
+		div ecx
+
+		sub eax,[Cor_x]
+		sub ebx,[Cor_y]
+
+		;*** проверка на попадение в схему
+		bt eax,31
+		jc .end_buf_wnd
+		bt ebx,31
+		jc .end_buf_wnd
+		cmp eax,[shem_w]
+		jge .end_buf_wnd
+		cmp ebx,[shem_h]
+		jge .end_buf_wnd
+
+		cmp byte[pen_mode],0
+		jne .end_mode_0
+			bt esi,1
+			jc .end_mode_0
+			;режим курсора (выбор элемента при нажатии)
+			stdcall element_is_click,eax,ebx
+			test eax,eax
+			jz .end_buf_wnd ;при нажатии не попали ни на один из элементов
+				push eax
+					stdcall [tl_node_get_data], tree1
+					mov ebx,eax
+				pop eax
+				cmp eax,ebx
+				je .end_buf_wnd ;если уже курсор стоит там где нужно
+
+				stdcall [tl_cur_beg], tree1
+				.cycle0:
+				push eax
+					stdcall [tl_node_get_data], tree1
+					mov ebx,eax
+				pop eax
+				test ebx,ebx
+				jz .end_buf_wnd
+				cmp eax,ebx
+				je @f
+					stdcall [tl_cur_next], tree1
+					jmp .cycle0
+				@@:
+				stdcall [tl_draw], tree1
+			jmp .end_buf_wnd
+		.end_mode_0:
+		cmp byte[pen_mode],1
+		jne .end_mode_1
+			;режим рисования провода
+			cmp dword[pen_coord_x],0
+			jne @f
+			cmp dword[pen_coord_y],0
+			jne @f
+				mov [pen_coord_x],eax
+				mov [pen_coord_y],ebx
+			@@:
+
+			cmp dword[pen_coord_x],eax
+			je .beg_draw
+			cmp dword[pen_coord_y],ebx
+			je .beg_draw
+
+			mov ecx,eax
+			sub ecx,[pen_coord_x]
+			bt ecx,31
+			jnc @f
+				neg ecx
+				inc ecx
+			@@:
+			mov edx,ebx
+			sub edx,[pen_coord_y]
+			bt edx,31
+			jnc @f
+				neg edx
+				inc edx
+			@@:
+			cmp ecx,edx
+			jl @f
+				mov ebx,[pen_coord_y] ;привязка к координате y
+				jmp .beg_draw
+			@@:
+			mov eax,[pen_coord_x] ;привязка к координате x
+
+			.beg_draw:
+			bt esi,1
+			jc @f
+				stdcall pole_cell_creat, pole,eax,ebx,0
+				;ничего не убралось redraw_pole не подходит, т. к. чистить поле не нужно
+				stdcall pole_paint, pole
+				stdcall [buf2d_draw], buf_0
+				jmp .end_buf_wnd
+			@@:
+				stdcall pole_cell_delete, pole,eax,ebx
+				call redraw_pole
+				jmp .end_buf_wnd
+		.end_mode_1:
+		cmp byte[pen_mode],2
+		jne @f
+			;режим рисования изоляции для провода
+			bt esi,1
+			jc .mode_2_del
+				stdcall pole_cell_creat, pole,eax,ebx,2
+				jmp .mode_2_draw
+			.mode_2_del:
+				;стирание изоляции
+				mov ecx,eax
+				stdcall pole_cell_find, pole,ecx,ebx
+				test eax,eax
+				jz .end_buf_wnd
+				stdcall pole_cell_creat, pole,ecx,ebx,0
+			.mode_2_draw:
+			stdcall pole_paint, pole
+			stdcall [buf2d_draw], buf_0
+			jmp .end_buf_wnd
+		@@:
+		cmp byte[pen_mode],3
+		jne @f
+			bt esi,1
+			jc @f
+			;режим стирания провода
+			stdcall pole_cell_delete, pole,eax,ebx
+			call redraw_pole
+			jmp .end_buf_wnd
+		@@:
+		cmp byte[pen_mode],4
+		jne @f
+			bt esi,1
+			jc .rotate
+			;режим создания элементов
+			stdcall shem_element_creat, eax,ebx
+			stdcall pole_paint, pole
+			stdcall [buf2d_draw], buf_0
+			jmp .end_buf_wnd
+			.rotate:
+			;поворот элементов на 90 градусов
+			stdcall element_is_click,eax,ebx
+			test eax,eax
+			jz .end_buf_wnd
+				inc byte[eax+sp_offs_el_angle]
+				and byte[eax+sp_offs_el_angle],3 ;для контроля на переполнение
+				call redraw_pole
+			jmp .end_buf_wnd
+		@@:
+
+	.end_buf_wnd:
+if debug
+stdcall but_test_pole, pole
+end if
+	popad
+	ret
+
+;output:
+; eax - pointer to element data
+align 4
+proc element_is_click uses ebx ecx edx esi edi, coord_x:dword, coord_y:dword
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	@@:
+		cmp esi,0
+		je @f
+		cmp word[esi],el_icon_elems ;получение через esi тип иконки
+		jne .end_add_p1
+			stdcall [tl_node_poi_get_data], tree1,esi
+			mov ecx,eax
+
+			movzx edx,byte[ecx+sp_offs_el_type]
+			imul edx,size_el_opt
+			add edx,el_opt_beg ;находим опцию со свойствами данного элемента
+
+			mov eax,[ecx] ;element coord x
+			mov ebx,[ecx+4] ;element coord y
+			movzx edi,byte[ecx+sp_offs_el_angle]
+			push edi
+			movzx edi,byte[edx+el_offs_box_y]
+			dec edi
+			push edi
+			movzx edi,byte[edx+el_offs_box_x]
+			dec edi
+			push edi
+			stdcall move_rotate_n90 ;,[edx+el_offs_box_x],[edx+el_offs_box_y],[ecx+sp_offs_el_angle]
+			;Rect(eax,ebx,[ecx],[ecx+4])
+			stdcall point_in_rect, [coord_x],[coord_y], eax,ebx,[ecx],[ecx+4]
+			test eax,eax
+			jz .end_add_p1
+				mov eax,ecx
+				jmp .end_f
+		.end_add_p1:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp @b
+	@@:
+		xor eax,eax ;если не нашли
+	.end_f:
+	ret
+endp
+
+;проверка попадения точки в прямоугольник
+;результат:
+; если не попадает то eax=0
+; если попадает то eax=1
+align 4
+proc point_in_rect uses ebx ecx, px:dword, py:dword, rx0:dword, ry0:dword, rx1:dword, ry1:dword
+	xor eax,eax
+
+	;проверка по оси x
+	mov ebx,[rx0]
+	mov ecx,[rx1]
+	cmp ebx,ecx
+	jle @f
+		xchg ebx,ecx
+	@@:
+	cmp ebx,[px]
+	jg .no_contains
+	cmp ecx,[px]
+	jl .no_contains
+
+	;проверка по оси y
+	mov ebx,[ry0]
+	mov ecx,[ry1]
+	cmp ebx,ecx
+	jle @f
+		xchg ebx,ecx
+	@@:
+	cmp ebx,[py]
+	jg .no_contains
+	cmp ecx,[py]
+	jl .no_contains
+
+	;если попали то eax=1
+		inc eax
+		;stdcall draw_scaled_rect, [rx0],[ry0],[rx1],[ry1], 0xffffff
+		;stdcall [buf2d_draw], buf_0
+	.no_contains:
+	ret
+endp
+
+align 4
+draw_window:
+pushad
+	mcall SF_REDRAW,SSF_BEGIN_DRAW
+
+	; *** рисование главного окна (выполняется 1 раз при запуске) ***
+	mov edx,[sc.work]
+	or  edx,(3 shl 24)+0x10000000+0x20000000
+	mov edi,caption
+	mcall SF_CREATE_WINDOW, (20 shl 16)+580,(20 shl 16)+415
+
+	; *** создание кнопок на панель ***
+	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_0_coord_top shl 16)+20, 3, [sc.work_button]
+
+	add ebx,25 shl 16
+	mov edx,4
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,5
+	int 0x40
+
+	add ebx,30 shl 16
+	mov edx,6 ;пуск | остановка
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,7
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,8
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,9
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,10
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,11
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,12
+	int 0x40
+
+	add ebx,30 shl 16
+	mov edx,13 ;центровка схемы
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,14
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,15
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,16 ;сдвиг схемы вверх
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,17 ;сдвиг схемы вниз
+	int 0x40
+
+	; *** рисование иконок на кнопках ***
+	mov edx,(7 shl 16)+panel_0_coord_top+2 ;icon new
+	mcall SF_PUT_IMAGE, [image_data_toolbar],(16 shl 16)+16
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;icon open
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;icon save
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(30 shl 16) ;+
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;-
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(30 shl 16) ;center
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;m
+	int 0x40
+
+	; *** рисование буфера ***
+	stdcall [buf2d_draw], buf_0
+	mov dword[wScr1.all_redraw],1
+	stdcall [tl_draw], tree1
+	mov dword[wScr2.all_redraw],1
+	stdcall [tl_draw], tree2
+	stdcall pole_draw_pok, pole
+
+	; *** создание кнопок установки сигналов set_0 и set_1 ***
+	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_1_coord_top shl 16)+20, 20, [sc.work_button]
+
+	add ebx,25 shl 16
+	inc edx
+	int 0x40
+
+	add ebx,30 shl 16
+	inc edx
+	int 0x40
+
+	add ebx,25 shl 16
+	inc edx
+	int 0x40
+
+	add ebx,25 shl 16
+	inc edx
+	int 0x40
+
+	add ebx,25 shl 16
+	inc edx
+	int 0x40
+
+	mov ecx,[sc.work_text]
+	or  ecx,0x80000000 ;or (1 shl 30)
+	;mov edi,[sc.work]
+	mcall SF_DRAW_TEXT, (12 shl 16)+panel_1_coord_top+6,, txt_set_0
+
+	add ebx,25 shl 16
+	mov edx,txt_set_1
+	int 0x40
+
+	; *** рисование иконок на кнопках ***
+	mov ebx,[image_data_toolbar]
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE*15
+	mcall SF_PUT_IMAGE,, (16 shl 16)+16, (62 shl 16)+panel_1_coord_top+2
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16)
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16)
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16)
+	int 0x40
+
+	; *** создание кнопок рисования провода ***
+	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_2_coord_top shl 16)+20, 30, [sc.work_button]
+
+	add ebx,30 shl 16
+	mov edx,31
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,32
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,33
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,34
+	int 0x40
+
+	add ebx,25 shl 16
+	mov edx,35
+	int 0x40
+
+	; *** рисование иконок на кнопках ***
+	mov ebx,[image_data_toolbar]
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE*19
+	mcall SF_PUT_IMAGE,, (16 shl 16)+16,(7 shl 16)+panel_2_coord_top+2 ;иконка стрела
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(30 shl 16) ;icon - рисование провода
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;icon - рисование пересечений проводов
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;icon - рисование логических элементов
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;icon - рисование подписей
+	int 0x40
+
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	add edx,(25 shl 16) ;icon - затирачка
+	int 0x40
+
+	mcall SF_REDRAW,SSF_END_DRAW
+popad
+	ret
+
+align 4
+key:
+	mcall SF_GET_KEY
+	stdcall [tl_key], tree1
+	stdcall [tl_key], tree2
+	jmp still
+
+
+align 4
+button:
+	mcall SF_GET_BUTTON
+	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_run_stop
+		jmp still
+	@@:
+	cmp ah,7
+	jne @f
+		call but_zoom_p
+		jmp still
+	@@:
+	cmp ah,8
+	jne @f
+		call but_zoom_m
+		jmp still
+	@@:
+	cmp ah,9
+	jne @f
+		call but_pole_left
+		jmp still
+	@@:
+	cmp ah,10
+	jne @f
+		call but_pole_right
+		jmp still
+	@@:
+	cmp ah,11
+	jne @f
+		call but_pole_up
+		jmp still
+	@@:
+	cmp ah,12
+	jne @f
+		call but_pole_dn
+		jmp still
+	@@:
+	cmp ah,13
+	jne @f
+		call but_center
+		jmp still
+	@@:
+
+	;передвижение всех объектов схемы
+	cmp byte[tim_ch],0
+	jne .no_move
+	cmp ah,14
+	jne @f
+		stdcall pole_move_all, pole, -1, 0
+		call redraw_pole
+	@@:
+	cmp ah,15
+	jne @f
+		stdcall pole_move_all, pole, 1, 0
+		call redraw_pole
+	@@:
+	cmp ah,16 ;сдвиг схемы вверх
+	jne @f
+		stdcall pole_move_all, pole, 0, -1
+		call redraw_pole
+	@@:
+	cmp ah,17 ;сдвиг схемы вниз
+	jne @f
+		stdcall pole_move_all, pole, 0, 1
+		call redraw_pole
+	@@:
+	.no_move:
+
+	cmp ah,20
+	jne @f
+		call but_set_0
+	@@:
+	cmp ah,21
+	jne @f
+		call but_set_1
+	@@:
+	cmp ah,22
+	jne @f
+		call but_mov_l
+	@@:
+	cmp ah,23
+	jne @f
+		call but_mov_r
+	@@:
+	cmp ah,24
+	jne @f
+		call but_mov_u
+	@@:
+	cmp ah,25
+	jne @f
+		call but_mov_d
+	@@:
+	cmp ah,30
+	jne @f
+		call but_set_none
+	@@:
+	cmp ah,31
+	jne @f
+		stdcall set_pen_mode,1,0,((9 shl 8)+9) shl 16 ;установка режима рисования провода
+	@@:
+	cmp ah,32
+	jne @f
+		stdcall set_pen_mode,2,1,((9 shl 8)+9) shl 16
+	@@:
+	cmp ah,33
+	jne @f
+		stdcall set_pen_mode,4,3,((9 shl 8)+9) shl 16 ;установка режима создания элементов
+	@@:
+	cmp ah,35
+	jne @f
+		stdcall set_pen_mode,3,2,((15 shl 8)+9) shl 16 ;установка режима стирания провода
+	@@:
+	cmp ah,1
+	jne still
+.exit:
+	stdcall [buf2d_delete],buf_0
+	stdcall [buf2d_delete],buf_font
+	stdcall [buf2d_delete],buf_curs
+	stdcall mem.Free,[image_data_toolbar]
+	stdcall pole_delete, pole
+	call sign_delete
+	stdcall [tl_data_clear], tree1
+	;чистим указатели на изображения, которые были общими для листов и удалены листом tree1
+	mov dword[tree2.data_img_sys],0
+	mov dword[tree2.data_img],0
+	stdcall [tl_data_clear], tree2
+	cmp [cursor_pointer],0
+	je @f
+		mcall SF_MOUSE_GET,SSF_DEL_CURSOR,[cursor_pointer]
+	@@:
+	mcall SF_TERMINATE_PROCESS
+
+;создание новой схемы
+align 4
+proc but_new_file uses eax
+	call but_set_none
+	stdcall [tl_info_clear],tree1
+	stdcall [tl_draw],tree1
+	xor eax,eax
+	mov [shem_elems],eax
+	mov [shem_captions],eax
+	stdcall pole_clear, pole
+	call redraw_pole
+	ret
+endp
+
+align 4
+f_size dd 0 ;размер открываемого файла
+shem_w dd 192 ;ширина схемы
+shem_h dd 128 ;высота схемы
+shem_points dd 0 ;колличество узлов на схеме
+shem_sub_points dd 0 ;колличество изолированных узлов на схеме
+shem_elems dd 0 ;колличество элементов на схеме
+shem_captions dd 0
+shem_colors:
+	dd color_s0, color_s1, color_s2, color_s3
+color_captions dd 0x808080
+
+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],1 ;0 - Cancel 1 - Open 2 - Error open dialog
+	jne .end_open_file
+	;код при удачном открытии диалога
+
+	mov [run_file_70.Function], SSF_READ_FILE
+	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
+	mcall SF_FILE,run_file_70 ;загружаем файл
+	cmp ebx,0xffffffff
+	je .end_open_file
+
+		mov dword[f_size],ebx
+		add ebx,open_file_lif
+		mov byte[ebx],0 ;на случай если ранее был открыт файл большего размера чистим конец буфера с файлом
+		mcall SF_SET_CAPTION,1,openfile_path
+		;---
+
+		;задаем минимальные значения, на случай если в файле будут некоректные размеры
+		mov dword[shem_w],5
+		mov dword[shem_h],5
+
+		mov esi,txt_size
+		call str_analiz_r
+		or edi,edi
+		jz @f
+			stdcall str_len,esi
+			add edi,eax
+			stdcall conv_str_to_int,edi
+			cmp eax,5
+			jl @f ;ошибка в файле (на .end_open_file не переходим, пытаемся прочитать другую информацию)
+			mov dword[shem_w],eax
+
+			call str_next_val
+			stdcall conv_str_to_int,edi
+			cmp eax,5
+			jl @f ;ошибка в файле
+			mov dword[shem_h],eax
+		@@:
+
+		stdcall [tl_info_clear],tree1
+
+		;*** добавление в список логических элементов ***
+		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_elements-capt_offs
+		stdcall [tl_cur_next], tree1
+
+		mov esi,txt_elements
+		call str_analiz_r
+		or edi,edi
+		jz .end_elems
+			stdcall str_len,esi
+			add edi,eax
+			stdcall conv_str_to_int,edi
+			cmp eax,0
+			jle .end_elems ;если число элементов = 0
+			mov [shem_elems],eax
+			mov ecx,eax
+			.cycle_elem:
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov dword[txt_buf],eax ;координата x
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov dword[txt_buf+4],eax ;координата y
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov byte[txt_buf+sp_offs_el_angle],al ;направление
+				call str_next_val
+				;по адресу edi название элемента
+				stdcall el_get_name, edi,13 ;13 - ascii code
+				mov byte[txt_buf+sp_offs_el_type],al ;тип элемента
+
+				stdcall make_list_capts,txt_buf,edi
+
+				stdcall [tl_node_add], tree1,(el_icon_elems shl 16)+1,txt_buf
+				stdcall [tl_cur_next], tree1
+				dec ecx
+				jnz .cycle_elem
+		.end_elems:
+
+		;*** добавление в список текстовых подписей ***
+		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_captions-capt_offs
+		stdcall [tl_cur_next], tree1
+
+		mov esi,txt_captions
+		call str_analiz_r
+		cmp edi,0
+		je .end_captions
+			stdcall str_len,esi
+			add edi,eax
+			stdcall conv_str_to_int,edi
+			cmp eax,0
+			jle .end_captions ;если число подписей = 0
+			mov [shem_captions],eax
+			mov ecx,eax
+			.cycle_captions:
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov dword[txt_buf],eax ;координата x
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov dword[txt_buf+4],eax ;координата y
+				call str_next_val
+				mov al,byte[edi]
+				mov byte[txt_buf+8],al ;вид подписи ('z' - сигнал с 0, 'o' - сигнал с 1, 'n' - нет сигнала)
+				call str_next_val
+
+				stdcall make_list_capts,txt_buf,edi
+
+				stdcall [tl_node_add], tree1,(el_icon_captions shl 16)+1,txt_buf
+				stdcall [tl_cur_next], tree1
+				dec ecx
+				jnz .cycle_captions
+		.end_captions:
+
+		mov byte[txt_buf+capt_offs],0 ;обнуление подписей
+
+		;*** добавление в список ключевых точек ***
+		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_points-capt_offs
+		stdcall [tl_cur_next], tree1
+
+		mov dword[shem_points],0
+		mov esi,txt_points
+		call str_analiz_r
+		cmp edi,0
+		je .end_points ;если описания точек нет в файле
+			stdcall str_len,esi
+			add edi,eax
+			stdcall conv_str_to_int,edi
+			cmp eax,0
+			jle .end_points ;если число точек = 0
+			mov [shem_points],eax
+			mov ecx,eax
+			.cycle_poi:
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov dword[txt_buf],eax ;координата x
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov dword[txt_buf+4],eax ;координата y
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov byte[txt_buf+8],al ;направления
+
+				stdcall [tl_node_add], tree1,(el_icon_points shl 16)+1,txt_buf
+				stdcall [tl_cur_next], tree1
+				dec ecx
+				jnz .cycle_poi
+		.end_points:
+
+		stdcall [tl_cur_beg], tree1
+
+	;*** добавление точечных объектов ***
+	stdcall pole_clear, pole
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	@@:
+		cmp esi,0
+		je @f
+		cmp word[esi],el_icon_points ;получение через esi тип иконки, и пропуск не точечных объектов
+		jne .end_add_p0
+			stdcall [tl_node_poi_get_data], tree1,esi
+			stdcall pole_cell_creat, pole,dword[eax],dword[eax+4],0
+		.end_add_p0:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp @b
+	@@:
+	stdcall pole_sort, pole
+
+	;*** добавление точечных объектов (на основе логических элементов) ***
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	@@:
+		cmp esi,0
+		je @f
+		cmp word[esi],el_icon_elems ;получение через esi тип иконки
+		jne .end_add_p3
+			stdcall [tl_node_poi_get_data], tree1,esi
+			mov ecx,eax
+
+			xor edx,edx ;edx - номер входной ноги
+			.add_p1:
+				stdcall el_get_leg_coords, ecx,edx
+				test eax,eax
+				jnz .add_beg1
+				test ebx,ebx
+				jnz .add_beg1
+					jmp .end_add_p1 ;если координаты не взялись (eax=0 && ebx=0), выход из цикла
+				.add_beg1:
+				stdcall pole_cell_creat, pole,eax,ebx,0
+				inc edx
+				jmp .add_p1
+			.end_add_p1:
+
+			mov edx,(1 shl 16) ;edx - номер выходной ноги
+			.add_p2:
+				stdcall el_get_leg_coords, ecx,edx
+				test eax,eax
+				jnz .add_beg2
+				test ebx,ebx
+				jnz .add_beg2
+					jmp .end_add_p2 ;если координаты не взялись (eax=0 && ebx=0), выход из цикла
+				.add_beg2:
+				stdcall pole_cell_creat, pole,eax,ebx,0
+				inc edx
+				jmp .add_p2
+			.end_add_p2:
+
+		.end_add_p3:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp @b
+	@@:
+	stdcall pole_sort, pole
+
+	;*** добавление точечных объектов (на основе подписей) ***
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	@@:
+		cmp esi,0
+		je @f
+		cmp word[esi],el_icon_captions ;получение через esi тип иконки
+		jne .end_add_p6
+			stdcall [tl_node_poi_get_data], tree1,esi
+			mov ecx,eax
+			cmp byte[ecx+8],'n'
+			je .end_add_p6
+				stdcall pole_cell_creat, pole,[ecx],[ecx+4],0
+		.end_add_p6:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp @b
+	@@:
+	stdcall pole_sort, pole
+
+	;*** рисование проводов (на основе точечных объектов) ***
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	xor ecx,ecx
+	@@:
+		cmp esi,0
+		je @f
+		cmp word[esi],el_icon_points ;получение через esi тип иконки, и пропуск не точечных объектов
+		jne .end_add_p4
+			stdcall [tl_node_poi_get_data], tree1,esi
+			movzx ebx,byte[eax+8]
+			stdcall shem_create_line, dword[eax],dword[eax+4],ebx
+			add ecx,edx
+		.end_add_p4:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		cmp ecx,250 ;ecx - число добавленных точек
+		jl @b
+		xor ecx,ecx
+		stdcall pole_sort, pole ;сортируем для оптимизации быстродействия
+		jmp @b
+	@@:
+	stdcall pole_sort, pole
+
+		stdcall pole_reset_cells, pole ;чистка проводов
+
+		;*** добавление изоляционных объектов (прямо из файла, минуя запись в список) ***
+		mov dword[shem_sub_points],0
+		mov esi,txt_sub_points
+		call str_analiz_r
+		cmp edi,0
+		je .end_sub_points ;если описания точек нет в файле
+			stdcall str_len,esi
+			add edi,eax
+			stdcall conv_str_to_int,edi
+			cmp eax,0
+			jle .end_sub_points ;если число точек = 0
+			mov [shem_sub_points],eax
+			mov ecx,eax
+			.cycle_sub_poi:
+				call str_next_val
+				stdcall conv_str_to_int,edi
+				mov ebx,eax ;координата x
+				call str_next_val
+				stdcall conv_str_to_int,edi ;координата y
+				stdcall pole_cell_creat, pole,ebx,eax,2
+
+				dec ecx
+				jnz .cycle_sub_poi
+		.end_sub_points:
+
+		stdcall pole_sort, pole
+
+		;*** удаление ключевых точек со списка ***
+		mov ecx,[shem_points]
+		inc ecx
+		cld
+		@@:
+			stdcall [tl_info_undo],tree1
+		loop @b
+
+		;*** формирование подписей о параметрах схемы ***
+		mov dword[txt_info.size],0
+		mov eax,dword[shem_w]
+		mov edi,txt_info.size
+		call convert_int_to_str
+		stdcall str_cat, edi,txt_mull
+		mov eax,dword[shem_h]
+		mov edi,txt_buf
+		call convert_int_to_str
+		stdcall str_cat, txt_info.size,edi
+		stdcall str_cat, txt_info.size,txt_space ;завершающий пробел
+
+		;---
+		call but_center ;центровка схемы с учетом shem_w и shem_h
+		call but_set_none
+	.end_open_file:
+	popad
+	ret
+
+align 4
+proc but_save_file
+locals
+	napr dd ?
+	s_param dd ? ;параметр для красивого сохранения
+endl
+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],1 ;if status==1 then save
+	jne .end_save_file
+
+	;*** проверка есть ли провода на схеме
+	mov edi,pole
+	mov esi,pole_index
+	cmp dword[esi],0
+	je .cycle1_beg ;.end_save_file ;если нет ячеек (проводов) то выход
+
+	;*** устанавливаем метки на ключевые точки, которые будут сохранены в файл
+	mov dword[shem_points],0 ;для переопределения точек
+	mov dword[shem_sub_points],0
+	mov ecx,dword[esi]
+	.cycle0: ;цикл по всем точкам
+		add esi,4
+		mov ebx,[esi]
+		imul ebx,sizeof.Cell
+		add ebx,pole_data
+
+		cmp byte[ebx+offs_cell_liv],2
+		jne @f
+			inc dword[shem_sub_points]
+			jmp .cycle0_next
+		@@:
+
+		mov dword[napr],0
+
+		mov edx,[ebx+offs_cell_y]
+		push edx
+		mov edx,[ebx+offs_cell_x]
+		inc edx
+		push edx
+		stdcall pole_cell_find, edi
+		or eax,eax
+		jz @f
+			or dword[napr],1
+		@@:
+
+		mov edx,[ebx+offs_cell_y]
+		inc edx
+		push edx
+		mov edx,[ebx+offs_cell_x]
+		push edx
+		stdcall pole_cell_find, edi
+		or eax,eax
+		jz @f
+			or dword[napr],2
+		@@:
+
+		mov edx,[ebx+offs_cell_y]
+		push edx
+		mov edx,[ebx+offs_cell_x]
+		dec edx
+		push edx
+		stdcall pole_cell_find, edi
+		or eax,eax
+		jz @f
+			or dword[napr],4
+		@@:
+
+		mov edx,[ebx+offs_cell_y]
+		dec edx
+		push edx
+		mov edx,[ebx+offs_cell_x]
+		push edx
+		stdcall pole_cell_find, edi
+		or eax,eax
+		jz @f
+			or dword[napr],8
+		@@:
+
+		cmp dword[napr],5
+		je @f
+		cmp dword[napr],10
+		je @f
+		cmp dword[napr],15
+		je @f
+			mov eax,dword[napr]
+			mov byte[ebx+offs_cell_liv],3 ;установка метки
+			mov byte[ebx+offs_cell_napr],al ;установка направлений
+			inc dword[shem_points]
+		@@:
+		.cycle0_next:
+		dec ecx
+		jnz .cycle0
+
+	;*** снятие метки с точек, которые находятся на входных ногах логических элементов
+	.cycle1_beg:
+	mov dword[shem_elems],0 ;для пепеопределения числа элементов
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	.cycle1:
+		cmp esi,0
+		je .cycle1_end
+		cmp word[esi],el_icon_elems ;получение через esi тип иконки
+		jne .end_add_p1
+			inc dword[shem_elems]
+if 0
+			xor edx,edx ;edx - номер входной ноги
+			@@:
+				stdcall el_get_leg_coords, ecx,edx
+				test eax,eax
+				jz @f ;если координаты не взялись (eax=0 && ebx=0)
+				test ebx,ebx
+				jz @f ;если координаты не взялись (eax=0 && ebx=0)
+				stdcall pole_cell_find, edi,eax,ebx
+				test eax,eax
+				jz .no_erase
+					get_cell_offset ebx,eax
+					mov byte[ebx+offs_cell_liv],0 ;снятие метки
+					dec dword[shem_points]
+				.no_erase:
+				inc edx
+				jmp @b
+			@@:
+			;mov edx,(1 shl 16) ;edx - номер выходной ноги
+end if
+		.end_add_p1:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp .cycle1
+	.cycle1_end:
+
+	;*** создание информации для записи в файл ***
+	mov edi,open_file_lif
+	stdcall mem_copy,edi,txt_size,5
+	stdcall str_cat,edi,txt_space
+	mov eax,dword[shem_w]
+	add edi,5
+	stdcall convert_int_to_str
+	stdcall str_cat,edi,txt_space
+	stdcall str_len,edi
+	add edi,eax
+	mov eax,[shem_h]
+	stdcall convert_int_to_str
+	stdcall str_cat,edi,txt_nl
+
+	;*** сохранение логических элементов ***
+	stdcall str_cat,edi,txt_elements
+	stdcall str_cat,edi,txt_space
+	stdcall str_len,edi
+	add edi,eax
+	mov eax,[shem_elems]
+	stdcall convert_int_to_str
+	stdcall str_cat,edi,txt_nl
+
+	cmp eax,1
+	jl .cycle2_end
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	.cycle2:
+		cmp esi,0
+		je .cycle2_end
+		cmp word[esi],el_icon_elems ;получение через esi тип иконки
+		jne .end_add_p2
+			stdcall [tl_node_poi_get_data], tree1,esi
+			mov ecx,eax
+
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,[ecx] ;coord x
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,[ecx+4] ;coord y
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			movzx eax,byte[ecx+sp_offs_el_angle] ;angle
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			;имя элемента
+			movzx eax,byte[ecx+sp_offs_el_type]
+			imul eax,size_el_opt
+			add eax,el_opt_beg+el_offs_nam
+			stdcall str_cat,edi,eax
+
+			stdcall str_cat,edi,txt_nl
+
+		.end_add_p2:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp .cycle2
+	.cycle2_end:
+
+	;*** сохранение подписей ***
+	stdcall str_cat,edi,txt_captions
+	stdcall str_cat,edi,txt_space
+	stdcall str_len,edi
+	add edi,eax
+	mov eax,[shem_captions]
+	stdcall convert_int_to_str
+	stdcall str_cat,edi,txt_nl
+
+	cmp eax,1
+	jl .cycle3_end
+	stdcall dword[tl_node_poi_get_info], tree1,0
+	mov esi,eax
+	.cycle3:
+		cmp esi,0
+		je .cycle3_end
+		cmp word[esi],el_icon_captions ;получение через esi тип иконки
+		jne .end_add_p3
+			stdcall [tl_node_poi_get_data], tree1,esi
+			mov ecx,eax
+
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,[ecx] ;coord x
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,[ecx+4] ;coord y
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			movzx eax,byte[ecx+8] ;n,z,o
+			mov ah,' ' ;пробел после буквы, что бы не добавлять txt_space
+			mov dword[edi],eax ;al
+
+			;имя элемента
+			mov ebx,edi
+			mov edi,ecx
+			add edi,capt_offs
+			call str_next_val
+			call str_next_val
+			;call str_next_val
+			xchg ebx,edi
+			stdcall str_cat,edi,ebx
+
+			stdcall str_cat,edi,txt_nl
+
+		.end_add_p3:
+		stdcall dword[tl_node_poi_get_next_info], tree1,esi
+		mov esi,eax ;переходим к следущему узлу
+		jmp .cycle3
+	.cycle3_end:
+
+	;*** сохранение ключевых точек ***
+	stdcall str_cat,edi,txt_points
+	stdcall str_cat,edi,txt_space
+	stdcall str_len,edi
+	add edi,eax
+	mov eax,[shem_points]
+	stdcall convert_int_to_str
+	stdcall str_cat,edi,txt_nl
+
+	mov eax,edi
+	mov edi,pole
+	mov esi,pole_index
+	cmp dword[esi],0
+	je .no_points ;если нет ячеек (проводов) то пропуск
+	mov ebx,pole_data
+	mov dword[napr],ebx
+	mov edi,eax
+
+	mov ecx,dword[esi]
+	mov dword[s_param],0
+	.cycle4: ;цикл по всем точкам
+		add esi,4
+		mov ebx,[esi]
+		imul ebx,sizeof.Cell
+		add ebx,dword[napr] ;pole_data
+
+		movzx edx,word[ebx+offs_cell_liv] ;also use offs_cell_napr
+		cmp dl,3
+		jne @f
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,dword[ebx+offs_cell_x]
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,dword[ebx+offs_cell_y]
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			movzx eax,dh
+			stdcall convert_int_to_str
+
+			cmp dword[s_param],7 ;для формата строки
+			je .new_line
+				inc dword[s_param]
+				stdcall str_cat,edi,txt_space
+			jmp @f
+			.new_line:
+				mov dword[s_param],0
+				stdcall str_cat,edi,txt_nl
+		@@:
+		dec ecx
+		jnz .cycle4
+		cmp dword[s_param],0
+		je @f
+			stdcall str_cat,edi,txt_nl
+		@@:
+
+	;*** сохранение изоляционных точек ***
+	stdcall str_cat,edi,txt_sub_points
+	stdcall str_cat,edi,txt_space
+	stdcall str_len,edi
+	add edi,eax
+	mov eax,[shem_sub_points]
+	stdcall convert_int_to_str
+	stdcall str_cat,edi,txt_nl
+
+	mov eax,edi
+	mov edi,pole
+	mov esi,pole_index
+	;cmp dword[esi],0
+	;je .no_points ;если нет ячеек (проводов) то пропуск
+	;mov ebx,pole_data
+	;mov dword[napr],ebx
+	mov edi,eax
+
+	mov ecx,dword[esi]
+	.cycle5: ;цикл по всем точкам
+		add esi,4
+		mov ebx,[esi]
+		imul ebx,sizeof.Cell
+		add ebx,dword[napr] ;pole_data
+
+		movzx edx,byte[ebx+offs_cell_liv]
+		cmp dl,2
+		jne @f
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,dword[ebx+offs_cell_x]
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			stdcall str_len,edi
+			add edi,eax
+			mov eax,dword[ebx+offs_cell_y]
+			stdcall convert_int_to_str
+			stdcall str_cat,edi,txt_space
+
+			;stdcall str_cat,edi,txt_nl
+		@@:
+		dec ecx
+		jnz .cycle5
+		stdcall str_cat,edi,txt_nl
+
+	.no_points:
+
+	;*** определение параметров файла
+	mov edi,open_file_lif
+	stdcall str_len,edi
+
+	;*** запись файла
+	mov [run_file_70.Function], SSF_CREATE_FILE
+	mov [run_file_70.Position], 0
+	mov [run_file_70.Flags], 0
+	mov dword[run_file_70.Count], eax
+	mov [run_file_70.Buffer], edi
+	mov byte[run_file_70+20], 0
+	mov dword[run_file_70.FileName], openfile_path
+	mcall SF_FILE,run_file_70 ;сохраняем файл
+
+	call redraw_pole
+	.end_save_file:
+popad
+	ret
+endp
+
+;формирование подписи для списка
+align 4
+proc make_list_capts uses eax ebx ecx edi, buf:dword, txt:dword
+	mov ebx,dword[buf]
+
+	mov edi,ebx
+	add edi,capt_offs
+	mov dword[edi],'    ' ;пробелы для выравнивания маленьких чисел
+
+	mov eax,dword[ebx] ;+0 - offset coord x
+	cmp eax,100
+	jge @f
+		inc edi
+	@@:
+	cmp eax,10
+	jge @f
+		inc edi
+	@@:
+	call convert_int_to_str ;координата x (для подписи)
+	stdcall str_cat,edi,txt_space
+	stdcall str_len,edi
+	add edi,eax
+	mov eax,dword[ebx+4] ;+4 - offset coord y
+	call convert_int_to_str ;координата y (для подписи)
+	stdcall str_cat,edi,txt_space
+
+	mov edi,dword[txt]
+	cmp edi,0
+	je .end_f
+		stdcall str_len,edi ;eax = strlen([edi])
+		mov ecx,edi
+		call str_next_spaces
+		sub edi,ecx ;определяем длинну подписи
+
+		cmp edi,eax
+		jle @f
+			mov edi,eax ;если строка закончилась не пробелом
+		@@:
+		;cmp edi,1
+		;jge @f
+		;       mov edi,1 ;минимум 1 символ
+		;@@:
+
+		add ebx,capt_offs
+		stdcall str_n_cat, ebx,ecx,edi
+	.end_f:
+	ret
+endp
+
+;добавление нового элемента управления на схему
+;при добавлении используются стандартные настройки
+align 4
+proc shem_element_creat uses eax ebx, coord_x:dword, coord_y:dword
+	mov eax,dword[coord_x]
+	mov dword[txt_buf],eax ;координата x
+	mov ebx,dword[coord_y]
+
+	stdcall element_is_click,eax,ebx ;проверяем есть ли в данной точке другой элемент созданный раньше
+	test eax,eax
+	jnz .end_f ;при нажатии попали на один из элементов
+	mov dword[txt_buf+4],ebx ;координата y
+
+	;xor eax,eax
+	mov byte[txt_buf+sp_offs_el_angle],al ;направление
+
+	stdcall [tl_node_get_data], tree2
+	mov ebx,eax
+	test ebx,ebx
+	jnz @f
+		mov ebx,el_opt_beg+el_offs_nam ;если не взялось имя элемента, то по умолчанию берем 1-й из списка
+	@@:
+	stdcall el_get_name, ebx,0
+	mov byte[txt_buf+sp_offs_el_type],al ;тип элемента
+
+	stdcall make_list_capts,txt_buf,ebx
+	stdcall [tl_node_add], tree1,(el_icon_elems shl 16)+1,txt_buf
+	stdcall [tl_cur_next], tree1
+	stdcall [tl_draw], tree1
+	.end_f:
+	ret
+endp
+
+;description:
+; анализирует строку с именем лог. элемента и возвращает номер лог. элемента
+;input:
+; str - указатель на строку содержащую имя лог. элемента
+; asciiz - символ который должен быть заменен на ascii 0
+;output:
+; eax - тип элемента
+align 4
+proc el_get_name uses ebx ecx edi esi, str:dword, asciiz:dword
+	mov edi,[str]
+	cmp dword[asciiz],0
+	je @f
+		mov eax,dword[asciiz]
+		mov ecx,el_offs_col ;размер текста в str не больше el_offs_col
+		cld
+		repne scasb
+		mov ebx,edi
+		dec ebx
+		mov byte[ebx],0 ;0 - символ конца строки для правильной работы str_cmp
+	@@:
+
+	mov edi,[str]
+	mov esi,el_opt_beg+el_offs_nam
+	xor ecx,ecx
+	@@:
+		stdcall str_cmp, edi,esi
+		cmp eax,0
+		je @f
+		add esi,size_el_opt
+		cmp esi,el_opt_beg.end
+		jge @f
+		inc ecx
+		jmp @b
+	@@:
+	mov eax,ecx
+
+	cmp dword[asciiz],0
+	je @f
+		mov ecx,dword[asciiz]
+		mov byte[ebx],cl
+	@@:
+	ret
+endp
+
+;input:
+; el_data - указатель на данные элемента
+; l_opt - номер ноги, для которой ищутся координаты, входная/выходная нога
+;output:
+; eax - coord x (if not found eax=0)
+; ebx - coord y (if not found ebx=0)
+align 4
+proc el_get_leg_coords uses ecx edx edi esi, el_data:dword, l_opt:dword
+	mov edi,[el_data] ;данные элемента
+	movzx esi,byte[edi+sp_offs_el_type] ;тип элемента
+	imul esi,size_el_opt
+	add esi,el_opt_beg
+	;esi+el_offs_legs_inp - указатель на таблицу с параметрами входных ног
+
+	mov eax,[edi+0]
+	mov ebx,[edi+4]
+	mov edx,[l_opt]
+	movzx edi,byte[edi+sp_offs_el_angle] ;угол поворота / 90 (от 0-3)
+
+	btr edx,16 ;входная/выходная нога
+	jc .output_leg
+
+	;если нога входная
+	inc edx ;номерация ног начинается с нуля, потому добавляем 1
+	stdcall move_rotate_x_n90, -2,edi
+	mov esi,[esi+el_offs_legs_inp]
+	@@:
+		movzx ecx,byte[esi]
+		cmp ecx,0
+		je .not_found ;ноги кончились раньше, чем ожидалось
+		stdcall move_rotate_n90, 0,ecx,edi
+		inc esi
+		dec edx
+		jnz @b
+		jmp .end_f
+
+	;если нога выходная
+	.output_leg:
+	inc edx ;номерация ног начинается с нуля, потому добавляем 1
+	movzx ecx,byte[esi+el_offs_box_x]
+	add ecx,2
+	stdcall move_rotate_x_n90, ecx,edi
+	add esi,el_offs_legs_out
+	@@:
+		movzx ecx,byte[esi]
+		cmp ecx,0
+		je .not_found ;ноги кончились раньше, чем ожидалось
+		stdcall move_rotate_n90, 0,ecx,edi
+		inc esi
+		dec edx
+		jnz @b
+		jmp .end_f
+
+	.not_found:
+		xor eax,eax
+		xor ebx,ebx
+	.end_f:
+	ret
+endp
+
+align 4
+proc move_rotate_n90 uses ecx edi, d_x:dword, d_y:dword, angle:dword
+	mov edi,[angle] ;угол поворота / 90 (от 0-3)
+	and edi,3
+	shl edi,4 ;edi*=16
+	add edi,mcs
+
+	mov ecx,[d_x]
+	imul ecx,dword[edi]
+	add eax,ecx
+	mov ecx,[d_y]
+	imul ecx,dword[edi+4]
+	add eax,ecx
+
+	mov ecx,[d_x]
+	imul ecx,dword[edi+8]
+	add ebx,ecx
+	mov ecx,[d_y]
+	imul ecx,dword[edi+12]
+	add ebx,ecx
+	ret
+endp
+
+align 4
+proc mem_copy uses ecx esi edi, destination:dword, source:dword, len:dword
+	cld
+	mov edi,[destination]
+	mov esi,[source]
+	mov ecx,[len]
+	rep movsb
+	ret
+endp
+
+;description:
+; Функция пропускает одно слово (или число) с учетом разделительных символов:
+; пробела, табуляции, новой строки. Нужна для последовательного считывани чисел из строки
+;input:
+; edi - указатель на пробел или слово
+;output:
+; edi - указатель на следующее слово
+align 4
+str_next_val:
+	call str_skip_spaces
+	@@:
+		cmp byte[edi],0
+		je @f
+
+		cmp byte[edi],' '
+		je @f
+		cmp byte[edi],9
+		je @f
+		cmp byte[edi],10
+		je @f
+		cmp byte[edi],13
+		je @f
+
+		inc edi
+		jmp @b
+	@@:
+	call str_skip_spaces
+	ret
+
+align 4
+str_skip_spaces:
+	dec edi
+	@@:
+		inc edi
+		cmp byte[edi],' '
+		je @b
+		cmp byte[edi],9
+		je @b
+		cmp byte[edi],10
+		je @b
+		cmp byte[edi],13
+		je @b
+	ret
+
+align 4
+str_next_spaces:
+	dec edi
+	@@:
+		inc edi
+		cmp byte[edi],0
+		je @f
+		cmp byte[edi],' '
+		je @f
+		cmp byte[edi],9
+		je @f
+		cmp byte[edi],10
+		je @f
+		cmp byte[edi],13
+		je @f
+		jmp @b
+	@@:
+	ret
+
+;input:
+; esi - указатель на искомое слово
+;output:
+; edi - указатель на позицию в которой слово найдено, если слово не найдено то edi=0
+;портятся регистры:
+; eax ecx
+align 4
+str_analiz_r:
+	mov edi,open_file_lif
+	mov ecx,dword[f_size]
+	@@:
+		mov al,byte[esi] ;устанавливаем первый символ для поиска
+		cld
+		repnz scasb
+		cmp ecx,0
+		je @f ;если закончился весь текст, то выход из функции
+		;первый символ по адресу edi-1 должен быть из строки esi
+		dec edi
+		stdcall str_instr, edi,esi ;проверяем слово на совпадение
+		inc edi
+		cmp al,0
+		jne @b ;если слово не совпало, ищем в строке следующий первый символ для сравнения
+		;сюда попадаем если нашли слово esi по адресу edi
+		jmp .exit_f
+	@@:
+		;сюда попадаем если не нашли слово esi по адресу edi
+		xor edi,edi
+	.exit_f:
+	ret
+
+;description:
+; проверяет содержится ли строка str1 в строке str0
+; проверка делается только начиная с первых символов, указанных в str0 и str1
+; пример 1: если str0='aaabbbccc', str1='bbb' совпадения не будет
+; пример 2: если str0='aaabbbccc', str1='aaa' совпадение будет
+;output:
+; al = 0 если строка str1 содержится в str0
+; al != 0 если строка str1 не содержится в str0
+align 4
+proc str_instr uses edi esi, str0:dword, str1:dword
+	;xor eax,eax
+	mov edi,[str0]
+	mov esi,[str1]
+	cld
+	@@:
+		mov al,[esi]
+		cmp al,0
+		je .e1
+		inc esi
+		scasb ;сравниваем символы
+	jz @b ;если совпали, то переходим к сравнению следующих
+	;сюда попадаем если строки не совпали
+	sub al,[edi-1]
+	.e1: ;сюда попадаем если строка str1 (esi) закончилась
+	ret
+endp
+
+;description:
+; проверяет совпадение строк str0 и str1
+;output:
+; eax = 0 если str0 = str1
+; eax = 1 если str0 != str1
+align 4
+proc str_cmp uses ecx edi esi, str0:dword, str1:dword
+	xor eax,eax
+	mov edi,[str0]
+	mov esi,[str1]
+	mov ecx,0x8fffffff ;ecx - очень большое число
+	cld
+	repne scasb
+	;dec edi
+	sub edi,[str0]
+	mov ecx,edi ;ecx = strlen(str0)+1
+
+	mov edi,[str0]
+	repe cmpsb
+	je @f
+		inc eax
+	@@:
+	ret
+endp
+
+align 4
+proc but_run_stop
+	xor byte[tim_ch],1
+	cmp byte[tim_ch],0
+	jne @f
+		;остановка схемы
+		stdcall pole_reset_cells, pole ;чистка проводов
+		call redraw_pole
+		jmp .end_f
+	@@:
+		;подготовка схемы к запуску
+		call sign_clear
+		call sign_set_captions_angles
+	.end_f:
+	ret
+endp
+
+align 4
+proc but_set_0 uses eax
+	stdcall [tl_node_get_data], tree1
+	test eax,eax
+	jz .end_f
+;el_icon_captions
+;       cmp byte[eax+8],'n'
+;       je .end_f
+	cmp byte[eax+8],'o' ;временное отсечение, пока нет проверки типа текущей иконки
+	jne .end_f
+		mov byte[eax+8],'z'
+	.end_f:
+	ret
+endp
+
+align 4
+proc but_set_1 uses eax
+	stdcall [tl_node_get_data], tree1
+	test eax,eax
+	jz .end_f
+;el_icon_captions
+;       cmp byte[eax+8],'n'
+;       je .end_f
+	cmp byte[eax+8],'z' ;временное отсечение, пока нет проверки типа текущей иконки
+	jne .end_f
+		mov byte[eax+8],'o'
+	.end_f:
+	ret
+endp
+
+;сдвиг объекта влево
+align 4
+proc but_mov_l uses eax edi
+	cmp byte[tim_ch],0
+	jne .end_f
+	stdcall [tl_node_get_data], tree1
+	test eax,eax
+	jz .end_f
+		cmp dword[eax],1
+		jle .end_f
+		dec dword[eax]
+		mov edi,eax
+		stdcall mem_copy,txt_buf,eax,capt_offs
+		add edi,capt_offs
+		call str_next_val
+		call str_next_val
+		stdcall make_list_capts,txt_buf,edi
+		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
+		call redraw_pole
+		stdcall [tl_draw],tree1
+	.end_f:
+	ret
+endp
+
+;сдвиг объекта вправо
+align 4
+proc but_mov_r uses eax edi
+	cmp byte[tim_ch],0
+	jne .end_f
+	stdcall [tl_node_get_data], tree1
+	test eax,eax
+	jz .end_f
+		inc dword[eax]
+		mov edi,eax
+		stdcall mem_copy,txt_buf,eax,capt_offs
+		add edi,capt_offs
+		call str_next_val
+		call str_next_val
+		stdcall make_list_capts,txt_buf,edi
+		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
+		call redraw_pole
+		stdcall [tl_draw],tree1
+	.end_f:
+	ret
+endp
+
+align 4
+proc but_mov_u uses eax edi
+	cmp byte[tim_ch],0
+	jne .end_f
+	stdcall [tl_node_get_data], tree1
+	test eax,eax
+	jz .end_f
+		cmp dword[eax+4],1
+		jle .end_f
+		dec dword[eax+4]
+		mov edi,eax
+		stdcall mem_copy,txt_buf,eax,capt_offs
+		add edi,capt_offs
+		call str_next_val
+		call str_next_val
+		stdcall make_list_capts,txt_buf,edi
+		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
+		call redraw_pole
+		stdcall [tl_draw],tree1
+	.end_f:
+	ret
+endp
+
+align 4
+proc but_mov_d uses eax edi
+	cmp byte[tim_ch],0
+	jne .end_f
+	stdcall [tl_node_get_data], tree1
+	test eax,eax
+	jz .end_f
+		inc dword[eax+4]
+		mov edi,eax
+		stdcall mem_copy,txt_buf,eax,capt_offs
+		add edi,capt_offs
+		call str_next_val
+		call str_next_val
+		stdcall make_list_capts,txt_buf,edi
+		stdcall mem_copy,eax,txt_buf,32 ;capt_offs
+		call redraw_pole
+		stdcall [tl_draw],tree1
+	.end_f:
+	ret
+endp
+
+;установка обычного режима, без рисования
+align 4
+proc but_set_none
+	mov byte[pen_mode],0
+	cmp [cursor_pointer],0
+	je @f
+		push eax ebx ecx
+		mcall SF_MOUSE_GET,SSF_DEL_CURSOR,[cursor_pointer]
+		pop ecx ebx eax
+	@@:
+	ret
+endp
+
+;hot_p - координаты горячей точки курсора, смещенные на бит 16 ((cx shl 8) + cy) shl 16
+align 4
+proc set_pen_mode uses eax ebx ecx edx, mode:dword, icon:dword, hot_p:dword
+	mov eax,[mode]
+	cmp byte[pen_mode],al
+	je @f
+		mov byte[pen_mode],al
+		mov edx,[hot_p]
+		mov dx,2 ;LOAD_INDIRECT
+		mov ecx,[icon]
+		shl ecx,12 ;умножаем на 4 кб
+		add ecx,[buf_curs.data]
+		mcall SF_MOUSE_GET,SSF_LOAD_CURSOR
+
+		or eax,eax
+		jz @f
+			mov [cursor_pointer],eax
+			mcall SF_MOUSE_GET,SSF_SET_CURSOR,[cursor_pointer]
+	@@:
+	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 '/sys',0
+
+communication_area_name:
+	db 'FFFFFFFF_open_dialog',0
+open_dialog_name:
+	db 'opendial',0
+communication_area_default_path:
+	db '/sys/File managers/',0
+
+Filter:
+dd Filter.end - Filter ;.1
+.1:
+db 'TXT',0
+db 'ASM',0
+.end:
+db 0
+
+include 'le_libs.inc'
+
+align 4
+buf_0: dd 0 ;
+.l: dw 170 ;+4 left
+.t: dw panel_1_coord_top ;+6 top
+.w: dd 395 ;+8 w
+.h: dd 340 ;+12 h
+.color: dd ini_def_c_bkgnd ;+16 color
+	db 24 ;+20 bit in pixel
+
+align 4
+buf_font: ;буфер со шрифтом
+	dd 0 ;указатель на буфер изображения
+	dw 25,25 ;+4 left,top
+	dd 96 ;+8 w
+	dd 144 ;+12 h
+	dd 0 ;+16 color
+	db 24 ;+20 bit in pixel
+
+align 4
+buf_curs: ;буфер с курсорами
+.data: dd 0 ;указатель на буфер изображения
+	dw 0,0 ;+4 left,top
+	dd 32 ;+8 w
+	dd 32*cursors_count ;+12 h
+	dd 0 ;+16 color
+	db 24 ;+20 bit in pixel
+
+align 4
+buf_curs_8: ;буфер с курсорами
+.data: dd 0 ;указатель на буфер изображения
+	dw 0,0 ;+4 left,top
+	dd 32 ;+8 w
+	dd 32*cursors_count ;+12 h
+	dd 0 ;+16 color
+	db 24 ;+20 bit in pixel
+
+cursor_pointer dd 0 ;указатель на данные для курсора
+
+el_focus dd 0
+tree1 tree_list 32,points_max+2, tl_key_no_edit, 16,16,\
+    0x8080ff,0x0000ff,0xffffff, 5,panel_3_coord_top+85,145,170, 0,capt_offs,0,\
+    el_focus, wScr1,0
+tree2 tree_list el_offs_col-el_offs_nam,100+2, tl_key_no_edit+tl_list_box_mode, 16,16,\
+    0x8080ff,0x0000ff,0xffffff, 5,panel_3_coord_top,145,80, 0,0,0,\
+    el_focus, wScr2,0
+
+align 4
+wScr1:
+.x:
+.size_x     dw 16 ;+0
+.start_x    dw 0 ;+2
+.y:
+.size_y     dw 150 ;+4
+.start_y    dw 0 ;+6
+.btn_high   dd 15 ;+8
+.type	    dd 1  ;+12
+.max_area   dd 100  ;+16
+.cur_area   dd 30  ;+20
+.position   dd 0  ;+24
+.bckg_col   dd 0xeeeeee ;+28
+.frnt_col   dd 0xbbddff ;+32
+.line_col   dd 0  ;+36
+.redraw     dd 0  ;+40
+.delta	    dw 0  ;+44
+.delta2     dw 0  ;+46
+.run_x:
+.r_size_x   dw 0  ;+48
+.r_start_x  dw 0  ;+50
+.run_y:
+.r_size_y   dw 0 ;+52
+.r_start_y  dw 0 ;+54
+.m_pos	    dd 0 ;+56
+.m_pos_2    dd 0 ;+60
+.m_keys     dd 0 ;+64
+.run_size   dd 0 ;+68
+.position2  dd 0 ;+72
+.work_size  dd 0 ;+76
+.all_redraw dd 0 ;+80
+.ar_offset  dd 1 ;+84
+
+align 4
+wScr2:
+.x:
+.size_x     dw 16 ;+0
+.start_x    dw 0 ;+2
+.y:
+.size_y     dw 150 ;+4
+.start_y    dw 0 ;+6
+.btn_high   dd 15 ;+8
+.type	    dd 1  ;+12
+.max_area   dd 100  ;+16
+.cur_area   dd 30  ;+20
+.position   dd 0  ;+24
+.bckg_col   dd 0xeeeeee ;+28
+.frnt_col   dd 0xbbddff ;+32
+.line_col   dd 0  ;+36
+.redraw     dd 0  ;+40
+.delta	    dw 0  ;+44
+.delta2     dw 0  ;+46
+.run_x:
+.r_size_x   dw 0  ;+48
+.r_start_x  dw 0  ;+50
+.run_y:
+.r_size_y   dw 0 ;+52
+.r_start_y  dw 0 ;+54
+.m_pos	    dd 0 ;+56
+.m_pos_2    dd 0 ;+60
+.m_keys     dd 0 ;+64
+.run_size   dd 0 ;+68
+.position2  dd 0 ;+72
+.work_size  dd 0 ;+76
+.all_redraw dd 0 ;+80
+.ar_offset  dd 1 ;+84
+
+align 4
+proc str_n_cat uses eax ecx edi esi, str1:dword, str2:dword, n:dword
+	mov esi,dword[str2]
+	mov ecx,dword[n]
+	mov edi,dword[str1]
+	stdcall str_len,edi
+	add edi,eax
+	cld
+	repne movsb
+	mov byte[edi],0
+	ret
+endp
+
+align 4
+proc str_cat uses eax ecx edi esi, str1:dword, str2:dword
+	mov esi,dword[str2]
+	stdcall str_len,esi
+	mov ecx,eax
+	inc ecx
+	mov edi,dword[str1]
+	stdcall str_len,edi
+	add edi,eax
+	cld
+	repne movsb
+	ret
+endp
+
+;output:
+; eax = strlen
+align 4
+proc str_len, str1:dword
+	mov eax,[str1]
+	@@:
+		cmp byte[eax],0
+		je @f
+		inc eax
+		jmp @b
+	@@:
+	sub eax,[str1]
+	ret
+endp
+
+;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]
+
+	;на случай если перед числом находятся пробелы
+	@@:
+	cmp byte[esi],' '
+	jne @f
+		inc esi
+		jmp @b
+	@@:
+
+	;определение отрицательных чисел
+	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
+
+;этот код не мой, он преобразует число в строку
+;input:
+; eax = value
+; edi = string buffer
+;output:
+align 4
+proc convert_int_to_str uses eax ecx edx edi
+	mov dword[edi+1],0
+	call .str
+	ret
+endp
+
+align 4
+.str:
+	mov ecx,0x0a ;задается система счисления изменяются регистры 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	      ;вернуться очень интересный ход т.к. пока в стеке храниться кол-во вызовов то столько раз мы и будем вызываться
+
+align 16
+i_end:
+	image_data_toolbar dd 0
+	icon_tl_sys dd 0 ;указатель на память для хранения системных иконок
+	icon_toolbar dd 0 ;указатель на память для хранения иконок объектов
+	image_data_gray dd 0 ;память с временными серыми изображениями в формате 24-bit, из которых будут создаваться трафареты
+	mouse_dd dd 0
+	last_time dd 0
+	sc system_colors
+	procinfo process_information
+	run_file_70 FileInfoBlock
+	open_file_lif:
+		rb 2*4096 ;область для открытия файлов
+	.end:
+	rb 1024
+stacktop:
+	sys_path rb 1024
+	file_name rb 2048 ;4096
+	plugin_path rb 4096
+	openfile_path rb 4096
+	filename_area rb 256
+mem:
diff --git a/programs/media/log_el/trunk/log_el.ini b/programs/media/log_el/log_el.ini
similarity index 100%
rename from programs/media/log_el/trunk/log_el.ini
rename to programs/media/log_el/log_el.ini
diff --git a/programs/media/log_el/trunk/mn_4bit.txt b/programs/media/log_el/mn_4bit.txt
similarity index 100%
rename from programs/media/log_el/trunk/mn_4bit.txt
rename to programs/media/log_el/mn_4bit.txt
diff --git a/programs/media/log_el/trunk/multipl_2b.txt b/programs/media/log_el/multipl_2b.txt
similarity index 100%
rename from programs/media/log_el/trunk/multipl_2b.txt
rename to programs/media/log_el/multipl_2b.txt
diff --git a/programs/media/log_el/trunk/objects.png b/programs/media/log_el/objects.png
similarity index 100%
rename from programs/media/log_el/trunk/objects.png
rename to programs/media/log_el/objects.png
diff --git a/programs/media/log_el/trunk/or_2.txt b/programs/media/log_el/or_2.txt
similarity index 100%
rename from programs/media/log_el/trunk/or_2.txt
rename to programs/media/log_el/or_2.txt
diff --git a/programs/media/log_el/trunk/or_3.txt b/programs/media/log_el/or_3.txt
similarity index 100%
rename from programs/media/log_el/trunk/or_3.txt
rename to programs/media/log_el/or_3.txt
diff --git a/programs/media/log_el/trunk/test1.txt b/programs/media/log_el/test1.txt
similarity index 100%
rename from programs/media/log_el/trunk/test1.txt
rename to programs/media/log_el/test1.txt
diff --git a/programs/media/log_el/trunk/test2.txt b/programs/media/log_el/test2.txt
similarity index 100%
rename from programs/media/log_el/trunk/test2.txt
rename to programs/media/log_el/test2.txt
diff --git a/programs/media/log_el/trunk/test3.txt b/programs/media/log_el/test3.txt
similarity index 100%
rename from programs/media/log_el/trunk/test3.txt
rename to programs/media/log_el/test3.txt
diff --git a/programs/media/log_el/trunk/test4.txt b/programs/media/log_el/test4.txt
similarity index 100%
rename from programs/media/log_el/trunk/test4.txt
rename to programs/media/log_el/test4.txt
diff --git a/programs/media/log_el/trunk/test5.txt b/programs/media/log_el/test5.txt
similarity index 100%
rename from programs/media/log_el/trunk/test5.txt
rename to programs/media/log_el/test5.txt
diff --git a/programs/media/log_el/trunk/tl_sys_16.png b/programs/media/log_el/tl_sys_16.png
similarity index 100%
rename from programs/media/log_el/trunk/tl_sys_16.png
rename to programs/media/log_el/tl_sys_16.png
diff --git a/programs/media/log_el/trunk/toolbar.png b/programs/media/log_el/toolbar.png
similarity index 100%
rename from programs/media/log_el/trunk/toolbar.png
rename to programs/media/log_el/toolbar.png
diff --git a/programs/media/log_el/trunk/triger_dc.txt b/programs/media/log_el/triger_dc.txt
similarity index 100%
rename from programs/media/log_el/trunk/triger_dc.txt
rename to programs/media/log_el/triger_dc.txt
diff --git a/programs/media/log_el/trunk/triger_rs.txt b/programs/media/log_el/triger_rs.txt
similarity index 100%
rename from programs/media/log_el/trunk/triger_rs.txt
rename to programs/media/log_el/triger_rs.txt
diff --git a/programs/media/log_el/trunk/triger_web.txt b/programs/media/log_el/triger_web.txt
similarity index 100%
rename from programs/media/log_el/trunk/triger_web.txt
rename to programs/media/log_el/triger_web.txt