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


;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
;   Save RAM-disk to hard or floppy drive
;---------------------------------------------------------------------
;   Mario79 2005
;   Heavyiron 12.02.2007
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨áâ¥¬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
;   Mario79   08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options
;   Heavyiron 01.12.2013 - new logic
;---------------------------------------------------------------------
appname equ 'RDsave '
version equ '1.43'
debug	equ no
 
use32	     ; ¢ª«îç¨âì 32-¡¨â­ë© à¥¦¨¬  áá¥¬¡«¥à 
org 0x0      ;  ¤à¥á æ¨ï á ­ã«ï
 
db 'MENUET01'	 ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
dd 0x01 	 ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
dd START	 ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
dd IM_END	 ; à §¬¥à ¯à®£à ¬¬ë
dd I_END	 ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨
dd stacktop	 ;  ¤à¥á ¢¥àè¨­ë áâ¥ª 
dd PARAMS	 ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥âà®¢
dd cur_dir_path
 
 
include 'lang.inc'
include '../../../macros.inc'
if debug eq yes
include '../../../debug.inc'
end if
include '../../../proc32.inc'
include '../../../dll.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'str.inc'
 
	@use_library
;---------------------------------------------------------------------
;---     ----------------------------------------------
;---------------------------------------------------------------------
align 4
START:
;---------------------------------------------------------------------
	mcall  48,3,sc,sizeof.system_colors
	mcall  68,11
 
load_libraries l_libs_start,end_l_libs
	inc	eax
	test	eax,eax
	jz	close
 
	stdcall dll.Init,[init_lib]
 
	invoke	ini_get_int,ini_file,asettings,aautoclose,0
	mov	[autoclose],eax
	invoke	ini_get_str,ini_file,apath,apath,fname_buf,4096,path
	stdcall _lstrcpy,ini_path,fname_buf
	stdcall _lstrcpy,filename_area,start_temp_file_name
 
	mov   eax,PARAMS
	cmp   byte[eax], 0
	je    no_params
	cmp   byte[eax], 'h'
	je    @f
	cmp   byte[eax], 'H'
	jne   .no_h
@@:
	mov   [hidden],1
	jmp   no_params
.no_h:
	mov   [param],1
	stdcall _lstrcpy,fname_buf,eax
	mov   ah,2
	jmp   noclose
 
;---------------------------------------------------------------------
no_params:
	stdcall _lstrcpy,check_dir,ini_path
	call	check_path
	test	eax,eax
	jz	path_ok
	cmp	eax,6
	je	path_ok
;---------------------------------------------------------------------
if debug eq yes
dps 'read_folder_error'
newline
end if
;---------------------------------------------------------------------
default_path:
	stdcall _lstrcpy,fname_buf,communication_area_default_path
	mov	[hidden],0
 
;OpenDialog     initialisation
	push	dword OpenDialog_data
	call	[OpenDialog_Init]
 
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	mcall	40,0x00000027
 
	call	draw_window
	mov	ah,3
	jmp	noclose
;---------------------------------------------------------------------
path_ok:
;OpenDialog     initialisation
	push	dword OpenDialog_data
	call	[OpenDialog_Init]
 
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	mcall	40,0x00000027
 
	cmp	[hidden],1
	jne	red
	mov	ah,2
	jmp	noclose
red:
	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:
	mcall	-1	    ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
 
;---------------------------------------------------------------------
key:
	mcall	2
	cmp	ah,0x1b
	je	close
	cmp	ah,0x0D
	jne	@f
	mov	ah,2
	jmp	noclose
@@:
	cmp	ah,9h
	jne	still
;---------------------------------------------------------------------
noclose:
	mov	ecx,fname_buf
	push  16
	mov   ebx,1
	cmp   byte[ecx+1],'f'
	je    @f
	cmp   byte[ecx+1],'F'
	jne   not_fdd
@@:
	cmp   byte[ecx+4],'1'
	jne   @f
	cmp   ah,2
	je    doit
@@:
	inc   ebx
	cmp   ah,2
	je    doit
not_fdd:
	push  18
	mov   ebx,6	; 18.6 = save to specified folder
	cmp   ah,2
	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_window
	mov	ah,2
	jmp	noclose
 
doit:
	cmp	[param],0
	jne	 @f
	call	save_ini
@@:
	cmp	byte[ecx+1],'r'
	je	@f
	cmp	byte[ecx+1],'R'
	jne	not_rd
@@:
	mov	edx,rdError
	call	print_err
	jmp	still
not_rd:
	cmp	 [hidden],0
	jne	 @f
	pusha
	stdcall  _lstrcpy,msg,label2
	mov	 eax,[sc.work_text]
	or	 eax,0xc0000088
	mov	 [color],eax
	call	print_msg
	popa
@@:
	pop	eax
	mcall
	call	check_for_error
	jmp	still
 
;---------------------------------------------------------------------
check_for_error:		      ;¡à ¡®âç¨ª ®è¨¡®ª
	test	eax,eax
	jz	print_ok
	cmp	ebx,6
	je	@f
	mov	edx,error11
	jmp	print_err
@@:
	cmp	eax, 11
	ja	.unknown
	mov	edx, [errors+eax*4]
	stdcall _lstrcpy,msg,error
	stdcall _lstrcat,msg,edx
	mov	edx,msg
	jmp	print_err
.unknown:
	mov	edx, aUnknownError
 
print_err:
	stdcall _lstrlen,ini_path
	pusha
	invoke	ini_set_str,ini_file,apath,apath,ini_path,eax
	popa
	stdcall _lstrcpy,msg,edx
	cmp	[hidden],1
	je	@f
	cmp	[param],1
	je	@f
	mov	 ecx,[sc.work_text]
	or	 ecx,0xc0880000
	mov	 [color],ecx
	call	print_msg
	ret
@@:
	stdcall _lstrcpy, ntf_msg, ntf_start
	stdcall _lstrcat, ntf_msg, edx
	stdcall _lstrcat, ntf_msg, ntf_end_e
	mov	dword [is_notify + 8], ntf_msg
	mcall	70, is_notify
	mov	[param],0
	mov	[hidden],0
	stdcall _lstrcpy,fname_buf,ini_path
	jmp	no_params
 
print_ok:
	cmp	 [hidden],1
	je	 @f
	cmp	 [param],1
	je	 @f
	stdcall  _lstrcpy,msg,ok
	mov	 ecx,[sc.work_text]
	or	 ecx,0xc0008800
	mov	 [color],ecx
	call	 print_msg
	mcall	 5,100
	cmp	 [autoclose],1
	je	 close
	ret
