WebSVN – Kolibri OS – Diff – /programs/other/t_edit/t_button.inc

 	;*** ¢ë§®¢ ¤¨ «®£®¢®£® ®ª  ¤«ï á®åà ¥¨ï ä ©«
 	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
+		stdcall [ted_save_file],tedit0,run_file_70,openfile_path
+	.end_save_file:
 	ret
 endp
 ;description:
 ; ª®¯¨à®¢ ¨¥ ¯ ¬ïâ¨
 align 4
-proc mem_copy, source:dword, destination:dword, len:dword
-  push ecx esi edi
+proc mem_copy uses ecx esi edi, source:dword, destination:dword, len:dword
-    cld
+	cld
-    mov esi, dword[source]
+	mov esi, dword[source]
-    mov edi, dword[destination]
+	mov edi, dword[destination]
-    mov ecx, dword[len]
+	mov ecx, dword[len]
-    rep movsb
-  pop edi esi ecx
+	rep movsb
-  ret
+	ret
 endp
 ;description:
 ; § ¯®«¥¨¥ ¯ ¬ïâ¨ ¯à®¡¥« ¬¨
-align 4
-proc mem_spac, mem:dword, len:dword
+align 4
-  push eax ecx edi
+proc mem_spac uses eax ecx edi, mem:dword, len:dword
-    cld
+	cld
-    mov al,' '
+	mov al,' '
-    mov edi, dword[mem]
+	mov edi, dword[mem]
-    mov ecx, dword[len]
-    repne stosb
+	mov ecx, dword[len]
-  pop edi ecx eax
+	repne stosb
-  ret
+	ret
 endp

Subversion Repositories Kolibri OS