Subversion Repositories Kolibri OS

;   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.44'

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 '../../../KOSfuncs.inc'

include '../../../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,ini_section,aautoclose,0

	mov	[autoclose],eax

	invoke	ini_get_str,ini_file,ini_section,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