Subversion Repositories Kolibri OS

Rev

Rev 3634 | Rev 4270 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3634 Rev 4213
Line 1... Line -...
1 
;
 - 
 
2 
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
 1 
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
3 
;   Save RAM disk to a hard or floppy drive
 2 
;   Save RAM-disk to hard or floppy drive
4 
;
 - 
 
5 
; version:	1.3
 - 
 
6 
; last update:  08/09/2010
 - 
 
7 
; written by:   Marat Zakiyanov aka Mario79, aka Mario
 - 
 
8 
; changes:      select path with OpenDialog,
 - 
 
9 
;               keys 1,2,3,4 for select options
 - 
 
10 
;---------------------------------------------------------------------
 3 
;---------------------------------------------------------------------
11 
;   Mario79 2005
 4 
;   Mario79 2005
12 
;   Heavyiron 12.02.2007
 5 
;   Heavyiron 12.02.2007
13 
;        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
14 
;   Š®¬¯¨«¨à®¢ âì FASM'®¬
 8 
;   Heavyiron 01.12.2013 - new logic
15 
;
 - 
 
16 
;---------------------------------------------------------------------
 9 
;---------------------------------------------------------------------
17 
include 'lang.inc'
 - 
 
18 
include '../../../config.inc'		;for nightbuild
 - 
 
19 
include '..\..\..\macros.inc'
 - 
 
20 
 
 - 
 
21 
appname equ 'RDsave '
 10 
appname equ 'RDsave '
22 
version equ '1.3'
 11 
version equ '1.4'
- 
 
 12 
debug   equ no
Line 23... Line 13...
23 
 
 13 
 
24 
use32 	     ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
 14 
use32        ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
Line 25... Line 15...
25 
org	 0x0	     ;  ¤à¥á æ¨ï á ­ã«ï
 15 
org 0x0      ;  ¤à¥á æ¨ï á ­ã«ï
26 
 
 16 
 
27 
	db 'MENUET01'  ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
 17 
db 'MENUET01'    ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
28 
	dd 0x01	     ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
 18 
dd 0x01          ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
29 
	dd START	     ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
 19 
dd START         ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
30 
	dd IM_END	     ; à §¬¥à ¯à®£à ¬¬ë
 20 
dd IM_END        ; à §¬¥à ¯à®£à ¬¬ë
31 
	dd I_END	     ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
 21 
dd I_END         ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
32 
	dd stacktop     ;  ¤à¥á ¢¥à設ë áâíª 
 22 
dd stacktop      ;  ¤à¥á ¢¥à設ë á⥪ 
Line -... Line 23...
- 
 
 23 
dd PARAMS        ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢
- 
 
 24 
dd cur_dir_path
- 
 
 25 
 
- 
 
 26 
 
33 
	dd 0x0	     ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
 27 
include 'lang.inc'
- 
 
 28 
include '../../../macros.inc'
- 
 
 29 
if debug eq yes
- 
 
 30 
include '../../../debug.inc'
34 
	dd cur_dir_path
 31 
end if
35 
 
 32 
include '../../../proc32.inc'
36 
;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
 33 
include '../../../dll.inc'
37 
include '../../../develop/libraries/box_lib/load_lib.mac'
 - 
 
38 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 - 
 
39 
	@use_library
 - 
 
40 
 
 - 
 
Line -... Line 34...
- 
 
 34 
include '../../../develop/libraries/box_lib/load_lib.mac'
41 
;use_edit_box
 35 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
42 
;al equ eax      ; \ decrease kpack'ed size
 36 
include 'str.inc'
43 
;purge mov       ; /
 37 
 
44 
 
 38 
        @use_library
45 
;---------------------------------------------------------------------
 39 
;---------------------------------------------------------------------
- 
 
 40 
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
- 
 
 41 
;---------------------------------------------------------------------
46 
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
 42 
align 4
Line 47... Line 43...
47 
;---------------------------------------------------------------------
 43 
START:
48 
align 4
 - 
 
- 
 
 44 
;---------------------------------------------------------------------
49 
START:
 45 
        mcall  48,3,sc,sizeof.system_colors
50 
	mcall	68,11
 46 
        mcall  68,11
Line 51... Line -...
51 
 
 - 
 
52 
load_libraries l_libs_start,end_l_libs
 47 
 
53 
 
 - 
 
54 
	cmp	eax,-1
 - 
 
55 
	jz	close
 - 
 
56 
 
 - 
 
57 
	mov	edi,filename_area
 - 
 
58 
	mov	esi,start_temp_file_name
 - 
 
59 
	xor	eax,eax
 - 
 
Line -... Line 48...
- 
 
 48 
load_libraries l_libs_start,end_l_libs
- 
 
 49 
        inc     eax
Line 60... Line 50...
60 
	cld
 50 
        test    eax,eax
- 
 
 51 
        jz      close
61 
@@:
 52 
 
- 
 
 53 
stdcall dll.Init,[init_lib]
62 
	lodsb
 54 
 
- 
 
 55 
invoke  ini_get_int,ini_file,asettings,aautoclose,0
63 
	stosb
 56 
        mov   [autoclose],eax
64 
	test	eax,eax
 57 
 
- 
 
 58 
        mov   ecx,PARAMS
- 
 
 59 
        cmp   byte[ecx], 0
65 
	jnz	@b
 60 
        je    no_params
- 
 
 61 
        cmp   byte[ecx], 'h'
- 
 
 62 
        je    @f
- 
 
 63 
        cmp   byte[ecx], 'H'
- 
 
 64 
        jne   .no_h
66 
 
 65 
@@:
- 
 
 66 
        mov   [hidden],1
- 
 
 67 
        jmp   no_params
- 
 
 68 
.no_h:
- 
 
 69 
        mov   [param],1
- 
 
 70 
        mov   ah,2
- 
 
 71 
        jmp   noclose
- 
 
 72 
 
- 
 
 73 
no_params:
67 
 
 74 
 
- 
 
 75 
invoke  ini_get_str,ini_file,apath,apath,fname_buf,4096,path
- 
 
 76 
 
- 
 
 77 
stdcall _lstrcpy,filename_area,start_temp_file_name
- 
 
 78 
 
- 
 
 79 
;---------------------------------------------------------------------
- 
 
 80 
stdcall _lstrcpy,check_dir,fname_buf
- 
 
 81 
        call    check_path
68 
	mov	edi,fname_buf
 82 
        test    eax,eax
- 
 
 83 
        jz      path_ok
- 
 
 84 
        cmp     eax,6
- 
 
 85 
        je      path_ok
- 
 
 86 
;---------------------------------------------------------------------
- 
 
 87 
if debug eq yes
Line 69... Line 88...
69 
	mov	esi,path4
 88 
dps 'read_folder_error'
70 
	xor	eax,eax
 89 
newline
71 
	cld
 90 