@@:
	stdcall  _lstrcpy,msg,ok
	stdcall  _lstrcat,msg,fname_buf
	stdcall _lstrcpy, ntf_msg, ntf_start
	stdcall _lstrcat, ntf_msg, msg
	stdcall _lstrcat, ntf_msg, ntf_end_o
	mov	 edx,ntf_msg
	mov	 dword [is_notify + 8], edx
	mcall	 70, is_notify
	mcall	 5,100
	jmp	 close
;---------------------------------------------------------------------
print_msg:
	mcall	13,<5,380>,<96,10>,[sc.work]
	stdcall _lstrlen,msg
	lea	eax,[eax+eax*2]
	add	eax,eax
	mov	ebx,390
	sub	ebx,eax
	shl	ebx,15
	add	ebx,96
	mcall	4, ,[color],msg, ,[sc.work]
	ret
;---------------------------------------------------------------------
draw_PathShow:
	pusha
	mcall	13,<15,280>,<32,16>,0xffffff
	push	dword PathShow_data_1
	call	[PathShow_draw]
	popa
	ret
;---------------------------------------------------------------------
save_ini:
	pusha
	stdcall _lstrlen,fname_buf
	invoke	ini_set_str,ini_file,apath,apath,fname_buf,eax
	invoke	ini_set_int,ini_file,asettings,aautoclose,[autoclose]
	popa
	ret
;---------------------------------------------------------------------
check_path:
stdcall _lstrlen,check_dir
	add	eax,check_dir
@@:
	dec	eax
	cmp	byte [eax],'/'
	jne	@b
	mov	byte [eax+1],0
 
	mcall	70,read_folder
	ret
;---------------------------------------------------------------------
;---  Draw window  ---------------------------------------------------
;---------------------------------------------------------------------
draw_window:
	mcall	12,1
 
	mov	edx,[sc.work]
	or	edx,0x34000000
	mcall	0,<200,400>,<200,130>, , ,title
 
;buttons
	mcall	8,<198,70>,<68,20>,1,[sc.work_button]
	inc	edx
	mcall	 ,<125,70>,
	inc	edx
	mcall	 ,<300,75>,<30,20>
 
;labels
	mov	ecx,[sc.work_button_text]
	or	ecx,0x80000000
	mcall	4,<134,75>, ,save
	mcall	 ,<215,75>, ,cancel
	mcall	 ,<315,36>, ,select
 
	mov	ecx,[sc.work]
	mov	dword [frame_data.font_backgr_color],ecx
	push	dword frame_data
	call	[Frame_draw]
 
	call	draw_PathShow
	call	print_msg
 
	mcall	12,2
	ret
 
;---------------------------------------------------------------------
;---  Data  ----------------------------------------------------------
;---------------------------------------------------------------------
if lang eq ru
save		db '®åà ­¨âì',0
cancel		db 'â¬¥­ ',0
select		db '§¬¥­¨âì',0
label1		db ' ¡à § ¡ã¤¥â á®åà ­¥­ ¢: ',0
label2		db '®åà ­¥­¨¥ ®¡à § ...',0
ok		db 'RAM-¤¨áª á®åà ­¥­ ãá¯¥è­® ',0
error1		db '­¥ ®¯à¥¤¥«¥­  ¡ §  ¨/¨«¨ à §¤¥« ¦ñáâª®£® ¤¨áª ',0
error2		db 'äã­ªæ¨ï ­¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ­­®© ä ©«®¢®© á¨áâ¥¬ë',0
error3		db '­¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨áâ¥¬ ',0
error4		db 'áâà ­­®... è¨¡ª  4',0
error5		db '­¥áãé¥áâ¢ãîé¨© ¯ãâì',0
error6		db 'ä ©« § ª®­ç¨«áï',0
error7		db 'ãª § â¥«ì ¢­¥ ¯ ¬ïâ¨ ¯à¨«®¦¥­¨ï',0
error8		db '¤¨áª § ¯®«­¥­',0
error9		db 'ä ©«®¢ ï áâàãªâãà  à §àãè¥­ ',0
error10 	db '¤®áâã¯ § ¯à¥éñ­',0
error11 	db 'è¨¡ª  ãáâà®©áâ¢ ',0
aUnknownError	db '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
rdError 	db '¥«ì§ï á®åà ­ïâì ®¡à § ¢ á ¬®£® á¥¡ï',0
error		db 'è¨¡ª : ',0
;---------------------------------------------------------------------
else if lang eq et
save		db 'Salvesta',0
cancel		db 'Cancel',0
select		db ' Valige',0
label1		db ' RAM-drive will be saved as: ',0
label2		db 'Saving in progress...',0
ok		db 'RAM-ketas salvestatud edukalt ',0
error1		db 'hard disk base and/or partition not defined',0
error2		db 'the file system does not support this function',0
error3		db 'tundmatu failisüsteem',0
error4		db 'strange... Error 4',0
error5		db 'vigane teekond',0
error6		db 'end of file',0
error7		db 'pointer is outside of application memory',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
rdError 	db "You can't save image on itself",0
error		db 'Viga: ',0
;---------------------------------------------------------------------
else if lang eq it
save		db '  Salva',0
cancel		db 'Cancel',0
select		db 'Seleziona',0
label1		db ' RAM-drive will be saved as: ',0
label2		db 'Saving in progress...',0
ok		db 'Il RAM-drivet e stato salvato ',0
error1		db 'hard disk base and/or partition not defined',0
error2		db 'the file system does not support this function',0
error3		db 'filesystem sconosciuto',0
error4		db 'strange... Error 4',0
error5		db 'percorso non valido',0
error6		db 'end of file',0
error7		db 'pointer is outside of application memory',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
rdError 	db "You can't save image on itself",0
error		db 'Errore: ',0
;---------------------------------------------------------------------
else
save		db '  Save',0
cancel		db 'Cancel',0
select		db ' Select',0
label1		db ' RAM-drive will be saved as: ',0
label2		db 'Saving in progress...',0
ok		db 'RAM-drive was saved successfully ',0
error1		db 'hard disk base and/or partition not defined',0
error2		db 'the file system does not support this function',0
error3		db 'unknown file system',0
error4		db 'strange... Error 4',0
error5		db 'incorrect path',0
error6		db 'end of file',0
error7		db 'pointer is outside of application memory',0
error8		db 'disk is full',0
error9		db 'file structure is destroyed',0
error10 	db 'access denied',0
error11 	db 'Device error',0
aUnknownError	db 'Unknown error',0
rdError 	db "You can't save image on itself",0
error		db 'Error: ',0
end if
;---------------------------------------------------------------------
ntf_start	db '"RDSave\n', 0
ntf_end_o	db '" -tO', 0
ntf_end_e	db '" -tE', 0
;---------------------------------------------------------------------
errors:
	dd	ok
	dd	error1
	dd	error2
	dd	error3
	dd	error4
	dd	error5
	dd	error6
	dd	error7
	dd	error8
	dd	error9
	dd	error10
	dd	error11
