Subversion Repositories Kolibri OS

Rev

Rev 3014 | Rev 6213 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3014 Rev 5916
Line 51... Line 51...
51
include '../../../dll.inc'
51
include '../../../dll.inc'
52
include 'le_pole.inc'
52
include 'le_pole.inc'
53
include 'le_signal.inc'
53
include 'le_signal.inc'
Line 54... Line 54...
54
 
54
 
55
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
55
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
Line 56... Line 56...
56
caption db '‹®£¨ç¥áª¨¥ í«¥¬¥­âë 19.04.12',0 ;¯®¤¯¨áì ®ª­ 
56
caption db '‹®£¨ç¥áª¨¥ í«¥¬¥­âë 15.11.15',0 ;¯®¤¯¨áì ®ª­ 
57
 
57
 
58
panel_0_coord_top equ 5 ;¢¥àå­ïï ª®®à¤¨­ â  0-£® à鸞 ¯ ­¥«¨ ¨­áâà㬥­â®¢
58
panel_0_coord_top equ 5 ;¢¥àå­ïï ª®®à¤¨­ â  0-£® à鸞 ¯ ­¥«¨ ¨­áâà㬥­â®¢
59
panel_1_coord_top equ 35
59
panel_1_coord_top equ 35
Line 206... Line 206...
206
			local .path_str
206
			local .path_str
207
			.path_str db path ;ä®à¬¨à㥬 «®ª «ì­ãî ¯¥à¥¬¥­­ãî
207
			.path_str db path ;ä®à¬¨à㥬 «®ª «ì­ãî ¯¥à¥¬¥­­ãî
208
			db 0
208
			db 0
209
		@@:
209
		@@:
210
		;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨á⥬­ë¬ ¯ã⥬
210
		;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨á⥬­ë¬ ¯ã⥬
211
		copy_path .path_str,[32],file_name,0x0
211
		copy_path .path_str,[32],file_name,0
212
	else
212
	else
213
		copy_path path,[32],file_name,0x0 ;ä®à¬¨à㥬 ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
213
		copy_path path,[32],file_name,0x0 ;ä®à¬¨à㥬 ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
214
	end if
214
	end if
Line 215... Line 215...
215
 
215
 
216
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
216
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
Line 217... Line -...
217
	mov [buf],eax
-
 
218
 
217
	mov [buf],eax
219
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
218
 
220
	mov [run_file_70.Function], 0
219
	mov [run_file_70.Function], 0
221
	mov [run_file_70.Position], 0
220
	mov [run_file_70.Position], 0
222
	mov [run_file_70.Flags], 0
221
	mov [run_file_70.Flags], 0
223
	mov [run_file_70.Count], dword size
222
	mov [run_file_70.Count], dword size
224
	m2m [run_file_70.Buffer], [buf]
223
	m2m [run_file_70.Buffer], eax
225
	mov byte[run_file_70+20], 0
-
 
226
	mov [run_file_70.FileName], file_name
224
	mov byte[run_file_70+20], 0
227
	mov ebx,run_file_70
225
	mov [run_file_70.FileName], file_name
228
	int 0x40 ;§ £à㦠¥¬ ä ©« ¨§®¡à ¦¥­¨ï
226
	mcall 70,run_file_70 ;§ £à㦠¥¬ ä ©« ¨§®¡à ¦¥­¨ï
229
	cmp ebx,0xffffffff
227
	cmp ebx,0xffffffff
230
	je @f
228
	je @f
231
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
229
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
Line 339... Line 337...
339
	stdcall sign_init, 3000
337
	stdcall sign_init, 3000
340
	mov eax,el_opt_beg+el_offs_nam
338
	mov eax,el_opt_beg+el_offs_nam
341
	mov ecx,(el_opt_beg.end-el_opt_beg)/size_el_opt ;ª®««¨ç¥á⢮ ⨯®¢ í«¥¬¥­â®¢
339
	mov ecx,(el_opt_beg.end-el_opt_beg)/size_el_opt ;ª®««¨ç¥á⢮ ⨯®¢ í«¥¬¥­â®¢
342
	cld
340
	cld
343
	@@:
341
	@@:
344
		stdcall [tl_node_add], eax, el_icon_elems shl 16, tree2
342
		stdcall [tl_node_add], tree2,el_icon_elems shl 16,eax
345
		stdcall [tl_cur_next], tree2
343
		stdcall [tl_cur_next], tree2
346
		add eax,size_el_opt
344
		add eax,size_el_opt
347
		loop @b
345
		loop @b
348
	stdcall [tl_cur_beg], tree2
346
	stdcall [tl_cur_beg], tree2
Line 477... Line 475...
477
			jc .end_mode_0
475
			jc .end_mode_0
478
			;०¨¬ ªãàá®à  (¢ë¡®à í«¥¬¥­â  ¯à¨ ­ ¦ â¨¨)
476
			;०¨¬ ªãàá®à  (¢ë¡®à í«¥¬¥­â  ¯à¨ ­ ¦ â¨¨)
479
			stdcall element_is_click,eax,ebx
477
			stdcall element_is_click,eax,ebx
480
			test eax,eax
478
			test eax,eax
481
			jz .end_buf_wnd ;¯à¨ ­ ¦ â¨¨ ­¥ ¯®¯ «¨ ­¨ ­  ®¤¨­ ¨§ í«¥¬¥­â®¢
479
			jz .end_buf_wnd ;¯à¨ ­ ¦ â¨¨ ­¥ ¯®¯ «¨ ­¨ ­  ®¤¨­ ¨§ í«¥¬¥­â®¢
-
 
480
				push eax
482
				stdcall [tl_node_get_data], tree1
481
					stdcall [tl_node_get_data], tree1
-
 
482
					mov ebx,eax
483
				pop ebx
483
				pop eax
484
				cmp eax,ebx
484
				cmp eax,ebx
485
				je .end_buf_wnd ;¥á«¨ 㦥 ªãàá®à á⮨â â ¬ £¤¥ ­ã¦­®
485
				je .end_buf_wnd ;¥á«¨ 㦥 ªãàá®à á⮨â â ¬ £¤¥ ­ã¦­®
Line 486... Line 486...
486
				
486
				
487
				stdcall [tl_cur_beg], tree1