end if
Line 72... Line 91...
72 
@@:
 91 
;---------------------------------------------------------------------
73 
	lodsb
 92 
 
74 
	stosb
 93 
stdcall _lstrcpy,fname_buf,communication_area_default_path
- 
 
 94 
 
- 
 
 95 
        mov     [hidden],0
- 
 
 96 
 
- 
 
 97 
;OpenDialog     initialisation
- 
 
 98 
        push    dword OpenDialog_data
- 
 
 99 
        call    [OpenDialog_Init]
- 
 
 100 
 
- 
 
 101 
; prepare for PathShow
- 
 
 102 
        push    dword PathShow_data_1
Line 75... Line 103...
75 
	test	eax,eax
 103 
        call    [PathShow_prepare]
76 
	jnz	@b
 104 
        call    draw_window
77 
 
 105 
        mov     ah,3
Line 78... Line 106...
78 
;OpenDialog	initialisation
 106 
        mov     ecx,fname_buf
- 
 
 107 
        jmp     noclose
- 
 
 108 
;---------------------------------------------------------------------
- 
 
 109 
path_ok:
- 
 
 110 
;OpenDialog     initialisation
79 
	push    dword OpenDialog_data
 111 
        push    dword OpenDialog_data
- 
 
 112 
        call    [OpenDialog_Init]
- 
 
 113 
 
80 
	call    [OpenDialog_Init]
 114 
; prepare for PathShow
81 
 
 115 
        push    dword PathShow_data_1
82 
; prepare for PathShow
 116 
        call    [PathShow_prepare]
83 
	push	dword PathShow_data_1
 117 
 
Line 84... Line 118...
84 
	call	[PathShow_prepare]
 118 
        mcall   40,0x00000027
85 
 
 119 
 
86 
	mcall	40,100111b
 120 
        cmp     [hidden],1
87 
red:			; ¯¥à¥à¨á®¢ âì ®ª­®
 121 
        jne     red
88 
	mcall	48,3,sc,sizeof.system_colors
 122 
        mov     ah,2
89 
 
 123 
        mov     ecx,fname_buf
90 
	call	draw_window	; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
 - 
 
91 
;---------------------------------------------------------------------
 124 
        jmp     noclose
92 
;---  –ˆŠ‹ Ž€Ž’Šˆ ‘Ž›’ˆ‰  ----------------------------------------
 125 
red:
93 
;---------------------------------------------------------------------
 126 
        call    draw_window
94 
still:
 127 
;---------------------------------------------------------------------
- 
 
 128 
still:
- 
 
 129 
        mcall 10
- 
 
 130 
 
95 
	mcall 10
 131 
        dec     eax      ; ¯¥à¥à¨á®¢ âì ®ª­®?
96 
 
 132 
        jz      red      ; ¥á«¨ ¤  - ­  ¬¥âªã red
97 
	dec	eax	 ; ¯¥à¥à¨á®¢ âì ®ª­®?
 133 
        dec     eax
98 
	jz	red	 ; ¥á«¨ ¤  - ­  ¬¥âªã red
 134 
        jz      key
99 
	dec	eax
 135 
        dec     eax
- 
 
 136 
        jz      button
- 
 
 137 
        jmp     still
- 
 
 138 
;---------------------------------------------------------------------
- 
 
 139 
button:
- 
 
 140 
        mcall   17      ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
- 
 
 141 
        dec     ah
- 
 
 142 
        jz      close
- 
 
 143 
        mov     ecx,fname_buf
- 
 
 144 
        cmp     ah,1             ; ª­®¯ª  á id=1("§ ªàëâì")?
- 
 
 145 
        jne     noclose
100 
	jz	key
 146 
close:
- 
 
 147 
        or       eax,-1          ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
- 
 
 148 
        mcall
- 
 
 149 
;---------------------------------------------------------------------
101 
	dec	eax
 150 
key:
102 
	jz	button
 - 
 
103 
 
 - 
 
104 
	jmp	still
 - 
 
105 
;---------------------------------------------------------------------
 151 
        mcall   2
106 
button:
 152 
        cmp     ah,0x1b
- 
 
 153 
        je      close
- 
 
 154 
        mov     ecx,fname_buf
- 
 
 155 
        cmp     ah,0x0D
- 
 
 156 
        jne     @f
- 
 
 157 
        mov     ah,2
107 
	mcall	17	; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
 158 
        jmp     noclose
- 
 
 159 
@@:
108 
	cmp	ah,1		 ; ª­®¯ª  á id=1("§ ªàëâì")?
 160 
        cmp     ah,9h
109 
	jne	noclose
 161 
        jne     still
- 
 
 162 
;---------------------------------------------------------------------
110 
close:
 163 
noclose:
111 
	or	 eax,-1 	 ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
 164 
        push  16
112 
	mcall
 165 
        mov   ebx,1
113 
 
 166 
        cmp   byte[ecx+1],'f'
114 
noclose:
 167 
        je    @f
115 
	push	eax
 168 
        cmp   byte[ecx+1],'F'
116 
	call	clear_err
 - 
 
117 
	pop	eax
 169 
        jne   not_fdd
118 
	push	16
 170 
@@:
Line 119... Line 171...
119 
	xor	ebx,ebx
 171 
        cmp   byte[ecx+4],'1'
120 
	inc	ebx	; 16.1 = save to /FD/1
 172 
        jne   @f
121 
	cmp	ah,2
 173 
        cmp   ah,2
Line 137... Line 189...
137 
	jne	still
 189 
        jne     still
Line 138... Line 190...
138 
 
 190 
 
139 
; prepare for PathShow
 191 
; prepare for PathShow
140 
	push	dword PathShow_data_1
 192 
        push    dword PathShow_data_1
- 
 
 193 
        call    [PathShow_prepare]
- 
 
 194 
        call    draw_window
- 
 
 195 
        mov     ecx,fname_buf
- 
 
 196 
        mov     ah,2
Line 141... Line -...
141 
	call	[PathShow_prepare]
 - 
 
142 
 
 - 
 
143 
	call	draw_PathShow
 - 
 
144 
 
 197 
        jmp     noclose
- 
 
 198 
 
145 
	mov	ecx,fname_buf ;path4
 199 
doit:
146 
doit:
 200 
        call    save_ini
147 
	pop	eax
 201 
        pop     eax
- 
 
 202 
        mcall
- 
 
 203 
        call    check_for_error
148 
	mcall
 204 
        cmp     [param],1
149 
	call	check_for_error
 - 
 
150 
	jmp	still
 205 
        je      @f
151 
;---------------------------------------------------------------------
 - 
 
152 
key:
 - 
 
153 
	mcall	2
 - 
 
154 
	cmp	ah,0x31
 206 
        jmp     still
155 
	jb	still
 - 
 
156 
	cmp	ah,0x34
 - 
 
