Rev 1373 | Rev 1608 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 1373 | Rev 1606 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | ; |
1 | ; |
2 | ; RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥) |
2 | ; RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥) |
3 | ; |
3 | ; |
- | 4 | ; version: 1.3 |
|
- | 5 | ; last update: 08/09/2010 |
|
- | 6 | ; written by: Marat Zakiyanov aka Mario79, aka Mario |
|
- | 7 | ; changes: select path with OpenDialog, |
|
- | 8 | ; keys 1,2,3,4 for select options |
|
- | 9 | ;--------------------------------------------------------------------- |
|
4 | ; Mario79 2005 |
10 | ; Mario79 2005 |
5 | ; Heavyiron 12.02.2007 |
11 | ; Heavyiron 12.02.2007 |
6 | ; |
12 | ; |
7 | ; ®¬¯¨«¨à®¢ âì FASM'®¬ |
13 | ; ®¬¯¨«¨à®¢ âì FASM'®¬ |
8 | ; |
14 | ; |
9 | ;--------------------------------------------------------------------- |
15 | ;--------------------------------------------------------------------- |
10 | include 'lang.inc' |
16 | include 'lang.inc' |
11 | include '..\..\..\macros.inc' |
17 | include '..\..\..\macros.inc' |
Line 12... | Line 18... | ||
12 | 18 | ||
13 | appname equ 'RDsave ' |
19 | appname equ 'RDsave ' |
Line 14... | Line 20... | ||
14 | version equ '1.2' |
20 | version equ '1.3' |
15 | 21 | ||
Line 16... | Line 22... | ||
16 | use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áᥬ¡«¥à |
22 | use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áᥬ¡«¥à |
17 | org 0x0 ; ¤à¥á æ¨ï á ã«ï |
23 | org 0x0 ; ¤à¥á æ¨ï á ã«ï |
18 | 24 | ||
19 | db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS |
25 | db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS |
20 | dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1) |
26 | dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1) |
21 | dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë |
27 | dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë |
22 | dd I_END ; à §¬¥à ¯à®£à ¬¬ë |
28 | dd IM_END ; à §¬¥à ¯à®£à ¬¬ë |
23 | dd I_END ; ª®«¨ç¥á⢮ ¯ ¬ï⨠|
29 | dd I_END ; ª®«¨ç¥á⢮ ¯ ¬ï⨠|
Line 24... | Line 30... | ||
24 | dd I_END ; ¤à¥á ¢¥àè¨ë áâíª |
30 | dd stacktop ; ¤à¥á ¢¥àè¨ë áâíª |
25 | dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï) |
31 | dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï) |
Line 37... | Line 43... | ||
37 | ;--------------------------------------------------------------------- |
43 | ;--------------------------------------------------------------------- |
38 | ;--- ---------------------------------------------- |
44 | ;--- ---------------------------------------------- |
39 | ;--------------------------------------------------------------------- |
45 | ;--------------------------------------------------------------------- |
40 | align 4 |
46 | align 4 |
41 | START: |
47 | START: |
42 | sys_load_library library_name, cur_dir_path, library_path, system_path, \ |
48 | mcall 68,11 |
- | 49 | ||
43 | err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i |
50 | load_libraries l_libs_start,end_l_libs |
- | 51 | ||
44 | cmp eax,-1 |
52 | cmp eax,-1 |
45 | jz close |
53 | jz close |
Line -... | Line 54... | ||
- | 54 | ||
- | 55 | mov edi,filename_area |
|
- | 56 | mov esi,start_temp_file_name |
|
- | 57 | xor eax,eax |
|
- | 58 | cld |
|
- | 59 | @@: |
|
- | 60 | lodsb |
|
- | 61 | stosb |
|
- | 62 | test eax,eax |
|
Line -... | Line 63... | ||
- | 63 | jnz @b |
|
- | 64 | ||
46 | 65 | ||
47 | 66 | mov edi,fname_buf |
|
48 | mov eax, 40 |
67 | mov esi,path4 |
- | 68 | xor eax,eax |
|
- | 69 | cld |
|
- | 70 | @@: |
|
- | 71 | lodsb |
|
- | 72 | stosb |
|
- | 73 | test eax,eax |
|
- | 74 | jnz @b |
|
- | 75 | ||
- | 76 | ;OpenDialog initialisation |
|
- | 77 | push dword OpenDialog_data |
|
- | 78 | call [OpenDialog_Init] |
|
- | 79 | ||
- | 80 | ; prepare for PathShow |
|
- | 81 | push dword PathShow_data_1 |
|
- | 82 | call [PathShow_prepare] |
|
49 | mov ebx, 100111b |
83 | |
50 | mcall |
- | |
51 | red: ; ¯¥à¥à¨á®¢ âì ®ª® |
- | |
52 | mov eax,48 |
- | |
53 | mov ebx,3 |
84 | mcall 40,100111b |
54 | mov ecx,sc |
- | |
55 | mov edx,sizeof.system_colors |
- | |
56 | mcall |
- | |
Line -... | Line 85... | ||
- | 85 | red: ; ¯¥à¥à¨á®¢ âì ®ª® |
|
57 | edit_boxes_set_sys_color editbox,editbox_end,sc |
86 | mcall 48,3,sc,sizeof.system_colors |
58 | call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª |
87 | |
59 | 88 | call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª |
|
60 | ;--------------------------------------------------------------------- |
- | |
61 | ;--- ---------------------------------------- |
89 | ;--------------------------------------------------------------------- |
62 | ;--------------------------------------------------------------------- |
90 | ;--- ---------------------------------------- |
Line 63... | Line 91... | ||
63 | 91 | ;--------------------------------------------------------------------- |
|
64 | still: |
92 | still: |
65 | mcall 10 |
93 | mcall 10 |
66 | 94 | ||
67 | dec eax ; ¯¥à¥à¨á®¢ âì ®ª®? |
95 | dec eax ; ¯¥à¥à¨á®¢ âì ®ª®? |
68 | jz red ; ¥á«¨ ¤ - ¬¥âªã red |
96 | jz red ; ¥á«¨ ¤ - ¬¥âªã red |
Line 69... | Line -... | ||
69 | dec eax |
- | |
70 | jz key |
- | |
71 | dec eax |
- | |
72 | jz button |
- | |
73 | - | ||
74 | mouse: |
97 | dec eax |
75 | ; mouse_edit_box editbox |
- | |
- | 98 | jz key |
|
76 | push dword editbox |
99 | dec eax |
77 | call [edit_box_mouse] |
100 | jz button |
78 | - | ||
79 | jmp still |
- | |
80 | 101 | ||
81 | button: |
102 | jmp still |
82 | mov al,17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª®¯ª¨ |
103 | ;--------------------------------------------------------------------- |
83 | mcall |
104 | button: |
84 | 105 | mcall 17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª®¯ª¨ |
|
Line 104... | Line 125... | ||
104 | push 18 |
125 | push 18 |
105 | mov bl, 6 ; 18.6 = save to specified folder |
126 | mov bl,6 ; 18.6 = save to specified folder |
106 | mov ecx, path3 |
127 | mov ecx, path3 |
107 | cmp ah, 4 |
128 | cmp ah,4 |
108 | je doit |
129 | je doit |
- | 130 | ||
- | 131 | ; invoke OpenDialog |
|
- | 132 | push dword OpenDialog_data |
|
- | 133 | call [OpenDialog_Start] |
|
- | 134 | cmp [OpenDialog_data.status],1 |
|
- | 135 | jne still |
|
- | 136 | ||
- | 137 | ; prepare for PathShow |
|
- | 138 | push dword PathShow_data_1 |
|
- | 139 | call [PathShow_prepare] |
|
- | 140 | ||
- | 141 | call draw_PathShow |
|
- | 142 | ||
109 | mov ecx, path4 |
143 | mov ecx,fname_buf ;path4 |
110 | doit: |
144 | doit: |
111 | pop eax |
145 | pop eax |
112 | mcall |
146 | mcall |
113 | call check_for_error |
147 | call check_for_error |
114 | jmp still |
148 | jmp still |
115 | - | ||
- | 149 | ;--------------------------------------------------------------------- |
|
116 | key: |
150 | key: |
117 | mov al,2 |
151 | mcall 2 |
- | 152 | cmp ah,0x31 |
|
118 | mcall |
153 | jb still |
119 | ; key_edit_box editbox |
154 | cmp ah,0x34 |
120 | push dword editbox |
155 | ja still |
121 | call [edit_box_key] |
156 | sub ah,0x30 |
122 | 157 | inc ah |
|
123 | jmp still |
158 | jmp noclose |
124 | - | ||
125 | - | ||
- | 159 | ;--------------------------------------------------------------------- |
|
126 | check_for_error: ;¡à ¡®â稪 ®è¨¡®ª |
160 | check_for_error: ;¡à ¡®â稪 ®è¨¡®ª |
127 | mov ecx, [sc.work_text] |
161 | mov ecx,[sc.work_text] |
128 | mov edx, ok |
162 | mov edx,ok |
129 | test eax, eax |
163 | test eax,eax |
130 | jz print |
164 | jz print |
Line 150... | Line 184... | ||
150 | jz print |
184 | jz print |
151 | add edx, error11 - error10 |
185 | add edx,error11 - error10 |
152 | dec eax |
186 | dec eax |
153 | jz print |
187 | jz print |
154 | add edx, aUnknownError - error11 |
188 | add edx,aUnknownError - error11 |
155 | - | ||
156 | print: |
189 | print: |
157 | mov eax,4 ; ¤¯¨á¨ |
190 | mov eax,4 ; ¤¯¨á¨ |
158 | mov ebx,20 shl 16 + 148 |
191 | mov ebx,20 shl 16 + 148 |
159 | or ecx,0x80000000 |
192 | or ecx,0x80000000 |
160 | mcall |
193 | mcall |
161 | ret |
194 | ret |
162 | - | ||
- | 195 | ;--------------------------------------------------------------------- |
|
163 | clear_err: |
196 | clear_err: |
164 | mov eax,13 |
197 | mov eax,13 |
165 | mov ebx,15 shl 16 + 240 |
198 | mov ebx,15 shl 16 + 240 |
166 | mov ecx,145 shl 16 +15 |
199 | mov ecx,145 shl 16 +15 |
167 | mov edx,[sc.work] |
200 | mov edx,[sc.work] |
168 | mcall |
201 | mcall |
169 | ret |
202 | ret |
- | 203 | ;--------------------------------------------------------------------- |
|
- | 204 | draw_PathShow: |
|
- | 205 | pusha |
|
- | 206 | mcall 13,<8,172>,<110,15>,0xffffff |
|
- | 207 | ; draw for PathShow |
|
- | 208 | push dword PathShow_data_1 |
|
- | 209 | call [PathShow_draw] |
|
- | 210 | popa |
|
170 | 211 | ret |
|
171 | ;--------------------------------------------------------------------- |
212 | ;--------------------------------------------------------------------- |
172 | ;--- ---------------------------------- |
213 | ;--- ---------------------------------- |
173 | ;--------------------------------------------------------------------- |
214 | ;--------------------------------------------------------------------- |
174 | - | ||
175 | draw_window: |
215 | draw_window: |
176 | - | ||
177 | mov eax,12 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
216 | mcall 12,1 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
178 | mov bl,1 ; 1 - ç¨ ¥¬ à¨á®¢ âì |
217 | ; 1 - ç¨ ¥¬ à¨á®¢ âì |
179 | mcall |
- | |
180 | - | ||
181 | ; ð |
218 | ; ð |
182 | xor eax,eax ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª® |
219 | xor eax,eax ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª® |
183 | mov ebx,200 shl 16 + 270 ; [x áâ àâ] *65536 + [x à §¬¥à] |
220 | mov ebx,200 shl 16 + 300 ; [x áâ àâ] *65536 + [x à §¬¥à] |
184 | mov ecx,200 shl 16 + 190 ; [y áâ àâ] *65536 + [y à §¬¥à] |
221 | mov ecx,200 shl 16 + 190 ; [y áâ àâ] *65536 + [y à §¬¥à] |
185 | mov edx,[sc.work] ; 梥â à ¡®ç¥© ®¡« á⨠RRGGBB,8->color gl |
222 | mov edx,[sc.work] ; 梥â à ¡®ç¥© ®¡« á⨠RRGGBB,8->color gl |
186 | or edx,0x34000000 |
223 | or edx,0x34000000 |
187 | mov edi,title ; |
224 | mov edi,title ; |
188 | mcall |
225 | mcall |
Line 189... | Line -... | ||
189 | - | ||
190 | push dword editbox |
226 | |
191 | call [edit_box_draw] |
- | |
192 | - | ||
Line 193... | Line 227... | ||
193 | ;draw_edit_box editbox ;à¨á®¢ ¨¥ edit box |
227 | call draw_PathShow |
194 | - | ||
195 | mov al,13 ;®âà¨á®¢ª ⥥© ª®¯®ª |
- | |
196 | mov ebx,194 shl 16 + 60 |
228 | |
197 | mov ecx,34 shl 16 +15 |
- | |
Line 198... | Line 229... | ||
198 | mov edx,0x444444 |
229 | ;®âà¨á®¢ª ⥥© ª®¯®ª |
199 | mcall |
230 | mcall 13,<194,60>,<34,15>,0x444444 |
Line 200... | Line 231... | ||
200 | 231 | ||
201 | add ecx,20 shl 16 |
232 | add ecx,20 shl 16 |
Line 202... | Line 233... | ||
202 | mcall |
233 | mcall |
203 | 234 | ||
204 | add ecx,20 shl 16 |
- | |
205 | mcall |
235 | add ecx,20 shl 16 |
206 | 236 | mcall |
|
207 | add ecx,40 shl 16 |
237 | |
208 | mcall |
- | |
209 | 238 | add ecx,40 shl 16 |
|
210 | mov eax,8 ;®âà¨á®¢ª ª®¯®ª |
- | |
Line 211... | Line 239... | ||
211 | sub ebx,4 shl 16 |
239 | mcall |
212 | sub ecx,4 shl 16 |
240 | ;®âà¨á®¢ª ª®¯®ª |
213 | mov edx,5 |
241 | sub ebx,4 shl 16 |
Line 223... | Line 251... | ||
223 | mcall |
251 | mcall |
Line 224... | Line 252... | ||
224 | 252 | ||
225 | sub ecx,20 shl 16 |
253 | sub ecx,20 shl 16 |
226 | dec edx |
254 | dec edx |
227 | mcall |
- | |
228 | 255 | mcall |
|
229 | mov al,4 ; ¤¯¨á¨ |
- | |
230 | mov ebx,45 shl 16 + 12 |
256 | ; ¤¯¨á¨ |
231 | mov ecx,[sc.work_text] |
257 | mov ecx,[sc.work_text] |
232 | or ecx,0x80000000 |
258 | or ecx,0x80000000 |
233 | mov edx,label1 |
- | |
Line 234... | Line 259... | ||
234 | mcall |
259 | mcall 4,<45,12>,,label1 |
235 | 260 | ||
236 | mov ebx,150 shl 16 + 35 |
261 | mov ebx,150 shl 16 + 35 |
Line 257... | Line 282... | ||
257 | or ecx,0x80000000 |
282 | or ecx,0x80000000 |
258 | mov ebx,195 shl 16 + 35 |
283 | mov ebx,195 shl 16 + 35 |
259 | mov edx,save |
284 | mov edx,save |
260 | mcall |
285 | mcall |
Line -... | Line 286... | ||
- | 286 | ||
- | 287 | push edx |
|
- | 288 | mov edx,key_help |
|
- | 289 | call key_help_correct |
|
- | 290 | pop edx |
|
261 | 291 | ||
262 | add ebx,20 |
292 | add ebx,20 |
Line -... | Line 293... | ||
- | 293 | mcall |
|
- | 294 | ||
- | 295 | push edx |
|
- | 296 | mov edx,key_help+2 |
|
- | 297 | call key_help_correct |
|
263 | mcall |
298 | pop edx |
264 | 299 | ||
Line -... | Line 300... | ||
- | 300 | add ebx,20 |
|
- | 301 | mcall |
|
- | 302 | ||
- | 303 | push edx |
|
- | 304 | mov edx,key_help+4 |
|
- | 305 | call key_help_correct |
|
265 | add ebx,20 |
306 | pop edx |
266 | mcall |
307 | |
Line 267... | Line -... | ||
267 | - | ||
268 | add ebx,40 |
308 | mov edx,select |
269 | mcall |
309 | add ebx,40 |
Line -... | Line 310... | ||
- | 310 | mcall |
|
- | 311 | ||
270 | 312 | mov edx,key_help+6 |
|
- | 313 | call key_help_correct |
|
- | 314 | ||
- | 315 | mcall 12,2 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
|
- | 316 | ; 2, § ª®ç¨«¨ à¨á®¢ âì |
|
- | 317 | ret ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë |
|
- | 318 | ;--------------------------------------------------------------------- |
|
- | 319 | key_help_correct: |
|
- | 320 | push ebx |
|
- | 321 | ror ebx,16 |
|
- | 322 | mov bx,270 |
|
- | 323 | rol ebx,16 |
|
- | 324 | pusha |
|
- | 325 | mov ecx,ebx |
|
- | 326 | sub ebx,3 shl 16 |
|
271 | mov al,12 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
327 | mov bx,13 |
- | 328 | sub cx,3 |
|
- | 329 | shl ecx,16 |
|
272 | mov ebx,2 ; 2, § ª®ç¨«¨ à¨á®¢ âì |
330 | mov cx,13 |
273 | mcall |
331 | mcall 13,,,0xffffff |
274 | 332 | popa |
|
275 | ret ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë |
333 | mcall |
Line 276... | Line 334... | ||
276 | 334 | pop ebx |
|
Line -... | Line 335... | ||
- | 335 | ret |
|
277 | 336 | ;--------------------------------------------------------------------- |
|
- | 337 | ;--- ---------------------------------------------- |
|
- | 338 | ;--------------------------------------------------------------------- |
|
- | 339 | ||
278 | ;--------------------------------------------------------------------- |
340 | title db appname,version,0 |
- | 341 | ||
- | 342 | ;--------------------------------------------------------------------- |
|
- | 343 | PathShow_data_1: |
|
- | 344 | .type dd 0 ;+0 |
|
- | 345 | .start_y dw 113 ;+4 |
|
- | 346 | .start_x dw 10 ;+6 |
|
- | 347 | .font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 |
|
279 | ;--- ---------------------------------------------- |
348 | .area_size_x dw 170 ;+10 |
280 | ;--------------------------------------------------------------------- |
- | |
- | 349 | .font_number dd 0 ;+12 ; 0 - monospace, 1 - variable |
|
281 | 350 | .background_flag dd 0 ;+16 |
|
282 | title db appname,version,0 |
351 | .font_color dd 0x0 ;+20 |
- | 352 | .background_color dd 0x0 ;+24 |
|
283 | 353 | .text_pointer dd fname_buf ;+28 |
|
284 | editbox: |
354 | .work_area_pointer dd text_work_area ;+32 |
285 | edit1 edit_box 170,10,113,0xffffff,0xaabbcc,0,0,0,512,path4,mouse_dd,ed_focus,26,26 |
355 | .temp_text_length dd 0 ;+36 |
286 | editbox_end: |
356 | ;--------------------------------------------------------------------- |
287 | 357 | if lang eq ru |
|
288 | if lang eq ru |
358 | save db '®åà ¨âì',0 |
289 | save db '®åà ¨âì',0 |
359 | select db ' ë¡à âì',0 |
290 | label1 db 'ë¡¥à¨â¥ ®¤¨ ¨§ ¢ ਠ⮢:',0 |
360 | label1 db 'ë¡¥à¨â¥ ®¤¨ ¨§ ¢ ਠ⮢:',0 |
291 | label2 db '«¨ ¢¢¥¤¨â¥ ¯®«ë© ¯ãâì ª ä ©«ã:',0 |
361 | label2 db '«¨ ¢ë¡¥à¨â¥ ¯®«ë© ¯ãâì ª ä ©«ã:',0 |
292 | label3 db 'ᥠ¯ ¯ª¨ ¤®«¦ë áãé¥á⢮¢ âì',0 |
362 | label3 db 'ᥠ¯ ¯ª¨ ¤®«¦ë áãé¥á⢮¢ âì',0 |
293 | ok db 'RAM-¤¨áª á®åà ¥ ãᯥè®',0 |
363 | ok db 'RAM-¤¨áª á®åà ¥ ãᯥè®',0 |
- | 364 | error3 db '¥¨§¢¥áâ ï ä ©«®¢ ï á¨á⥬ ',0 |
|
294 | error3 db '¥¨§¢¥áâ ï ä ©«®¢ ï á¨á⥬ ',0 |
365 | error5 db '¥áãé¥áâ¢ãî騩 ¯ãâì',0 |
295 | error5 db '¥áãé¥áâ¢ãî騩 ¯ãâì',0 |
366 | error8 db '¥â ¬¥áâ ¤¨áª¥',0 |
- | 367 | error9 db ' ¡«¨æ FAT à §àãè¥ ',0 |
|
296 | error8 db '¥â ¬¥áâ ¤¨áª¥',0 |
368 | error10 db '®áâ㯠§ ¯à¥é¥',0 |
297 | error9 db ' ¡«¨æ FAT à §àãè¥ ',0 |
369 | error11 db '訡ª ãáâனá⢠',0 |
298 | error10 db '®áâ㯠§ ¯à¥é¥',0 |
370 | aUnknownError db '¥¨§¢¥áâ ï ®è¨¡ª ',0 |
299 | error11 db '訡ª ãáâனá⢠',0 |
371 | ;--------------------------------------------------------------------- |
300 | aUnknownError db '¥¨§¢¥áâ ï ®è¨¡ª ',0 |
372 | else if lang eq et |
301 | else if lang eq et |
373 | save db 'Salvesta',0 |
302 | save db 'Salvesta',0 |
374 | select db ' Valige',0 |
303 | label1 db 'Vali üks variantidest:',0 |
375 | label1 db 'Vali üks variantidest:',0 |
304 | label2 db 'Või sisesta teekond failinimeni:',0 |
376 | label2 db 'Või valige teekond failinimeni:',0 |
305 | label3 db 'Kõik kataloogid peavad eksisteerima',0 |
377 | label3 db 'Kõik kataloogid peavad eksisteerima',0 |
306 | ok db 'RAM-ketas salvestatud edukalt',0 |
378 | ok db 'RAM-ketas salvestatud edukalt',0 |
307 | error3 db 'Tundmatu failisüsteem',0 |
- | |
- | 379 | error3 db 'Tundmatu failisüsteem',0 |
|
308 | error5 db 'Vigane teekond',0 |
380 | error5 db 'Vigane teekond',0 |
309 | error8 db 'Ketas täis',0 |
381 | error8 db 'Ketas täis',0 |
- | 382 | error9 db 'FAT tabel vigane',0 |
|
310 | error9 db 'FAT tabel vigane',0 |
383 | error10 db 'Juurdepääs keelatud',0 |
311 | error10 db 'Juurdepääs keelatud',0 |
384 | error11 db 'Seadme viga',0 |
312 | error11 db 'Seadme viga',0 |
385 | aUnknownError db 'Tundmatu viga',0 |
313 | aUnknownError db 'Tundmatu viga',0 |
386 | ;--------------------------------------------------------------------- |
314 | 387 | else |
|
315 | else |
388 | save db ' Save',0 |
316 | save db ' Save',0 |
389 | select db ' Select',0 |
Line 328... | Line 401... | ||
328 | 401 | ||
329 | end if |
402 | end if |
330 | ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
403 | ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
331 | ;DATA ¤ ë¥ |
404 | ;DATA ¤ ë¥ |
332 | ;ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨. |
405 | ;ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨. |
333 | system_path db '/sys/lib/' |
406 | system_dir_Boxlib db '/sys/lib/box_lib.obj',0 |
334 | library_name db 'box_lib.obj',0 |
407 | system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 |
Line 335... | Line -... | ||
335 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
- | |
336 | 408 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
337 | err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0 |
409 | |
- | 410 | head_f_i: |
|
- | 411 | head_f_l db 'System error',0 |
|
- | 412 | ||
- | 413 | err_message_found_lib1 db 'box_lib.obj - Not found!',0 |
|
- | 414 | err_message_found_lib2 db 'proc_lib.obj - Not found!',0 |
|
338 | head_f_i: |
415 | |
- | 416 | err_message_import1 db 'box_lib.obj - Wrong import!',0 |
|
- | 417 | err_message_import2 db 'proc_lib.obj - Wrong import!',0 |
|
- | 418 | ||
- | 419 | ;--------------------------------------------------------------------- |
|
- | 420 | l_libs_start: |
|
- | 421 | ||
- | 422 | library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \ |
|
- | 423 | err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i |
|
- | 424 | ||
- | 425 | library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \ |
|
- | 426 | err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i |
|
- | 427 | ||
- | 428 | end_l_libs: |
|
- | 429 | ;--------------------------------------------------------------------- |
|
- | 430 | OpenDialog_data: |
|
- | 431 | .type dd 1 ; Save |
|
- | 432 | .procinfo dd procinfo ;+4 |
|
- | 433 | .com_area_name dd communication_area_name ;+8 |
|
- | 434 | .com_area dd 0 ;+12 |
|
- | 435 | .opendir_pach dd temp_dir_pach ;+16 |
|
- | 436 | .dir_default_pach dd communication_area_default_pach ;+20 |
|
- | 437 | .start_path dd open_dialog_path ;+24 |
|
- | 438 | .draw_window dd draw_window ;+28 |
|
- | 439 | .status dd 0 ;+32 |
|
- | 440 | .openfile_pach dd fname_buf ;+36 |
|
- | 441 | .filename_area dd filename_area ;+40 |
|
- | 442 | .filter_area dd Filter |
|
- | 443 | .x: |
|
- | 444 | .x_size dw 420 ;+48 ; Window X size |
|
- | 445 | .x_start dw 10 ;+50 ; Window X position |
|
- | 446 | .y: |
|
- | 447 | .y_size dw 320 ;+52 ; Window y size |
|
- | 448 | .y_start dw 10 ;+54 ; Window Y position |
|
- | 449 | ||
- | 450 | communication_area_name: |
|
- | 451 | db 'FFFFFFFF_open_dialog',0 |
|
- | 452 | open_dialog_path: |
|
- | 453 | db '/sys/File Managers/opendial',0 |
|
- | 454 | communication_area_default_pach: |
|
- | 455 | db '/hd0/1/kolibri',0 |
|
- | 456 | ||
- | 457 | Filter: |
|
- | 458 | dd Filter.end - Filter.1 |
|
- | 459 | .1: |
|
- | 460 | db 'IMG',0 |
|
- | 461 | db 'IMA',0 |
|
- | 462 | .end: |
|
- | 463 | db 0 |
|
- | 464 | ||
- | 465 | start_temp_file_name: db 'kolibri.img',0 |
|
- | 466 | ||
- | 467 | ;--------------------------------------------------------------------- |
|
- | 468 | align 4 |
|
- | 469 | ProcLib_import: |
|
- | 470 | OpenDialog_Init dd aOpenDialog_Init |
|
- | 471 | OpenDialog_Start dd aOpenDialog_Start |
|
- | 472 | ;OpenDialog__Version dd aOpenDialog_Version |
|
- | 473 | dd 0 |
|
- | 474 | dd 0 |
|
- | 475 | aOpenDialog_Init db 'OpenDialog_init',0 |
|
- | 476 | aOpenDialog_Start db 'OpenDialog_start',0 |
|
339 | head_f_l db 'System error',0 |
477 | ;aOpenDialog_Version db 'Version_OpenDialog',0 |
340 | err_message_import db 'Error on load import library box_lib.obj',0 |
478 | ;--------------------------------------------------------------------- |
- | 479 | align 4 |
|
- | 480 | Box_lib_import: |
|
Line -... | Line 481... | ||
- | 481 | ;init_lib dd a_init |
|
341 | align 4 |
482 | ;version_lib dd a_version |
342 | myimport: |
483 | |
343 | 484 | ||
344 | edit_box_draw dd aEdit_box_draw |
485 | ;edit_box_draw dd aEdit_box_draw |
Line -... | Line 486... | ||
- | 486 | ;edit_box_key dd aEdit_box_key |
|
- | 487 | ;edit_box_mouse dd aEdit_box_mouse |
|
- | 488 | ;version_ed dd aVersion_ed |
|
- | 489 | ||
- | 490 | ;check_box_draw dd aCheck_box_draw |
|
- | 491 | ;check_box_mouse dd aCheck_box_mouse |
|
- | 492 | ;version_ch dd aVersion_ch |
|
- | 493 | ||
- | 494 | ;option_box_draw dd aOption_box_draw |
|
- | 495 | ;option_box_mouse dd aOption_box_mouse |
|
- | 496 | ;version_op dd aVersion_op |
|
- | 497 | ||
- | 498 | ;scrollbar_ver_draw dd aScrollbar_ver_draw |
|
- | 499 | ;scrollbar_ver_mouse dd aScrollbar_ver_mouse |
|
- | 500 | ;scrollbar_hor_draw dd aScrollbar_hor_draw |
|
- | 501 | ;scrollbar_hor_mouse dd aScrollbar_hor_mouse |
|
- | 502 | ;version_scrollbar dd aVersion_scrollbar |
|
- | 503 | ||
- | 504 | ;dinamic_button_draw dd aDbutton_draw |
|
- | 505 | ;dinamic_button_mouse dd aDbutton_mouse |
|
- | 506 | ;version_dbutton dd aVersion_dbutton |
|
- | 507 | ||
- | 508 | ;menu_bar_draw dd aMenu_bar_draw |
|
- | 509 | ;menu_bar_mouse dd aMenu_bar_mouse |
|
- | 510 | ;menu_bar_activate dd aMenu_bar_activate |
|
- | 511 | ;version_menu_bar dd aVersion_menu_bar |
|
- | 512 | ||
- | 513 | ;FileBrowser_draw dd aFileBrowser_draw |
|
- | 514 | ;FileBrowser_mouse dd aFileBrowser_mouse |
|
- | 515 | ;FileBrowser_key dd aFileBrowser_key |
|
- | 516 | ;Version_FileBrowser dd aVersion_FileBrowser |
|
345 | edit_box_key dd aEdit_box_key |
517 | |
346 | edit_box_mouse dd aEdit_box_mouse |
518 | PathShow_prepare dd sz_PathShow_prepare |
Line 347... | Line 519... | ||
347 | ;version_ed dd aVersion_ed |
519 | PathShow_draw dd sz_PathShow_draw |
348 | - | ||
349 | dd 0 |
- | |
350 | dd 0 |
520 | ;Version_path_show dd szVersion_path_show |
Line -... | Line 521... | ||
- | 521 | dd 0 |
|
- | 522 | dd 0 |
|
- | 523 | ||
- | 524 | ;a_init db 'lib_init',0 |
|
Line -... | Line 525... | ||
- | 525 | ;a_version db 'version',0 |
|
- | 526 | ||
- | 527 | ;aEdit_box_draw db 'edit_box',0 |
|
- | 528 | ;aEdit_box_key db 'edit_box_key',0 |
|
- | 529 | ;aEdit_box_mouse db 'edit_box_mouse',0 |
|
- | 530 | ;aVersion_ed db 'version_ed',0 |
|
- | 531 | ||
- | 532 | ;aCheck_box_draw db 'check_box_draw',0 |
|
- | 533 | ;aCheck_box_mouse db 'check_box_mouse',0 |
|
- | 534 | ;aVersion_ch db 'version_ch',0 |
|
- | 535 | ||
- | 536 | ;aOption_box_draw db 'option_box_draw',0 |
|
- | 537 | ;aOption_box_mouse db 'option_box_mouse',0 |
|
- | 538 | ;aVersion_op db 'version_op',0 |
|
351 | 539 | ||
- | 540 | ;aScrollbar_ver_draw db 'scrollbar_v_draw',0 |
|
- | 541 | ;aScrollbar_ver_mouse db 'scrollbar_v_mouse',0 |
|
- | 542 | ;aScrollbar_hor_draw db 'scrollbar_h_draw',0 |
|
- | 543 | ;aScrollbar_hor_mouse db 'scrollbar_h_mouse',0 |
|
- | 544 | ;aVersion_scrollbar db 'version_scrollbar',0 |
|
- | 545 | ||
- | 546 | ;aDbutton_draw db 'dbutton_draw',0 |
|
- | 547 | ;aDbutton_mouse db 'dbutton_mouse',0 |
|
- | 548 | ;aVersion_dbutton db 'version_dbutton',0 |
|
- | 549 | ||
- | 550 | ;aMenu_bar_draw db 'menu_bar_draw',0 |
|
- | 551 | ;aMenu_bar_mouse db 'menu_bar_mouse',0 |
|
- | 552 | ;aMenu_bar_activate db 'menu_bar_activate',0 |
|
- | 553 | ;aVersion_menu_bar db 'version_menu_bar',0 |
|
- | 554 | ||
- | 555 | ;aFileBrowser_draw db 'FileBrowser_draw',0 |
|
- | 556 | ;aFileBrowser_mouse db 'FileBrowser_mouse',0 |
|
Line 352... | Line 557... | ||
352 | aEdit_box_draw db 'edit_box',0 |
557 | ;aFileBrowser_key db 'FileBrowser_key',0 |
353 | aEdit_box_key db 'edit_box_key',0 |
558 | ;aVersion_FileBrowser db 'version_FileBrowser',0 |
354 | aEdit_box_mouse db 'edit_box_mouse',0 |
559 | |
355 | ;aVersion_ed db 'version_ed',0 |
560 | sz_PathShow_prepare db 'PathShow_prepare',0 |
356 | - | ||
357 | 561 | sz_PathShow_draw db 'PathShow_draw',0 |
|
358 | ;mouse_flag: dd 0x0 |
562 | ;szVersion_path_show db 'version_PathShow',0 |
359 | 563 | ;--------------------------------------------------------------------- |
|
- | 564 | ||
- | 565 | path1 db '/fd/1/',0 |
|
- | 566 | path2 db '/fd/2/',0 |
|
- | 567 | path3 db '/hd0/1/kolibri.img',0 |
|
360 | path1 db '/fd/1/',0 |
568 | path4 db '/hd0/1/kolibri/kolibri.img',0 ;¤«ï १¥à¢®£® á®åà ¥¨ï |
- | 569 | ;--------------------------------------------------------------------- |
|
361 | path2 db '/fd/2/',0 |
570 | key_help: |
362 | path3 db '/hd0/1/kolibri.img',0 |
571 | db '1',0 |
- | 572 | db '2',0 |
|
363 | path4 db '/hd0/1/kolibri/kolibri.img',0 ;¤«ï १¥à¢®£® á®åà ¥¨ï |
573 | db '3',0 |
- | 574 | db '4',0 |
|
- | 575 | ;--------------------------------------------------------------------- |
|
364 | 576 | IM_END: |
|
- | 577 | ;--------------------------------------------------------------------- |
|
- | 578 | sc system_colors |
|
- | 579 | mouse_dd rd 1 |
|
- | 580 | ;--------------------------------------------------------------------- |
|
- | 581 | cur_dir_path: |
|
- | 582 | rb 4096 |
|
- | 583 | ;--------------------------------------------------------------------- |
|
- | 584 | library_path: |
|
- | 585 | rb 4096 |
|
- | 586 | ;--------------------------------------------------------------------- |
|
- | 587 | temp_dir_pach: |
|
- | 588 | rb 4096 |
|
- | 589 | ;--------------------------------------------------------------------- |
|
- | 590 | fname_buf: |
|
- | 591 | rb 4096 |
|
- | 592 | ;--------------------------------------------------------------------- |
|
- | 593 | procinfo: |
|
365 | ;--------------------------------------------------------------------- |
594 | rb 1024 |
366 | 595 | ;--------------------------------------------------------------------- |
|
- | 596 | filename_area: |
|
367 | rb 514 |
597 | rb 256 |