487
				stdcall [tl_cur_beg], tree1
-
 
488
				.cycle0:
488
				.cycle0:
489
				push eax
-
 
490
					stdcall [tl_node_get_data], tree1
489
				stdcall [tl_node_get_data], tree1
491
					mov ebx,eax
490
				pop ebx
492
				pop eax
491
				test ebx,ebx
493
				test ebx,ebx
492
				jz .end_buf_wnd
494
				jz .end_buf_wnd
493
				cmp eax,ebx
495
				cmp eax,ebx
494
				je @f
496
				je @f
Line 605... Line 607...
605
 
607
 
606
;output:
608
;output:
607
; eax - pointer to element data
609
; eax - pointer to element data
608
align 4
610
align 4
609
proc element_is_click uses ebx ecx edx esi edi, coord_x:dword, coord_y:dword
611
proc element_is_click uses ebx ecx edx esi edi, coord_x:dword, coord_y:dword
610
	stdcall dword[tl_node_poi_get_info],0,tree1
612
	stdcall dword[tl_node_poi_get_info], tree1,0
611
	pop esi
613
	mov esi,eax
612
	@@:
614
	@@:
613
		cmp esi,0
615
		cmp esi,0
614
		je @f
616
		je @f
615
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
617
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
616
		jne .end_add_p1
618
		jne .end_add_p1
617
			stdcall [tl_node_poi_get_data], esi, tree1
619
			stdcall [tl_node_poi_get_data], tree1,esi
Line 618... Line 620...
618
			pop ecx
620
			mov ecx,eax
619
 
621
 
620
			movzx edx,byte[ecx+sp_offs_el_type]
622
			movzx edx,byte[ecx+sp_offs_el_type]
Line 637... Line 639...
637
			test eax,eax
639
			test eax,eax
638
			jz .end_add_p1
640
			jz .end_add_p1
639
				mov eax,ecx
641
				mov eax,ecx
640
				jmp .end_f
642
				jmp .end_f
641
		.end_add_p1:
643
		.end_add_p1:
642
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
644
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
643
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
645
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
644
		jmp @b
646
		jmp @b
645
	@@:
647
	@@:
646
		xor eax,eax ;¥á«¨ ­¥ ­ è«¨
648
		xor eax,eax ;¥á«¨ ­¥ ­ è«¨
647
	.end_f:
649
	.end_f:
648
	ret
650
	ret
Line 825... Line 827...
825
	mov dword[wScr2.all_redraw],1
827
	mov dword[wScr2.all_redraw],1
826
	stdcall [tl_draw], tree2
828
	stdcall [tl_draw], tree2
827
	stdcall pole_draw_pok, pole
829
	stdcall pole_draw_pok, pole
Line 828... Line 830...
828
 
830
 
829
	; *** ᮧ¤ ­¨¥ ª­®¯®ª ãáâ ­®¢ª¨ ᨣ­ «®¢ set_0 ¨ set_1 ***
-
 
830
	mov eax,8
-
 
831
	mov ebx,(5 shl 16)+20
-
 
832
	mov ecx,(panel_1_coord_top shl 16)+20
-
 
833
	mov edx,20
831
	; *** ᮧ¤ ­¨¥ ª­®¯®ª ãáâ ­®¢ª¨ ᨣ­ «®¢ set_0 ¨ set_1 ***
834
	mov esi,[sc.work_button]
832
	mov esi,[sc.work_button]
Line 835... Line 833...
835
	int 0x40
833
	mcall 8, (5 shl 16)+20, (panel_1_coord_top shl 16)+20, 20
836
 
834
 
837
	add ebx,25 shl 16
835
	add ebx,25 shl 16
Line 852... Line 850...
852
 
850
 
853
	add ebx,25 shl 16
851
	add ebx,25 shl 16
854
	mov edx,25
852
	mov edx,25
Line 855... Line -...
855
	int 0x40
-
 
856
 
-
 
857
	mov eax,4 ;à¨á®¢ ­¨¥ ⥪áâ 
853
	int 0x40
858
	mov ebx,(10 shl 16)+panel_1_coord_top+5
854
 
859
	mov ecx,[sc.work_text]
-
 
860
	or  ecx,0x80000000 ;or (1 shl 30)
855
	mov ecx,[sc.work_text]
861
	mov edx,txt_set_0
856
	or  ecx,0x80000000 ;or (1 shl 30)
Line 862... Line 857...
862
	;mov edi,[sc.work]
857
	;mov edi,[sc.work]
863
	int 0x40
858
	mcall 4, (12 shl 16)+panel_1_coord_top+6,, txt_set_0
864
 
859
 
Line 865... Line 860...
865
	add ebx,25 shl 16
860
	add ebx,25 shl 16
866
	mov edx,txt_set_1
-
 
867
	int 0x40
861
	mov edx,txt_set_1
868
 
-
 
869
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
-
 
870
	mov eax,7
-
 
871
	mov ebx,[image_data_toolbar]
862
	int 0x40
872
	mov ecx,(16 shl 16)+16
863
 
Line 873... Line 864...
873
	mov edx,(62 shl 16)+panel_1_coord_top+2
864
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
874
 
865
	mov ebx,[image_data_toolbar]
875
	add ebx,IMAGE_TOOLBAR_ICON_SIZE*15
866
	add ebx,IMAGE_TOOLBAR_ICON_SIZE*15
Line 886... Line 877...
886
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
877
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
887
	add edx,(25 shl 16)
878
	add edx,(25 shl 16)
888
	int 0x40
879
	int 0x40
Line 889... Line 880...
889
 
880
 
890
	; *** ᮧ¤ ­¨¥ ª­®¯®ª à¨á®¢ ­¨ï ¯à®¢®¤  ***
-
 
891
	mov eax,8
-
 
892
	mov ebx,(5 shl 16)+20
-
 
893
	mov ecx,(panel_2_coord_top shl 16)+20
-
 
894
	mov edx,30
881
	; *** ᮧ¤ ­¨¥ ª­®¯®ª à¨á®¢ ­¨ï ¯à®¢®¤  ***
895
	mov esi,[sc.work_button]
882
	mov esi,[sc.work_button]
Line 896... Line 883...
896
	int 0x40
