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

Subversion Repositories Kolibri OS

(root)/programs/system/rdsave/trunk/rdsave.asm @ 205 – Rev 7786 → 9035