Subversion Repositories Kolibri OS

Rev

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

Rev 6333 Rev 6338
Line 3... Line 3...
3
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
3
;; Copyright (C) KolibriOS team 2004-2015. 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: 6333 $
8
$Revision: 6338 $
9
 
9
 
10
ERROR_SUCCESS        = 0
10
ERROR_SUCCESS        = 0
11
ERROR_DISK_BASE      = 1
11
ERROR_DISK_BASE      = 1
Line 133... Line 133...
133
        jnz     @f
133
        jnz     @f
134
        mov     esi, [esi]
134
        mov     esi, [esi]
135
        lodsb
135
        lodsb
136
@@:
136
@@:
137
        lea     ebp, [esi-1]
137
        lea     ebp, [esi-1]
-
 
138
if 0
-
 
139
        cmp     [ebx], dword 0
-
 
140
        jne     @F
-
 
141
        DEBUGF 1,'read file %s\n',ebp
-
 
142
        jmp     .1
-
 
143
@@:
-
 
144
        cmp     [ebx], dword 5
-
 
145
        jne     @F
-
 
146
        DEBUGF 1,'get file attributes %s\n',ebp
-
 
147
@@:
-
 
148
.1:
-
 
149
end if
-
 
150
 
138
        cmp     dword [ebx], 7
151
        cmp     dword [ebx], 7
139
        jne     @F
152
        jne     @F
140
        mov     edx, [ebx+4]
153
        mov     edx, [ebx+4]
141
        mov     ebx, [ebx+8]
154
        mov     ebx, [ebx+8]
142
        call    fs_execute; ebp, ebx, edx
155
        call    fs_execute; ebp, ebx, edx