883
	mcall 8, (5 shl 16)+20, (panel_2_coord_top shl 16)+20, 30
897
 
884
 
898
	add ebx,30 shl 16
885
	add ebx,30 shl 16
Line 960... Line 947...
960
button:
947
button:
961
	mcall 17
948
	mcall 17
962
	cmp ah,3
949
	cmp ah,3
963
	jne @f
950
	jne @f
964
		call but_new_file
951
		call but_new_file
-
 
952
		jmp still
965
	@@:
953
	@@:
966
	cmp ah,4
954
	cmp ah,4
967
	jne @f
955
	jne @f
968
		call but_open_file
956
		call but_open_file
-
 
957
		jmp still
969
	@@:
958
	@@:
970
	cmp ah,5
959
	cmp ah,5
971
	jne @f
960
	jne @f
972
		call but_save_file
961
		call but_save_file
-
 
962
		jmp still
973
	@@:
963
	@@:
974
	cmp ah,6
964
	cmp ah,6
975
	jne @f
965
	jne @f
976
		call but_run_stop
966
		call but_run_stop
-
 
967
		jmp still
977
	@@:
968
	@@:
978
	cmp ah,7
969
	cmp ah,7
979
	jne @f
970
	jne @f
980
		call but_zoom_p
971
		call but_zoom_p
-
 
972
		jmp still
981
	@@:
973
	@@:
982
	cmp ah,8
974
	cmp ah,8
983
	jne @f
975
	jne @f
984
		call but_zoom_m
976
		call but_zoom_m
-
 
977
		jmp still
985
	@@:
978
	@@:
986
	cmp ah,9
979
	cmp ah,9
987
	jne @f
980
	jne @f
988
		call but_pole_left
981
		call but_pole_left
-
 
982
		jmp still
989
	@@:
983
	@@:
990
	cmp ah,10
984
	cmp ah,10
991
	jne @f
985
	jne @f
992
		call but_pole_right
986
		call but_pole_right
-
 
987
		jmp still
993
	@@:
988
	@@:
994
	cmp ah,11
989
	cmp ah,11
995
	jne @f
990
	jne @f
996
		call but_pole_up
991
		call but_pole_up
-
 
992
		jmp still
997
	@@:
993
	@@:
998
	cmp ah,12
994
	cmp ah,12
999
	jne @f
995
	jne @f
1000
		call but_pole_dn
996
		call but_pole_dn
-
 
997
		jmp still
1001
	@@:
998
	@@:
1002
	cmp ah,13
999
	cmp ah,13
1003
	jne @f
1000
	jne @f
1004
		call but_center
1001
		call but_center
-
 
1002
		jmp still
1005
	@@:
1003
	@@:
Line 1006... Line 1004...
1006
 
1004
 
1007
	;¯¥à¥¤¢¨¦¥­¨¥ ¢á¥å ®¡ê¥ªâ®¢ á奬ë
1005
	;¯¥à¥¤¢¨¦¥­¨¥ ¢á¥å ®¡ê¥ªâ®¢ á奬ë
1008
	cmp byte[tim_ch],0
1006
	cmp byte[tim_ch],0
Line 1132... Line 1130...
1132
	stdcall [OpenDialog_Start],OpenDialog_data
1130
	stdcall [OpenDialog_Start],OpenDialog_data
1133
	cmp [OpenDialog_data.status],1 ;0 - Cancel 1 - Open 2 - Error open dialog
1131
	cmp [OpenDialog_data.status],1 ;0 - Cancel 1 - Open 2 - Error open dialog
1134
	jne .end_open_file
1132
	jne .end_open_file
1135
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
1133
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
Line 1136... Line -...
1136
 
-
 
1137
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
1134
 
1138
	mov [run_file_70.Function], 0
1135
	mov [run_file_70.Function], 0
1139
	mov [run_file_70.Position], 0
1136
	mov [run_file_70.Position], 0
1140
	mov [run_file_70.Flags], 0
1137
	mov [run_file_70.Flags], 0
1141
	mov dword[run_file_70.Count], open_file_lif.end-open_file_lif
1138
	mov dword[run_file_70.Count], open_file_lif.end-open_file_lif
1142
	m2m [run_file_70.Buffer], open_file_lif
1139
	m2m [run_file_70.Buffer], open_file_lif
1143
	mov byte[run_file_70+20], 0
1140
	mov byte[run_file_70+20], 0
1144
	mov dword[run_file_70.FileName], openfile_path
-
 
1145
	mov ebx,run_file_70
1141
	mov dword[run_file_70.FileName], openfile_path
1146
	int 0x40 ;§ £à㦠¥¬ ä ©«
1142
	mcall 70,run_file_70 ;§ £à㦠¥¬ ä ©«
1147
	cmp ebx,0xffffffff
1143
	cmp ebx,0xffffffff
Line 1148... Line 1144...
1148
	je .end_open_file
1144
	je .end_open_file
1149
 
1145
 
Line 1176... Line 1172...
1176
		@@:
1172
		@@:
Line 1177... Line 1173...
1177
 
1173
 
Line 1178... Line 1174...
1178
		stdcall [tl_info_clear],tree1
1174
		stdcall [tl_info_clear],tree1
1179
 
1175
 
1180
		;*** ¤®¡ ¢«¥­¨¥ ¢ ᯨ᮪ «®£¨ç¥áª¨å í«¥¬¥­â®¢ ***
1176
		;*** ¤®¡ ¢«¥­¨¥ ¢ ᯨ᮪ «®£¨ç¥áª¨å í«¥¬¥­â®¢ ***
Line 1181... Line 1177...
1181
		stdcall [tl_node_add], txt_elements-capt_offs,(el_icon_group shl 16), tree1
1177
		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_elements-capt_offs
1182
		stdcall [tl_cur_next], tree1
1178
		stdcall [tl_cur_next], tree1
1183
 
1179
 
Line 1207... Line 1203...
1207
				stdcall el_get_name, edi,13 ;13 - ascii code
1203
				stdcall el_get_name, edi,13 ;13 - ascii code
1208
				mov byte[txt_buf+sp_offs_el_type],al ;⨯ í«¥¬¥­â 
1204
				mov byte[txt_buf+sp_offs_el_type],al ;⨯ í«¥¬¥­â 
