Subversion Repositories Kolibri OS

Rev

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

Rev 131 Rev 134
Line 259... Line 259...
259
 
259
 
260
    cld
260
    cld
261
;;    mov esi,path
261
;;    mov esi,path
262
    mov edi,path
262
    mov edi,path
263
    xor eax,eax
263
    xor eax,eax
264
    mov ecx,200
264
    mov ecx,(1024+16)/4
Line 265... Line 265...
265
    rep stosb
265
    rep stosd
266
 
266
 
Line 267... Line 267...
267
;mov [get_loops],0
267
;mov [get_loops],0
Line 299... Line 299...
299
 
299
 
300
; define IPC memory
300
; define IPC memory
301
    mov eax,60
301
    mov eax,60
302
    mov ebx,1        ; define IPC
302
    mov ebx,1        ; define IPC
303
    mov ecx,path     ; offset of area
303
    mov ecx,path     ; offset of area
304
    mov edx,150      ; size 150 bytes
304
    mov edx,1024+16  ; size
Line 305... Line 305...
305
    int 0x40
305
    int 0x40
306
 
306
 
307
    mcall 40,1000111b
307
    mcall 40,1000111b
308
;
308
;
Line 309... Line 309...
309
; STEP 3 run SYSTEM XTREE with parameters
309
; STEP 3 run SYSTEM XTREE with parameters
Line 310... Line 310...
310
;
310
;
Line 311... Line 311...
311
 
311
 
312
    mcall 58,run_fileinfo
312
    mcall 70,run_fileinfo
313
 
313
 
314
    call redproc
314
    call redproc
315
 
315
 
316
    mov [get_loops],0
-
 
317
getmesloop:
316
    mov [get_loops],0
318
    mov eax,23
317
getmesloop:
319
    mov ebx,50     ;0.5 sec
318
    mov eax,23
320
    int 0x40
319
    mov ebx,50     ;0.5 sec
321
 
320
    int 0x40
322
    cmp eax,1
321
        dec     eax
323
    je  mred
322
        jz      mred
324
    cmp eax,2
323
        dec     eax
Line 325... Line 324...
325
    je  mkey
324
        jz      mkey
326
    cmp eax,3
325
        dec     eax
327
    je  mbutton
326
        jz      mbutton
Line 403... Line 402...
403
    jmp  getmesloop
402
    jmp  getmesloop
Line 404... Line 403...
404
 
403
 
405
ready:
404
ready:
406
;
405
;
407
; The second message get
406
; The second message get
408
; Second message is 100 bytes path to SAVE/OPEN file
407
; Second message is 1024 bytes path to SAVE/OPEN file
409
; shl path string on 16 bytes
408
; shl path string on 16 bytes
410
;
409
;
411
    cld
410
    cld
412
    mov esi,path+16
411
    mov esi,path+16
413
    mov edi,path
412
    mov edi,path
414
    mov ecx,200
413
    mov ecx,1024/4
415
    rep movsb
414
    rep movsd
Line 416... Line 415...
416
    mov [edi],byte 0
415
    mov [edi],byte 0
Line 426... Line 425...
426
param:
425
param:
427
   dd 0    ; My dec PID
426
   dd 0    ; My dec PID
428
   dd 0,0  ; Type of dialog
427
   dd 0,0  ; Type of dialog
Line 429... Line 428...
429
 
428
 
430
run_fileinfo:
429
run_fileinfo:
431
 dd 16
430
 dd 7
432
 dd 0
431
 dd 0
433
 dd param
432
 dd param
434
 dd 0
433
 dd 0
435
 dd os_work ; 0x10000
434
 dd 0
436
;run_filepath
435
;run_filepath
Line 437... Line 436...
437
 db '/RD/1/SYSXTREE',0
436
 db '/RD/1/SYSXTREE',0