157 
	ja	still
 207 
@@:
158 
	sub	ah,0x30
 - 
 
159 
	inc	ah
 208 
        jmp     no_params
160 
	jmp	noclose
 209 
 
161 
;---------------------------------------------------------------------
 210 
;---------------------------------------------------------------------
- 
 
 211 
check_for_error:                      ;Ž¡à ¡®â稪 ®è¨¡®ª
162 
check_for_error:		      ;Ž¡à ¡®â稪 ®è¨¡®ª
 212 
stdcall _lstrcpy,check_dir,ok
163 
	mov	ecx,[sc.work_text]
 213 
stdcall _lstrcat,check_dir,fname_buf
164 
	mov	edx,ok
 214 
        mov     edx,check_dir
165 
	test	eax,eax
 215 
        test    eax,eax
166 
	jz	print
 216 
        jz      print_ok
167 
	mov	ecx,0xdd2222
 217 
        cmp     ebx,6
168 
	add	edx,error3 - ok
 218 
        je      @f
169 
	dec	eax
 219 
        mov     edx,error11
170 
	dec	eax
 220 
        jmp     print_err
171 
	jz	print
 - 
 
172 
	add	edx,error5 - error3
 221 
@@:
173 
	dec	eax
 222 
        mov     edi, error_msg
174 
	dec	eax
 223 
        cmp     eax, 11
175 
	jz	print
 - 
 
176 
	add	edx,error8 - error5
 224 
        ja      .unknown
177 
	dec	eax
 225 
        mov     esi, [errors+eax*4]
178 
	dec	eax
 226 
@@:
179 
	dec	eax
 227 
        lodsb
180 
	jz	print
 - 
 
181 
	add	edx,error9 - error8
 228 
        stosb
182 
	dec	eax
 229 
        test    al, al
183 
	jz	print
 - 
 
184 
	add	edx,error10 - error9
 - 
 
185 
	dec	eax
 230 
        jnz     @b
186 
	jz	print
 - 
 
187 
	add	edx,error11 - error10
 231 
        mov     edx, error_msg
188 
	dec	eax
 232 
        jmp     print_err
189 
	jz	print
 233 
.unknown:
190 
	add	edx,aUnknownError - error11
 234 
        mov     edx, aUnknownError
191 
print:
 235 
print_err:
192 
	mov	eax,4				   ;­ ¤¯¨á¨
 - 
 
193 
	mov	ebx,20 shl 16 + 148
 - 
 
194 
	or	ecx,0x80000000
 236 
        mov   dword [is_notify + 8], edx
195 
	mcall
 - 
 
196 
	ret
 237 
        mcall 70, is_notify
- 
 
 238 
        ret
- 
 
 239 
print_ok:
197 
;---------------------------------------------------------------------
 240 
        mov   dword [is_notify + 8], edx
198 
clear_err:
 241 
        mcall 70, is_notify
- 
 
 242 
        cmp     [hidden],1
199 
	mov	eax,13
 243 
        je      close
200 
	mov	ebx,15 shl 16 + 240
 244 
        cmp   [autoclose],0
- 
 
 245 
        je   @f
201 
	mov	ecx,145 shl 16 +15
 246 
        mcall 5,50
202 
	mov	edx,[sc.work]
 247 
        jmp   close
203 
	mcall
 248 
@@:
204 
	ret
 249 
        ret
205 
;---------------------------------------------------------------------
 250 
;---------------------------------------------------------------------
206 
draw_PathShow:
 251 
draw_PathShow:
207 
	pusha
 - 
 
208 
	mcall	13,<8,172>,<110,15>,0xffffff
 252 
        pushad
209 
; draw for PathShow
 253 
        mcall   13,<15,280>,<32,16>,0xffffff
- 
 
 254 
        push    dword PathShow_data_1
- 
 
 255 
        call    [PathShow_draw]
- 
 
 256 
        popad
- 
 
 257 
        ret
- 
 
 258 
;---------------------------------------------------------------------
- 
 
 259 
save_ini:
- 
 
 260 
        pushad
- 
 
 261 
        stdcall _lstrlen,fname_buf
- 
 
 262 
        invoke  ini_set_str,ini_file,apath,apath,fname_buf,eax
- 
 
 263 
        invoke  ini_set_int,ini_file,asettings,aautoclose,[autoclose]
- 
 
 264 
        popad
- 
 
 265 
        ret
- 
 
 266 
;---------------------------------------------------------------------
- 
 
 267 
check_path:
- 
 
 268 
stdcall _lstrlen,check_dir
- 
 
 269 
        mov     edi,check_dir
- 
 
 270 
        add     edi,eax
- 
 
 271 
@@:
- 
 
 272 
        mov     byte [edi],0
- 
 
 273 
        dec     edi
- 
 
 274 
        cmp     byte [edi],'/'
- 
 
 275 
        jne     @b
- 
 
 276 
 
- 
 
 277 
if debug eq yes
- 
 
 278 
dps     'read_folder_name: '
- 
 
 279 
        mov     edx,check_dir
210 
	push	dword PathShow_data_1
 280 
        call    debug_outstr
- 
 
 281 
newline
211 
	call	[PathShow_draw]
 282 
end if
212 
	popa
 283 
        mcall   70,read_folder
213 
	ret
 284 
        ret
214 
;---------------------------------------------------------------------
 285 
;---------------------------------------------------------------------
215 
;---  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€  ----------------------------------
 286 
;---  Draw window  ---------------------------------------------------
216 
;---------------------------------------------------------------------
 - 
 
217 
draw_window:
 - 
 
218 
	mcall	12,1	; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
 - 
 
219 
			; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
 - 
 
220 
					 ; ‘Ž‡„€ðŒ ŽŠŽ
 - 
 
221 
	xor	eax,eax			 ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
 - 
 
222 
	mov	ebx,200 shl 16 + 300	 ; [x áâ àâ] *65536 + [x à §¬¥à]
 - 
 
223 
	mov	ecx,200 shl 16 + 190	 ; [y áâ àâ] *65536 + [y à §¬¥à]
 - 
 
224 
	mov	edx,[sc.work]		 ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
 - 
 
225 
	or	edx,0x34000000
 - 
 
226 
	mov	edi,title			; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
 - 
 
227 
	mcall
 - 
 
228 
 
 - 
 
229 
	call	draw_PathShow
 - 
 
230 
 
 - 
 
231 
;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
 - 
 
232 
	mcall	13,<194,60>,<34,15>,0x444444
 - 
 
233 
 
 - 
 
234 
	add	ecx,20 shl 16
 - 
 
235 
	mcall
 - 
 
236 
 
 - 
 
237 
	add	ecx,20 shl 16
 - 
 
238 
	mcall
 - 
 
239 
 
 - 
 
240 
	add	ecx,40 shl 16
 - 
 