Line 1209... Line 1205...
1209
 
1205
 
Line 1210... Line 1206...
1210
				stdcall make_list_capts,txt_buf,edi
1206
				stdcall make_list_capts,txt_buf,edi
1211
 
1207
 
1212
				stdcall [tl_node_add], txt_buf,(el_icon_elems shl 16)+1, tree1
1208
				stdcall [tl_node_add], tree1,(el_icon_elems shl 16)+1,txt_buf
1213
				stdcall [tl_cur_next], tree1
1209
				stdcall [tl_cur_next], tree1
1214
				dec ecx
1210
				dec ecx
Line 1215... Line 1211...
1215
				jnz .cycle_elem
1211
				jnz .cycle_elem
1216
		.end_elems:
1212
		.end_elems:
1217
 
1213
 
Line 1218... Line 1214...
1218
		;*** ¤®¡ ¢«¥­¨¥ ¢ ᯨ᮪ ⥪á⮢ëå ¯®¤¯¨á¥© ***
1214
		;*** ¤®¡ ¢«¥­¨¥ ¢ ᯨ᮪ ⥪á⮢ëå ¯®¤¯¨á¥© ***
1219
		stdcall [tl_node_add], txt_captions-capt_offs,(el_icon_group shl 16), tree1
1215
		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_captions-capt_offs
1220
		stdcall [tl_cur_next], tree1
1216
		stdcall [tl_cur_next], tree1
Line 1242... Line 1238...
1242
				mov byte[txt_buf+8],al ;¢¨¤ ¯®¤¯¨á¨ ('z' - ᨣ­ « á 0, 'o' - ᨣ­ « á 1, 'n' - ­¥â ᨣ­ « )
1238
				mov byte[txt_buf+8],al ;¢¨¤ ¯®¤¯¨á¨ ('z' - ᨣ­ « á 0, 'o' - ᨣ­ « á 1, 'n' - ­¥â ᨣ­ « )
1243
				call str_next_val
1239
				call str_next_val
Line 1244... Line 1240...
1244
 
1240
 
Line 1245... Line 1241...
1245
				stdcall make_list_capts,txt_buf,edi
1241
				stdcall make_list_capts,txt_buf,edi
1246
 
1242
 
1247
				stdcall [tl_node_add], txt_buf,(el_icon_captions shl 16)+1, tree1
1243
				stdcall [tl_node_add], tree1,(el_icon_captions shl 16)+1,txt_buf
1248
				stdcall [tl_cur_next], tree1
1244
				stdcall [tl_cur_next], tree1
1249
				dec ecx
1245
				dec ecx
Line 1250... Line 1246...
1250
				jnz .cycle_captions
1246
				jnz .cycle_captions
Line 1251... Line 1247...
1251
		.end_captions:
1247
		.end_captions:
1252
 
1248
 
1253
		mov byte[txt_buf+capt_offs],0 ;®¡­ã«¥­¨¥ ¯®¤¯¨á¥©
1249
		mov byte[txt_buf+capt_offs],0 ;®¡­ã«¥­¨¥ ¯®¤¯¨á¥©
Line 1254... Line 1250...
1254
 
1250
 
1255
		;*** ¤®¡ ¢«¥­¨¥ ¢ ᯨ᮪ ª«î祢ëå â®ç¥ª ***
1251
		;*** ¤®¡ ¢«¥­¨¥ ¢ ᯨ᮪ ª«î祢ëå â®ç¥ª ***
1256
		stdcall [tl_node_add], txt_points-capt_offs,(el_icon_group shl 16), tree1
1252
		stdcall [tl_node_add], tree1,(el_icon_group shl 16),txt_points-capt_offs
Line 1277... Line 1273...
1277
				mov dword[txt_buf+4],eax ;ª®®à¤¨­ â  y
1273
				mov dword[txt_buf+4],eax ;ª®®à¤¨­ â  y
1278
				call str_next_val
1274
				call str_next_val
1279
				stdcall conv_str_to_int,edi
1275
				stdcall conv_str_to_int,edi
1280
				mov byte[txt_buf+8],al ;­ ¯à ¢«¥­¨ï
1276
				mov byte[txt_buf+8],al ;­ ¯à ¢«¥­¨ï
Line 1281... Line -...
1281
 
-
 
1282
;                               stdcall make_list_capts,txt_buf,0
-
 
1283
 
1277
 
1284
				stdcall [tl_node_add], txt_buf,(el_icon_points shl 16)+1, tree1
1278
				stdcall [tl_node_add], tree1,(el_icon_points shl 16)+1,txt_buf
1285
				stdcall [tl_cur_next], tree1
1279
				stdcall [tl_cur_next], tree1
1286
				dec ecx
1280
				dec ecx
1287
				jnz .cycle_poi
1281
				jnz .cycle_poi
Line 1288... Line 1282...
1288
		.end_points:
1282
		.end_points:
Line 1289... Line 1283...
1289
 
1283
 
1290
		stdcall [tl_cur_beg], tree1
1284
		stdcall [tl_cur_beg], tree1
1291
 
1285
 
1292
	;*** ¤®¡ ¢«¥­¨¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢ ***
1286
	;*** ¤®¡ ¢«¥­¨¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢ ***
1293
	stdcall pole_clear, pole
1287
	stdcall pole_clear, pole
1294
	stdcall dword[tl_node_poi_get_info],0,tree1
1288
	stdcall dword[tl_node_poi_get_info], tree1,0
1295
	pop esi
1289
	mov esi,eax
1296
	@@:
1290
	@@:
1297
		cmp esi,0
1291
		cmp esi,0
1298
		je @f
1292
		je @f
1299
		cmp word[esi],el_icon_points ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨, ¨ ¯à®¯ã᪠­¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢
-
 
1300
		jne .end_add_p0
1293
		cmp word[esi],el_icon_points ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨, ¨ ¯à®¯ã᪠­¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢
1301
			stdcall [tl_node_poi_get_data], esi, tree1
1294
		jne .end_add_p0
1302
			pop eax
1295
			stdcall [tl_node_poi_get_data], tree1,esi
1303
			stdcall pole_cell_creat, pole,dword[eax],dword[eax+4],0
