Subversion Repositories Kolibri OS

Rev

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

Rev 593 Rev 662
Line 3... Line 3...
3
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
3
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
4
;; Distributed under terms of the GNU General Public License    ;;
4
;; Distributed under terms of the GNU General Public License    ;;
5
;;                                                              ;;
5
;;                                                              ;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7
 
7
 
Line 8... Line 8...
8
$Revision: 593 $
8
$Revision: 662 $
9
 
9
 
Line 429... Line 429...
429
             name    dd ?
429
             name    dd ?
430
           endl
430
           endl
Line 431... Line 431...
431
 
431
 
432
           xor eax, eax
432
           xor eax, eax
433
           mov ebx, [file_name]
-
 
434
    ;       sub ebx, new_app_base
433
           mov ebx, [file_name]
435
           mov ecx, [info]
-
 
Line 436... Line 434...
436
    ;       sub ecx, new_app_base
434
           mov ecx, [info]
437
 
435
 
438
           mov [cmd], 5
436
           mov [cmd], 5
439
           mov [offset], eax
437
           mov [offset], eax
Line 443... Line 441...
443
           mov byte [buff+4], al
441
           mov byte [buff+4], al
444
           mov [name], ebx
442
           mov [name], ebx
Line 445... Line 443...
445
 
443
 
446
           mov eax, 70
444
           mov eax, 70
447
           lea ebx, [cmd]
-
 
448
     ;      sub ebx, new_app_base
445
           lea ebx, [cmd]
449
           int 0x40
446
           int 0x40
450
           ret
447
           ret
Line 451... Line 448...
451
endp
448
endp
Line 515... Line 512...
515
 
512
 
516
             file       dd ?
513
             file       dd ?
517
             file2      dd ?
514
             file2      dd ?
Line -... Line 515...
-
 
515
           endl
-
 
516
 
-
 
517
           push ebx
-
 
518
           push esi
518
           endl
519
           push edi
519
 
520
 
520
           lea eax, [attr]
521
           lea eax, [attr]
521
           stdcall get_fileinfo, [file_name], eax
522
           stdcall get_fileinfo, [file_name], eax
Line 559... Line 560...
559
           cld
560
           cld
560
           rep stosb
561
           rep stosb
561
@@:
562
@@:
562
           mov ebx, [file_size]
563
           mov ebx, [file_size]
563
           pop eax
564
           pop eax
-
 
565
           pop edi
-
 
566
           pop esi
-
 
567
           pop ebx
564
           ret
568
           ret
565
.cleanup:
569
.cleanup:
566
           stdcall kernel_free, [file]
570
           stdcall kernel_free, [file]
567
.fail:
571
.fail:
568
           xor eax, eax
572
           xor eax, eax
569
           xor ebx, ebx
573
           xor ebx, ebx
-
 
574
           pop edi
-
 
575
           pop esi
-
 
576
           pop ebx
570
           ret
577
           ret
571
endp
578
endp
Line 572... Line 579...
572
 
579
 
573
align 4
580
align 4