WebSVN – Kolibri OS – Diff – /programs/system/rdsave/trunk/rdsave.asm


;
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
;   Save RAM disk to a hard or floppy drive
;
; version:	1.3
; last update:  08/09/2010
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      select path with OpenDialog,
;               keys 1,2,3,4 for select options
;---------------------------------------------------------------------
;   Mario79 2005
;   Heavyiron 12.02.2007
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨áâ¥¬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
;   ®¬¯¨«¨à®¢ âì FASM'®¬
;
;---------------------------------------------------------------------
include 'lang.inc'
include '../../../config.inc'		;for nightbuild
include '..\..\..\macros.inc'
 
appname equ 'RDsave '
version equ '1.3'
 
use32 	     ; ¢ª«îç¨âì 32-¡¨â­ë© à¥¦¨¬  áá¥¬¡«¥à 
org	 0x0	     ;  ¤à¥á æ¨ï á ­ã«ï
 
	db 'MENUET01'  ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
	dd 0x01	     ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
	dd START	     ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
	dd IM_END	     ; à §¬¥à ¯à®£à ¬¬ë
	dd I_END	     ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨
	dd stacktop     ;  ¤à¥á ¢¥àè¨­ë áâíª 
	dd 0x0	     ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥âà®¢ (­¥ ¨á¯®«ì§ã¥âáï)
	dd cur_dir_path
 
;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
	@use_library
 
;use_edit_box
;al equ eax      ; \ decrease kpack'ed size
;purge mov       ; /
 
;---------------------------------------------------------------------
;---     ----------------------------------------------
;---------------------------------------------------------------------
align 4
START:
	mcall	68,11
 
load_libraries l_libs_start,end_l_libs
 
	cmp	eax,-1
	jz	close
 
	mov	edi,filename_area
	mov	esi,start_temp_file_name
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
 
 
	mov	edi,fname_buf
	mov	esi,path4
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
 
;OpenDialog	initialisation
	push    dword OpenDialog_data
	call    [OpenDialog_Init]
 
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	mcall	40,100111b
red:			; ¯¥à¥à¨á®¢ âì ®ª­®
	mcall	48,3,sc,sizeof.system_colors
 
	call	draw_window	; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
;---------------------------------------------------------------------
;---      ----------------------------------------
;---------------------------------------------------------------------
still:
	mcall 10
 
	dec	eax	 ; ¯¥à¥à¨á®¢ âì ®ª­®?
	jz	red	 ; ¥á«¨ ¤  - ­  ¬¥âªã red
	dec	eax
	jz	key
	dec	eax
	jz	button
 
	jmp	still
;---------------------------------------------------------------------
button:
	mcall	17	; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
	cmp	ah,1		 ; ª­®¯ª  á id=1("§ ªàëâì")?
	jne	noclose
close:
	or	 eax,-1 	 ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
	mcall
 
noclose:
	push	eax
	call	clear_err
	pop	eax
	push	16
	xor	ebx,ebx
	inc	ebx	; 16.1 = save to /FD/1
	cmp	ah,2
	je	doit
	inc	ebx	; 16.2 = save to /FD/2
	cmp	ah,3
	je	doit
	pop	ebx
	push	18
	mov	bl,6	; 18.6 = save to specified folder
	mov	ecx, path3
	cmp	ah,4
	je	doit
 
; invoke OpenDialog
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data.status],1
	jne	still
 
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	call	draw_PathShow
 
	mov	ecx,fname_buf ;path4
doit:
	pop	eax
	mcall
	call	check_for_error
	jmp	still
;---------------------------------------------------------------------
key:
	mcall	2
	cmp	ah,0x31
	jb	still
	cmp	ah,0x34
	ja	still
	sub	ah,0x30
	inc	ah
	jmp	noclose
;---------------------------------------------------------------------
check_for_error:		      ;¡à ¡®âç¨ª ®è¨¡®ª
	mov	ecx,[sc.work_text]
	mov	edx,ok
	test	eax,eax
	jz	print
	mov	ecx,0xdd2222
	add	edx,error3 - ok
	dec	eax
	dec	eax
	jz	print
	add	edx,error5 - error3
	dec	eax
	dec	eax
	jz	print
	add	edx,error8 - error5
	dec	eax
	dec	eax
	dec	eax
	jz	print
	add	edx,error9 - error8
	dec	eax
	jz	print
	add	edx,error10 - error9
	dec	eax
	jz	print
	add	edx,error11 - error10
	dec	eax
	jz	print
	add	edx,aUnknownError - error11
print:
	mov	eax,4				   ;­ ¤¯¨á¨
	mov	ebx,20 shl 16 + 148
	or	ecx,0x80000000
	mcall
	ret
;---------------------------------------------------------------------
clear_err:
	mov	eax,13
	mov	ebx,15 shl 16 + 240
	mov	ecx,145 shl 16 +15
	mov	edx,[sc.work]
	mcall
	ret
;---------------------------------------------------------------------
draw_PathShow:
	pusha
	mcall	13,<8,172>,<110,15>,0xffffff
; draw for PathShow
	push	dword PathShow_data_1
	call	[PathShow_draw]
	popa
	ret
;---------------------------------------------------------------------
;---       ----------------------------------
;---------------------------------------------------------------------
draw_window:
	mcall	12,1	; äã­ªæ¨ï 12: á®®¡é¨âì  ®¡ ®âà¨á®¢ª¥ ®ª­ 
			; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
					 ; ð 
	xor	eax,eax			 ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
	mov	ebx,200 shl 16 + 300	 ; [x áâ àâ] *65536 + [x à §¬¥à]
	mov	ecx,200 shl 16 + 190	 ; [y áâ àâ] *65536 + [y à §¬¥à]
	mov	edx,[sc.work]		 ; æ¢¥â à ¡®ç¥© ®¡« áâ¨  RRGGBB,8->color gl
	or	edx,0x34000000
	mov	edi,title			;  
	mcall
 
	call	draw_PathShow
 
;®âà¨á®¢ª  â¥­¥© ª­®¯®ª
	mcall	13,<194,60>,<34,15>,0x444444
 
	add	ecx,20 shl 16
	mcall
 
	add	ecx,20 shl 16
	mcall
 
	add	ecx,40 shl 16
	mcall