1296
			stdcall pole_cell_creat, pole,dword[eax],dword[eax+4],0
1304
		.end_add_p0:
1297
		.end_add_p0:
1305
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1298
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1306
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1299
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
Line 1307... Line 1300...
1307
		jmp @b
1300
		jmp @b
1308
	@@:
1301
	@@:
1309
	stdcall pole_sort, pole
1302
	stdcall pole_sort, pole
1310
 
1303
 
1311
	;*** ¤®¡ ¢«¥­¨¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢ (­  ®á­®¢¥ «®£¨ç¥áª¨å í«¥¬¥­â®¢) ***
1304
	;*** ¤®¡ ¢«¥­¨¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢ (­  ®á­®¢¥ «®£¨ç¥áª¨å í«¥¬¥­â®¢) ***
1312
	stdcall dword[tl_node_poi_get_info],0,tree1
1305
	stdcall dword[tl_node_poi_get_info], tree1,0
1313
	pop esi
1306
	mov esi,eax
1314
	@@:
1307
	@@:
1315
		cmp esi,0
1308
		cmp esi,0
1316
		je @f
1309
		je @f
Line 1317... Line 1310...
1317
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1310
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1318
		jne .end_add_p3
1311
		jne .end_add_p3
1319
			stdcall [tl_node_poi_get_data], esi, tree1
1312
			stdcall [tl_node_poi_get_data], tree1,esi
1320
			pop ecx
1313
			mov ecx,eax
Line 1346... Line 1339...
1346
				inc edx
1339
				inc edx
1347
				jmp .add_p2
1340
				jmp .add_p2
1348
			.end_add_p2:
1341
			.end_add_p2:
Line 1349... Line 1342...
1349
 
1342
 
1350
		.end_add_p3:
1343
		.end_add_p3:
1351
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1344
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1352
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1345
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1353
		jmp @b
1346
		jmp @b
1354
	@@:
1347
	@@:
Line 1355... Line 1348...
1355
	stdcall pole_sort, pole
1348
	stdcall pole_sort, pole
1356
 
1349
 
1357
	;*** ¤®¡ ¢«¥­¨¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢ (­  ®á­®¢¥ ¯®¤¯¨á¥©) ***
1350
	;*** ¤®¡ ¢«¥­¨¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢ (­  ®á­®¢¥ ¯®¤¯¨á¥©) ***
1358
	stdcall dword[tl_node_poi_get_info],0,tree1
1351
	stdcall dword[tl_node_poi_get_info], tree1,0
1359
	pop esi
1352
	mov esi,eax
1360
	@@:
1353
	@@:
1361
		cmp esi,0
1354
		cmp esi,0
1362
		je @f
1355
		je @f
1363
		cmp word[esi],el_icon_captions ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1356
		cmp word[esi],el_icon_captions ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1364
		jne .end_add_p6
1357
		jne .end_add_p6
1365
			stdcall [tl_node_poi_get_data], esi, tree1
1358
			stdcall [tl_node_poi_get_data], tree1,esi
1366
			pop ecx
1359
			mov ecx,eax
1367
			cmp byte[ecx+8],'n'
1360
			cmp byte[ecx+8],'n'
1368
			je .end_add_p6
1361
			je .end_add_p6
1369
				stdcall pole_cell_creat, pole,[ecx],[ecx+4],0
1362
				stdcall pole_cell_creat, pole,[ecx],[ecx+4],0
1370
		.end_add_p6:
1363
		.end_add_p6:
1371
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1364
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1372
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1365
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1373
		jmp @b
1366
		jmp @b
Line 1374... Line 1367...
1374
	@@:
1367
	@@:
1375
	stdcall pole_sort, pole
1368
	stdcall pole_sort, pole
1376
 
1369
 
1377
	;*** à¨á®¢ ­¨¥ ¯à®¢®¤®¢ (­  ®á­®¢¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢) ***
1370
	;*** à¨á®¢ ­¨¥ ¯à®¢®¤®¢ (­  ®á­®¢¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢) ***
1378
	stdcall dword[tl_node_poi_get_info],0,tree1
1371
	stdcall dword[tl_node_poi_get_info], tree1,0
1379
	pop esi
1372
	mov esi,eax
1380
	xor ecx,ecx
1373
	xor ecx,ecx
1381
	@@:
1374
	@@:
1382
		cmp esi,0
1375
		cmp esi,0
1383
		je @f
1376
		je @f
1384
		cmp word[esi],el_icon_points ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨, ¨ ¯à®¯ã᪠­¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢
-
 
1385
		jne .end_add_p4
1377
		cmp word[esi],el_icon_points ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨, ¨ ¯à®¯ã᪠­¥ â®ç¥ç­ëå ®¡ê¥ªâ®¢
1386
			stdcall [tl_node_poi_get_data], esi, tree1
1378
		jne .end_add_p4
1387
			pop eax
1379
			stdcall [tl_node_poi_get_data], tree1,esi
1388
			movzx ebx,byte[eax+8]
1380
			movzx ebx,byte[eax+8]
1389
			stdcall shem_create_line, dword[eax],dword[eax+4],ebx
1381
			stdcall shem_create_line, dword[eax],dword[eax+4],ebx
1390
			add ecx,edx
1382
			add ecx,edx
1391
		.end_add_p4:
1383
		.end_add_p4:
1392
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1384
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1393
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1385
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1394
		cmp ecx,250 ;ecx - ç¨á«® ¤®¡ ¢«¥­­ëå â®ç¥ª
1386
		cmp ecx,250 ;ecx - ç¨á«® ¤®¡ ¢«¥­­ëå â®ç¥ª
1395
		jl @b
1387
		jl @b
Line 1553... Line 1545...
1553
		jnz .cycle0
1545
		jnz .cycle0
Line 1554... Line 1546...
1554
 
1546
 
1555
	;*** á­ï⨥ ¬¥âª¨ á â®ç¥ª, ª®â®àë¥ ­ å®¤ïâáï ­  ¢å®¤­ëå ­®£ å «®£¨ç¥áª¨å í«¥¬¥­â®¢
1547
	;*** á­ï⨥ ¬¥âª¨ á â®ç¥ª, ª®â®àë¥ ­ å®¤ïâáï ­  ¢å®¤­ëå ­®£ å «®£¨ç¥áª¨å í«¥¬¥­â®¢