241 
	mcall
 - 
 
242 
;®âà¨á®¢ª  ª­®¯®ª
 - 
 
243 
	sub	ebx,4 shl 16
 - 
 
244 
	sub	ecx,4 shl 16
 - 
 
245 
	mcall	8,,,5,[sc.work_button]
 - 
 
246 
 
 - 
 
247 
	sub	ecx,40 shl 16
 - 
 
248 
	dec	edx
 - 
 
249 
	mcall
 - 
 
250 
 
 - 
 
251 
	sub	ecx,20 shl 16
 - 
 
252 
	dec	edx
 - 
 
253 
	mcall
 - 
 
254 
 
 - 
 
255 
	sub	ecx,20 shl 16
 - 
 
256 
	dec	edx
 - 
 
257 
	mcall
 - 
 
258 
; ­ ¤¯¨á¨
 - 
 
259 
	mov	ecx,[sc.work_text]
 - 
 
260 
	or	ecx,0x80000000
 - 
 
261 
	mcall	4,<10,12>,,label1
 - 
 
262 
 
 - 
 
263 
	mov	ebx,150 shl 16 + 35
 - 
 
264 
	mov	edx,path1
 - 
 
265 
	mcall
 - 
 
266 
 
 - 
 
267 
	add	ebx,20
 - 
 
268 
	mov	edx,path2
 - 
 
269 
	mcall
 287 
;---------------------------------------------------------------------
270 
 
 - 
 
271 
	mov	ebx,75 shl 16 + 75
 - 
 
Line 272... Line 288...
272 
	mov	edx,path3
 288 
draw_window:
273 
	mcall
 289 
        mcall   12,1
274 
 
 290 
 
Line -... Line 291...
- 
 
 291 
        mov     edx,[sc.work]
- 
 
 292 
        or      edx,0x34000000
275 
	mov	ebx,30 shl 16 + 97
 293 
        mcall   0,<200,400>,<200,120>, , ,title
- 
 
 294 
 
276 
	mov	edx,label2
 295 
;buttons
277 
	mcall
 296 
        mcall   8,<198,70>,<68,20>,2,[sc.work_button]
Line -... Line 297...
- 
 
 297 
        inc     edx
278 
 
 298 
        mcall    ,<125,70>,
279 
	mov	ebx,40 shl 16 + 135
 299 
        inc     edx
280 
	mov	edx,label3
 300 
        mcall    ,<300,75>,<30,20>
281 
	mcall
 - 
 
282 
 
 - 
 
283 
	mov	ecx,[sc.work_button_text]
 - 
 
284 
	or	ecx,0x80000000
 - 
 
285 
	mov	ebx,195 shl 16 + 35
 301 
 
286 
	mov	edx,save
 302 
;labels
287 
	mcall
 - 
 
288 
 
 - 
 
289 
	push	edx
 - 
 
290 
	mov	edx,key_help
 - 
 
291 
	call	key_help_correct
 303 
        mov     ecx,[sc.work_button_text]
292 
	pop	edx
 - 
 
293 
 
 304 
        or      ecx,0x80000000
294 
	add ebx,20
 305 
        mcall   4,<134,75>, ,save
295 
	mcall
 - 
 
296 
 
 - 
 
297 
	push	edx
 - 
 
298 
	mov	edx,key_help+2
 - 
 
299 
	call	key_help_correct
 - 
 
300 
	pop	edx
 - 
 
301 
 
 306 
        mcall    ,<215,75>, ,cansel
302 
	add ebx,20
 307 
        mcall    ,<315,36>, ,select
303 
	mcall
 - 
 
Line 304... Line -...
304 
 
 - 
 
305 
	push	edx
 - 
 
306 
	mov	edx,key_help+4
 - 
 
307 
	call	key_help_correct
 - 
 
308 
	pop	edx
 - 
 
309 
 
 308
Line 310... Line -...
310 
	mov	edx,select
 - 
 
311 
	add ebx,40
 - 
 
312 
	mcall
 - 
 
313 
 
 - 
 
314 
	mov	edx,key_help+6
 - 
 
315 
	call	key_help_correct
 - 
 
316 
 
 - 
 
317 
	mcall	12,2	; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
 - 
 
318 
			; 2, § ª®­ç¨«¨ à¨á®¢ âì
 - 
 
319 
	ret		; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
 - 
 
320 
;---------------------------------------------------------------------
 - 
 
321 
key_help_correct:
 309 
        mov     ecx,[sc.work]
322 
	push	ebx
 - 
 
323 
	ror	ebx,16
 - 
 
324 
	mov	bx,270
 - 
 
325 
	rol	ebx,16
 - 
 
326 
	pusha
 - 
 
327 
	mov	ecx,ebx
 - 
 
328 
	sub	ebx,3 shl 16
 - 
 
329 
	mov	bx,13
 - 
 
330 
	sub	cx,3
 310 
        mov     dword [frame_data.font_backgr_color],ecx
331 
	shl	ecx,16
 - 
 
332 
	mov	cx,13
 - 
 
333 
	mcall	13,,,[sc.work_graph]
 - 
 
334 
	popa
 - 
 
335 
	mcall
 - 
 
Line 336... Line 311...
336 
	pop	ebx
 311 
        push    dword frame_data
337 
	ret
 - 
 
338 
;---------------------------------------------------------------------
 - 
 
339 
;---  „€›… Žƒ€ŒŒ›  ----------------------------------------------
 - 
 
340 
;---------------------------------------------------------------------
 - 
 
341 
 
 312 
        call    [Frame_draw]
342 
title	db appname,version,0
 - 
 
343 
 
 - 
 
344 
;---------------------------------------------------------------------
 - 
 
345 
PathShow_data_1:
 - 
 
346 
.type			dd 0	;+0
 - 
 
347 
.start_y		dw 113	;+4
 - 
 
348 
.start_x		dw 10	;+6
 - 
 
349 
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
 - 
 
350 
.area_size_x		dw 170	;+10
 313 
 
351 
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
 314 
        call    draw_PathShow
352 
.background_flag	dd 0	;+16
 315 
 
- 
 
 316 
        mcall   12,2
353 
.font_color		dd 0x0	;+20
 317 
        ret
354 
.background_color	dd 0x0	;+24
 318 
 
355 
.text_pointer		dd fname_buf	;+28
 319 
;---------------------------------------------------------------------
356 
.work_area_pointer	dd text_work_area	;+32
 320 
;---  Data  ----------------------------------------------------------
357 
.temp_text_length	dd 0	;+36
 321 
;---------------------------------------------------------------------
358 
;---------------------------------------------------------------------
 322 
if lang eq ru
- 
 
 323 
save            db '‘®åà ­¨âì',0
359 
if lang eq ru
 324 
cansel          db 'Žâ¬¥­ ',0
- 
 
 325 