;---------------------------------------------------------------------
 
title	db appname,version,0
 
;Lib_DATA
;á¥£¤  á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
system_dir_libini	db '/sys/lib/libini.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_found_lib3	db 'libini.obj - Not found!',0
 
err_message_import1	db 'box_lib.obj - Wrong import!',0
err_message_import2	db 'proc_lib.obj - Wrong import!',0
err_message_import3	db 'libini.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
 
library03  l_libs system_dir_libini+9, cur_dir_path, library_path, system_dir_libini, \
err_message_found_lib3, head_f_l, libini_import, err_message_import3, 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_path		dd temp_dir_path	;+16
.dir_default_path	dd communication_area_default_path	;+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 200 ;+50 ; Window X position
.y:
.y_size 		dw 320 ;+52 ; Window y size
.y_start		dw 120 ;+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_path:
	db '/',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
	dd	0
	dd	0
aOpenDialog_Init	db 'OpenDialog_init',0
aOpenDialog_Start	db 'OpenDialog_start',0
;---------------------------------------------------------------------
PathShow_data_1:
.type			dd 0	;+0
.start_y		dw 36	;+4
.start_x		dw 20	;+6
.font_size_x		dw 6	;+8     ; 6 - for font 0, 8 - for font 1
.area_size_x		dw 270	;+10
.font_number		dd 0	;+12    ; 0 - monospace, 1 - variable
.background_flag	dd 0	;+16
.font_color		dd 0	;+20
.background_color	dd 0	;+24
.text_pointer		dd fname_buf	;+28
.work_area_pointer	dd text_work_area	;+32
.temp_text_length	dd 0	;+36
;---------------------------------------------------------------------
align 4
Box_lib_import:
;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
 
PathShow_prepare	dd sz_PathShow_prepare
PathShow_draw		dd sz_PathShow_draw
Frame_draw		dd sz_Frame_draw
			dd 0
			dd 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
 
sz_PathShow_prepare	db 'PathShow_prepare',0
sz_PathShow_draw	db 'PathShow_draw',0
 
sz_Frame_draw		db 'frame_draw',0
;szVersion_frame        db 'version_frame',0
;---------------------------------------------------------------------
frame_data:
.type			dd 0 ;+0
.x:
.x_size 		dw 374 ;+4
.x_start		dw 8 ;+6
.y:
.y_size 		dw 45 ;+8
.y_start		dw 17 ;+10
.ext_fr_col		dd 0x888888 ;+12
.int_fr_col		dd 0xffffff ;+16
.draw_text_flag 	dd 1 ;+20
.text_pointer		dd label1 ;+24
.text_position		dd 0 ;+28
.font_number		dd 0 ;+32
.font_size_y		dd 9 ;+36
.font_color		dd 0x0 ;+40
.font_backgr_color	dd 0xdddddd ;+44
;---------------------------------------------------------------------
align 4
libini_import:
init_lib     dd a_init
ini_get_str  dd aini_get_str
ini_get_int  dd aini_get_int
ini_set_str  dd aini_set_str
ini_set_int  dd aini_set_int
	     dd 0
	     dd 0
a_init	     db 'lib_init',0
aini_get_str db 'ini_get_str',0
aini_get_int db 'ini_get_int',0
aini_set_str db 'ini_set_str',0
aini_set_int db 'ini_set_int',0
;---------------------------------------------------------------------
 
apath db 'path',0
asettings db 'settings',0
aautoclose db 'autoclose',0
path	db '/hd2/1/kolibri.img',0
ini_file db  '/sys/settings/rdsave.ini',0
;ini_file db  '/sys/rdsave.ini',0
;---------------------------------------------------------------------
is_notify:
    dd	  7, 0, ok, 0, 0
    db	  "/rd/1/@notify", 0
 
read_folder:
.subfunction	dd 1
.start		dd 0
.flags		dd 0
.size		dd 1
.return 	dd folder_data
		db 0
.name:		dd check_dir
 
param dd 0
hidden dd 0
;---------------------------------------------------------------------
IM_END:
;---------------------------------------------------------------------
align 4
PARAMS:
       rb 256
ini_path:
	rb 4096
check_dir:
	rb 4096
 
sc     system_colors
 
autoclose rd 1
 
color	rd 1
 
msg:
	rb 1024
 
ntf_msg:
	rb 1024
 
folder_data:
	rb 304*32+32 ; 9 Kb
;---------------------------------------------------------------------
cur_dir_path:
	rb 4096
;---------------------------------------------------------------------
library_path:
	rb 4096
;---------------------------------------------------------------------
temp_dir_path:
	rb 4096
;---------------------------------------------------------------------
fname_buf:
	rb 4096
;---------------------------------------------------------------------
procinfo:
	rb 1024
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
text_work_area:
	rb 1024
;---------------------------------------------------------------------
align 32
	rb 4096
stacktop:
I_END:

Rev 4810	Rev 4811
1	; RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)	1	; RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
2	; Save RAM-disk to hard or floppy drive	2	; Save RAM-disk to hard or floppy drive
3	;---------------------------------------------------------------------	3	;---------------------------------------------------------------------
4	; Mario79 2005	4	; Mario79 2005
5	; Heavyiron 12.02.2007	5	; Heavyiron 12.02.2007
6	; 11.05.2009 - ¤«ï à ¡®âë ã¦ á¨áâ¥¬ ï ¡¨¡«¨®â¥ª box_lib.obj	6	; 11.05.2009 - ¤«ï à ¡®âë ã¦ á¨áâ¥¬ ï ¡¨¡«¨®â¥ª box_lib.obj
7	; Mario79 08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options	7	; Mario79 08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options
8	; Heavyiron 01.12.2013 - new logic	8	; Heavyiron 01.12.2013 - new logic
9	;---------------------------------------------------------------------	9	;---------------------------------------------------------------------
10	appname equ 'RDsave '	10	appname equ 'RDsave '
11	version equ '1.43'	11	version equ '1.43'
12	debug equ no	12	debug equ no
13		13
14	use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áá¥¬¡«¥à	14	use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áá¥¬¡«¥à
15	org 0x0 ; ¤à¥á æ¨ï á ã«ï	15	org 0x0 ; ¤à¥á æ¨ï á ã«ï
16		16
17	db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS	17	db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS
18	dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)	18	dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)
19	dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë	19	dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë
20	dd IM_END ; à §¬¥à ¯à®£à ¬¬ë	20	dd IM_END ; à §¬¥à ¯à®£à ¬¬ë
21	dd I_END ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨	21	dd I_END ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨
22	dd stacktop ; ¤à¥á ¢¥àè¨ë áâ¥ª	22	dd stacktop ; ¤à¥á ¢¥àè¨ë áâ¥ª
23	dd PARAMS ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥âà®¢	23	dd PARAMS ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥âà®¢
24	dd cur_dir_path	24	dd cur_dir_path
25		25
26		26
27	include 'lang.inc'	27	include 'lang.inc'
28	include '../../../macros.inc'	28	include '../../../macros.inc'
29	if debug eq yes	29	if debug eq yes
30	include '../../../debug.inc'	30	include '../../../debug.inc'
31	end if	31	end if
32	include '../../../proc32.inc'	32	include '../../../proc32.inc'
33	include '../../../dll.inc'	33	include '../../../dll.inc'
34	include '../../../develop/libraries/box_lib/load_lib.mac'	34	include '../../../develop/libraries/box_lib/load_lib.mac'
35	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'	35	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
36	include 'str.inc'	36	include 'str.inc'
37		37
38	@use_library	38	@use_library
39	;---------------------------------------------------------------------	39	;---------------------------------------------------------------------
40	;--- ----------------------------------------------	40	;--- ----------------------------------------------
41	;---------------------------------------------------------------------	41	;---------------------------------------------------------------------
42	align 4	42	align 4
43	START:	43	START:
44	;---------------------------------------------------------------------	44	;---------------------------------------------------------------------
45	mcall 48,3,sc,sizeof.system_colors	45	mcall 48,3,sc,sizeof.system_colors
46	mcall 68,11	46	mcall 68,11
47		47
48	load_libraries l_libs_start,end_l_libs	48	load_libraries l_libs_start,end_l_libs
49	inc eax	49	inc eax
50	test eax,eax	50	test eax,eax
51	jz close	51	jz close
52		52
53	stdcall dll.Init,[init_lib]	53	stdcall dll.Init,[init_lib]
54		54
55	invoke ini_get_int,ini_file,asettings,aautoclose,0	55	invoke ini_get_int,ini_file,asettings,aautoclose,0
56	mov [autoclose],eax	56	mov [autoclose],eax
57	invoke ini_get_str,ini_file,apath,apath,fname_buf,4096,path	57	invoke ini_get_str,ini_file,apath,apath,fname_buf,4096,path
58	stdcall _lstrcpy,ini_path,fname_buf	58	stdcall _lstrcpy,ini_path,fname_buf
59	stdcall _lstrcpy,filename_area,start_temp_file_name	59	stdcall _lstrcpy,filename_area,start_temp_file_name
60		60
61	mov eax,PARAMS	61	mov eax,PARAMS
62	cmp byte[eax], 0	62	cmp byte[eax], 0
63	je no_params	63	je no_params
64	cmp byte[eax], 'h'	64	cmp byte[eax], 'h'
65	je @f	65	je @f
66	cmp byte[eax], 'H'	66	cmp byte[eax], 'H'
67	jne .no_h	67	jne .no_h
68	@@:	68	@@:
69	mov [hidden],1	69	mov [hidden],1
70	jmp no_params	70	jmp no_params
71	.no_h:	71	.no_h:
72	mov [param],1	72	mov [param],1
73	stdcall _lstrcpy,fname_buf,eax	73	stdcall _lstrcpy,fname_buf,eax
74	mov ah,2	74	mov ah,2
75	jmp noclose	75	jmp noclose
76		76
77	;---------------------------------------------------------------------	77	;---------------------------------------------------------------------
78	no_params:	78	no_params:
79	stdcall _lstrcpy,check_dir,ini_path	79	stdcall _lstrcpy,check_dir,ini_path
80	call check_path	80	call check_path
81	test eax,eax	81	test eax,eax
82	jz path_ok	82	jz path_ok
83	cmp eax,6	83	cmp eax,6
84	je path_ok	84	je path_ok
85	;---------------------------------------------------------------------	85	;---------------------------------------------------------------------
86	if debug eq yes	86	if debug eq yes
87	dps 'read_folder_error'	87	dps 'read_folder_error'
88	newline	88	newline
89	end if	89	end if
90	;---------------------------------------------------------------------	90	;---------------------------------------------------------------------
91	default_path:	91	default_path:
92	stdcall _lstrcpy,fname_buf,communication_area_default_path	92	stdcall _lstrcpy,fname_buf,communication_area_default_path
93	mov [hidden],0	93	mov [hidden],0
94		94
95	;OpenDialog initialisation	95	;OpenDialog initialisation
96	push dword OpenDialog_data	96	push dword OpenDialog_data
97	call [OpenDialog_Init]	97	call [OpenDialog_Init]
98		98
99	; prepare for PathShow	99	; prepare for PathShow
100	push dword PathShow_data_1	100	push dword PathShow_data_1
101	call [PathShow_prepare]	101	call [PathShow_prepare]
102		102
103	mcall 40,0x00000027	103	mcall 40,0x00000027
104		104
105	call draw_window	105	call draw_window
106	mov ah,3	106	mov ah,3
107	jmp noclose	107	jmp noclose
108	;---------------------------------------------------------------------	108	;---------------------------------------------------------------------
109	path_ok:	109	path_ok:
110	;OpenDialog initialisation	110	;OpenDialog initialisation
111	push dword OpenDialog_data	111	push dword OpenDialog_data
112	call [OpenDialog_Init]	112	call [OpenDialog_Init]
113		113
114	; prepare for PathShow	114	; prepare for PathShow
115	push dword PathShow_data_1	115	push dword PathShow_data_1
116	call [PathShow_prepare]	116	call [PathShow_prepare]
117		117
118	mcall 40,0x00000027	118	mcall 40,0x00000027
119		119
120	cmp [hidden],1	120	cmp [hidden],1
121	jne red	121	jne red
122	mov ah,2	122	mov ah,2
123	jmp noclose	123	jmp noclose
124	red:	124	red:
125	call draw_window	125	call draw_window
126	;---------------------------------------------------------------------	126	;---------------------------------------------------------------------
127	still:	127	still:
128	mcall 10	128	mcall 10
129		129
130	dec eax ; ¯¥à¥à¨á®¢ âì ®ª®?	130	dec eax ; ¯¥à¥à¨á®¢ âì ®ª®?
131	jz red ; ¥á«¨ ¤ - ¬¥âªã red	131	jz red ; ¥á«¨ ¤ - ¬¥âªã red
132	dec eax	132	dec eax
133	jz key	133	jz key
134	dec eax	134	dec eax
135	jz button	135	jz button
136	jmp still	136	jmp still
137	;---------------------------------------------------------------------	137	;---------------------------------------------------------------------
138	button:	138	button:
139	mcall 17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨	139	mcall 17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨
140	cmp ah,1 ; ª®¯ª á id=1("§ ªàëâì")?	140	cmp ah,1 ; ª®¯ª á id=1("§ ªàëâì")?
141	jne noclose	141	jne noclose
142	close:	142	close:
143	mcall -1 ; äãªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã	143	mcall -1 ; äãªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
144		144
145	;---------------------------------------------------------------------	145	;---------------------------------------------------------------------
146	key:	146	key:
147	mcall 2	147	mcall 2
148	cmp ah,0x1b	148	cmp ah,0x1b
149	je close	149	je close
150	cmp ah,0x0D	150	cmp ah,0x0D
151	jne @f	151	jne @f
152	mov ah,2	152	mov ah,2
153	jmp noclose	153	jmp noclose
154	@@:	154	@@:
155	cmp ah,9h	155	cmp ah,9h
156	jne still	156	jne still
157	;---------------------------------------------------------------------	157	;---------------------------------------------------------------------
158	noclose:	158	noclose:
159	mov ecx,fname_buf	159	mov ecx,fname_buf
160	push 16	160	push 16
161	mov ebx,1	161	mov ebx,1
162	cmp byte[ecx+1],'f'	162	cmp byte[ecx+1],'f'
163	je @f	163	je @f
164	cmp byte[ecx+1],'F'	164	cmp byte[ecx+1],'F'
165	jne not_fdd	165	jne not_fdd
166	@@:	166	@@:
167	cmp byte[ecx+4],'1'	167	cmp byte[ecx+4],'1'
168	jne @f	168	jne @f
169	cmp ah,2	169	cmp ah,2
170	je doit	170	je doit
171	@@:	171	@@:
172	inc ebx	172	inc ebx
173	cmp ah,2	173	cmp ah,2
174	je doit	174	je doit
175	not_fdd:	175	not_fdd:
176	push 18	176	push 18
177	mov ebx,6 ; 18.6 = save to specified folder	177	mov ebx,6 ; 18.6 = save to specified folder
178	cmp ah,2	178	cmp ah,2
179	je doit	179	je doit
180		180
181	; invoke OpenDialog	181	; invoke OpenDialog
182	push dword OpenDialog_data	182	push dword OpenDialog_data
183	call [OpenDialog_Start]	183	call [OpenDialog_Start]
184	cmp [OpenDialog_data.status],1	184	cmp [OpenDialog_data.status],1
185	jne still	185	jne still
186		186
187	; prepare for PathShow	187	; prepare for PathShow
188	push dword PathShow_data_1	188	push dword PathShow_data_1
189	call [PathShow_prepare]	189	call [PathShow_prepare]
190	call draw_window	190	call draw_window
191	mov ah,2	191	mov ah,2
192	jmp noclose	192	jmp noclose
193		193
194	doit:	194	doit:
195	cmp [param],0	195	cmp [param],0
196	jne @f	196	jne @f
197	call save_ini	197	call save_ini
198	@@:	198	@@:
199	cmp byte[ecx+1],'r'	199	cmp byte[ecx+1],'r'
200	je @f	200	je @f
201	cmp byte[ecx+1],'R'	201	cmp byte[ecx+1],'R'
202	jne not_rd	202	jne not_rd
203	@@:	203	@@:
204	mov edx,rdError	204	mov edx,rdError
205	call print_err	205	call print_err
206	jmp still	206	jmp still
207	not_rd:	207	not_rd:
208	cmp [hidden],0	208	cmp [hidden],0
209	jne @f	209	jne @f
210	pusha	210	pusha
211	stdcall _lstrcpy,msg,label2	211	stdcall _lstrcpy,msg,label2
212	mov eax,[sc.work_text]	212	mov eax,[sc.work_text]
213	or eax,0xc0000088	213	or eax,0xc0000088
214	mov [color],eax	214	mov [color],eax
215	call print_msg	215	call print_msg
216	popa	216	popa
217	@@:	217	@@:
218	pop eax	218	pop eax
219	mcall	219	mcall
220	call check_for_error	220	call check_for_error
221	jmp still	221	jmp still
222		222
223	;---------------------------------------------------------------------	223	;---------------------------------------------------------------------
224	check_for_error: ;¡à ¡®âç¨ª ®è¨¡®ª	224	check_for_error: ;¡à ¡®âç¨ª ®è¨¡®ª
225	test eax,eax	225	test eax,eax
226	jz print_ok	226	jz print_ok
227	cmp ebx,6	227	cmp ebx,6
228	je @f	228	je @f
229	mov edx,error11	229	mov edx,error11
230	jmp print_err	230	jmp print_err
231	@@:	231	@@:
232	cmp eax, 11	232	cmp eax, 11
233	ja .unknown	233	ja .unknown
234	mov edx, [errors+eax*4]	234	mov edx, [errors+eax*4]
235	stdcall _lstrcpy,msg,error	235	stdcall _lstrcpy,msg,error
236	stdcall _lstrcat,msg,edx	236	stdcall _lstrcat,msg,edx
237	mov edx,msg	237	mov edx,msg
238	jmp print_err	238	jmp print_err
239	.unknown:	239	.unknown:
240	mov edx, aUnknownError	240	mov edx, aUnknownError
241		241
242	print_err:	242	print_err:
243	stdcall _lstrlen,ini_path	243	stdcall _lstrlen,ini_path
244	pusha	244	pusha
245	invoke ini_set_str,ini_file,apath,apath,ini_path,eax	245	invoke ini_set_str,ini_file,apath,apath,ini_path,eax
246	popa	246	popa
247	stdcall _lstrcpy,msg,edx	247	stdcall _lstrcpy,msg,edx
248	cmp [hidden],1	248	cmp [hidden],1
249	je @f	249	je @f
250	cmp [param],1	250	cmp [param],1
251	je @f	251	je @f
252	mov ecx,[sc.work_text]	252	mov ecx,[sc.work_text]
253	or ecx,0xc0880000	253	or ecx,0xc0880000
254	mov [color],ecx	254	mov [color],ecx
255	call print_msg	255	call print_msg
256	ret	256	ret
257	@@:	257	@@:
258	stdcall _lstrcpy, ntf_msg, ntf_start	258	stdcall _lstrcpy, ntf_msg, ntf_start
259	stdcall _lstrcat, ntf_msg, edx	259	stdcall _lstrcat, ntf_msg, edx
260	stdcall _lstrcat, ntf_msg, ntf_end_e	260	stdcall _lstrcat, ntf_msg, ntf_end_e
261	mov dword [is_notify + 8], ntf_msg	261	mov dword [is_notify + 8], ntf_msg
262	mcall 70, is_notify	262	mcall 70, is_notify
263	mov [param],0	263	mov [param],0
264	mov [hidden],0	264	mov [hidden],0
265	stdcall _lstrcpy,fname_buf,ini_path	265	stdcall _lstrcpy,fname_buf,ini_path
266	jmp no_params	266	jmp no_params
267		267
268	print_ok:	268	print_ok:
269	cmp [hidden],1	269	cmp [hidden],1
270	je @f	270	je @f
271	cmp [param],1	271	cmp [param],1
272	je @f	272	je @f
273	stdcall _lstrcpy,msg,ok	273	stdcall _lstrcpy,msg,ok
274	mov ecx,[sc.work_text]	274	mov ecx,[sc.work_text]
275	or ecx,0xc0008800	275	or ecx,0xc0008800
276	mov [color],ecx	276	mov [color],ecx
277	call print_msg	277	call print_msg
278	mcall 5,100	278	mcall 5,100
279	cmp [autoclose],1	279	cmp [autoclose],1
280	je close	280	je close
281	ret	281	ret
282	@@:	282	@@:
283	stdcall _lstrcpy,msg,ok	283	stdcall _lstrcpy,msg,ok
284	stdcall _lstrcat,msg,fname_buf	284	stdcall _lstrcat,msg,fname_buf
285	stdcall _lstrcpy, ntf_msg, ntf_start	285	stdcall _lstrcpy, ntf_msg, ntf_start
286	stdcall _lstrcat, ntf_msg, msg	286	stdcall _lstrcat, ntf_msg, msg
287	stdcall _lstrcat, ntf_msg, ntf_end_o	287	stdcall _lstrcat, ntf_msg, ntf_end_o
288	mov edx,ntf_smsg	288	mov edx,ntf_msg
289	mov dword [is_notify + 8], edx	289	mov dword [is_notify + 8], edx
290	mcall 70, is_notify	290	mcall 70, is_notify
291	mcall 5,100	291	mcall 5,100
292	jmp close	292	jmp close
293	;---------------------------------------------------------------------	293	;---------------------------------------------------------------------
294	print_msg:	294	print_msg:
295	mcall 13,<5,380>,<96,10>,[sc.work]	295	mcall 13,<5,380>,<96,10>,[sc.work]
296	stdcall _lstrlen,msg	296	stdcall _lstrlen,msg
297	lea eax,[eax+eax*2]	297	lea eax,[eax+eax*2]
298	add eax,eax	298	add eax,eax
299	mov ebx,390	299	mov ebx,390
300	sub ebx,eax	300	sub ebx,eax
301	shl ebx,15	301	shl ebx,15
302	add ebx,96	302	add ebx,96
303	mcall 4, ,[color],msg, ,[sc.work]	303	mcall 4, ,[color],msg, ,[sc.work]
304	ret	304	ret
305	;---------------------------------------------------------------------	305	;---------------------------------------------------------------------
306	draw_PathShow:	306	draw_PathShow:
307	pusha	307	pusha
308	mcall 13,<15,280>,<32,16>,0xffffff	308	mcall 13,<15,280>,<32,16>,0xffffff
309	push dword PathShow_data_1	309	push dword PathShow_data_1
310	call [PathShow_draw]	310	call [PathShow_draw]
311	popa	311	popa
312	ret	312	ret
313	;---------------------------------------------------------------------	313	;---------------------------------------------------------------------
314	save_ini:	314	save_ini:
315	pusha	315	pusha
316	stdcall _lstrlen,fname_buf	316	stdcall _lstrlen,fname_buf
317	invoke ini_set_str,ini_file,apath,apath,fname_buf,eax	317	invoke ini_set_str,ini_file,apath,apath,fname_buf,eax
318	invoke ini_set_int,ini_file,asettings,aautoclose,[autoclose]	318	invoke ini_set_int,ini_file,asettings,aautoclose,[autoclose]
319	popa	319	popa
320	ret	320	ret
321	;---------------------------------------------------------------------	321	;---------------------------------------------------------------------
322	check_path:	322	check_path:
323	stdcall _lstrlen,check_dir	323	stdcall _lstrlen,check_dir
324	add eax,check_dir	324	add eax,check_dir
325	@@:	325	@@:
326	dec eax	326	dec eax
327	cmp byte [eax],'/'	327	cmp byte [eax],'/'
328	jne @b	328	jne @b
329	mov byte [eax+1],0	329	mov byte [eax+1],0
330		330
331	mcall 70,read_folder	331	mcall 70,read_folder
332	ret	332	ret
333	;---------------------------------------------------------------------	333	;---------------------------------------------------------------------
334	;--- Draw window ---------------------------------------------------	334	;--- Draw window ---------------------------------------------------
335	;---------------------------------------------------------------------	335	;---------------------------------------------------------------------
336	draw_window:	336	draw_window:
337	mcall 12,1	337	mcall 12,1
338		338
339	mov edx,[sc.work]	339	mov edx,[sc.work]
340	or edx,0x34000000	340	or edx,0x34000000
341	mcall 0,<200,400>,<200,130>, , ,title	341	mcall 0,<200,400>,<200,130>, , ,title
342		342
343	;buttons	343	;buttons
344	mcall 8,<198,70>,<68,20>,1,[sc.work_button]	344	mcall 8,<198,70>,<68,20>,1,[sc.work_button]
345	inc edx	345	inc edx
346	mcall ,<125,70>,	346	mcall ,<125,70>,
347	inc edx	347	inc edx
348	mcall ,<300,75>,<30,20>	348	mcall ,<300,75>,<30,20>
349		349
350	;labels	350	;labels
351	mov ecx,[sc.work_button_text]	351	mov ecx,[sc.work_button_text]
352	or ecx,0x80000000	352	or ecx,0x80000000
353	mcall 4,<134,75>, ,save	353	mcall 4,<134,75>, ,save
354	mcall ,<215,75>, ,cancel	354	mcall ,<215,75>, ,cancel
355	mcall ,<315,36>, ,select	355	mcall ,<315,36>, ,select
356		356
357	mov ecx,[sc.work]	357	mov ecx,[sc.work]
358	mov dword [frame_data.font_backgr_color],ecx	358	mov dword [frame_data.font_backgr_color],ecx
359	push dword frame_data	359	push dword frame_data
360	call [Frame_draw]	360	call [Frame_draw]
361		361
362	call draw_PathShow	362	call draw_PathShow
363	call print_msg	363	call print_msg
364		364
365	mcall 12,2	365	mcall 12,2
366	ret	366	ret
367		367
368	;---------------------------------------------------------------------	368	;---------------------------------------------------------------------
369	;--- Data ----------------------------------------------------------	369	;--- Data ----------------------------------------------------------
370	;---------------------------------------------------------------------	370	;---------------------------------------------------------------------
371	if lang eq ru	371	if lang eq ru
372	save db '®åà ¨âì',0	372	save db '®åà ¨âì',0
373	cancel db 'â¬¥ ',0	373	cancel db 'â¬¥ ',0
374	select db '§¬¥¨âì',0	374	select db '§¬¥¨âì',0
375	label1 db ' ¡à § ¡ã¤¥â á®åà ¥ ¢: ',0	375	label1 db ' ¡à § ¡ã¤¥â á®åà ¥ ¢: ',0
376	label2 db '®åà ¥¨¥ ®¡à § ...',0	376	label2 db '®åà ¥¨¥ ®¡à § ...',0
377	ok db 'RAM-¤¨áª á®åà ¥ ãá¯¥è® ',0	377	ok db 'RAM-¤¨áª á®åà ¥ ãá¯¥è® ',0
378	error1 db '¥ ®¯à¥¤¥«¥ ¡ § ¨/¨«¨ à §¤¥« ¦ñáâª®£® ¤¨áª ',0	378	error1 db '¥ ®¯à¥¤¥«¥ ¡ § ¨/¨«¨ à §¤¥« ¦ñáâª®£® ¤¨áª ',0
379	error2 db 'äãªæ¨ï ¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ®© ä ©«®¢®© á¨áâ¥¬ë',0	379	error2 db 'äãªæ¨ï ¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ®© ä ©«®¢®© á¨áâ¥¬ë',0
380	error3 db '¥¨§¢¥áâ ï ä ©«®¢ ï á¨áâ¥¬ ',0	380	error3 db '¥¨§¢¥áâ ï ä ©«®¢ ï á¨áâ¥¬ ',0
381	error4 db 'áâà ®... è¨¡ª 4',0	381	error4 db 'áâà ®... è¨¡ª 4',0
382	error5 db '¥áãé¥áâ¢ãîé¨© ¯ãâì',0	382	error5 db '¥áãé¥áâ¢ãîé¨© ¯ãâì',0
383	error6 db 'ä ©« § ª®ç¨«áï',0	383	error6 db 'ä ©« § ª®ç¨«áï',0
384	error7 db 'ãª § â¥«ì ¢¥ ¯ ¬ïâ¨ ¯à¨«®¦¥¨ï',0	384	error7 db 'ãª § â¥«ì ¢¥ ¯ ¬ïâ¨ ¯à¨«®¦¥¨ï',0
385	error8 db '¤¨áª § ¯®«¥',0	385	error8 db '¤¨áª § ¯®«¥',0
386	error9 db 'ä ©«®¢ ï áâàãªâãà à §àãè¥ ',0	386	error9 db 'ä ©«®¢ ï áâàãªâãà à §àãè¥ ',0
387	error10 db '¤®áâã¯ § ¯à¥éñ',0	387	error10 db '¤®áâã¯ § ¯à¥éñ',0
388	error11 db 'è¨¡ª ãáâà®©áâ¢ ',0	388	error11 db 'è¨¡ª ãáâà®©áâ¢ ',0
389	aUnknownError db '¥¨§¢¥áâ ï ®è¨¡ª ',0	389	aUnknownError db '¥¨§¢¥áâ ï ®è¨¡ª ',0
390	rdError db '¥«ì§ï á®åà ïâì ®¡à § ¢ á ¬®£® á¥¡ï',0	390	rdError db '¥«ì§ï á®åà ïâì ®¡à § ¢ á ¬®£® á¥¡ï',0
391	error db 'è¨¡ª : ',0	391	error db 'è¨¡ª : ',0
392	;---------------------------------------------------------------------	392	;---------------------------------------------------------------------
393	else if lang eq et	393	else if lang eq et
394	save db 'Salvesta',0	394	save db 'Salvesta',0
395	cancel db 'Cancel',0	395	cancel db 'Cancel',0
396	select db ' Valige',0	396	select db ' Valige',0
397	label1 db ' RAM-drive will be saved as: ',0	397	label1 db ' RAM-drive will be saved as: ',0
398	label2 db 'Saving in progress...',0	398	label2 db 'Saving in progress...',0
399	ok db 'RAM-ketas salvestatud edukalt ',0	399	ok db 'RAM-ketas salvestatud edukalt ',0
400	error1 db 'hard disk base and/or partition not defined',0	400	error1 db 'hard disk base and/or partition not defined',0
401	error2 db 'the file system does not support this function',0	401	error2 db 'the file system does not support this function',0
402	error3 db 'tundmatu failisüsteem',0	402	error3 db 'tundmatu failisüsteem',0
403	error4 db 'strange... Error 4',0	403	error4 db 'strange... Error 4',0
404	error5 db 'vigane teekond',0	404	error5 db 'vigane teekond',0
405	error6 db 'end of file',0	405	error6 db 'end of file',0
406	error7 db 'pointer is outside of application memory',0	406	error7 db 'pointer is outside of application memory',0
407	error8 db 'ketas täis',0	407	error8 db 'ketas täis',0
408	error9 db 'FAT tabel vigane',0	408	error9 db 'FAT tabel vigane',0
409	error10 db 'juurdepääs keelatud',0	409	error10 db 'juurdepääs keelatud',0
410	error11 db 'Seadme viga',0	410	error11 db 'Seadme viga',0
411	aUnknownError db 'Tundmatu viga',0	411	aUnknownError db 'Tundmatu viga',0
412	rdError db "You can't save image on itself",0	412	rdError db "You can't save image on itself",0
413	error db 'Viga: ',0	413	error db 'Viga: ',0
414	;---------------------------------------------------------------------	414	;---------------------------------------------------------------------
415	else if lang eq it	415	else if lang eq it
416	save db ' Salva',0	416	save db ' Salva',0
417	cancel db 'Cancel',0	417	cancel db 'Cancel',0
418	select db 'Seleziona',0	418	select db 'Seleziona',0
419	label1 db ' RAM-drive will be saved as: ',0	419	label1 db ' RAM-drive will be saved as: ',0
420	label2 db 'Saving in progress...',0	420	label2 db 'Saving in progress...',0
421	ok db 'Il RAM-drivet e stato salvato ',0	421	ok db 'Il RAM-drivet e stato salvato ',0
422	error1 db 'hard disk base and/or partition not defined',0	422	error1 db 'hard disk base and/or partition not defined',0
423	error2 db 'the file system does not support this function',0	423	error2 db 'the file system does not support this function',0
424	error3 db 'filesystem sconosciuto',0	424	error3 db 'filesystem sconosciuto',0
425	error4 db 'strange... Error 4',0	425	error4 db 'strange... Error 4',0
426	error5 db 'percorso non valido',0	426	error5 db 'percorso non valido',0
427	error6 db 'end of file',0	427	error6 db 'end of file',0
428	error7 db 'pointer is outside of application memory',0	428	error7 db 'pointer is outside of application memory',0
429	error8 db 'disco pieno',0	429	error8 db 'disco pieno',0
430	error9 db 'tabella FAT corrotta',0	430	error9 db 'tabella FAT corrotta',0
431	error10 db 'accesso negato',0	431	error10 db 'accesso negato',0
432	error11 db 'Errore di device',0	432	error11 db 'Errore di device',0
433	aUnknownError db 'Errore sconosciuto',0	433	aUnknownError db 'Errore sconosciuto',0
434	rdError db "You can't save image on itself",0	434	rdError db "You can't save image on itself",0
435	error db 'Errore: ',0	435	error db 'Errore: ',0
436	;---------------------------------------------------------------------	436	;---------------------------------------------------------------------
437	else	437	else
438	save db ' Save',0	438	save db ' Save',0
439	cancel db 'Cancel',0	439	cancel db 'Cancel',0
440	select db ' Select',0	440	select db ' Select',0
441	label1 db ' RAM-drive will be saved as: ',0	441	label1 db ' RAM-drive will be saved as: ',0
442	label2 db 'Saving in progress...',0	442	label2 db 'Saving in progress...',0
443	ok db 'RAM-drive was saved successfully ',0	443	ok db 'RAM-drive was saved successfully ',0
444	error1 db 'hard disk base and/or partition not defined',0	444	error1 db 'hard disk base and/or partition not defined',0
445	error2 db 'the file system does not support this function',0	445	error2 db 'the file system does not support this function',0
446	error3 db 'unknown file system',0	446	error3 db 'unknown file system',0
447	error4 db 'strange... Error 4',0	447	error4 db 'strange... Error 4',0
448	error5 db 'incorrect path',0	448	error5 db 'incorrect path',0
449	error6 db 'end of file',0	449	error6 db 'end of file',0
450	error7 db 'pointer is outside of application memory',0	450	error7 db 'pointer is outside of application memory',0
451	error8 db 'disk is full',0	451	error8 db 'disk is full',0
452	error9 db 'file structure is destroyed',0	452	error9 db 'file structure is destroyed',0
453	error10 db 'access denied',0	453	error10 db 'access denied',0
454	error11 db 'Device error',0	454	error11 db 'Device error',0
455	aUnknownError db 'Unknown error',0	455	aUnknownError db 'Unknown error',0
456	rdError db "You can't save image on itself",0	456	rdError db "You can't save image on itself",0
457	error db 'Error: ',0	457	error db 'Error: ',0
458	end if	458	end if
459	;---------------------------------------------------------------------	459	;---------------------------------------------------------------------
460	ntf_start db '"RDSave\n', 0	460	ntf_start db '"RDSave\n', 0
461	ntf_end_o db '" -tO', 0	461	ntf_end_o db '" -tO', 0
462	ntf_end_e db '" -tE', 0	462	ntf_end_e db '" -tE', 0
463	;---------------------------------------------------------------------	463	;---------------------------------------------------------------------
464	errors:	464	errors:
465	dd ok	465	dd ok
466	dd error1	466	dd error1
467	dd error2	467	dd error2
468	dd error3	468	dd error3
469	dd error4	469	dd error4
470	dd error5	470	dd error5
471	dd error6	471	dd error6
472	dd error7	472	dd error7
473	dd error8	473	dd error8
474	dd error9	474	dd error9
475	dd error10	475	dd error10
476	dd error11	476	dd error11
477	;---------------------------------------------------------------------	477	;---------------------------------------------------------------------
478		478
479	title db appname,version,0	479	title db appname,version,0
480		480
481	;Lib_DATA	481	;Lib_DATA
482	;á¥£¤ á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì®áâì ¢ ¨¬¥¨.	482	;á¥£¤ á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì®áâì ¢ ¨¬¥¨.
483	system_dir_Boxlib db '/sys/lib/box_lib.obj',0	483	system_dir_Boxlib db '/sys/lib/box_lib.obj',0
484	system_dir_ProcLib db '/sys/lib/proc_lib.obj',0	484	system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
485	system_dir_libini db '/sys/lib/libini.obj',0	485	system_dir_libini db '/sys/lib/libini.obj',0
486	;---------------------------------------------------------------------	486	;---------------------------------------------------------------------
487	head_f_i:	487	head_f_i:
488	head_f_l db 'System error',0	488	head_f_l db 'System error',0
489		489
490	err_message_found_lib1 db 'box_lib.obj - Not found!',0	490	err_message_found_lib1 db 'box_lib.obj - Not found!',0
491	err_message_found_lib2 db 'proc_lib.obj - Not found!',0	491	err_message_found_lib2 db 'proc_lib.obj - Not found!',0
492	err_message_found_lib3 db 'libini.obj - Not found!',0	492	err_message_found_lib3 db 'libini.obj - Not found!',0
493		493
494	err_message_import1 db 'box_lib.obj - Wrong import!',0	494	err_message_import1 db 'box_lib.obj - Wrong import!',0
495	err_message_import2 db 'proc_lib.obj - Wrong import!',0	495	err_message_import2 db 'proc_lib.obj - Wrong import!',0
496	err_message_import3 db 'libini.obj - Wrong import!',0	496	err_message_import3 db 'libini.obj - Wrong import!',0
497	;---------------------------------------------------------------------	497	;---------------------------------------------------------------------
498	l_libs_start:	498	l_libs_start:
499		499
500	library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \	500	library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \

Subversion Repositories Kolibri OS

(root)/programs/system/rdsave/trunk/rdsave.asm – Rev 4810 → 4811