1556
	.cycle1_beg:
1548
	.cycle1_beg:
1557
	mov dword[shem_elems],0 ;¤«ï ¯¥¯¥®¯à¥¤¥«¥­¨ï ç¨á«  í«¥¬¥­â®¢
1549
	mov dword[shem_elems],0 ;¤«ï ¯¥¯¥®¯à¥¤¥«¥­¨ï ç¨á«  í«¥¬¥­â®¢
1558
	stdcall dword[tl_node_poi_get_info],0,tree1
1550
	stdcall dword[tl_node_poi_get_info], tree1,0
1559
	pop esi
1551
	mov esi,eax
1560
	.cycle1:
1552
	.cycle1:
1561
		cmp esi,0
1553
		cmp esi,0
1562
		je .cycle1_end
1554
		je .cycle1_end
1563
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1555
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1564
		jne .end_add_p1
-
 
1565
;                       stdcall [tl_node_poi_get_data], esi, tree1
-
 
1566
;                       pop ecx
1556
		jne .end_add_p1
1567
			inc dword[shem_elems]
1557
			inc dword[shem_elems]
1568
if 0
1558
if 0
1569
			xor edx,edx ;edx - ­®¬¥à ¢å®¤­®© ­®£¨
1559
			xor edx,edx ;edx - ­®¬¥à ¢å®¤­®© ­®£¨
1570
			@@:
1560
			@@:
Line 1584... Line 1574...
1584
				jmp @b
1574
				jmp @b
1585
			@@:
1575
			@@:
1586
			;mov edx,(1 shl 16) ;edx - ­®¬¥à ¢ë室­®© ­®£¨
1576
			;mov edx,(1 shl 16) ;edx - ­®¬¥à ¢ë室­®© ­®£¨
1587
end if
1577
end if
1588
		.end_add_p1:
1578
		.end_add_p1:
1589
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1579
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1590
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1580
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1591
		jmp .cycle1
1581
		jmp .cycle1
1592
	.cycle1_end:
1582
	.cycle1_end:
Line 1593... Line 1583...
1593
 
1583
 
1594
	;*** ᮧ¤ ­¨¥ ¨­ä®à¬ æ¨¨ ¤«ï § ¯¨á¨ ¢ ä ©« ***
1584
	;*** ᮧ¤ ­¨¥ ¨­ä®à¬ æ¨¨ ¤«ï § ¯¨á¨ ¢ ä ©« ***
Line 1614... Line 1604...
1614
	stdcall convert_int_to_str
1604
	stdcall convert_int_to_str
1615
	stdcall str_cat,edi,txt_nl
1605
	stdcall str_cat,edi,txt_nl
Line 1616... Line 1606...
1616
 
1606
 
1617
	cmp eax,1
1607
	cmp eax,1
1618
	jl .cycle2_end
1608
	jl .cycle2_end
1619
	stdcall dword[tl_node_poi_get_info],0,tree1
1609
	stdcall dword[tl_node_poi_get_info], tree1,0
1620
	pop esi
1610
	mov esi,eax
1621
	.cycle2:
1611
	.cycle2:
1622
		cmp esi,0
1612
		cmp esi,0
1623
		je .cycle2_end
1613
		je .cycle2_end
1624
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1614
		cmp word[esi],el_icon_elems ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1625
		jne .end_add_p2
1615
		jne .end_add_p2
1626
			stdcall [tl_node_poi_get_data], esi, tree1
1616
			stdcall [tl_node_poi_get_data], tree1,esi
Line 1627... Line 1617...
1627
			pop ecx
1617
			mov ecx,eax
1628
 
1618
 
1629
			stdcall str_len,edi
1619
			stdcall str_len,edi
1630
			add edi,eax
1620
			add edi,eax
Line 1651... Line 1641...
1651
			stdcall str_cat,edi,eax
1641
			stdcall str_cat,edi,eax
Line 1652... Line 1642...
1652
 
1642
 
Line 1653... Line 1643...
1653
			stdcall str_cat,edi,txt_nl
1643
			stdcall str_cat,edi,txt_nl
1654
 
1644
 
1655
		.end_add_p2:
1645
		.end_add_p2:
1656
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1646
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1657
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1647
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
Line 1658... Line 1648...
1658
		jmp .cycle2
1648
		jmp .cycle2
1659
	.cycle2_end:
1649
	.cycle2_end:
Line 1667... Line 1657...
1667
	stdcall convert_int_to_str
1657
	stdcall convert_int_to_str
1668
	stdcall str_cat,edi,txt_nl
1658
	stdcall str_cat,edi,txt_nl
Line 1669... Line 1659...
1669
 
1659
 
1670
	cmp eax,1
1660
	cmp eax,1
1671
	jl .cycle3_end
1661
	jl .cycle3_end
1672
	stdcall dword[tl_node_poi_get_info],0,tree1
1662
	stdcall dword[tl_node_poi_get_info], tree1,0
1673
	pop esi
1663
	mov esi,eax
1674
	.cycle3:
1664
	.cycle3:
1675
		cmp esi,0
1665
		cmp esi,0
1676
		je .cycle3_end
1666
		je .cycle3_end
1677
		cmp word[esi],el_icon_captions ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1667
		cmp word[esi],el_icon_captions ;¯®«ã祭¨¥ ç¥à¥§ esi ⨯ ¨ª®­ª¨
1678
		jne .end_add_p3
1668
		jne .end_add_p3
1679
			stdcall [tl_node_poi_get_data], esi, tree1
1669
			stdcall [tl_node_poi_get_data], tree1,esi
Line 1680... Line 1670...
1680
			pop ecx
1670
			mov ecx,eax
1681
 
1671
 
1682
			stdcall str_len,edi
1672
			stdcall str_len,edi
1683
			add edi,eax
1673
			add edi,eax
Line 1708... Line 1698...
1708
			stdcall str_cat,edi,ebx
1698
			stdcall str_cat,edi,ebx
Line 1709... Line 1699...
1709
 
1699
 
Line 1710... Line 1700...
1710
			stdcall str_cat,edi,txt_nl
1700
			stdcall str_cat,edi,txt_nl
1711
 