select          db 'ˆ§¬¥­¨âì',0
- 
 
 326 
label1          db ' Ž¡à § ¡ã¤¥â á®åà ­¥­ ¢: ',0
360 
save		db '‘®åà ­¨âì',0
 327 
ok              db 'RAM-¤¨áª á®åà ­¥­ ãᯥ譮 ¢ ',0
361 
select		db ' ‚ë¡à âì',0
 328 
error1          db '¥ ®¯à¥¤¥«¥­  ¡ §  ¨/¨«¨ à §¤¥« ¦ñá⪮£® ¤¨áª ',0
362 
label1		db '‚ë¡¥à¨â¥ ªã¤  á®åà ­¨âì ᮤ¥à¦¨¬®¥ RAM-¤¨áª :',0
 329 
error2          db '”ã­ªæ¨ï ­¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ­­®© ä ©«®¢®© á¨á⥬ë',0
363 
label2		db 'ˆ«¨ ¢ë¡¥à¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã:',0
 330 
error3          db '¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨á⥬ ',0
364 
label3		db '‚ᥠ¯ ¯ª¨ ¤®«¦­ë áãé¥á⢮¢ âì',0
 331 
error4          db '‘âà ­­®... Žè¨¡ª  4',0
365 
ok		db 'RAM-¤¨áª á®åà ­¥­ ãᯥ譮',0
 332 
error5          db '¥áãé¥áâ¢ãî騩 ¯ãâì',0
366 
error3		db '¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨á⥬ ',0
 333 
error6          db '” ©« § ª®­ç¨«áï',0
367 
error5		db '¥áãé¥áâ¢ãî騩 ¯ãâì',0
 334 
error7          db '“ª § â¥«ì ¢­¥ ¯ ¬ï⨠¯à¨«®¦¥­¨ï',0
- 
 
 335 
error8          db '„¨áª § ¯®«­¥­',0
368 
error8		db '¥â ¬¥áâ  ­  ¤¨áª¥',0
 336 
error9          db '” ©«®¢ ï áâàãªâãà  à §àã襭 ',0
369 
error9		db '’ ¡«¨æ  FAT à §àã襭 ',0
 337 
error10         db '„®áâ㯠§ ¯à¥éñ­',0
370 
error10 	db '„®áâ㯠§ ¯à¥é¥­',0
 - 
 
371 
error11 	db 'Žè¨¡ª  ãáâனá⢠',0
 - 
 
372 
aUnknownError 	db '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
 338 
error11         db 'Žè¨¡ª  ãáâனá⢠',0
- 
 
 339 
aUnknownError   db  '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
- 
 
 340 
;---------------------------------------------------------------------
373 
;---------------------------------------------------------------------
 341 
else if lang eq et
- 
 
 342 
save            db 'Salvesta',0
374 
else if lang eq et
 343 
cansel          db 'Cansel',0
- 
 
 344 
select          db ' Valige',0
- 
 
 345 
label1          db ' RAM-drive will be saved as: ',0
375 
save		db 'Salvesta',0
 346 
ok              db 'RAM-ketas salvestatud edukalt ',0
376 
select		db ' Valige',0
 347 
error1          db 'Hard disk base and/or partition not defined',0
377 
label1		db 'Vali üks variantidest:',0
 348 
error2          db 'The file system does not support this function',0
378 
label2		db 'Või valige teekond failinimeni:',0
 349 
error3          db 'Tundmatu failisüsteem',0
379 
label3		db 'Kõik kataloogid peavad eksisteerima',0
 350 
error4          db 'Strange... Error 4',0
380 
ok		db 'RAM-ketas salvestatud edukalt',0
 351 
error5          db 'Vigane teekond',0
381 
error3		db 'Tundmatu failisüsteem',0
 352 
error6          db 'End of file',0
382 
error5		db 'Vigane teekond',0
 353 
error7          db 'Pointer is outside of application memory',0
- 
 
 354 
error8          db 'Ketas täis',0
383 
error8		db 'Ketas täis',0
 355 
error9          db 'FAT tabel vigane',0
384 
error9		db 'FAT tabel vigane',0
 - 
 
385 
error10 	db 'Juurdepääs keelatud',0
 356 
error10         db 'Juurdepääs keelatud',0
386 
error11 	db 'Seadme viga',0
 - 
 
387 
aUnknownError 	db 'Tundmatu viga',0
 357 
error11         db 'Seadme viga',0
- 
 
 358 
aUnknownError   db 'Tundmatu viga',0
- 
 
 359 
;---------------------------------------------------------------------
388 
;---------------------------------------------------------------------
 360 
else if lang eq it
- 
 
 361 
save            db '  Salva',0
389 
else if lang eq it
 362 
cansel          db 'Cansel',0
- 
 
 363 
select          db 'Seleziona',0
- 
 
 364 
label1          db ' RAM-drive will be saved as: ',0
390 
save		db 'Salva',0
 365 
ok              db 'Il RAM-drivet e stato salvato ',0
391 
select		db 'Seleziona',0
 366 
error1          db 'Hard disk base and/or partition not defined',0
392 
label1		db 'Seleziona cosa salvare:',0
 367 
error2          db 'The file system does not support this function',0
393 
label2		db ' oppure seleziona il file:',0
 368 
error3          db 'Filesystem sconosciuto',0
394 
label3		db 'Tutte le cartelle devono esistere',0
 369 
error4          db 'Strange... Error 4',0
395 
ok		db 'Il RAM-drivet e stato salvato',0
 370 
error5          db 'Percorso non valido',0
396 
error3		db 'Filesystem sconosciuto',0
 371 
error6          db 'End of file',0
397 
error5		db 'Percorso non valido',0
 372 
error7          db 'Pointer is outside of application memory',0
- 
 
 373 
error8          db 'Disco pieno',0
398 
error8		db 'Disco pieno',0
 374 
error9          db 'Tabella FAT corrotta',0
399 
error9		db 'Tabella FAT corrotta',0
 375 
error10         db 'Accesso negato',0
400 
error10 	db 'Accesso negato',0
 376 
error11         db 'Errore di device',0
401 
error11 	db 'Errore di device',0
 377 
aUnknownError   db 'Errore sconosciuto',0
402 
aUnknownError 	db 'Errore sconosciuto',0
 378 
;---------------------------------------------------------------------
403 
;---------------------------------------------------------------------
 379 
else
- 
 
 380 
save            db '  Save',0
404 
else
 381 
cansel          db 'Cansel',0
- 
 
 382 
select          db ' Select',0
- 
 
 383 
label1          db ' RAM-drive will be saved as: ',0
405 
save		db '  Save',0
 384 
ok              db 'RAM-drive was saved successfully in ',0
406 
select		db ' Select',0
 385 
