681 lines
17 KiB
PHP
681 lines
17 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; ;;
|
||
;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
|
||
;; Distributed under terms of the GNU General Public License ;;
|
||
;; ;;
|
||
;; ;;
|
||
;; System service for filesystem call ;;
|
||
;; (C) 2004 Ville Turjanmaa, License: GPL ;;
|
||
;; 29.04.2006 Elimination of hangup after the ;;
|
||
;; expiration hd_wait_timeout (for LBA) - Mario79 ;;
|
||
;; 15.01.2005 get file size/attr/date, ;;
|
||
;; file_append (only for hd) - ATV ;;
|
||
;; 23.11.2004 test if hd/partition is set - ATV ;;
|
||
;; 18.11.2004 get_disk_info and more error codes - ATV ;;
|
||
;; 08.11.2004 expand_pathz and rename (only for hd) - ATV ;;
|
||
;; 20.10.2004 Makedir/Removedir (only for hd) - ATV ;;
|
||
;; ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
$Revision$
|
||
|
||
|
||
iglobal
|
||
|
||
if lang eq sp
|
||
include 'fs/fs-sp.inc'
|
||
else
|
||
dir0:
|
||
db 'HARDDISK '
|
||
db 'RAMDISK '
|
||
db 'FLOPPYDISK '
|
||
db 0
|
||
|
||
dir1:
|
||
db 'FIRST '
|
||
db 'SECOND '
|
||
db 'THIRD '
|
||
db 'FOURTH '
|
||
db 0
|
||
end if
|
||
|
||
not_select_IDE db 0
|
||
|
||
hd_address_table:
|
||
dd 0x1f0,0x00,0x1f0,0x10
|
||
dd 0x170,0x00,0x170,0x10
|
||
endg
|
||
|
||
file_system:
|
||
|
||
; IN:
|
||
;
|
||
; eax = 0 ; read file /RamDisk/First 6
|
||
; eax = 8 ; lba read
|
||
; eax = 15 ; get_disk_info
|
||
;
|
||
; OUT:
|
||
;
|
||
; eax = 0 : read ok
|
||
; eax = 1 : no hd base and/or partition defined
|
||
; eax = 2 : function is unsupported for this FS
|
||
; eax = 3 : unknown FS
|
||
; eax = 4 : partition not defined at hd
|
||
; eax = 5 : file not found
|
||
; eax = 6 : end of file
|
||
; eax = 7 : memory pointer not in application area
|
||
; eax = 8 : disk full
|
||
; eax = 9 : fat table corrupted
|
||
; eax = 10 : access denied
|
||
; eax = 11 : disk error
|
||
;
|
||
; ebx = size
|
||
|
||
; \begin{diamond}[18.03.2006]
|
||
; for subfunction 16 (start application) error codes must be negative
|
||
; because positive values are valid PIDs
|
||
; so possible return values are:
|
||
; eax > 0 : process created, eax=PID
|
||
|
||
; -0x10 <= eax < 0 : -eax is filesystem error code:
|
||
; eax = -1 = 0xFFFFFFFF : no hd base and/or partition defined
|
||
; eax = -3 = 0xFFFFFFFD : unknown FS
|
||
; eax = -5 = 0xFFFFFFFB : file not found
|
||
; eax = -6 = 0xFFFFFFFA : unexpected end of file (probably not executable file)
|
||
; eax = -9 = 0xFFFFFFF7 : fat table corrupted
|
||
; eax = -10 = 0xFFFFFFF6 : access denied
|
||
|
||
; -0x20 <= eax < -0x10: eax is process creation error code:
|
||
; eax = -0x20 = 0xFFFFFFE0 : too many processes
|
||
; eax = -0x1F = 0xFFFFFFE1 : not Menuet/Kolibri executable
|
||
; eax = -0x1E = 0xFFFFFFE2 : no memory
|
||
|
||
; ebx is not changed
|
||
|
||
; \end{diamond}[18.03.2006]
|
||
|
||
; Extract parameters
|
||
; add eax, std_application_base_address ; abs start of info block
|
||
|
||
cmp dword [eax+0], 15; GET_DISK_INFO
|
||
je fs_info
|
||
|
||
cmp dword [CURRENT_TASK], 1; no memory checks for kernel requests
|
||
jz no_checks_for_kernel
|
||
mov edx, eax
|
||
cmp dword [eax+0], 1
|
||
jnz .usual_check
|
||
mov ebx, [eax+12]
|
||
; add ebx,std_application_base_address
|
||
mov ecx, [eax+8]
|
||
call check_region
|
||
test eax, eax
|
||
jnz area_in_app_mem
|
||
|
||
.error_output:
|
||
mov esi, buffer_failed
|
||
call sys_msg_board_str
|
||
; mov eax,7
|
||
mov dword [esp+36], 7
|
||
ret
|
||
iglobal
|
||
buffer_failed db 'K : Buffer check failed',13,10,0
|
||
endg
|
||
.usual_check:
|
||
cmp dword [eax+0], 0
|
||
mov ecx, 512
|
||
jnz .small_size
|
||
mov ecx, [eax+8]
|
||
shl ecx, 9
|
||
.small_size:
|
||
mov ebx, [eax+12]
|
||
; add ebx,std_application_base_address
|
||
call check_region
|
||
test eax, eax
|
||
jz .error_output
|
||
area_in_app_mem:
|
||
mov eax, edx
|
||
no_checks_for_kernel:
|
||
|
||
fs_read:
|
||
|
||
mov ebx, [eax+20] ; program wants root directory ?
|
||
test bl, bl
|
||
je fs_getroot
|
||
test bh, bh
|
||
jne fs_noroot
|
||
fs_getroot:
|
||
; \begin{diamond}[18.03.2006]
|
||
; root - only read is allowed
|
||
; other operations return "access denied", eax=10
|
||
; (execute operation returns eax=-10)
|
||
cmp dword [eax], 0
|
||
jz .read_root
|
||
mov dword [esp+36], 10
|
||
ret
|
||
.read_root:
|
||
; \end{diamond}[18.03.2006]
|
||
mov esi, dir0
|
||
mov edi, [eax+12]
|
||
; add edi,std_application_base_address
|
||
mov ecx, 11
|
||
push ecx
|
||
; cld ; already is
|
||
rep movsb
|
||
mov al, 0x10
|
||
stosb
|
||
add edi, 32-11-1
|
||
pop ecx
|
||
rep movsb
|
||
stosb
|
||
and dword [esp+36], 0; ok read
|
||
mov dword [esp+24], 32*2; size of root
|
||
ret
|
||
|
||
fs_info: ;start of code - Mihasik
|
||
push eax
|
||
cmp [eax+21], byte 'r'
|
||
je fs_info_r
|
||
cmp [eax+21], byte 'R'
|
||
je fs_info_r
|
||
mov eax, 3 ;if unknown disk
|
||
xor ebx, ebx
|
||
xor ecx, ecx
|
||
xor edx, edx
|
||
jmp fs_info1
|
||
fs_info_r:
|
||
call ramdisk_free_space;if ramdisk
|
||
mov ecx, edi ;free space in ecx
|
||
shr ecx, 9 ;free clusters
|
||
mov ebx, 2847 ;total clusters
|
||
mov edx, 512 ;cluster size
|
||
xor eax, eax ;always 0
|
||
fs_info1:
|
||
pop edi
|
||
mov [esp+36], eax
|
||
mov [esp+24], ebx ; total clusters on disk
|
||
mov [esp+32], ecx ; free clusters on disk
|
||
mov [edi], edx ; cluster size in bytes
|
||
ret ;end of code - Mihasik
|
||
|
||
fs_noroot:
|
||
|
||
push dword [eax+0] ; read/write/delete/.../makedir/rename/lba/run
|
||
push dword [eax+4] ; 512 block number to read
|
||
push dword [eax+8] ; bytes to write/append or 512 blocks to read
|
||
mov ebx, [eax+12]
|
||
; add ebx,std_application_base_address
|
||
push ebx ; abs start of return/save area
|
||
|
||
lea esi, [eax+20] ; abs start of dir + filename
|
||
mov edi, [eax+16]
|
||
; add edi,std_application_base_address ; abs start of work area
|
||
|
||
call expand_pathz
|
||
|
||
push edi ; dir start
|
||
push ebx ; name of file start
|
||
|
||
mov eax, [edi+1]
|
||
cmp eax, 'RD '
|
||
je fs_yesramdisk
|
||
cmp eax, 'RAMD'
|
||
jne fs_noramdisk
|
||
|
||
fs_yesramdisk:
|
||
|
||
cmp byte [edi+1+11], 0
|
||
je fs_give_dir1
|
||
|
||
mov eax, [edi+1+12]
|
||
cmp eax, '1 '
|
||
je fs_yesramdisk_first
|
||
cmp eax, 'FIRS'
|
||
jne fs_noramdisk
|
||
|
||
fs_yesramdisk_first:
|
||
|
||
cmp dword [esp+20], 8; LBA read ramdisk
|
||
jne fs_no_LBA_read_ramdisk
|
||
|
||
mov eax, [esp+16] ; LBA block to read
|
||
mov ecx, [esp+8] ; abs pointer to return area
|
||
|
||
call LBA_read_ramdisk
|
||
jmp file_system_return
|
||
|
||
|
||
fs_no_LBA_read_ramdisk:
|
||
|
||
cmp dword [esp+20], 0; READ
|
||
jne fs_noramdisk_read
|
||
|
||
mov eax, [esp+4] ; fname
|
||
add eax, 2*12+1
|
||
mov ebx, [esp+16] ; block start
|
||
inc ebx
|
||
mov ecx, [esp+12] ; block count
|
||
mov edx, [esp+8] ; return
|
||
mov esi, [esp+0]
|
||
sub esi, eax
|
||
add esi, 12+1 ; file name length
|
||
call fileread
|
||
|
||
jmp file_system_return
|
||
|
||
|
||
fs_noramdisk_read:
|
||
fs_noramdisk:
|
||
|
||
;********************************************************************
|
||
mov eax, [edi+1]
|
||
cmp eax, 'FD '
|
||
je fs_yesflpdisk
|
||
cmp eax, 'FLOP'
|
||
jne fs_noflpdisk
|
||
|
||
fs_yesflpdisk:
|
||
call reserve_flp
|
||
|
||
cmp byte [edi+1+11], 0
|
||
je fs_give_dir1
|
||
|
||
mov eax, [edi+1+12]
|
||
cmp eax, '1 '
|
||
je fs_yesflpdisk_first
|
||
cmp eax, 'FIRS'
|
||
je fs_yesflpdisk_first
|
||
cmp eax, '2 '
|
||
je fs_yesflpdisk_second
|
||
cmp eax, 'SECO'
|
||
jne fs_noflpdisk
|
||
jmp fs_yesflpdisk_second
|
||
|
||
fs_yesflpdisk_first:
|
||
mov [flp_number], 1
|
||
jmp fs_yesflpdisk_start
|
||
fs_yesflpdisk_second:
|
||
mov [flp_number], 2
|
||
fs_yesflpdisk_start:
|
||
cmp dword [esp+20], 0; READ
|
||
jne fs_noflpdisk_read
|
||
|
||
mov eax, [esp+4] ; fname
|
||
add eax, 2*12+1
|
||
mov ebx, [esp+16] ; block start
|
||
inc ebx
|
||
mov ecx, [esp+12] ; block count
|
||
mov edx, [esp+8] ; return
|
||
mov esi, [esp+0]
|
||
sub esi, eax
|
||
add esi, 12+1 ; file name length
|
||
call floppy_fileread
|
||
|
||
jmp file_system_return
|
||
|
||
|
||
fs_noflpdisk_read:
|
||
fs_noflpdisk:
|
||
;*****************************************************************
|
||
|
||
old_path_harddisk:
|
||
mov eax, [edi+1]
|
||
cmp eax, 'HD '
|
||
je fs_yesharddisk
|
||
cmp eax, 'HARD'
|
||
jne fs_noharddisk
|
||
|
||
fs_yesharddisk:
|
||
cmp dword [esp+20], 8; LBA read
|
||
jne fs_no_LBA_read
|
||
mov eax, [esp+16] ; LBA block to read
|
||
lea ebx, [edi+1+12] ; pointer to FIRST/SECOND/THIRD/FOURTH
|
||
mov ecx, [esp+8] ; abs pointer to return area
|
||
call LBA_read
|
||
jmp file_system_return
|
||
|
||
fs_no_LBA_read:
|
||
|
||
hd_err_return:
|
||
|
||
fs_noharddisk:
|
||
; \begin{diamond}[18.03.2006]
|
||
mov eax, 5 ; file not found
|
||
; а может быть, возвращать другой код ошибки?
|
||
mov ebx, [esp+24+24]; do not change ebx in application
|
||
; \end{diamond}[18.03.2006]
|
||
|
||
file_system_return:
|
||
|
||
add esp, 24
|
||
|
||
mov [esp+36], eax
|
||
mov [esp+24], ebx
|
||
ret
|
||
|
||
|
||
fs_give_dir1:
|
||
|
||
; \begin{diamond}[18.03.2006]
|
||
; /RD,/FD,/HD - only read is allowed
|
||
; other operations return "access denied", eax=10
|
||
; (execute operation returns eax=-10)
|
||
cmp dword [esp+20], 0
|
||
jz .read
|
||
add esp, 20
|
||
pop ecx
|
||
mov dword [esp+36], 10
|
||
ret
|
||
.read:
|
||
; \end{diamond}[18.03.2006]
|
||
mov al, 0x10
|
||
mov ebx, 1
|
||
mov edi, [esp+8]
|
||
mov esi, dir1
|
||
fs_d1_new:
|
||
mov ecx, 11
|
||
; cld
|
||
rep movsb
|
||
stosb
|
||
add edi, 32-11-1
|
||
dec ebx
|
||
jne fs_d1_new
|
||
|
||
add esp, 24
|
||
|
||
and dword [esp+36], 0; ok read
|
||
mov dword [esp+24], 32*1; dir/data size
|
||
ret
|
||
|
||
|
||
|
||
LBA_read_ramdisk:
|
||
|
||
cmp [lba_read_enabled], 1
|
||
je lbarrl1
|
||
|
||
xor ebx, ebx
|
||
mov eax, 2
|
||
ret
|
||
|
||
lbarrl1:
|
||
|
||
cmp eax, 18*2*80
|
||
jb lbarrl2
|
||
xor ebx, ebx
|
||
mov eax, 3
|
||
ret
|
||
|
||
lbarrl2:
|
||
|
||
pushad
|
||
|
||
call restorefatchain
|
||
|
||
mov edi, ecx
|
||
mov esi, eax
|
||
|
||
shl esi, 9
|
||
add esi, RAMDISK
|
||
mov ecx, 512/4
|
||
; cld
|
||
rep movsd
|
||
|
||
popad
|
||
|
||
xor ebx, ebx
|
||
xor eax, eax
|
||
ret
|
||
|
||
LBA_read:
|
||
|
||
; IN:
|
||
;
|
||
; eax = LBA block to read
|
||
; ebx = pointer to FIRST/SECOND/THIRD/FOURTH
|
||
; ecx = abs pointer to return area
|
||
|
||
cmp [lba_read_enabled], 1
|
||
je lbarl1
|
||
mov eax, 2
|
||
ret
|
||
|
||
lbarl1:
|
||
|
||
pushad
|
||
mov ecx, ide_mutex
|
||
call mutex_lock
|
||
popad
|
||
|
||
push eax
|
||
push ecx
|
||
|
||
mov edi, hd_address_table
|
||
mov esi, dir1
|
||
mov eax, [ebx]
|
||
mov edx, '1 '
|
||
mov ecx, 4
|
||
blar0:
|
||
cmp eax, [esi]
|
||
je blar2
|
||
cmp eax, edx
|
||
je blar2
|
||
inc edx
|
||
add edi, 8
|
||
add esi, 11
|
||
dec ecx
|
||
jnz blar0
|
||
|
||
mov eax, 1
|
||
mov ebx, 1
|
||
jmp LBA_read_ret
|
||
|
||
blar2:
|
||
mov eax, [edi+0]
|
||
mov ebx, [edi+4]
|
||
|
||
mov [hdbase], eax
|
||
mov [hdid], ebx
|
||
|
||
call wait_for_hd_idle
|
||
cmp [hd_error], 0
|
||
jne hd_lba_error
|
||
|
||
; eax = hd port
|
||
; ebx = set for primary (0x00) or slave (0x10)
|
||
|
||
cli
|
||
|
||
mov edx, eax
|
||
inc edx
|
||
xor eax, eax
|
||
out dx, al
|
||
inc edx
|
||
inc eax
|
||
out dx, al
|
||
inc edx
|
||
mov eax, [esp+4]
|
||
out dx, al
|
||
shr eax, 8
|
||
inc edx
|
||
out dx, al
|
||
shr eax, 8
|
||
inc edx
|
||
out dx, al
|
||
shr eax, 8
|
||
inc edx
|
||
and al, 1+2+4+8
|
||
add al, bl
|
||
add al, 128+64+32
|
||
out dx, al
|
||
|
||
inc edx
|
||
mov al, 20h
|
||
out dx, al
|
||
|
||
sti
|
||
|
||
call wait_for_sector_buffer
|
||
cmp [hd_error], 0
|
||
jne hd_lba_error
|
||
|
||
cli
|
||
|
||
mov edi, [esp+0]
|
||
mov ecx, 256
|
||
sub edx, 7
|
||
cld
|
||
rep insw
|
||
|
||
sti
|
||
|
||
xor eax, eax
|
||
xor ebx, ebx
|
||
|
||
LBA_read_ret:
|
||
mov [hd_error], 0
|
||
mov [hd1_status], 0
|
||
add esp, 2*4
|
||
pushad
|
||
mov ecx, ide_mutex
|
||
call mutex_unlock
|
||
popad
|
||
|
||
ret
|
||
|
||
|
||
expand_pathz:
|
||
; IN:
|
||
; esi = asciiz path & file
|
||
; edi = buffer for path & file name
|
||
; OUT:
|
||
; edi = directory & file : / 11 + / 11 + / 11 - zero terminated
|
||
; ebx = /file name - zero terminated
|
||
; esi = pointer after source
|
||
|
||
push eax
|
||
push ecx
|
||
push edi;[esp+0]
|
||
|
||
pathz_start:
|
||
mov byte [edi], '/'
|
||
inc edi
|
||
mov al, 32
|
||
mov ecx, 11
|
||
cld
|
||
rep stosb ; clear filename area
|
||
sub edi, 11
|
||
mov ebx, edi ; start of dir/file name
|
||
|
||
pathz_new_char:
|
||
mov al, [esi]
|
||
inc esi
|
||
cmp al, 0
|
||
je pathz_end
|
||
|
||
cmp al, '/'
|
||
jne pathz_not_path
|
||
cmp edi, ebx ; skip first '/'
|
||
jz pathz_new_char
|
||
lea edi, [ebx+11] ; start of next directory
|
||
jmp pathz_start
|
||
|
||
pathz_not_path:
|
||
cmp al, '.'
|
||
jne pathz_not_ext
|
||
lea edi, [ebx+8] ; start of extension
|
||
jmp pathz_new_char
|
||
|
||
pathz_not_ext:
|
||
cmp al, 'a'
|
||
jb pathz_not_low
|
||
cmp al, 'z'
|
||
ja pathz_not_low
|
||
sub al, 0x20 ; char to uppercase
|
||
|
||
pathz_not_low:
|
||
mov [edi], al
|
||
inc edi
|
||
mov eax, [esp+0] ; start_of_dest_path
|
||
add eax, 512 ; keep maximum path under 512 bytes
|
||
cmp edi, eax
|
||
jb pathz_new_char
|
||
|
||
pathz_end:
|
||
cmp ebx, edi ; if path end with '/'
|
||
jnz pathz_put_zero ; go back 1 level
|
||
sub ebx, 12
|
||
|
||
pathz_put_zero:
|
||
mov byte [ebx+11], 0
|
||
dec ebx ; include '/' char into file name
|
||
pop edi
|
||
pop ecx
|
||
pop eax
|
||
ret
|
||
|
||
;*******************************************
|
||
;* string to number
|
||
;* input eax - 4 byte string
|
||
;* output eax - number
|
||
;*******************************************
|
||
StringToNumber:
|
||
; ПЕРЕВОД СТРОКОВОГО ЧИСЛА В ЧИСЛОВОЙ ВИД
|
||
; Вход:
|
||
; EDI - адрес строки с числом. Конец числа отмечен кодом 0Dh
|
||
; Выход:
|
||
; CF - индикатор ошибок:
|
||
; 0 - ошибок нет;
|
||
; 1 - ошибка
|
||
; Если CF=0, то AX - число.
|
||
|
||
push bx
|
||
push cx
|
||
push dx
|
||
push edi
|
||
mov [partition_string], eax
|
||
mov edi, partition_string
|
||
xor cx, cx
|
||
i1:
|
||
mov al, [edi]
|
||
cmp al, 32;13
|
||
je i_exit
|
||
; cmp al,'0'
|
||
; jb err
|
||
; cmp al,'9'
|
||
; ja err
|
||
sub al, 48
|
||
shl cx, 1
|
||
jc error
|
||
mov bx, cx
|
||
shl cx, 1
|
||
jc error
|
||
shl cx, 1
|
||
jc error
|
||
add cx, bx
|
||
jc error
|
||
cbw
|
||
add cx, ax
|
||
jc error
|
||
i3:
|
||
inc edi
|
||
jmp i1
|
||
i_exit:
|
||
mov ax, cx
|
||
clc
|
||
i4:
|
||
movzx eax, ax
|
||
pop edi
|
||
pop dx
|
||
pop cx
|
||
pop bx
|
||
ret
|
||
|
||
error:
|
||
stc
|
||
jmp i4
|
||
|
||
partition_string:
|
||
dd 0
|
||
db 32
|