1701
 
1712
		.end_add_p3:
1702
		.end_add_p3:
1713
		stdcall dword[tl_node_poi_get_next_info],esi,tree1
1703
		stdcall dword[tl_node_poi_get_next_info], tree1,esi
1714
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
1704
		mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
Line 1715... Line 1705...
1715
		jmp .cycle3
1705
		jmp .cycle3
1716
	.cycle3_end:
1706
	.cycle3_end:
Line 1826... Line 1816...
1826
	.no_points:
1816
	.no_points:
Line 1827... Line 1817...
1827
 
1817
 
1828
	;*** ®¯à¥¤¥«¥­¨¥ ¯ à ¬¥â஢ ä ©« 
1818
	;*** ®¯à¥¤¥«¥­¨¥ ¯ à ¬¥â஢ ä ©« 
1829
	mov edi,open_file_lif
1819
	mov edi,open_file_lif
1830
	stdcall str_len,edi
-
 
Line 1831... Line 1820...
1831
	mov ecx,eax
1820
	stdcall str_len,edi
1832
 
-
 
1833
	;*** § ¯¨áì ä ©« 
1821
 
1834
	mov eax,70
1822
	;*** § ¯¨áì ä ©« 
1835
	mov [run_file_70.Function], 2
1823
	mov [run_file_70.Function], 2
1836
	mov [run_file_70.Position], 0
1824
	mov [run_file_70.Position], 0
1837
	mov [run_file_70.Flags], 0
1825
	mov [run_file_70.Flags], 0
1838
	mov dword[run_file_70.Count], ecx
1826
	mov dword[run_file_70.Count], eax
1839
	mov [run_file_70.Buffer], edi
1827
	mov [run_file_70.Buffer], edi
1840
	mov byte[run_file_70+20], 0
-
 
1841
	mov dword[run_file_70.FileName], openfile_path
1828
	mov byte[run_file_70+20], 0
Line 1842... Line 1829...
1842
	mov ebx,run_file_70
1829
	mov dword[run_file_70.FileName], openfile_path
1843
	int 0x40 ;á®å࠭塞 ä ©«
1830
	mcall 70,run_file_70 ;á®å࠭塞 ä ©«
1844
 
1831
 
1845
	call redraw_pole
1832
	call redraw_pole
Line 1912... Line 1899...
1912
 
1899
 
1913
	;xor eax,eax
1900
	;xor eax,eax
Line 1914... Line 1901...
1914
	mov byte[txt_buf+sp_offs_el_angle],al ;­ ¯à ¢«¥­¨¥
1901
	mov byte[txt_buf+sp_offs_el_angle],al ;­ ¯à ¢«¥­¨¥
1915
 
1902
 
1916
	stdcall [tl_node_get_data], tree2
1903
	stdcall [tl_node_get_data], tree2
1917
	pop ebx
1904
	mov ebx,eax
1918
	test ebx,ebx
1905
	test ebx,ebx
1919
	jnz @f
1906
	jnz @f
1920
		mov ebx,el_opt_beg+el_offs_nam ;¥á«¨ ­¥ ¢§ï«®áì ¨¬ï í«¥¬¥­â , â® ¯® 㬮«ç ­¨î ¡¥à¥¬ 1-© ¨§ ᯨ᪠
1907
		mov ebx,el_opt_beg+el_offs_nam ;¥á«¨ ­¥ ¢§ï«®áì ¨¬ï í«¥¬¥­â , â® ¯® 㬮«ç ­¨î ¡¥à¥¬ 1-© ¨§ ᯨ᪠
1921
	@@:
1908
	@@:
Line 1922... Line 1909...
1922
	stdcall el_get_name, ebx,0
1909
	stdcall el_get_name, ebx,0
1923
	mov byte[txt_buf+sp_offs_el_type],al ;⨯ í«¥¬¥­â 
1910
	mov byte[txt_buf+sp_offs_el_type],al ;⨯ í«¥¬¥­â 
1924
 
1911
 
1925
	stdcall make_list_capts,txt_buf,ebx
1912
	stdcall make_list_capts,txt_buf,ebx
1926
	stdcall [tl_node_add], txt_buf,(el_icon_elems shl 16)+1, tree1
1913
	stdcall [tl_node_add], tree1,(el_icon_elems shl 16)+1,txt_buf
1927
	stdcall [tl_cur_next], tree1
1914
	stdcall [tl_cur_next], tree1
1928
	stdcall [tl_draw], tree1
1915
	stdcall [tl_draw], tree1
Line 2232... Line 2219...
2232
endp
2219
endp
Line 2233... Line 2220...
2233
 
2220
 
2234
align 4
2221
align 4
2235
proc but_set_0 uses eax
2222
proc but_set_0 uses eax
2236
	stdcall [tl_node_get_data], tree1
-
 
2237
	pop eax
2223
	stdcall [tl_node_get_data], tree1
2238
	test eax,eax
2224
	test eax,eax
2239
	jz .end_f
2225
	jz .end_f
2240
;el_icon_captions
2226
;el_icon_captions
2241
;       cmp byte[eax+8],'n'
2227
;       cmp byte[eax+8],'n'
Line 2248... Line 2234...
2248
endp
2234
endp
Line 2249... Line 2235...
2249
 
2235
 
2250
align 4
2236
align 4
2251
proc but_set_1 uses eax
2237
proc but_set_1 uses eax
2252
	stdcall [tl_node_get_data], tree1
-
 
2253
	pop eax
2238
	stdcall [tl_node_get_data], tree1
2254
	test eax,eax
2239
	test eax,eax
2255
	jz .end_f
2240
	jz .end_f
2256
;el_icon_captions
2241
;el_icon_captions
2257
;       cmp byte[eax+8],'n'
2242
;       cmp byte[eax+8],'n'
Line 2267... Line 2252...
2267
align 4
2252
align 4
2268
proc but_mov_l uses eax edi
2253
proc but_mov_l uses eax edi
2269
	cmp byte[tim_ch],0
2254
	cmp byte[tim_ch],0
2270
	jne .end_f
2255
	jne .end_f
2271
	stdcall [tl_node_get_data], tree1
2256
	stdcall [tl_node_get_data], tree1
2272
	pop eax
-
 