error1          db 'Hard disk base and/or partition not defined',0
407 
label1		db 'Select one of the variants:',0
 386 
error2          db 'The file system does not support this function',0
408 
label2		db '  Or select full path to file:',0
 387 
error3          db 'Unknown file system',0
409 
label3		db '    All folders must exist',0
 388 
error4          db 'Strange... Error 4',0
Line 410... Line 389...
410 
ok		db 'RAM-drive was saved successfully',0
 389 
error5          db 'Incorrect path',0
- 
 
 390 
error6          db 'End of file',0
411 
error3		db 'Unknown file system',0
 391 
error7          db 'Pointer is outside of application memory',0
- 
 
 392 
error8          db 'Disk is full',0
- 
 
 393 
error9          db 'File structure is destroyed',0
412 
error5		db 'Incorrect path',0
 394 
error10         db 'Access denied',0
- 
 
 395 
error11         db 'Device error',0
- 
 
 396 
aUnknownError   db 'Unknown error',0
- 
 
 397 
 
- 
 
 398 
end if
- 
 
 399 
 
- 
 
 400 
title   db appname,version,0
- 
 
 401 
;---------------------------------------------------------------------
- 
 
 402 
errors:
- 
 
 403 
        dd      ok
- 
 
 404 
        dd      error1
- 
 
 405 
        dd      error2
- 
 
 406 
        dd      error3
- 
 
 407 
        dd      error4
413 
error8		db 'Disk is full',0
 408 
        dd      error5
414 
error9		db 'FAT table corrupted',0
 409 
        dd      error6
415 
error10 	db 'Access denied',0
 410 
        dd      error7
416 
error11 	db 'Device error',0
 411 
        dd      error8
417 
aUnknownError 	db 'Unknown error',0
 - 
 
- 
 
 412 
        dd      error9
418 
 
 413 
        dd      error10
419 
end if
 414 
        dd      error11
Line 420... Line 415...
420 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 415 
;---------------------------------------------------------------------
421 
;DATA ¤ ­­ë¥
 416 
;Lib_DATA
- 
 
 417 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
Line 422... Line 418...
422 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
 418 
system_dir_Boxlib       db '/sys/lib/box_lib.obj',0
423 
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
 419 
system_dir_ProcLib      db '/sys/lib/proc_lib.obj',0
424 
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
 - 
 
- 
 
 420 
system_dir_libini       db '/sys/lib/libini.obj',0
425 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 421 
;---------------------------------------------------------------------
426 
 
 422 
head_f_i:
Line 427... Line 423...
427 
head_f_i:
 423 
head_f_l        db 'System error',0
428 
head_f_l	db 'System error',0
 424 
 
Line 429... Line 425...
429 
 
 425 
err_message_found_lib1  db 'box_lib.obj - Not found!',0
430 
err_message_found_lib1	db 'box_lib.obj - Not found!',0
 426 
err_message_found_lib2  db 'proc_lib.obj - Not found!',0
Line -... Line 427...
- 
 
 427 
err_message_found_lib3  db 'libini.obj - Not found!',0
- 
 
 428 
 
- 
 
 429 
err_message_import1     db 'box_lib.obj - Wrong import!',0
431 
err_message_found_lib2	db 'proc_lib.obj - Not found!',0
 430 
err_message_import2     db 'proc_lib.obj - Wrong import!',0
432 
 
 431 
err_message_import3     db 'libini.obj - Wrong import!',0
433 
err_message_import1	db 'box_lib.obj - Wrong import!',0
 432 
;---------------------------------------------------------------------
434 
err_message_import2	db 'proc_lib.obj - Wrong import!',0
 433 
l_libs_start:
435 
 
 434 
 
436 
;---------------------------------------------------------------------
 435 
library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
437 
l_libs_start:
 436 
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
438 
 
 437 
 
439 
library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
 438 
library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
440 
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
 439 
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
441 
 
 440 
 
442 
library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
 441 
library03  l_libs system_dir_libini+9, cur_dir_path, library_path, system_dir_libini, \
443 
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
 442 
err_message_found_lib3, head_f_l, libini_import, err_message_import3, head_f_i
444 
 
 443 
 
445 
end_l_libs:
 444 
end_l_libs:
446 
;---------------------------------------------------------------------
 445 
;---------------------------------------------------------------------
447 
OpenDialog_data:
 446 
OpenDialog_data:
448 
.type			dd 1	; Save
 447 
.type                   dd 1    ; Save
449 
.procinfo		dd procinfo	;+4
 448 
.procinfo               dd procinfo     ;+4
450 
.com_area_name		dd communication_area_name	;+8
 449 
.com_area_name          dd communication_area_name      ;+8
451 
.com_area		dd 0	;+12
 450 
.com_area               dd 0    ;+12
Line 452... Line 451...
452 
.opendir_pach		dd temp_dir_pach	;+16
 451 
.opendir_path           dd temp_dir_path        ;+16
453 
.dir_default_pach	dd communication_area_default_pach	;+20
 452 
.dir_default_path       dd communication_area_default_path      ;+20
454 
.start_path		dd open_dialog_path	;+24
 453 
.start_path             dd open_dialog_path     ;+24
455 
.draw_window		dd draw_window	;+28
 454 
.draw_window            dd draw_window  ;+28
456 
.status			dd 0	;+32
 455 
.status                 dd 0    ;+32
457 
.openfile_pach 		dd fname_buf	;+36
 456 
.openfile_pach          dd fname_buf    ;+36
458 
.filename_area		dd filename_area	;+40
 457 
.filename_area          dd filename_area        ;+40
459 
.filter_area		dd Filter
 458 
.filter_area            dd Filter
460 
.x:
 459 
.x:
461 
.x_size			dw 420 ;+48 ; Window X size
 460 
.x_size                 dw 420 ;+48 ; Window X size
Line 462... Line 461...
462 
.x_start		dw 10 ;+50 ; Window X position
 461 
.x_start                dw 200 ;+50 ; Window X position
463 
.y:
 462 
.y:
464 
.y_size			dw 320 ;+52 ; Window y size
 463 
.y_size                 dw 320 ;+52 ; Window y size
465 
.y_start		dw 10 ;+54 ; Window Y position
 464 
.y_start                dw 120 ;+54 ; Window Y position
Line 488... Line 487...
488 
;---------------------------------------------------------------------
 487 
;---------------------------------------------------------------------
489 
align 4
 488 
align 4
490 
ProcLib_import:
 489 
ProcLib_import:
491 
OpenDialog_Init		dd aOpenDialog_Init
 490 
OpenDialog_Init         dd aOpenDialog_Init
492 
OpenDialog_Start	dd aOpenDialog_Start
 491 
OpenDialog_Start        dd aOpenDialog_Start
493 
;OpenDialog__Version	dd aOpenDialog_Version
 - 
 
494 
        dd      0
 492 
        dd      0