;®âà¨á®¢ª  ª­®¯®ª
	sub	ebx,4 shl 16
	sub	ecx,4 shl 16
	mcall	8,,,5,[sc.work_button]
 
	sub	ecx,40 shl 16
	dec	edx
	mcall
 
	sub	ecx,20 shl 16
	dec	edx
	mcall
 
	sub	ecx,20 shl 16
	dec	edx
	mcall
; ­ ¤¯¨á¨
	mov	ecx,[sc.work_text]
	or	ecx,0x80000000
	mcall	4,<10,12>,,label1
 
	mov	ebx,150 shl 16 + 35
	mov	edx,path1
	mcall
 
	add	ebx,20
	mov	edx,path2
	mcall
 
	mov	ebx,75 shl 16 + 75
	mov	edx,path3
	mcall
 
	mov	ebx,30 shl 16 + 97
	mov	edx,label2
	mcall
 
	mov	ebx,40 shl 16 + 135
	mov	edx,label3
	mcall
 
	mov	ecx,[sc.work_button_text]
	or	ecx,0x80000000
	mov	ebx,195 shl 16 + 35
	mov	edx,save
	mcall
 
	push	edx
	mov	edx,key_help
	call	key_help_correct
	pop	edx
 
	add ebx,20
	mcall
 
	push	edx
	mov	edx,key_help+2
	call	key_help_correct
	pop	edx
 
	add ebx,20
	mcall
 
	push	edx
	mov	edx,key_help+4
	call	key_help_correct
	pop	edx
 
	mov	edx,select
	add ebx,40
	mcall
 
	mov	edx,key_help+6
	call	key_help_correct
 
	mcall	12,2	; äã­ªæ¨ï 12: á®®¡é¨âì  ®¡ ®âà¨á®¢ª¥ ®ª­ 
			; 2, § ª®­ç¨«¨ à¨á®¢ âì
	ret		; ¢ëå®¤¨¬ ¨§ ¯à®æ¥¤ãàë
;---------------------------------------------------------------------
key_help_correct:
	push	ebx
	ror	ebx,16
	mov	bx,270
	rol	ebx,16
	pusha
	mov	ecx,ebx
	sub	ebx,3 shl 16
	mov	bx,13
	sub	cx,3
	shl	ecx,16
	mov	cx,13
	mcall	13,,,[sc.work_graph]
	popa
	mcall
	pop	ebx
	ret
;---------------------------------------------------------------------
;---     ----------------------------------------------
;---------------------------------------------------------------------
 
title	db appname,version,0
 
;---------------------------------------------------------------------
PathShow_data_1:
.type			dd 0	;+0
.start_y		dw 113	;+4
.start_x		dw 10	;+6
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
.area_size_x		dw 170	;+10
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
.background_flag	dd 0	;+16
.font_color		dd 0x0	;+20
.background_color	dd 0x0	;+24
.text_pointer		dd fname_buf	;+28
.work_area_pointer	dd text_work_area	;+32
.temp_text_length	dd 0	;+36
;---------------------------------------------------------------------
if lang eq ru
save		db '®åà ­¨âì',0
select		db ' ë¡à âì',0
label1		db 'ë¡¥à¨â¥ ªã¤  á®åà ­¨âì á®¤¥à¦¨¬®¥ RAM-¤¨áª :',0
label2		db '«¨ ¢ë¡¥à¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã:',0
label3		db 'á¥ ¯ ¯ª¨ ¤®«¦­ë áãé¥áâ¢®¢ âì',0
ok		db 'RAM-¤¨áª á®åà ­¥­ ãá¯¥è­®',0
error3		db '¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨áâ¥¬ ',0
error5		db '¥áãé¥áâ¢ãîé¨© ¯ãâì',0
error8		db '¥â ¬¥áâ  ­  ¤¨áª¥',0
error9		db ' ¡«¨æ  FAT à §àãè¥­ ',0
error10 	db '®áâã¯ § ¯à¥é¥­',0
error11 	db 'è¨¡ª  ãáâà®©áâ¢ ',0
aUnknownError 	db '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
;---------------------------------------------------------------------
else if lang eq et
save		db 'Salvesta',0
select		db ' Valige',0
label1		db 'Vali üks variantidest:',0
label2		db 'Või valige teekond failinimeni:',0
label3		db 'Kõik kataloogid peavad eksisteerima',0
ok		db 'RAM-ketas salvestatud edukalt',0
error3		db 'Tundmatu failisüsteem',0
error5		db 'Vigane teekond',0
error8		db 'Ketas täis',0
error9		db 'FAT tabel vigane',0
error10 	db 'Juurdepääs keelatud',0
error11 	db 'Seadme viga',0
aUnknownError 	db 'Tundmatu viga',0
;---------------------------------------------------------------------
else if lang eq it
save		db 'Salva',0
select		db 'Seleziona',0
label1		db 'Seleziona cosa salvare:',0
label2		db ' oppure seleziona il file:',0
label3		db 'Tutte le cartelle devono esistere',0
ok		db 'Il RAM-drivet e stato salvato',0
error3		db 'Filesystem sconosciuto',0
error5		db 'Percorso non valido',0
error8		db 'Disco pieno',0
error9		db 'Tabella FAT corrotta',0
error10 	db 'Accesso negato',0
error11 	db 'Errore di device',0
aUnknownError 	db 'Errore sconosciuto',0
;---------------------------------------------------------------------
else
save		db '  Save',0
select		db ' Select',0
label1		db 'Select one of the variants:',0
label2		db '  Or select full path to file:',0
label3		db '    All folders must exist',0
ok		db 'RAM-drive was saved successfully',0
error3		db 'Unknown file system',0
error5		db 'Incorrect path',0
error8		db 'Disk is full',0
error9		db 'FAT table corrupted',0
error10 	db 'Access denied',0
error11 	db 'Device error',0
aUnknownError 	db 'Unknown error',0
 
end if
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;DATA ¤ ­­ë¥
;á¥£¤  á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
head_f_i:
head_f_l	db 'System error',0
 
err_message_found_lib1	db 'box_lib.obj - Not found!',0
err_message_found_lib2	db 'proc_lib.obj - Not found!',0
 
err_message_import1	db 'box_lib.obj - Wrong import!',0
err_message_import2	db 'proc_lib.obj - Wrong import!',0
 
;---------------------------------------------------------------------
l_libs_start:
 