2273
	test eax,eax
2257
	test eax,eax
2274
	jz .end_f
2258
	jz .end_f
2275
		cmp dword[eax],1
2259
		cmp dword[eax],1
2276
		jle .end_f
2260
		jle .end_f
2277
		dec dword[eax]
2261
		dec dword[eax]
Line 2292... Line 2276...
2292
align 4
2276
align 4
2293
proc but_mov_r uses eax edi
2277
proc but_mov_r uses eax edi
2294
	cmp byte[tim_ch],0
2278
	cmp byte[tim_ch],0
2295
	jne .end_f
2279
	jne .end_f
2296
	stdcall [tl_node_get_data], tree1
2280
	stdcall [tl_node_get_data], tree1
2297
	pop eax
-
 
2298
	test eax,eax
2281
	test eax,eax
2299
	jz .end_f
2282
	jz .end_f
2300
		inc dword[eax]
2283
		inc dword[eax]
2301
		mov edi,eax
2284
		mov edi,eax
2302
		stdcall mem_copy,txt_buf,eax,capt_offs
2285
		stdcall mem_copy,txt_buf,eax,capt_offs
Line 2314... Line 2297...
2314
align 4
2297
align 4
2315
proc but_mov_u uses eax edi
2298
proc but_mov_u uses eax edi
2316
	cmp byte[tim_ch],0
2299
	cmp byte[tim_ch],0
2317
	jne .end_f
2300
	jne .end_f
2318
	stdcall [tl_node_get_data], tree1
2301
	stdcall [tl_node_get_data], tree1
2319
	pop eax
-
 
2320
	test eax,eax
2302
	test eax,eax
2321
	jz .end_f
2303
	jz .end_f
2322
		cmp dword[eax+4],1
2304
		cmp dword[eax+4],1
2323
		jle .end_f
2305
		jle .end_f
2324
		dec dword[eax+4]
2306
		dec dword[eax+4]
Line 2338... Line 2320...
2338
align 4
2320
align 4
2339
proc but_mov_d uses eax edi
2321
proc but_mov_d uses eax edi
2340
	cmp byte[tim_ch],0
2322
	cmp byte[tim_ch],0
2341
	jne .end_f
2323
	jne .end_f
2342
	stdcall [tl_node_get_data], tree1
2324
	stdcall [tl_node_get_data], tree1
2343
	pop eax
-
 
2344
	test eax,eax
2325
	test eax,eax
2345
	jz .end_f
2326
	jz .end_f
2346
		inc dword[eax+4]
2327
		inc dword[eax+4]
2347
		mov edi,eax
2328
		mov edi,eax
2348
		stdcall mem_copy,txt_buf,eax,capt_offs
2329
		stdcall mem_copy,txt_buf,eax,capt_offs
Line 2604... Line 2585...
2604
;input:
2585
;input:
2605
; buf - 㪠§ â¥«ì ­  áâபã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
2586
; buf - 㪠§ â¥«ì ­  áâபã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
2606
;output:
2587
;output:
2607
; eax - ç¨á«®
2588
; eax - ç¨á«®
2608
align 4
2589
align 4
2609
proc conv_str_to_int, buf:dword
2590
proc conv_str_to_int uses ebx ecx esi, buf:dword
2610
	xor eax,eax
2591
	xor eax,eax
2611
	push ebx ecx esi
-
 
2612
	xor ebx,ebx
2592
	xor ebx,ebx
2613
	mov esi,[buf]
2593
	mov esi,[buf]
Line 2614... Line 2594...
2614
 
2594
 
2615
	;­  á«ãç © ¥á«¨ ¯¥à¥¤ ç¨á«®¬ ­ å®¤ïâáï ¯à®¡¥«ë
2595
	;­  á«ãç © ¥á«¨ ¯¥à¥¤ ç¨á«®¬ ­ å®¤ïâáï ¯à®¡¥«ë
Line 2677... Line 2657...
2677
	cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
2657
	cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
2678
	jne @f
2658
	jne @f
2679
		sub ecx,eax
2659
		sub ecx,eax
2680
		mov eax,ecx
2660
		mov eax,ecx
2681
	@@:
2661
	@@:
2682
	pop esi ecx ebx
-
 
2683
	ret
2662
	ret
2684
endp
2663
endp
Line 2685... Line 2664...
2685
 
2664
 
2686
;íâ®â ª®¤ ­¥ ¬®©, ®­ ¯à¥®¡à §ã¥â ç¨á«® ¢ áâபã
2665
;íâ®â ª®¤ ­¥ ¬®©, ®­ ¯à¥®¡à §ã¥â ç¨á«® ¢ áâபã
Line 2710... Line 2689...
2710
	@@: ;cmp al,10 ;¯à®¢¥à¨âì ­¥ ¬¥­ìè¥ «¨ §­ ç¥­¨¥ ¢ al 祬 10 (¤«ï á¨á⥬ë áç¨á«¥­ï 10 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
2689
	@@: ;cmp al,10 ;¯à®¢¥à¨âì ­¥ ¬¥­ìè¥ «¨ §­ ç¥­¨¥ ¢ al 祬 10 (¤«ï á¨á⥬ë áç¨á«¥­ï 10 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
2711
	or al,0x30  ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥ 祬 ¤¢¥ ¢ëè¥
2690
	or al,0x30  ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥ 祬 ¤¢¥ ¢ëè¥
2712
	stosb	    ;§ ¯¨á âì í«¥¬¥­â ¨§ ॣ¨áâà  al ¢ ï祪㠯 ¬ï⨠es:edi
2691
	stosb	    ;§ ¯¨á âì í«¥¬¥­â ¨§ ॣ¨áâà  al ¢ ï祪㠯 ¬ï⨠es:edi
2713
	ret	      ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© 室 â.ª. ¯®ª  ¢ á⥪¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® á⮫쪮 à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
2692
	ret	      ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© 室 â.ª. ¯®ª  ¢ á⥪¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® á⮫쪮 à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
Line -... Line 2693...
-
 
2693
 
2714
 
2694
align 16
2715
i_end:
2695
i_end:
2716
	rb 1024
2696
	rb 1024
2717
stacktop:
2697
stacktop:
2718
	sys_path rb 1024
2698
	sys_path rb 1024