use32 org 0x0 db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт dd 0x1 dd start dd i_end ;размер приложения dd mem dd stacktop dd 0 dd sys_path color_border equ 0xff0000 color_s0 equ 0xff ;сигнал 0 color_s1 equ 0xffffff ;сигнал 1 color_s2 equ 0xff00 ;точка без пересечения color_s3 equ 0xff0000 ;временное значение для сохранения color_caption equ 0x808080 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 '../../../develop/libraries/box_lib/load_lib.mac' include '../../../develop/libraries/box_lib/trunk/box_lib.mac' include 'mem.inc' include 'dll.inc' include 'le_pole.inc' include 'le_signal.inc' @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load caption db 'Логические элементы 23.03.12',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 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 struct FileInfoBlock Function dd ? Position dd ? Flags dd ? Count dd ? Buffer dd ? db ? FileName dd ? ends macro elOpt nam,col,box_x,box_y,table, tbl_i_legs, ol0, ol1, ol2 { @@: db nam rb @b+16-$ 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 '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 ;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_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 run_file_70 FileInfoBlock image_data dd 0 ;указатель на временную память. для нужен преобразования изображения IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*20 image_data_toolbar dd 0 TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;размер bmp файла с системными иконками icon_tl_sys dd 0 ;указатель на память для хранения системных иконок TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*5+54 ;размер bmp файла с иконками объектов icon_toolbar dd 0 ;указатель на память для хранения иконок объектов IMAGE_FONT_SIZE equ 128*144*3 image_data_gray dd 0 ;память с временными серыми изображениями в формате 24-bit, из которых будут создаваться трафареты cursors_count equ 4 IMAGE_CURSORS_SIZE equ 4096*cursors_count ;размер картинки с курсорами macro load_image_file path,buf,size { ;макрос для загрузки изображений ;path - может быть переменной или строковым параметром if path eqtype '' ;проверяем задан ли строкой параметр path jmp @f local .path_str .path_str db path ;формируем локальную переменную db 0 @@: ;32 - стандартный адрес по которому должен быть буфер с системным путем copy_path .path_str,[32],file_name,0x0 else copy_path path,[32],file_name,0x0 ;формируем полный путь к файлу изображения, подразумеваем что он в одной папке с программой end if stdcall mem.Alloc, dword size ;выделяем память для изображения mov [buf],eax mov eax,70 ;70-я функция работа с файлами mov [run_file_70.Function], 0 mov [run_file_70.Position], 0 mov [run_file_70.Flags], 0 mov [run_file_70.Count], dword size m2m [run_file_70.Buffer], [buf] mov byte[run_file_70+20], 0 mov [run_file_70.FileName], file_name mov ebx,run_file_70 int 0x40 ;загружаем файл изображения cmp ebx,0xffffffff je @f ;определяем вид изображения и переводим его во временный буфер image_data stdcall dword[img_decode], dword[buf],ebx,0 mov dword[image_data],eax ;преобразуем изображение к формату rgb stdcall dword[img_to_rgb2], dword[image_data],dword[buf] ;удаляем временный буфер image_data stdcall dword[img_destroy], dword[image_data] @@: } align 4 start: load_libraries l_libs_start,l_libs_end ;проверка на сколько удачно загузилась библиотека mov ebp,lib_7 cmp dword [ebp+ll_struc_size-4],0 jz @f mcall -1 ;exit not correct @@: mcall 48,3,sc,sizeof.system_colors mcall 40,0x27 stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога stdcall [buf2d_create], buf_0 ;создание буфера load_image_file 'toolbar.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE 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,TREE_ICON_SYS16_BMP_SIZE ;если изображение не открылось, то в 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,TOOLBAR_ICON_BMP_SIZE 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,IMAGE_FONT_SIZE 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,IMAGE_CURSORS_SIZE 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, IMAGE_CURSORS_SIZE 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], eax, el_icon_elems shl 16, tree2 stdcall [tl_cur_next], tree2 add eax,size_el_opt loop @b stdcall [tl_cur_beg], tree2 mcall 26,9 mov [last_time],eax align 4 red_win: call draw_window align 4 still: mcall 26,9 mov ebx,[last_time] add ebx,10 ;задержка cmp ebx,eax jge @f mov ebx,eax @@: sub ebx,eax ;cmp ebx,10 ;задержка ;ja timer_funct ;test ebx,ebx ;jz timer_funct mcall 23 cmp eax,0 je timer_funct cmp al,1 jz red_win cmp al,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 26,9 mov [last_time],eax cmp byte[tim_ch],0 je @f inc dword[time] call sign_move mov eax,[time] and eax,11b ;кратность 4-м jnz @f call sign_from_elems call sign_from_captions @@: popad jmp still align 4 mouse: stdcall [tl_mouse], tree1 stdcall [tl_mouse], tree2 pushad mcall 37,2 ;нажатые кнопки мыши 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 37,1 ;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 ;при нажатии не попали ни на один из элементов stdcall [tl_node_get_data], tree1 pop ebx cmp eax,ebx je .end_buf_wnd ;если уже курсор стоит там где нужно stdcall [tl_cur_beg], tree1 .cycle0: stdcall [tl_node_get_data], tree1 pop ebx 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 @f ;режим создания элементов stdcall shem_element_creat, eax,ebx stdcall pole_paint, pole stdcall [buf2d_draw], buf_0 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],0,tree1 pop esi @@: cmp esi,0 je @f cmp word[esi],el_icon_elems ;получение через esi тип иконки jne .end_add_p1 stdcall [tl_node_poi_get_data], esi, tree1 pop ecx 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],esi,tree1 pop esi ;переходим к следущему узлу 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 12,1 ; *** рисование главного окна (выполняется 1 раз при запуске) *** xor eax,eax mov ebx,(20 shl 16)+520 mov ecx,(20 shl 16)+415 mov edx,[sc.work] or edx,(3 shl 24)+0x10000000+0x20000000 mov edi,caption int 0x40 ; *** создание кнопок на панель *** mov eax,8 mov ebx,(5 shl 16)+20 mov ecx,(panel_0_coord_top shl 16)+20 mov edx,3 mov esi,[sc.work_button] int 0x40 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 eax,7 mov ebx,[image_data_toolbar] mov ecx,(16 shl 16)+16 mov edx,(7 shl 16)+panel_0_coord_top+2 ;icon new int 0x40 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 ; *** рисование буфера *** 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 *** mov eax,8 mov ebx,(5 shl 16)+20 mov ecx,(panel_1_coord_top shl 16)+20 mov edx,20 mov esi,[sc.work_button] int 0x40 add ebx,25 shl 16 mov edx,21 int 0x40 add ebx,30 shl 16 mov edx,22 int 0x40 add ebx,25 shl 16 mov edx,23 int 0x40 add ebx,25 shl 16 mov edx,24 int 0x40 add ebx,25 shl 16 mov edx,25 int 0x40 mov eax,4 ;рисование текста mov ebx,(10 shl 16)+panel_1_coord_top+5 mov ecx,[sc.work_text] or ecx,0x80000000 ;or (1 shl 30) mov edx,txt_set_0 ;mov edi,[sc.work] int 0x40 add ebx,25 shl 16 mov edx,txt_set_1 int 0x40 ; *** рисование иконок на кнопках *** mov eax,7 mov ebx,[image_data_toolbar] mov ecx,(16 shl 16)+16 mov edx,(62 shl 16)+panel_1_coord_top+2 add ebx,IMAGE_TOOLBAR_ICON_SIZE*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) int 0x40 ; *** создание кнопок рисования провода *** mov eax,8 mov ebx,(5 shl 16)+20 mov ecx,(panel_2_coord_top shl 16)+20 mov edx,30 mov esi,[sc.work_button] int 0x40 add ebx,25 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 ; *** рисование иконок на кнопках *** mov eax,7 mov ebx,[image_data_toolbar] mov ecx,(16 shl 16)+16 mov edx,(7 shl 16)+panel_2_coord_top+2 ;иконка стрела add ebx,IMAGE_TOOLBAR_ICON_SIZE*11 int 0x40 add ebx,IMAGE_TOOLBAR_ICON_SIZE add edx,(25 shl 16) ;icon pen 1 int 0x40 add ebx,IMAGE_TOOLBAR_ICON_SIZE add edx,(25 shl 16) ;icon pen 2 int 0x40 add ebx,IMAGE_TOOLBAR_ICON_SIZE add edx,(25 shl 16) ;icon pen 3 int 0x40 add ebx,IMAGE_TOOLBAR_ICON_SIZE add edx,(25 shl 16) ;icon add elemet int 0x40 mcall 12,2 popad ret align 4 key: mcall 2 stdcall [tl_key], dword tree1 stdcall [tl_key], dword tree2 jmp still align 4 button: mcall 17 cmp ah,3 jne @f call but_new_file @@: cmp ah,4 jne @f call but_open_file @@: cmp ah,5 jne @f call but_save_file @@: cmp ah,6 jne @f call but_run_stop @@: cmp ah,7 jne @f call but_zoom_p @@: cmp ah,8 jne @f call but_zoom_m @@: cmp ah,9 jne @f call but_pole_left @@: cmp ah,10 jne @f call but_pole_right @@: cmp ah,11 jne @f call but_pole_up @@: cmp ah,12 jne @f call but_pole_dn @@: cmp ah,13 jne @f call but_center @@: ;передвижение всех объектов схемы 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,3,2,((15 shl 8)+9) shl 16 ;установка режима стирания провода @@: cmp ah,34 jne @f stdcall set_pen_mode,4,3,((9 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 37,6,[cursor_pointer] @@: mcall -1 ;создание новой схемы 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 align 4 open_file_lif: rb 2*4096 ;область для открытия файлов .end: align 4 but_open_file: pushad copy_path open_dialog_name,communication_area_default_path,file_name,0 mov [OpenDialog_data.type],0 stdcall [OpenDialog_Start],OpenDialog_data cmp [OpenDialog_data.status],2 je .end_open_file ;код при удачном открытии диалога mov eax,70 ;70-я функция работа с файлами mov [run_file_70.Function], 0 mov [run_file_70.Position], 0 mov [run_file_70.Flags], 0 mov dword[run_file_70.Count], open_file_lif.end-open_file_lif m2m [run_file_70.Buffer], open_file_lif mov byte[run_file_70+20], 0 mov dword[run_file_70.FileName], openfile_path mov ebx,run_file_70 int 0x40 ;загружаем файл cmp ebx,0xffffffff je .end_open_file mov dword[f_size],ebx add ebx,open_file_lif mov byte[ebx],0 ;на случай если ранее был открыт файл большего размера чистим конец буфера с файлом mcall 71,1,openfile_path ;--- ;задаем минимальные значения, на случай если в файле будут некоректные размеры mov dword[shem_w],5 mov dword[shem_h],5 mov esi,txt_size call str_analiz_r cmp edi,0 je @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], txt_elements-capt_offs,(el_icon_group shl 16), tree1 stdcall [tl_cur_next], tree1 mov esi,txt_elements call str_analiz_r cmp edi,0 je .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 mov byte[txt_buf+sp_offs_el_type],al ;тип элемента stdcall make_list_capts,txt_buf,edi stdcall [tl_node_add], txt_buf,(el_icon_elems shl 16)+1, tree1 stdcall [tl_cur_next], tree1 dec ecx jnz .cycle_elem .end_elems: ;*** добавление в список текстовых подписей *** stdcall [tl_node_add], txt_captions-capt_offs,(el_icon_group shl 16), tree1 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], txt_buf,(el_icon_captions shl 16)+1, tree1 stdcall [tl_cur_next], tree1 dec ecx jnz .cycle_captions .end_captions: mov byte[txt_buf+capt_offs],0 ;обнуление подписей ;*** добавление в список ключевых точек *** stdcall [tl_node_add], txt_points-capt_offs,(el_icon_group shl 16), tree1 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 make_list_capts,txt_buf,0 stdcall [tl_node_add], txt_buf,(el_icon_points shl 16)+1, tree1 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],0,tree1 pop esi @@: cmp esi,0 je @f cmp word[esi],el_icon_points ;получение через esi тип иконки, и пропуск не точечных объектов jne .end_add_p0 stdcall [tl_node_poi_get_data], esi, tree1 pop eax stdcall pole_cell_creat, pole,dword[eax],dword[eax+4],0 .end_add_p0: stdcall dword[tl_node_poi_get_next_info],esi,tree1 pop esi ;переходим к следущему узлу jmp @b @@: stdcall pole_sort, pole ;*** добавление точечных объектов (на основе логических элементов) *** stdcall dword[tl_node_poi_get_info],0,tree1 pop esi @@: cmp esi,0 je @f cmp word[esi],el_icon_elems ;получение через esi тип иконки jne .end_add_p3 stdcall [tl_node_poi_get_data], esi, tree1 pop ecx 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],esi,tree1 pop esi ;переходим к следущему узлу jmp @b @@: stdcall pole_sort, pole ;*** добавление точечных объектов (на основе подписей) *** stdcall dword[tl_node_poi_get_info],0,tree1 pop esi @@: cmp esi,0 je @f cmp word[esi],el_icon_captions ;получение через esi тип иконки jne .end_add_p6 stdcall [tl_node_poi_get_data], esi, tree1 pop ecx 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],esi,tree1 pop esi ;переходим к следущему узлу jmp @b @@: stdcall pole_sort, pole ;*** рисование проводов (на основе точечных объектов) *** stdcall dword[tl_node_poi_get_info],0,tree1 pop esi 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], esi, tree1 pop eax 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],esi,tree1 pop esi ;переходим к следущему узлу 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 cmp eax,0 je @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 cmp eax,0 je @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 cmp eax,0 je @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 cmp eax,0 je @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],0,tree1 pop esi .cycle1: cmp esi,0 je .cycle1_end cmp word[esi],el_icon_elems ;получение через esi тип иконки jne .end_add_p1 stdcall [tl_node_poi_get_data], esi, tree1 pop ecx inc dword[shem_elems] 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_add_p1: stdcall dword[tl_node_poi_get_next_info],esi,tree1 pop esi ;переходим к следущему узлу 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],0,tree1 pop esi .cycle2: cmp esi,0 je .cycle2_end cmp word[esi],el_icon_elems ;получение через esi тип иконки jne .end_add_p2 stdcall [tl_node_poi_get_data], esi, tree1 pop ecx 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],esi,tree1 pop esi ;переходим к следущему узлу 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],0,tree1 pop esi .cycle3: cmp esi,0 je .cycle3_end cmp word[esi],el_icon_captions ;получение через esi тип иконки jne .end_add_p3 stdcall [tl_node_poi_get_data], esi, tree1 pop ecx 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],esi,tree1 pop esi ;переходим к следущему узлу 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 ecx,eax ;*** запись файла mov eax,70 mov [run_file_70.Function], 2 mov [run_file_70.Position], 0 mov [run_file_70.Flags], 0 mov dword[run_file_70.Count], ecx mov [run_file_70.Buffer], edi mov byte[run_file_70+20], 0 mov dword[run_file_70.FileName], openfile_path mov ebx,run_file_70 int 0x40 ;сохраняем файл 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 pop ebx test ebx,ebx jnz @f mov ebx,el_opt_beg+el_offs_nam ;если не взялось имя элемента, то по умолчанию берем 1-й из списка @@: stdcall el_get_name, ebx mov byte[txt_buf+sp_offs_el_type],al ;тип элемента stdcall make_list_capts,txt_buf,ebx stdcall [tl_node_add], txt_buf,(el_icon_elems shl 16)+1, tree1 stdcall [tl_cur_next], tree1 stdcall [tl_draw], tree1 .end_f: ret endp ;output: ; eax - тип элемента align 4 proc el_get_name uses ecx edi esi, str:dword mov edi,[str] mov esi,el_opt_beg+el_offs_nam xor ecx,ecx @@: stdcall str_instr, 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 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, destination:dword, source:dword, len:dword push ecx esi edi cld mov esi, dword[source] mov edi, dword[destination] mov ecx, dword[len] rep movsb pop edi esi ecx 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 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 .end_f: ret endp align 4 proc but_set_0 uses eax stdcall [tl_node_get_data], tree1 pop eax 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 pop eax 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 pop eax 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 pop eax 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 pop eax 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 pop eax 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 37,6,[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 37,4 cmp eax,0 je @f mov [cursor_pointer],eax mcall 37,5,[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 '/rd/1',0 communication_area_name: db 'FFFFFFFF_open_dialog',0 open_dialog_name: db 'opendial',0 communication_area_default_path: db '/rd/1/File managers/',0 Filter: dd Filter.end - Filter ;.1 .1: db 'TXT',0 db 'ASM',0 .end: db 0 include 'le_libs.inc' mouse_dd dd 0x0 sc system_colors last_time dd 0 align 16 procinfo process_information align 4 buf_0: dd 0 ; .l: dw 170 ;+4 left .t: dw panel_1_coord_top ;+6 top .w: dd 335 ;+8 w .h: dd 340 ;+12 h .color: dd 0 ;+16 color db 24 ;+20 bit in pixel align 4 buf_font: ;буфер со шрифтом dd 0 ;указатель на буфер изображения dw 25 ;+4 left dw 25 ;+6 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 ;+4 left dw 0 ;+6 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 ;+4 left dw 0 ;+6 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, buf:dword xor eax,eax push ebx ecx esi 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 @@: pop esi ecx ebx ret endp ;этот код не мой, он преобразует число в строку ;input: ; eax = value ; edi = string buffer ;output: align 4 convert_int_to_str: pushad mov dword[edi+1],0;0x20202020 call .str popad ret align 4 .str: mov ecx,0x0a ;задается система счисления изменяются регистры ebx,eax,ecx,edx входные параметры eax - число ;преревод числа в ASCII строку взодные данные ecx=система счисленя edi адрес куда записывать, будем строку, причем конец переменной cmp eax,ecx ;сравнить если в eax меньше чем в ecx то перейти на @@-1 т.е. на pop eax jb @f xor edx,edx ;очистить edx div ecx ;разделить - остаток в edx push edx ;положить в стек ;dec edi ;смещение необходимое для записи с конца строки call .str ;перейти на саму себя т.е. вызвать саму себя и так до того момента пока в eax не станет меньше чем в ecx pop eax @@: ;cmp al,10 ;проверить не меньше ли значение в al чем 10 (для системы счисленя 10 данная команда - лишная)) or al,0x30 ;данная команда короче чем две выше stosb ;записать элемент из регистра al в ячеку памяти es:edi ret ;вернуться чень интересный ход т.к. пока в стеке храниться кол-во вызовов то столько раз мы и будем вызываться i_end: rb 1024 stacktop: sys_path rb 1024 file_name: rb 1024 ;4096 library_path rb 1024 plugin_path rb 4096 openfile_path rb 4096 filename_area rb 256 mem: