WebSVN – Kolibri OS – Diff – /programs/develop/kol_f_edit/ced_code_g.inc



		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop eax ;ïîëó÷àåì äàííûå óçëà
		cmp eax,0
		je .find_no

 
		cmp byte[eax],C_STR
		jne @f
			stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà
			stdcall dword[tl_node_poi_get_next_info], esi,tree2
			pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

				pop bx
			.end_st:
			stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor
			jmp .beg_iterat
		@@:
		cmp byte[eax],C_TXT
		jne @f
			stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà
		@@:
		cmp byte[eax],C_INC
		jne @f
			stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà
		@@:
		cmp byte[eax],C_COM
		jne @f
			stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà
		@@:
		cmp byte[eax],C_VAR
		jne @f
			stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà
		@@:
		cmp byte[eax],C_WND
		jne @f
			stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà
		@@:
		cmp byte[eax],C_ACO
		jne @f
			stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà
		@@:
		cmp byte[eax],C_KEY ;êëàâèàòóðà
		jne @f
			stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà
		@@:

 

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_EDB
		jne @f
			stdcall insert_text, txt_std_mouse_ed
			;insert_sp
			stdcall get_obj_text_col,ebx,0
			stdcall str_len,edx
			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
			insert_nl
		@@:
		cmp byte[ebx],C_CHB
		jne @f
			stdcall insert_text, txt_std_mouse_cb
			;insert_sp
			stdcall get_obj_text_col,ebx,0

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_EDB
		jne @f
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
			stdcall insert_text_prop, ebx,0

 
			insert_br

			stdcall insert_text, txt_txt
 
			mov edx,fp_icon

			stdcall get_obj_id_str, ebx,edx

			stdcall insert_text,edx

				stdcall insert_text,txt_minus
				stdcall insert_text, txt_1
			.null_string:
			insert_nl
		@@:
		cmp byte[ebx],C_DTT
		jne @f
			stdcall insert_text, txt_txt
			mov edx,fp_icon
			stdcall get_obj_id_str, ebx,edx
			stdcall insert_text,edx
			stdcall insert_text, txt_db
			stdcall insert_text_prop, ebx,0
			insert_nl
		@@:

			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...

 
			stdcall insert_text, txt_sys_dir
			;object code
			mov edx,fp_icon
			stdcall get_obj_id_str, ebx,edx
			stdcall insert_text,edx
			stdcall insert_text,txt_db
			;stdcall insert_text, txt_str_beg
			stdcall insert_text_prop, ebx,1

			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...

 
			stdcall insert_text, txt_lib
			;object code
			mov edx,fp_icon
			stdcall get_obj_id_str, ebx,edx
			stdcall insert_text,edx
			insert_sp
			stdcall insert_text, txt_ll
			stdcall insert_text, txt_lib_name

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_EDB
		jne @f
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
			stdcall insert_text, txt_txt
			mov edx,fp_icon
			stdcall get_obj_id_str, ebx,edx

			stdcall insert_text,edx
 
			stdcall get_obj_text_col,ebx,10

				insert_tab
				stdcall insert_text, txt_met_end
				stdcall insert_text, txt_rb
				stdcall insert_text, txt_txt
				mov edx,fp_icon
				stdcall get_obj_id_str, ebx,edx
				stdcall insert_text,edx

 
				stdcall insert_text, txt_minus
				stdcall insert_text, txt_txt

				stdcall insert_text, txt_2
				stdcall insert_text, txt_db
				insert_0
				insert_nl
		@@:
		;cmp byte[ebx],C_CHB
		;jne @f
		;@@:

 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_BUT
		jne @f
			insert_tab
			insert_cmp
			insert_reg8 txt_ah

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_BUT
		jne @f
			stdcall get_obj_text_col,ebx,6
			stdcall str_len,edx
			cmp eax,1

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_EDB
		jne @f
			stdcall insert_text, txt_std_key_ed
			stdcall insert_text_prop,ebx,0
			insert_nl

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop ebx ;ïîëó÷àåì äàííûå óçëà
		cmp ebx,0
		je .find_no

 
		cmp byte[ebx],C_EDB
		jne @f
			stdcall insert_text, txt_editb_draw
			stdcall insert_text_prop, ebx,0
			insert_nl
		@@:
		cmp byte[ebx],C_CHB
		jne @f
			stdcall insert_text, txt_cbox_draw
			stdcall insert_text_prop, ebx,0
			insert_nl
		@@:
		cmp byte[ebx],C_BUT
		jne @f
			insert_tab
			stdcall insert_text, txt_mov
			insert_reg txt_eax

 
			insert_tab
			stdcall insert_text, txt_i_40
			insert_nl
		@@:
		cmp byte[ebx],C_REC
		jne @f
			insert_tab
			stdcall insert_text, txt_mov
			insert_reg txt_eax

 
			insert_tab
			stdcall insert_text, txt_i_40
			insert_nl
		@@:
		cmp byte[ebx],C_DTT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
		jne @f
			insert_tab
			stdcall insert_text, txt_mov
			insert_reg txt_eax

			stdcall insert_text, txt_mov
			insert_reg txt_edx
			insert_coma
			stdcall insert_text, txt_txt
			mov edx,fp_icon
			stdcall get_obj_id_str, ebx,edx
			stdcall insert_text,edx
			insert_nl

 

db 'align 4',13,'key:',13,9,'mcall 2',13
txt_key_2:
db 9,'jmp still',13
txt_key_3:

 
;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
;output:
; txt_buf - ñòðîêà ñ íîìåðîì îáúåêòà
align 4
proc get_obj_id_str, p_obj:dword, txt_buf:dword
	push eax ecx edx
	mov eax,dword[p_obj]
	sub eax,[tree2.data_info]
	xor edx,edx

	stdcall str_cat_value,edx,eax
	pop edx ecx eax
	ret
endp

 
;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
;output:
; eax - íîìåð îáúåêòà
align 4
proc get_obj_id, p_obj:dword
	push ecx edx
	mov eax,dword[p_obj]
	sub eax,[tree2.data_info]
	xor edx,edx
	xor ecx,ecx
	mov cx,word[tree2.info_size]
	div ecx
	pop edx ecx
	ret
endp
 

;--- òåêñòîâûå ôóíêöèè ---
 
align 4

Rev 1711	Rev 1714
Line 162...	Line 162...
162	stdcall dword[tl_node_poi_get_data], esi,tree2	162	stdcall dword[tl_node_poi_get_data], esi,tree2
163	pop eax ;ïîëó÷àåì äàííûå óçëà	163	pop eax ;ïîëó÷àåì äàííûå óçëà
164	cmp eax,0	164	cmp eax,0
165	je .find_no	165	je .find_no
Line 166...	Line 166...
166		166
167	cmp byte[eax],C_ST	167	cmp byte[eax],C_STR
168	jne @f	168	jne @f
169	stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà	169	stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà
170	stdcall dword[tl_node_poi_get_next_info], esi,tree2	170	stdcall dword[tl_node_poi_get_next_info], esi,tree2
171	pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó	171	pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
Line 179...	Line 179...
179	pop bx	179	pop bx
180	.end_st:	180	.end_st:
181	stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor	181	stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor
182	jmp .beg_iterat	182	jmp .beg_iterat
183	@@:	183	@@:
184	cmp byte[eax],C_TT	184	cmp byte[eax],C_TXT
185	jne @f	185	jne @f
186	stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà	186	stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà
187	@@:	187	@@:
188	cmp byte[eax],C_IN	188	cmp byte[eax],C_INC
189	jne @f	189	jne @f
190	stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà	190	stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà
191	@@:	191	@@:
192	cmp byte[eax],C_CO	192	cmp byte[eax],C_COM
193	jne @f	193	jne @f
194	stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà	194	stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà
195	@@:	195	@@:
196	cmp byte[eax],C_VR	196	cmp byte[eax],C_VAR
197	jne @f	197	jne @f
198	stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà	198	stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà
199	@@:	199	@@:
200	cmp byte[eax],C_WI	200	cmp byte[eax],C_WND
201	jne @f	201	jne @f
202	stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà	202	stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà
203	@@:	203	@@:
204	cmp byte[eax],C_AC	204	cmp byte[eax],C_ACO
205	jne @f	205	jne @f
206	stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà	206	stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà
207	@@:	207	@@:
208	cmp byte[eax],C_KE ;êëàâèàòóðà	208	cmp byte[eax],C_KEY ;êëàâèàòóðà
209	jne @f	209	jne @f
210	stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà	210	stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà
211	@@:	211	@@:
Line 212...	Line 212...
212		212
Line 296...	Line 296...
296	stdcall dword[tl_node_poi_get_data], esi,tree2	296	stdcall dword[tl_node_poi_get_data], esi,tree2
297	pop ebx ;ïîëó÷àåì äàííûå óçëà	297	pop ebx ;ïîëó÷àåì äàííûå óçëà
298	cmp ebx,0	298	cmp ebx,0
299	je .find_no	299	je .find_no
Line 300...	Line 300...
300		300
301	cmp byte[ebx],C_ED	301	cmp byte[ebx],C_EDB
302	jne @f	302	jne @f
303	stdcall insert_text, txt_std_mouse_ed	303	stdcall insert_text, txt_std_mouse_ed
304	;insert_sp	304	;insert_sp
305	stdcall get_obj_text_col,ebx,0	305	stdcall get_obj_text_col,ebx,0
306	stdcall str_len,edx	306	stdcall str_len,edx
307	stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor	307	stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
308	insert_nl	308	insert_nl
309	@@:	309	@@:
310	cmp byte[ebx],C_CB	310	cmp byte[ebx],C_CHB
311	jne @f	311	jne @f
312	stdcall insert_text, txt_std_mouse_cb	312	stdcall insert_text, txt_std_mouse_cb
313	;insert_sp	313	;insert_sp
314	stdcall get_obj_text_col,ebx,0	314	stdcall get_obj_text_col,ebx,0
Line 341...	Line 341...
341	stdcall dword[tl_node_poi_get_data], esi,tree2	341	stdcall dword[tl_node_poi_get_data], esi,tree2
342	pop ebx ;ïîëó÷àåì äàííûå óçëà	342	pop ebx ;ïîëó÷àåì äàííûå óçëà
343	cmp ebx,0	343	cmp ebx,0
344	je .find_no	344	je .find_no
Line 345...	Line 345...
345		345
346	cmp byte[ebx],C_ED	346	cmp byte[ebx],C_EDB
347	jne @f	347	jne @f
348	;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt	348	;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
349	stdcall insert_text_prop, ebx,0	349	stdcall insert_text_prop, ebx,0
Line 360...	Line 360...
360		360
361	insert_br	361	insert_br
Line 362...	Line 362...
362	stdcall insert_text, txt_txt	362	stdcall insert_text, txt_txt
363		363
364	mov edx,fp_icon	364	mov edx,fp_icon
Line 365...	Line 365...
365	stdcall get_obj_id, ebx,edx	365	stdcall get_obj_id_str, ebx,edx
Line 366...	Line 366...
366	stdcall insert_text,edx	366	stdcall insert_text,edx
Line 394...	Line 394...
394	stdcall insert_text,txt_minus	394	stdcall insert_text,txt_minus
395	stdcall insert_text, txt_1	395	stdcall insert_text, txt_1
396	.null_string:	396	.null_string:
397	insert_nl	397	insert_nl
398	@@:	398	@@:
399	cmp byte[ebx],C_DT	399	cmp byte[ebx],C_DTT
400	jne @f	400	jne @f
401	stdcall insert_text, txt_txt	401	stdcall insert_text, txt_txt
402	mov edx,fp_icon	402	mov edx,fp_icon
403	stdcall get_obj_id, ebx,edx	403	stdcall get_obj_id_str, ebx,edx
404	stdcall insert_text,edx	404	stdcall insert_text,edx
405	stdcall insert_text, txt_db	405	stdcall insert_text, txt_db
406	stdcall insert_text_prop, ebx,0	406	stdcall insert_text_prop, ebx,0
407	insert_nl	407	insert_nl
408	@@:	408	@@:
Line 438...	Line 438...
438	;0,1,2,3,4,5 - l_nam,s_dir,i_met,...	438	;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
Line 439...	Line 439...
439		439
440	stdcall insert_text, txt_sys_dir	440	stdcall insert_text, txt_sys_dir
441	;object code	441	;object code
442	mov edx,fp_icon	442	mov edx,fp_icon
443	stdcall get_obj_id, ebx,edx	443	stdcall get_obj_id_str, ebx,edx
444	stdcall insert_text,edx	444	stdcall insert_text,edx
445	stdcall insert_text,txt_db	445	stdcall insert_text,txt_db
446	;stdcall insert_text, txt_str_beg	446	;stdcall insert_text, txt_str_beg
447	stdcall insert_text_prop, ebx,1	447	stdcall insert_text_prop, ebx,1
Line 506...	Line 506...
506	;0,1,2,3,4,5 - l_nam,s_dir,i_met,...	506	;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
Line 507...	Line 507...
507		507
508	stdcall insert_text, txt_lib	508	stdcall insert_text, txt_lib
509	;object code	509	;object code
510	mov edx,fp_icon	510	mov edx,fp_icon
511	stdcall get_obj_id, ebx,edx	511	stdcall get_obj_id_str, ebx,edx
512	stdcall insert_text,edx	512	stdcall insert_text,edx
513	insert_sp	513	insert_sp
514	stdcall insert_text, txt_ll	514	stdcall insert_text, txt_ll
515	stdcall insert_text, txt_lib_name	515	stdcall insert_text, txt_lib_name
Line 664...	Line 664...
664	stdcall dword[tl_node_poi_get_data], esi,tree2	664	stdcall dword[tl_node_poi_get_data], esi,tree2
665	pop ebx ;ïîëó÷àåì äàííûå óçëà	665	pop ebx ;ïîëó÷àåì äàííûå óçëà
666	cmp ebx,0	666	cmp ebx,0
667	je .find_no	667	je .find_no
Line 668...	Line 668...
668		668
669	cmp byte[ebx],C_ED	669	cmp byte[ebx],C_EDB
670	jne @f	670	jne @f
671	;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt	671	;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
672	stdcall insert_text, txt_txt	672	stdcall insert_text, txt_txt
673	mov edx,fp_icon	673	mov edx,fp_icon
674	stdcall get_obj_id, ebx,edx	674	stdcall get_obj_id_str, ebx,edx
Line 675...	Line 675...
675	stdcall insert_text,edx	675	stdcall insert_text,edx
676		676
677	stdcall get_obj_text_col,ebx,10	677	stdcall get_obj_text_col,ebx,10
Line 688...	Line 688...
688	insert_tab	688	insert_tab
689	stdcall insert_text, txt_met_end	689	stdcall insert_text, txt_met_end
690	stdcall insert_text, txt_rb	690	stdcall insert_text, txt_rb
691	stdcall insert_text, txt_txt	691	stdcall insert_text, txt_txt
692	mov edx,fp_icon	692	mov edx,fp_icon
693	stdcall get_obj_id, ebx,edx	693	stdcall get_obj_id_str, ebx,edx
694	stdcall insert_text,edx	694	stdcall insert_text,edx
Line 695...	Line 695...
695		695
696	stdcall insert_text, txt_minus	696	stdcall insert_text, txt_minus
697	stdcall insert_text, txt_txt	697	stdcall insert_text, txt_txt
Line 715...	Line 715...
715	stdcall insert_text, txt_2	715	stdcall insert_text, txt_2
716	stdcall insert_text, txt_db	716	stdcall insert_text, txt_db
717	insert_0	717	insert_0
718	insert_nl	718	insert_nl
719	@@:	719	@@:
720	;cmp byte[ebx],C_CB	720	;cmp byte[ebx],C_CHB
721	;jne @f	721	;jne @f
722	;@@:	722	;@@:
Line 723...	Line 723...
723		723
724	stdcall dword[tl_node_poi_get_next_info], esi,tree2	724	stdcall dword[tl_node_poi_get_next_info], esi,tree2
Line 743...	Line 743...
743	stdcall dword[tl_node_poi_get_data], esi,tree2	743	stdcall dword[tl_node_poi_get_data], esi,tree2
744	pop ebx ;ïîëó÷àåì äàííûå óçëà	744	pop ebx ;ïîëó÷àåì äàííûå óçëà
745	cmp ebx,0	745	cmp ebx,0
746	je .find_no	746	je .find_no
Line 747...	Line 747...
747		747
748	cmp byte[ebx],C_BU	748	cmp byte[ebx],C_BUT
749	jne @f	749	jne @f
750	insert_tab	750	insert_tab
751	insert_cmp	751	insert_cmp
752	insert_reg8 txt_ah	752	insert_reg8 txt_ah
Line 795...	Line 795...
795	stdcall dword[tl_node_poi_get_data], esi,tree2	795	stdcall dword[tl_node_poi_get_data], esi,tree2
796	pop ebx ;ïîëó÷àåì äàííûå óçëà	796	pop ebx ;ïîëó÷àåì äàííûå óçëà
797	cmp ebx,0	797	cmp ebx,0
798	je .find_no	798	je .find_no
Line 799...	Line 799...
799		799
800	cmp byte[ebx],C_BU	800	cmp byte[ebx],C_BUT
801	jne @f	801	jne @f
802	stdcall get_obj_text_col,ebx,6	802	stdcall get_obj_text_col,ebx,6
803	stdcall str_len,edx	803	stdcall str_len,edx
804	cmp eax,1	804	cmp eax,1
Line 849...	Line 849...
849	stdcall dword[tl_node_poi_get_data], esi,tree2	849	stdcall dword[tl_node_poi_get_data], esi,tree2
850	pop ebx ;ïîëó÷àåì äàííûå óçëà	850	pop ebx ;ïîëó÷àåì äàííûå óçëà
851	cmp ebx,0	851	cmp ebx,0
852	je .find_no	852	je .find_no
Line 853...	Line 853...
853		853
854	cmp byte[ebx],C_ED	854	cmp byte[ebx],C_EDB
855	jne @f	855	jne @f
856	stdcall insert_text, txt_std_key_ed	856	stdcall insert_text, txt_std_key_ed
857	stdcall insert_text_prop,ebx,0	857	stdcall insert_text_prop,ebx,0
858	insert_nl	858	insert_nl
Line 982...	Line 982...
982	stdcall dword[tl_node_poi_get_data], esi,tree2	982	stdcall dword[tl_node_poi_get_data], esi,tree2
983	pop ebx ;ïîëó÷àåì äàííûå óçëà	983	pop ebx ;ïîëó÷àåì äàííûå óçëà
984	cmp ebx,0	984	cmp ebx,0
985	je .find_no	985	je .find_no
Line 986...	Line 986...
986		986
987	cmp byte[ebx],C_ED	987	cmp byte[ebx],C_EDB
988	jne @f	988	jne @f
989	stdcall insert_text, txt_editb_draw	989	stdcall insert_text, txt_editb_draw
990	stdcall insert_text_prop, ebx,0	990	stdcall insert_text_prop, ebx,0
991	insert_nl	991	insert_nl
992	@@:	992	@@:
993	cmp byte[ebx],C_CB	993	cmp byte[ebx],C_CHB
994	jne @f	994	jne @f
995	stdcall insert_text, txt_cbox_draw	995	stdcall insert_text, txt_cbox_draw
996	stdcall insert_text_prop, ebx,0	996	stdcall insert_text_prop, ebx,0
997	insert_nl	997	insert_nl
998	@@:	998	@@:
999	cmp byte[ebx],C_BU	999	cmp byte[ebx],C_BUT
1000	jne @f	1000	jne @f
1001	insert_tab	1001	insert_tab
1002	stdcall insert_text, txt_mov	1002	stdcall insert_text, txt_mov
1003	insert_reg txt_eax	1003	insert_reg txt_eax
Line 1046...	Line 1046...
1046		1046
1047	insert_tab	1047	insert_tab
1048	stdcall insert_text, txt_i_40	1048	stdcall insert_text, txt_i_40
1049	insert_nl	1049	insert_nl
1050	@@:	1050	@@:
1051	cmp byte[ebx],C_RE	1051	cmp byte[ebx],C_REC
1052	jne @f	1052	jne @f
1053	insert_tab	1053	insert_tab
1054	stdcall insert_text, txt_mov	1054	stdcall insert_text, txt_mov
1055	insert_reg txt_eax	1055	insert_reg txt_eax
Line 1085...	Line 1085...
1085		1085
1086	insert_tab	1086	insert_tab
1087	stdcall insert_text, txt_i_40	1087	stdcall insert_text, txt_i_40
1088	insert_nl	1088	insert_nl
1089	@@:	1089	@@:
1090	cmp byte[ebx],C_DT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4	1090	cmp byte[ebx],C_DTT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
1091	jne @f	1091	jne @f
1092	insert_tab	1092	insert_tab
1093	stdcall insert_text, txt_mov	1093	stdcall insert_text, txt_mov
1094	insert_reg txt_eax	1094	insert_reg txt_eax
Line 1118...	Line 1118...
1118	stdcall insert_text, txt_mov	1118	stdcall insert_text, txt_mov
1119	insert_reg txt_edx	1119	insert_reg txt_edx
1120	insert_coma	1120	insert_coma
1121	stdcall insert_text, txt_txt	1121	stdcall insert_text, txt_txt
1122	mov edx,fp_icon	1122	mov edx,fp_icon
1123	stdcall get_obj_id, ebx,edx	1123	stdcall get_obj_id_str, ebx,edx
1124	stdcall insert_text,edx	1124	stdcall insert_text,edx
1125	insert_nl	1125	insert_nl
Line 1126...	Line 1126...
1126		1126
Line 1293...	Line 1293...
1293	db 'align 4',13,'key:',13,9,'mcall 2',13	1293	db 'align 4',13,'key:',13,9,'mcall 2',13
1294	txt_key_2:	1294	txt_key_2:
1295	db 9,'jmp still',13	1295	db 9,'jmp still',13
1296	txt_key_3:	1296	txt_key_3:
Line -...	Line 1297...
-		1297
-		1298	;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
-		1299	;output:
1297		1300	; txt_buf - ñòðîêà ñ íîìåðîì îáúåêòà
1298	align 4	1301	align 4
1299	proc get_obj_id, p_obj:dword, txt_buf:dword	1302	proc get_obj_id_str, p_obj:dword, txt_buf:dword
1300	push eax ecx edx	1303	push eax ecx edx
1301	mov eax,dword[p_obj]	1304	mov eax,dword[p_obj]
1302	sub eax,[tree2.data_info]	1305	sub eax,[tree2.data_info]
1303	xor edx,edx	1306	xor edx,edx
Line 1310...	Line 1313...
1310	stdcall str_cat_value,edx,eax	1313	stdcall str_cat_value,edx,eax
1311	pop edx ecx eax	1314	pop edx ecx eax
1312	ret	1315	ret
1313	endp	1316	endp
Line -...	Line 1317...
-		1317
-		1318	;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
-		1319	;output:
-		1320	; eax - íîìåð îáúåêòà
-		1321	align 4
-		1322	proc get_obj_id, p_obj:dword
-		1323	push ecx edx
-		1324	mov eax,dword[p_obj]
-		1325	sub eax,[tree2.data_info]
-		1326	xor edx,edx
-		1327	xor ecx,ecx
-		1328	mov cx,word[tree2.info_size]
-		1329	div ecx
-		1330	pop edx ecx
-		1331	ret
-		1332	endp
1314		1333
Line 1315...	Line 1334...
1315	;--- òåêñòîâûå ôóíêöèè ---	1334	;--- òåêñòîâûå ôóíêöèè ---
1316		1335
1317	align 4	1336	align 4

Subversion Repositories Kolibri OS

(root)/programs/develop/kol_f_edit/ced_code_g.inc – Rev 1711 → 1714