library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
 
library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
 
end_l_libs:
;---------------------------------------------------------------------
OpenDialog_data:
.type			dd 1	; Save
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_pach		dd temp_dir_pach	;+16
.dir_default_pach	dd communication_area_default_pach	;+20
.start_path		dd open_dialog_path	;+24
.draw_window		dd draw_window	;+28
.status			dd 0	;+32
.openfile_pach 		dd fname_buf	;+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
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_path:
if __nightbuild eq yes
    db '/sys/MANAGERS/opendial',0
else
    db '/sys/File Managers/opendial',0
end if
communication_area_default_pach:
	db '/hd0/1/kolibri',0
 
Filter:
dd	Filter.end - Filter
.1:
db	'IMG',0
db	'IMA',0
.end:
db	0
 
start_temp_file_name:	db 'kolibri.img',0
 
;---------------------------------------------------------------------
align 4
ProcLib_import:
OpenDialog_Init		dd aOpenDialog_Init
OpenDialog_Start	dd aOpenDialog_Start
;OpenDialog__Version	dd aOpenDialog_Version
        dd      0
        dd      0
aOpenDialog_Init	db 'OpenDialog_init',0
aOpenDialog_Start	db 'OpenDialog_start',0
;aOpenDialog_Version	db 'Version_OpenDialog',0
;---------------------------------------------------------------------
align 4
Box_lib_import:
;init_lib		dd a_init
;version_lib		dd a_version
 
 
;edit_box_draw		dd aEdit_box_draw
;edit_box_key		dd aEdit_box_key
;edit_box_mouse		dd aEdit_box_mouse
;version_ed		dd aVersion_ed
 
;check_box_draw		dd aCheck_box_draw
;check_box_mouse	dd aCheck_box_mouse
;version_ch		dd aVersion_ch
 
;option_box_draw	dd aOption_box_draw
;option_box_mouse	dd aOption_box_mouse
;version_op		dd aVersion_op
 
;scrollbar_ver_draw	dd aScrollbar_ver_draw
;scrollbar_ver_mouse	dd aScrollbar_ver_mouse
;scrollbar_hor_draw	dd aScrollbar_hor_draw
;scrollbar_hor_mouse	dd aScrollbar_hor_mouse
;version_scrollbar	dd aVersion_scrollbar
 
;dinamic_button_draw	dd aDbutton_draw
;dinamic_button_mouse	dd aDbutton_mouse
;version_dbutton	dd aVersion_dbutton
 
;menu_bar_draw		dd aMenu_bar_draw
;menu_bar_mouse		dd aMenu_bar_mouse
;menu_bar_activate	dd aMenu_bar_activate
;version_menu_bar	dd aVersion_menu_bar
 
;FileBrowser_draw	dd aFileBrowser_draw
;FileBrowser_mouse	dd aFileBrowser_mouse
;FileBrowser_key	dd aFileBrowser_key
;Version_FileBrowser	dd aVersion_FileBrowser
 
PathShow_prepare	dd sz_PathShow_prepare
PathShow_draw		dd sz_PathShow_draw
;Version_path_show	dd szVersion_path_show
			dd 0
			dd 0
 
;a_init			db 'lib_init',0
;a_version		db 'version',0
 
;aEdit_box_draw		db 'edit_box',0
;aEdit_box_key		db 'edit_box_key',0
;aEdit_box_mouse	db 'edit_box_mouse',0
;aVersion_ed		db 'version_ed',0
 
;aCheck_box_draw	db 'check_box_draw',0
;aCheck_box_mouse	db 'check_box_mouse',0
;aVersion_ch		db 'version_ch',0
 
;aOption_box_draw	db 'option_box_draw',0
;aOption_box_mouse	db 'option_box_mouse',0
;aVersion_op		db 'version_op',0
 
;aScrollbar_ver_draw	db 'scrollbar_v_draw',0
;aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
;aScrollbar_hor_draw	db 'scrollbar_h_draw',0
;aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
;aVersion_scrollbar	db 'version_scrollbar',0
 
;aDbutton_draw		db 'dbutton_draw',0
;aDbutton_mouse		db 'dbutton_mouse',0
;aVersion_dbutton	db 'version_dbutton',0
 
;aMenu_bar_draw		db 'menu_bar_draw',0
;aMenu_bar_mouse		db 'menu_bar_mouse',0
;aMenu_bar_activate	db 'menu_bar_activate',0
;aVersion_menu_bar	db 'version_menu_bar',0
 
;aFileBrowser_draw	db 'FileBrowser_draw',0
;aFileBrowser_mouse	db 'FileBrowser_mouse',0
;aFileBrowser_key	db 'FileBrowser_key',0
;aVersion_FileBrowser	db 'version_FileBrowser',0
 
sz_PathShow_prepare	db 'PathShow_prepare',0
sz_PathShow_draw	db 'PathShow_draw',0
;szVersion_path_show	db 'version_PathShow',0
;---------------------------------------------------------------------
 
path1	db '/fd/1/',0
path2	db '/fd/2/',0
path3	db '/hd0/1/kolibri.img',0
path4	db '/hd0/1/kolibri/kolibri.img',0  ;¤«ï à¥§¥à¢­®£® á®åà ­¥­¨ï
;---------------------------------------------------------------------
key_help:
	db '1',0
	db '2',0
	db '3',0
	db '4',0
;---------------------------------------------------------------------
IM_END:
;---------------------------------------------------------------------
sc     system_colors
mouse_dd	rd 1
;---------------------------------------------------------------------
cur_dir_path:
	rb 4096
;---------------------------------------------------------------------
library_path:
	rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
	rb 4096
;---------------------------------------------------------------------
fname_buf:
	rb 4096
;---------------------------------------------------------------------
procinfo:
	rb 1024
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
text_work_area:
	rb 1024
;---------------------------------------------------------------------
align 4
	rb 4096
stacktop:
I_END:	; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë

Rev 3328	Rev 3634
1	;	1	;
2	; RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)	2	; RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
3	; Save RAM disk to a hard or floppy drive	3	; Save RAM disk to a hard or floppy drive
4	;	4	;
5	; version: 1.3	5	; version: 1.3
6	; last update: 08/09/2010	6	; last update: 08/09/2010
7	; written by: Marat Zakiyanov aka Mario79, aka Mario	7	; written by: Marat Zakiyanov aka Mario79, aka Mario
8	; changes: select path with OpenDialog,	8	; changes: select path with OpenDialog,
9	; keys 1,2,3,4 for select options	9	; keys 1,2,3,4 for select options
10	;---------------------------------------------------------------------	10	;---------------------------------------------------------------------
11	; Mario79 2005	11	; Mario79 2005
12	; Heavyiron 12.02.2007	12	; Heavyiron 12.02.2007
13	; 11.05.2009 - ¤«ï à ¡®âë ã¦ á¨áâ¥¬ ï ¡¨¡«¨®â¥ª box_lib.obj	13	; 11.05.2009 - ¤«ï à ¡®âë ã¦ á¨áâ¥¬ ï ¡¨¡«¨®â¥ª box_lib.obj
14	; ®¬¯¨«¨à®¢ âì FASM'®¬	14	; ®¬¯¨«¨à®¢ âì FASM'®¬
15	;	15	;
16	;---------------------------------------------------------------------	16	;---------------------------------------------------------------------
17	include 'lang.inc'	17	include 'lang.inc'
18	include '../../../config.inc' ;for nightbuild	18	include '../../../config.inc' ;for nightbuild
19	include '..\..\..\macros.inc'	19	include '..\..\..\macros.inc'
20		20
21	appname equ 'RDsave '	21	appname equ 'RDsave '
22	version equ '1.3'	22	version equ '1.3'
23		23
24	use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áá¥¬¡«¥à	24	use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áá¥¬¡«¥à
25	org 0x0 ; ¤à¥á æ¨ï á ã«ï	25	org 0x0 ; ¤à¥á æ¨ï á ã«ï
26		26
27	db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS	27	db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS
28	dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)	28	dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)
29	dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë	29	dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë
30	dd IM_END ; à §¬¥à ¯à®£à ¬¬ë	30	dd IM_END ; à §¬¥à ¯à®£à ¬¬ë
31	dd I_END ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨	31	dd I_END ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨
32	dd stacktop ; ¤à¥á ¢¥àè¨ë áâíª	32	dd stacktop ; ¤à¥á ¢¥àè¨ë áâíª
33	dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥âà®¢ (¥ ¨á¯®«ì§ã¥âáï)	33	dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥âà®¢ (¥ ¨á¯®«ì§ã¥âáï)
34	dd cur_dir_path	34	dd cur_dir_path
35		35
36	;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'	36	;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
37	include '../../../develop/libraries/box_lib/load_lib.mac'	37	include '../../../develop/libraries/box_lib/load_lib.mac'
38	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'	38	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
39	@use_library	39	@use_library
40		40
41	;use_edit_box	41	;use_edit_box
42	;al equ eax ; \ decrease kpack'ed size	42	;al equ eax ; \ decrease kpack'ed size
43	;purge mov ; /	43	;purge mov ; /
44		44
45	;---------------------------------------------------------------------	45	;---------------------------------------------------------------------
46	;--- ----------------------------------------------	46	;--- ----------------------------------------------
47	;---------------------------------------------------------------------	47	;---------------------------------------------------------------------
48	align 4	48	align 4
49	START:	49	START:
50	mcall 68,11	50	mcall 68,11
51		51
52	load_libraries l_libs_start,end_l_libs	52	load_libraries l_libs_start,end_l_libs
53		53
54	cmp eax,-1	54	cmp eax,-1
55	jz close	55	jz close
56		56
57	mov edi,filename_area	57	mov edi,filename_area
58	mov esi,start_temp_file_name	58	mov esi,start_temp_file_name
59	xor eax,eax	59	xor eax,eax
60	cld	60	cld
61	@@:	61	@@:
62	lodsb	62	lodsb
63	stosb	63	stosb
64	test eax,eax	64	test eax,eax
65	jnz @b	65	jnz @b
66		66
67		67
68	mov edi,fname_buf	68	mov edi,fname_buf
69	mov esi,path4	69	mov esi,path4
70	xor eax,eax	70	xor eax,eax
71	cld	71	cld
72	@@:	72	@@:
73	lodsb	73	lodsb
74	stosb	74	stosb
75	test eax,eax	75	test eax,eax
76	jnz @b	76	jnz @b
77		77
78	;OpenDialog initialisation	78	;OpenDialog initialisation
79	push dword OpenDialog_data	79	push dword OpenDialog_data
80	call [OpenDialog_Init]	80	call [OpenDialog_Init]
81		81
82	; prepare for PathShow	82	; prepare for PathShow
83	push dword PathShow_data_1	83	push dword PathShow_data_1
84	call [PathShow_prepare]	84	call [PathShow_prepare]
85		85
86	mcall 40,100111b	86	mcall 40,100111b
87	red: ; ¯¥à¥à¨á®¢ âì ®ª®	87	red: ; ¯¥à¥à¨á®¢ âì ®ª®
88	mcall 48,3,sc,sizeof.system_colors	88	mcall 48,3,sc,sizeof.system_colors
89		89
90	call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª	90	call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª
91	;---------------------------------------------------------------------	91	;---------------------------------------------------------------------
92	;--- ----------------------------------------	92	;--- ----------------------------------------
93	;---------------------------------------------------------------------	93	;---------------------------------------------------------------------
94	still:	94	still:
95	mcall 10	95	mcall 10
96		96
97	dec eax ; ¯¥à¥à¨á®¢ âì ®ª®?	97	dec eax ; ¯¥à¥à¨á®¢ âì ®ª®?
98	jz red ; ¥á«¨ ¤ - ¬¥âªã red	98	jz red ; ¥á«¨ ¤ - ¬¥âªã red
99	dec eax	99	dec eax
100	jz key	100	jz key
101	dec eax	101	dec eax
102	jz button	102	jz button
103		103
104	jmp still	104	jmp still
105	;---------------------------------------------------------------------	105	;---------------------------------------------------------------------
106	button:	106	button:
107	mcall 17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨	107	mcall 17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨
108	cmp ah,1 ; ª®¯ª á id=1("§ ªàëâì")?	108	cmp ah,1 ; ª®¯ª á id=1("§ ªàëâì")?
109	jne noclose	109	jne noclose
110	close:	110	close:
111	or eax,-1 ; äãªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã	111	or eax,-1 ; äãªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
112	mcall	112	mcall
113		113
114	noclose:	114	noclose:
115	push eax	115	push eax
116	call clear_err	116	call clear_err
117	pop eax	117	pop eax
118	push 16	118	push 16
119	xor ebx,ebx	119	xor ebx,ebx
120	inc ebx ; 16.1 = save to /FD/1	120	inc ebx ; 16.1 = save to /FD/1
121	cmp ah,2	121	cmp ah,2
122	je doit	122	je doit
123	inc ebx ; 16.2 = save to /FD/2	123	inc ebx ; 16.2 = save to /FD/2
124	cmp ah,3	124	cmp ah,3
125	je doit	125	je doit
126	pop ebx	126	pop ebx
127	push 18	127	push 18
128	mov bl,6 ; 18.6 = save to specified folder	128	mov bl,6 ; 18.6 = save to specified folder
129	mov ecx, path3	129	mov ecx, path3
130	cmp ah,4	130	cmp ah,4
131	je doit	131	je doit
132		132
133	; invoke OpenDialog	133	; invoke OpenDialog
134	push dword OpenDialog_data	134	push dword OpenDialog_data
135	call [OpenDialog_Start]	135	call [OpenDialog_Start]
136	cmp [OpenDialog_data.status],1	136	cmp [OpenDialog_data.status],1
137	jne still	137	jne still
138		138
139	; prepare for PathShow	139	; prepare for PathShow
140	push dword PathShow_data_1	140	push dword PathShow_data_1
141	call [PathShow_prepare]	141	call [PathShow_prepare]
142		142
143	call draw_PathShow	143	call draw_PathShow
144		144
145	mov ecx,fname_buf ;path4	145	mov ecx,fname_buf ;path4
146	doit:	146	doit:
147	pop eax	147	pop eax
148	mcall	148	mcall
149	call check_for_error	149	call check_for_error
150	jmp still	150	jmp still
151	;---------------------------------------------------------------------	151	;---------------------------------------------------------------------
152	key:	152	key:
153	mcall 2	153	mcall 2
154	cmp ah,0x31	154	cmp ah,0x31
155	jb still	155	jb still
156	cmp ah,0x34	156	cmp ah,0x34
157	ja still	157	ja still
158	sub ah,0x30	158	sub ah,0x30
159	inc ah	159	inc ah
160	jmp noclose	160	jmp noclose
161	;---------------------------------------------------------------------	161	;---------------------------------------------------------------------
162	check_for_error: ;¡à ¡®âç¨ª ®è¨¡®ª	162	check_for_error: ;¡à ¡®âç¨ª ®è¨¡®ª
163	mov ecx,[sc.work_text]	163	mov ecx,[sc.work_text]
164	mov edx,ok	164	mov edx,ok
165	test eax,eax	165	test eax,eax
166	jz print	166	jz print
167	mov ecx,0xdd2222	167	mov ecx,0xdd2222
168	add edx,error3 - ok	168	add edx,error3 - ok
169	dec eax	169	dec eax
170	dec eax	170	dec eax
171	jz print	171	jz print
172	add edx,error5 - error3	172	add edx,error5 - error3
173	dec eax	173	dec eax
174	dec eax	174	dec eax
175	jz print	175	jz print
176	add edx,error8 - error5	176	add edx,error8 - error5
177	dec eax	177	dec eax
178	dec eax	178	dec eax
179	dec eax	179	dec eax
180	jz print	180	jz print
181	add edx,error9 - error8	181	add edx,error9 - error8
182	dec eax	182	dec eax
183	jz print	183	jz print
184	add edx,error10 - error9	184	add edx,error10 - error9
185	dec eax	185	dec eax
186	jz print	186	jz print
187	add edx,error11 - error10	187	add edx,error11 - error10
188	dec eax	188	dec eax
189	jz print	189	jz print
190	add edx,aUnknownError - error11	190	add edx,aUnknownError - error11
191	print:	191	print:
192	mov eax,4 ; ¤¯¨á¨	192	mov eax,4 ; ¤¯¨á¨
193	mov ebx,20 shl 16 + 148	193	mov ebx,20 shl 16 + 148
194	or ecx,0x80000000	194	or ecx,0x80000000
195	mcall	195	mcall
196	ret	196	ret
197	;---------------------------------------------------------------------	197	;---------------------------------------------------------------------
198	clear_err:	198	clear_err:
199	mov eax,13	199	mov eax,13
200	mov ebx,15 shl 16 + 240	200	mov ebx,15 shl 16 + 240
201	mov ecx,145 shl 16 +15	201	mov ecx,145 shl 16 +15
202	mov edx,[sc.work]	202	mov edx,[sc.work]
203	mcall	203	mcall
204	ret	204	ret
205	;---------------------------------------------------------------------	205	;---------------------------------------------------------------------
206	draw_PathShow:	206	draw_PathShow:
207	pusha	207	pusha
208	mcall 13,<8,172>,<110,15>,0xffffff	208	mcall 13,<8,172>,<110,15>,0xffffff
209	; draw for PathShow	209	; draw for PathShow
210	push dword PathShow_data_1	210	push dword PathShow_data_1
211	call [PathShow_draw]	211	call [PathShow_draw]
212	popa	212	popa
213	ret	213	ret
214	;---------------------------------------------------------------------	214	;---------------------------------------------------------------------
215	;--- ----------------------------------	215	;--- ----------------------------------
216	;---------------------------------------------------------------------	216	;---------------------------------------------------------------------
217	draw_window:	217	draw_window:
218	mcall 12,1 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª	218	mcall 12,1 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª
219	; 1 - ç¨ ¥¬ à¨á®¢ âì	219	; 1 - ç¨ ¥¬ à¨á®¢ âì
220	; ð	220	; ð
221	xor eax,eax ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª®	221	xor eax,eax ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª®
222	mov ebx,200 shl 16 + 300 ; [x áâ àâ] *65536 + [x à §¬¥à]	222	mov ebx,200 shl 16 + 300 ; [x áâ àâ] *65536 + [x à §¬¥à]
223	mov ecx,200 shl 16 + 190 ; [y áâ àâ] *65536 + [y à §¬¥à]	223	mov ecx,200 shl 16 + 190 ; [y áâ àâ] *65536 + [y à §¬¥à]
224	mov edx,[sc.work] ; æ¢¥â à ¡®ç¥© ®¡« áâ¨ RRGGBB,8->color gl	224	mov edx,[sc.work] ; æ¢¥â à ¡®ç¥© ®¡« áâ¨ RRGGBB,8->color gl
225	or edx,0x34000000	225	or edx,0x34000000
226	mov edi,title ;	226	mov edi,title ;
227	mcall	227	mcall
228		228
229	call draw_PathShow	229	call draw_PathShow
230		230
231	;®âà¨á®¢ª â¥¥© ª®¯®ª	231	;®âà¨á®¢ª â¥¥© ª®¯®ª
232	mcall 13,<194,60>,<34,15>,0x444444	232	mcall 13,<194,60>,<34,15>,0x444444
233		233
234	add ecx,20 shl 16	234	add ecx,20 shl 16
235	mcall	235	mcall
236		236
237	add ecx,20 shl 16	237	add ecx,20 shl 16
238	mcall	238	mcall
239		239
240	add ecx,40 shl 16	240	add ecx,40 shl 16
241	mcall	241	mcall
242	;®âà¨á®¢ª ª®¯®ª	242	;®âà¨á®¢ª ª®¯®ª
243	sub ebx,4 shl 16	243	sub ebx,4 shl 16
244	sub ecx,4 shl 16	244	sub ecx,4 shl 16
245	mcall 8,,,5,[sc.work_button]	245	mcall 8,,,5,[sc.work_button]
246		246
247	sub ecx,40 shl 16	247	sub ecx,40 shl 16
248	dec edx	248	dec edx
249	mcall	249	mcall
250		250
251	sub ecx,20 shl 16	251	sub ecx,20 shl 16
252	dec edx	252	dec edx
253	mcall	253	mcall
254		254
255	sub ecx,20 shl 16	255	sub ecx,20 shl 16
256	dec edx	256	dec edx
257	mcall	257	mcall
258	; ¤¯¨á¨	258	; ¤¯¨á¨
259	mov ecx,[sc.work_text]	259	mov ecx,[sc.work_text]
260	or ecx,0x80000000	260	or ecx,0x80000000
261	mcall 4,<10,12>,,label1	261	mcall 4,<10,12>,,label1
262		262
263	mov ebx,150 shl 16 + 35	263	mov ebx,150 shl 16 + 35
264	mov edx,path1	264	mov edx,path1
265	mcall	265	mcall
266		266
267	add ebx,20	267	add ebx,20
268	mov edx,path2	268	mov edx,path2
269	mcall	269	mcall
270		270
271	mov ebx,75 shl 16 + 75	271	mov ebx,75 shl 16 + 75
272	mov edx,path3	272	mov edx,path3
273	mcall	273	mcall
274		274
275	mov ebx,30 shl 16 + 97	275	mov ebx,30 shl 16 + 97
276	mov edx,label2	276	mov edx,label2
277	mcall	277	mcall
278		278
279	mov ebx,40 shl 16 + 135	279	mov ebx,40 shl 16 + 135
280	mov edx,label3	280	mov edx,label3
281	mcall	281	mcall
282		282
283	mov ecx,[sc.work_button_text]	283	mov ecx,[sc.work_button_text]
284	or ecx,0x80000000	284	or ecx,0x80000000
285	mov ebx,195 shl 16 + 35	285	mov ebx,195 shl 16 + 35
286	mov edx,save	286	mov edx,save
287	mcall	287	mcall
288		288
289	push edx	289	push edx
290	mov edx,key_help	290	mov edx,key_help
291	call key_help_correct	291	call key_help_correct
292	pop edx	292	pop edx
293		293
294	add ebx,20	294	add ebx,20
295	mcall	295	mcall
296		296
297	push edx	297	push edx
298	mov edx,key_help+2	298	mov edx,key_help+2
299	call key_help_correct	299	call key_help_correct
300	pop edx	300	pop edx
301		301
302	add ebx,20	302	add ebx,20
303	mcall	303	mcall
304		304
305	push edx	305	push edx
306	mov edx,key_help+4	306	mov edx,key_help+4
307	call key_help_correct	307	call key_help_correct
308	pop edx	308	pop edx
309		309
310	mov edx,select	310	mov edx,select
311	add ebx,40	311	add ebx,40
312	mcall	312	mcall
313		313
314	mov edx,key_help+6	314	mov edx,key_help+6
315	call key_help_correct	315	call key_help_correct
316		316
317	mcall 12,2 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª	317	mcall 12,2 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª
318	; 2, § ª®ç¨«¨ à¨á®¢ âì	318	; 2, § ª®ç¨«¨ à¨á®¢ âì
319	ret ; ¢ëå®¤¨¬ ¨§ ¯à®æ¥¤ãàë	319	ret ; ¢ëå®¤¨¬ ¨§ ¯à®æ¥¤ãàë
320	;---------------------------------------------------------------------	320	;---------------------------------------------------------------------
321	key_help_correct:	321	key_help_correct:
322	push ebx	322	push ebx
323	ror ebx,16	323	ror ebx,16
324	mov bx,270	324	mov bx,270
325	rol ebx,16	325	rol ebx,16
326	pusha	326	pusha
327	mov ecx,ebx	327	mov ecx,ebx
328	sub ebx,3 shl 16	328	sub ebx,3 shl 16
329	mov bx,13	329	mov bx,13
330	sub cx,3	330	sub cx,3
331	shl ecx,16	331	shl ecx,16
332	mov cx,13	332	mov cx,13
333	mcall 13,,,[sc.work_graph]	333	mcall 13,,,[sc.work_graph]
334	popa	334	popa
335	mcall	335	mcall
336	pop ebx	336	pop ebx
337	ret	337	ret
338	;---------------------------------------------------------------------	338	;---------------------------------------------------------------------
339	;--- ----------------------------------------------	339	;--- ----------------------------------------------
340	;---------------------------------------------------------------------	340	;---------------------------------------------------------------------
341		341
342	title db appname,version,0	342	title db appname,version,0
343		343
344	;---------------------------------------------------------------------	344	;---------------------------------------------------------------------
345	PathShow_data_1:	345	PathShow_data_1:
346	.type dd 0 ;+0	346	.type dd 0 ;+0
347	.start_y dw 113 ;+4	347	.start_y dw 113 ;+4
348	.start_x dw 10 ;+6	348	.start_x dw 10 ;+6
349	.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1	349	.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1
350	.area_size_x dw 170 ;+10	350	.area_size_x dw 170 ;+10
351	.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable	351	.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable
352	.background_flag dd 0 ;+16	352	.background_flag dd 0 ;+16
353	.font_color dd 0x0 ;+20	353	.font_color dd 0x0 ;+20
354	.background_color dd 0x0 ;+24	354	.background_color dd 0x0 ;+24
355	.text_pointer dd fname_buf ;+28	355	.text_pointer dd fname_buf ;+28
356	.work_area_pointer dd text_work_area ;+32	356	.work_area_pointer dd text_work_area ;+32
357	.temp_text_length dd 0 ;+36	357	.temp_text_length dd 0 ;+36
358	;---------------------------------------------------------------------	358	;---------------------------------------------------------------------
359	if lang eq ru	359	if lang eq ru
360	save db '®åà ¨âì',0	360	save db '®åà ¨âì',0
361	select db ' ë¡à âì',0	361	select db ' ë¡à âì',0
362	label1 db 'ë¡¥à¨â¥ ªã¤ á®åà ¨âì á®¤¥à¦¨¬®¥ RAM-¤¨áª :',0	362	label1 db 'ë¡¥à¨â¥ ªã¤ á®åà ¨âì á®¤¥à¦¨¬®¥ RAM-¤¨áª :',0
363	label2 db '«¨ ¢ë¡¥à¨â¥ ¯®«ë© ¯ãâì ª ä ©«ã:',0	363	label2 db '«¨ ¢ë¡¥à¨â¥ ¯®«ë© ¯ãâì ª ä ©«ã:',0
364	label3 db 'á¥ ¯ ¯ª¨ ¤®«¦ë áãé¥áâ¢®¢ âì',0	364	label3 db 'á¥ ¯ ¯ª¨ ¤®«¦ë áãé¥áâ¢®¢ âì',0
365	ok db 'RAM-¤¨áª á®åà ¥ ãá¯¥è®',0	365	ok db 'RAM-¤¨áª á®åà ¥ ãá¯¥è®',0
366	error3 db '¥¨§¢¥áâ ï ä ©«®¢ ï á¨áâ¥¬ ',0	366	error3 db '¥¨§¢¥áâ ï ä ©«®¢ ï á¨áâ¥¬ ',0
367	error5 db '¥áãé¥áâ¢ãîé¨© ¯ãâì',0	367	error5 db '¥áãé¥áâ¢ãîé¨© ¯ãâì',0
368	error8 db '¥â ¬¥áâ ¤¨áª¥',0	368	error8 db '¥â ¬¥áâ ¤¨áª¥',0
369	error9 db ' ¡«¨æ FAT à §àãè¥ ',0	369	error9 db ' ¡«¨æ FAT à §àãè¥ ',0
370	error10 db '®áâã¯ § ¯à¥é¥',0	370	error10 db '®áâã¯ § ¯à¥é¥',0
371	error11 db 'è¨¡ª ãáâà®©áâ¢ ',0	371	error11 db 'è¨¡ª ãáâà®©áâ¢ ',0
372	aUnknownError db '¥¨§¢¥áâ ï ®è¨¡ª ',0	372	aUnknownError db '¥¨§¢¥áâ ï ®è¨¡ª ',0
373	;---------------------------------------------------------------------	373	;---------------------------------------------------------------------
374	else if lang eq et	374	else if lang eq et
375	save db 'Salvesta',0	375	save db 'Salvesta',0
376	select db ' Valige',0	376	select db ' Valige',0
377	label1 db 'Vali üks variantidest:',0	377	label1 db 'Vali üks variantidest:',0
378	label2 db 'Või valige teekond failinimeni:',0	378	label2 db 'Või valige teekond failinimeni:',0
379	label3 db 'Kõik kataloogid peavad eksisteerima',0	379	label3 db 'Kõik kataloogid peavad eksisteerima',0
380	ok db 'RAM-ketas salvestatud edukalt',0	380	ok db 'RAM-ketas salvestatud edukalt',0
381	error3 db 'Tundmatu failisüsteem',0	381	error3 db 'Tundmatu failisüsteem',0
382	error5 db 'Vigane teekond',0	382	error5 db 'Vigane teekond',0
383	error8 db 'Ketas täis',0	383	error8 db 'Ketas täis',0
384	error9 db 'FAT tabel vigane',0	384	error9 db 'FAT tabel vigane',0
385	error10 db 'Juurdepääs keelatud',0	385	error10 db 'Juurdepääs keelatud',0
386	error11 db 'Seadme viga',0	386	error11 db 'Seadme viga',0
387	aUnknownError db 'Tundmatu viga',0	387	aUnknownError db 'Tundmatu viga',0
388	;---------------------------------------------------------------------	388	;---------------------------------------------------------------------
-		389	else if lang eq it
-		390	save db 'Salva',0
-		391	select db 'Seleziona',0
-		392	label1 db 'Seleziona cosa salvare:',0
-		393	label2 db ' oppure seleziona il file:',0
-		394	label3 db 'Tutte le cartelle devono esistere',0
-		395	ok db 'Il RAM-drivet e stato salvato',0
-		396	error3 db 'Filesystem sconosciuto',0
-		397	error5 db 'Percorso non valido',0
-		398	error8 db 'Disco pieno',0
-		399	error9 db 'Tabella FAT corrotta',0
-		400	error10 db 'Accesso negato',0
-		401	error11 db 'Errore di device',0
-		402	aUnknownError db 'Errore sconosciuto',0
-		403	;---------------------------------------------------------------------
389	else	404	else
390	save db ' Save',0	405	save db ' Save',0
391	select db ' Select',0	406	select db ' Select',0
392	label1 db 'Select one of the variants:',0	407	label1 db 'Select one of the variants:',0
393	label2 db ' Or select full path to file:',0	408	label2 db ' Or select full path to file:',0
394	label3 db ' All folders must exist',0	409	label3 db ' All folders must exist',0
395	ok db 'RAM-drive was saved successfully',0	410	ok db 'RAM-drive was saved successfully',0
396	error3 db 'Unknown file system',0	411	error3 db 'Unknown file system',0
397	error5 db 'Incorrect path',0	412	error5 db 'Incorrect path',0
398	error8 db 'Disk is full',0	413	error8 db 'Disk is full',0
399	error9 db 'FAT table corrupted',0	414	error9 db 'FAT table corrupted',0
400	error10 db 'Access denied',0	415	error10 db 'Access denied',0
401	error11 db 'Device error',0	416	error11 db 'Device error',0
402	aUnknownError db 'Unknown error',0	417	aUnknownError db 'Unknown error',0
403		418
404	end if	419	end if
405	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>	420	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
406	;DATA ¤ ë¥	421	;DATA ¤ ë¥
407	;á¥£¤ á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì®áâì ¢ ¨¬¥¨.	422	;á¥£¤ á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì®áâì ¢ ¨¬¥¨.
408	system_dir_Boxlib db '/sys/lib/box_lib.obj',0	423	system_dir_Boxlib db '/sys/lib/box_lib.obj',0
409	system_dir_ProcLib db '/sys/lib/proc_lib.obj',0	424	system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
410	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	425	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
411		426
412	head_f_i:	427	head_f_i:
413	head_f_l db 'System error',0	428	head_f_l db 'System error',0
414		429
415	err_message_found_lib1 db 'box_lib.obj - Not found!',0	430	err_message_found_lib1 db 'box_lib.obj - Not found!',0
416	err_message_found_lib2 db 'proc_lib.obj - Not found!',0	431	err_message_found_lib2 db 'proc_lib.obj - Not found!',0
417		432
418	err_message_import1 db 'box_lib.obj - Wrong import!',0	433	err_message_import1 db 'box_lib.obj - Wrong import!',0
419	err_message_import2 db 'proc_lib.obj - Wrong import!',0	434	err_message_import2 db 'proc_lib.obj - Wrong import!',0
420		435
421	;---------------------------------------------------------------------	436	;---------------------------------------------------------------------
422	l_libs_start:	437	l_libs_start:
423		438
424	library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \	439	library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
425	err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i	440	err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
426		441
427	library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \	442	library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
428	err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i	443	err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
429		444
430	end_l_libs:	445	end_l_libs:
431	;---------------------------------------------------------------------	446	;---------------------------------------------------------------------
432	OpenDialog_data:	447	OpenDialog_data:
433	.type dd 1 ; Save	448	.type dd 1 ; Save
434	.procinfo dd procinfo ;+4	449	.procinfo dd procinfo ;+4
435	.com_area_name dd communication_area_name ;+8	450	.com_area_name dd communication_area_name ;+8
436	.com_area dd 0 ;+12	451	.com_area dd 0 ;+12
437	.opendir_pach dd temp_dir_pach ;+16	452	.opendir_pach dd temp_dir_pach ;+16
438	.dir_default_pach dd communication_area_default_pach ;+20	453	.dir_default_pach dd communication_area_default_pach ;+20
439	.start_path dd open_dialog_path ;+24	454	.start_path dd open_dialog_path ;+24
440	.draw_window dd draw_window ;+28	455	.draw_window dd draw_window ;+28
441	.status dd 0 ;+32	456	.status dd 0 ;+32
442	.openfile_pach dd fname_buf ;+36	457	.openfile_pach dd fname_buf ;+36
443	.filename_area dd filename_area ;+40	458	.filename_area dd filename_area ;+40
444	.filter_area dd Filter	459	.filter_area dd Filter
445	.x:	460	.x:
446	.x_size dw 420 ;+48 ; Window X size	461	.x_size dw 420 ;+48 ; Window X size
447	.x_start dw 10 ;+50 ; Window X position	462	.x_start dw 10 ;+50 ; Window X position
448	.y:	463	.y:
449	.y_size dw 320 ;+52 ; Window y size	464	.y_size dw 320 ;+52 ; Window y size
450	.y_start dw 10 ;+54 ; Window Y position	465	.y_start dw 10 ;+54 ; Window Y position
451		466
452	communication_area_name:	467	communication_area_name:
453	db 'FFFFFFFF_open_dialog',0	468	db 'FFFFFFFF_open_dialog',0
454	open_dialog_path:	469	open_dialog_path:
455	if __nightbuild eq yes	470	if __nightbuild eq yes
456	db '/sys/MANAGERS/opendial',0	471	db '/sys/MANAGERS/opendial',0
457	else	472	else
458	db '/sys/File Managers/opendial',0	473	db '/sys/File Managers/opendial',0
459	end if	474	end if
460	communication_area_default_pach:	475	communication_area_default_pach:
461	db '/hd0/1/kolibri',0	476	db '/hd0/1/kolibri',0
462		477
463	Filter:	478	Filter:
464	dd Filter.end - Filter	479	dd Filter.end - Filter
465	.1:	480	.1:
466	db 'IMG',0	481	db 'IMG',0
467	db 'IMA',0	482	db 'IMA',0
468	.end:	483	.end:
469	db 0	484	db 0
470		485
471	start_temp_file_name: db 'kolibri.img',0	486	start_temp_file_name: db 'kolibri.img',0
472		487
473	;---------------------------------------------------------------------	488	;---------------------------------------------------------------------
474	align 4	489	align 4
475	ProcLib_import:	490	ProcLib_import:
476	OpenDialog_Init dd aOpenDialog_Init	491	OpenDialog_Init dd aOpenDialog_Init
477	OpenDialog_Start dd aOpenDialog_Start	492	OpenDialog_Start dd aOpenDialog_Start
478	;OpenDialog__Version dd aOpenDialog_Version	493	;OpenDialog__Version dd aOpenDialog_Version
479	dd 0	494	dd 0
480	dd 0	495	dd 0
481	aOpenDialog_Init db 'OpenDialog_init',0	496	aOpenDialog_Init db 'OpenDialog_init',0
482	aOpenDialog_Start db 'OpenDialog_start',0	497	aOpenDialog_Start db 'OpenDialog_start',0
483	;aOpenDialog_Version db 'Version_OpenDialog',0	498	;aOpenDialog_Version db 'Version_OpenDialog',0
484	;---------------------------------------------------------------------	499	;---------------------------------------------------------------------
485	align 4	500	align 4

Subversion Repositories Kolibri OS

(root)/programs/system/rdsave/trunk/rdsave.asm – Rev 3328 → 3634