495 
        dd      0
 493 
        dd      0
496 
aOpenDialog_Init	db 'OpenDialog_init',0
 494 
aOpenDialog_Init        db 'OpenDialog_init',0
497 
aOpenDialog_Start	db 'OpenDialog_start',0
 495 
aOpenDialog_Start       db 'OpenDialog_start',0
- 
 
 496 
;---------------------------------------------------------------------
- 
 
 497 
PathShow_data_1:
- 
 
 498 
.type                   dd 0    ;+0
- 
 
 499 
.start_y                dw 36   ;+4
- 
 
 500 
.start_x                dw 20   ;+6
- 
 
 501 
.font_size_x            dw 6    ;+8     ; 6 - for font 0, 8 - for font 1
- 
 
 502 
.area_size_x            dw 270  ;+10
- 
 
 503 
.font_number            dd 0    ;+12    ; 0 - monospace, 1 - variable
- 
 
 504 
.background_flag        dd 0    ;+16
- 
 
 505 
.font_color             dd 0    ;+20
- 
 
 506 
.background_color       dd 0    ;+24
- 
 
 507 
.text_pointer           dd fname_buf    ;+28
498 
;aOpenDialog_Version	db 'Version_OpenDialog',0
 508 
.work_area_pointer      dd text_work_area       ;+32
- 
 
 509 
.temp_text_length       dd 0    ;+36
499 
;---------------------------------------------------------------------
 510 
;---------------------------------------------------------------------
500 
align 4
 511 
align 4
501 
Box_lib_import:
 512 
Box_lib_import:
502 
;init_lib		dd a_init
 - 
 
503 
;version_lib		dd a_version
 - 
 
504 
 
 - 
 
505 
 
 - 
 
506 
;edit_box_draw		dd aEdit_box_draw
 513 
;edit_box_draw           dd aEdit_box_draw
507 
;edit_box_key		dd aEdit_box_key
 514 
;edit_box_key            dd aEdit_box_key
508 
;edit_box_mouse		dd aEdit_box_mouse
 515 
;edit_box_mouse          dd aEdit_box_mouse
509 
;version_ed		dd aVersion_ed
 516 
;version_ed              dd aVersion_ed
Line 510... Line -...
510 
 
 - 
 
511 
;check_box_draw		dd aCheck_box_draw
 - 
 
512 
;check_box_mouse	dd aCheck_box_mouse
 - 
 
513 
;version_ch		dd aVersion_ch
 - 
 
514 
 
 - 
 
515 
;option_box_draw	dd aOption_box_draw
 - 
 
516 
;option_box_mouse	dd aOption_box_mouse
 - 
 
517 
;version_op		dd aVersion_op
 - 
 
518 
 
 - 
 
519 
;scrollbar_ver_draw	dd aScrollbar_ver_draw
 - 
 
520 
;scrollbar_ver_mouse	dd aScrollbar_ver_mouse
 - 
 
521 
;scrollbar_hor_draw	dd aScrollbar_hor_draw
 - 
 
522 
;scrollbar_hor_mouse	dd aScrollbar_hor_mouse
 - 
 
523 
;version_scrollbar	dd aVersion_scrollbar
 - 
 
524 
 
 - 
 
525 
;dinamic_button_draw	dd aDbutton_draw
 - 
 
526 
;dinamic_button_mouse	dd aDbutton_mouse
 - 
 
527 
;version_dbutton	dd aVersion_dbutton
 - 
 
528 
 
 - 
 
529 
;menu_bar_draw		dd aMenu_bar_draw
 - 
 
530 
;menu_bar_mouse		dd aMenu_bar_mouse
 - 
 
531 
;menu_bar_activate	dd aMenu_bar_activate
 - 
 
532 
;version_menu_bar	dd aVersion_menu_bar
 - 
 
533 
 
 - 
 
534 
;FileBrowser_draw	dd aFileBrowser_draw
 - 
 
535 
;FileBrowser_mouse	dd aFileBrowser_mouse
 - 
 
536 
;FileBrowser_key	dd aFileBrowser_key
 - 
 
537 
;Version_FileBrowser	dd aVersion_FileBrowser
 - 
 
538 
 
 517 
 
539 
PathShow_prepare	dd sz_PathShow_prepare
 518 
PathShow_prepare        dd sz_PathShow_prepare
540 
PathShow_draw		dd sz_PathShow_draw
 519 
PathShow_draw           dd sz_PathShow_draw
541 
;Version_path_show	dd szVersion_path_show
 520 
Frame_draw              dd sz_Frame_draw
542 
			dd 0
 521 
                        dd 0
Line 543... Line -...
543 
			dd 0
 - 
 
544 
 
 - 
 
545 
;a_init			db 'lib_init',0
 - 
 
546 
;a_version		db 'version',0
 522 
                        dd 0
547 
 
 523 
 
548 
;aEdit_box_draw		db 'edit_box',0
 524 
;aEdit_box_draw          db 'edit_box',0
549 
;aEdit_box_key		db 'edit_box_key',0
 525 
;aEdit_box_key           db 'edit_box_key',0
Line 550... Line -...
550 
;aEdit_box_mouse	db 'edit_box_mouse',0
 - 
 
551 
;aVersion_ed		db 'version_ed',0
 - 
 
552 
 
 - 
 
553 
;aCheck_box_draw	db 'check_box_draw',0
 - 
 
554 
;aCheck_box_mouse	db 'check_box_mouse',0
 - 
 
555 
;aVersion_ch		db 'version_ch',0
 - 
 
556 
 
 - 
 
557 
;aOption_box_draw	db 'option_box_draw',0
 - 
 
558 
;aOption_box_mouse	db 'option_box_mouse',0
 - 
 
559 
;aVersion_op		db 'version_op',0
 - 
 
560 
 
 - 
 
561 
;aScrollbar_ver_draw	db 'scrollbar_v_draw',0
 - 
 
562 
;aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
 - 
 
563 
;aScrollbar_hor_draw	db 'scrollbar_h_draw',0
 - 
 
564 
;aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
 - 
 
565 
;aVersion_scrollbar	db 'version_scrollbar',0
 - 
 
566 
 
 - 
 
567 
;aDbutton_draw		db 'dbutton_draw',0
 - 
 
568 
;aDbutton_mouse		db 'dbutton_mouse',0
 - 
 
569 
;aVersion_dbutton	db 'version_dbutton',0
 - 
 
570 
 
 - 
 
571 
;aMenu_bar_draw		db 'menu_bar_draw',0
 - 
 
572 
;aMenu_bar_mouse		db 'menu_bar_mouse',0
 - 
 
573 
;aMenu_bar_activate	db 'menu_bar_activate',0
 - 
 
574 
;aVersion_menu_bar	db 'version_menu_bar',0
 - 
 
575 
 
 - 
 
576 
;aFileBrowser_draw	db 'FileBrowser_draw',0
 - 
 
577 
;aFileBrowser_mouse	db 'FileBrowser_mouse',0
 - 
 
578 
;aFileBrowser_key	db 'FileBrowser_key',0
 526 
;aEdit_box_mouse         db 'edit_box_mouse',0
579 
;aVersion_FileBrowser	db 'version_FileBrowser',0
 527 
;aVersion_ed             db 'version_ed',0
- 
 
 528 
 
- 
 
 529 
sz_PathShow_prepare     db 'PathShow_prepare',0
580 
 
 530 
sz_PathShow_draw        db 'PathShow_draw',0
- 
 
 531 
 
- 
 
 532 
sz_Frame_draw           db 'frame_draw',0
- 
 
 533 
;szVersion_frame        db 'version_frame',0
- 
 
 534 
;---------------------------------------------------------------------
- 
 
 535 
frame_data:
- 
 
 536 
.type                   dd 0 ;+0
- 
 
 537 
.x:
- 
 
 538 
.x_size                 dw 374 ;+4
- 
 
 539 
.x_start                dw 8 ;+6
- 
 
 540 
.y:
- 
 
 541 
.y_size                 dw 45 ;+8
- 
 
 542 
.y_start                dw 17 ;+10
- 
 
 543 
.ext_fr_col             dd 0x888888 ;+12
- 
 
 544 
.int_fr_col             dd 0xffffff ;+16
- 
 
 545 
.draw_text_flag         dd 1 ;+20
- 
 
 546 
.text_pointer           dd label1 ;+24
- 
 
 547 
.text_position          dd 0 ;+28
- 
 
 548 
.font_number            dd 0 ;+32
581 
sz_PathShow_prepare	db 'PathShow_prepare',0
 549 
.font_size_y            dd 9 ;+36
- 
 
 550 
.font_color             dd 0x0 ;+40
- 
 
 551 
.font_backgr_color      dd 0xdddddd ;+44
- 
 
 552 
;---------------------------------------------------------------------
- 
 
 553 
align 4
- 
 
 554 
libini_import:
- 
 
 555 
init_lib     dd a_init
- 
 
 556 
ini_get_str  dd aini_get_str
- 
 
 557 
ini_get_int  dd aini_get_int
- 
 
 558 
ini_set_str  dd aini_set_str
- 
 
 559 
ini_set_int  dd aini_set_int
- 
 
 560 
             dd 0
- 
 
 561 
             dd 0
- 
 
 562 
a_init       db 'lib_init',0
- 
 
 563 
aini_get_str db 'ini_get_str',0
- 
 
 564 
aini_get_int db 'ini_get_int',0
- 
 
 565 
aini_set_str db 'ini_set_str',0
- 
 
 566 
aini_set_int db 'ini_set_int',0
- 
 
 567 
;---------------------------------------------------------------------
- 
 
 568 
 
- 
 
 569 
apath db 'path',0
- 
 
 570 
asettings db 'settings',0
- 
 
 571 
aautoclose db 'autoclose',0
- 
 
 572 
path    db '/hd2/1/kolibri.img',0
- 
 
 573 
ini_file db  '/sys/settings/rdsave.ini',0
- 
 
 574 
;ini_file db  '/sys/rdsave.ini',0
- 
 
 575 
;---------------------------------------------------------------------
- 
 
 576 
is_notify:
- 
 
 577 
    dd    7, 0, ok, 0, 0
- 
 
 578 
    db    "/rd/1/@notify", 0
- 
 
 579
- 
 
 580 
read_folder:
- 
 
 581 
.subfunction    dd 1
- 
 
 582 
.start          dd 0
- 
 
 583 
.flags          dd 0
- 
 
 584 
.size           dd 1
Line 582... Line -...
582 
sz_PathShow_draw	db 'PathShow_draw',0
 - 
 
583 
;szVersion_path_show	db 'version_PathShow',0
 - 
 
584 
;---------------------------------------------------------------------
 - 
 
585 
 
 - 
 
586 
path1	db '/fd/1/',0
 - 
 
587 
path2	db '/fd/2/',0
 - 
 
588 
path3	db '/hd0/1/kolibri.img',0
 - 
 
589 
path4	db '/hd0/1/kolibri/kolibri.img',0  ;¤«ï १¥à¢­®£® á®åà ­¥­¨ï
 585 
.return         dd folder_data
590 
;---------------------------------------------------------------------
 - 
 
591 
key_help:
 586 
                db 0
592 
	db '1',0
 587 
.name:          dd check_dir
593 
	db '2',0
 588 
 
594 
	db '3',0
 589 
param dd 0
- 
 
 590 
hidden dd 0
- 
 
 591 
;---------------------------------------------------------------------
- 
 
 592 
IM_END:
- 
 
 593 
;---------------------------------------------------------------------
- 
 
 594 
align 4
- 
 
 595 
PARAMS:
- 
 
 596 
       rb 256
- 
 
 597 
ini_path:
595 
	db '4',0
 598 
        rb 4096
- 
 
 599 
check_dir:
596 
;---------------------------------------------------------------------
 600 
        rb 4096
- 
 
 601 
 
- 
 
 602 
sc     system_colors
- 
 
 603 
 
- 
 
 604 
;mouse_dd  rd 1
- 
 
 605 
 
- 
 
 606 
autoclose rd 1
- 
 
 607 
 
597 
IM_END:
 608 
error_msg rb 128
598 
;---------------------------------------------------------------------
 609 
 
599 
sc     system_colors
 610 
folder_data:
600 
mouse_dd	rd 1
 611 
        rb 304*32+32 ; 9 Kb
601 
;---------------------------------------------------------------------
 612 
;---------------------------------------------------------------------
602 
cur_dir_path:
 613 
cur_dir_path:
603 
	rb 4096
 614 
        rb 4096
604 
;---------------------------------------------------------------------
 615 
;---------------------------------------------------------------------
605 
library_path:
 616 
library_path:
606 
	rb 4096
 617 
        rb 4096
607 
;---------------------------------------------------------------------
 618 
;---------------------------------------------------------------------
608 
temp_dir_pach:
 619 
temp_dir_path:
609 
	rb 4096
 620 
        rb 4096
Line 618... Line 629...
618 
	rb 256
 629 
        rb 256
619 
;---------------------------------------------------------------------
 630 
;---------------------------------------------------------------------
620 
text_work_area:
 631 
text_work_area:
621 
	rb 1024
 632 
        rb 1024
622 
;---------------------------------------------------------------------
 633 
;---------------------------------------------------------------------
623 
align 4
 634 
align 32
624 
	rb 4096
 635 
        rb 4096
625 
stacktop:
 636 
stacktop:
626 
I_END:	; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
 637 
I_END:  ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë