forked from KolibriOS/kolibrios
679 lines
17 KiB
PHP
679 lines
17 KiB
PHP
; System function 70 - files with long names (LFN)
|
|
; diamond, 2006
|
|
|
|
iglobal
|
|
; in this table names must be in lowercase
|
|
rootdirs:
|
|
db 2,'rd'
|
|
dd fs_OnRamdisk
|
|
dd fs_NextRamdisk
|
|
db 7,'ramdisk'
|
|
dd fs_OnRamdisk
|
|
dd fs_NextRamdisk
|
|
db 2,'fd'
|
|
dd fs_OnFloppy
|
|
dd fs_NextFloppy
|
|
db 10,'floppydisk'
|
|
dd fs_OnFloppy
|
|
dd fs_NextFloppy
|
|
db 3,'hd0'
|
|
dd fs_OnHd0
|
|
dd fs_NextHd0
|
|
db 3,'hd1'
|
|
dd fs_OnHd1
|
|
dd fs_NextHd1
|
|
db 3,'hd2'
|
|
dd fs_OnHd2
|
|
dd fs_NextHd2
|
|
db 3,'hd3'
|
|
dd fs_OnHd3
|
|
dd fs_NextHd3
|
|
;**********************************************
|
|
db 3,'cd0'
|
|
dd fs_OnCd0
|
|
dd fs_NextCd
|
|
db 3,'cd1'
|
|
dd fs_OnCd1
|
|
dd fs_NextCd
|
|
db 3,'cd2'
|
|
dd fs_OnCd2
|
|
dd fs_NextCd
|
|
db 3,'cd3'
|
|
dd fs_OnCd3
|
|
dd fs_NextCd
|
|
;***********************************************
|
|
db 0
|
|
|
|
|
|
virtual_root_query:
|
|
dd fs_HasRamdisk
|
|
db 'rd',0
|
|
dd fs_HasFloppy
|
|
db 'fd',0
|
|
dd fs_HasHd0
|
|
db 'hd0',0
|
|
dd fs_HasHd1
|
|
db 'hd1',0
|
|
dd fs_HasHd2
|
|
db 'hd2',0
|
|
dd fs_HasHd3
|
|
db 'hd3',0
|
|
;**********************************************
|
|
dd fs_HasCd0
|
|
db 'cd0',0
|
|
dd fs_HasCd1
|
|
db 'cd1',0
|
|
dd fs_HasCd2
|
|
db 'cd2',0
|
|
dd fs_HasCd3
|
|
db 'cd3',0
|
|
;**********************************************
|
|
dd 0
|
|
endg
|
|
|
|
file_system_lfn:
|
|
; in: eax->fileinfo block
|
|
; operation codes:
|
|
; 0 : read file
|
|
; 1 : read folder
|
|
; 2 : create/rewrite file
|
|
; 3 : write/append to file
|
|
; 4 : set end of file
|
|
; 5 : get file/directory attributes structure
|
|
; 6 : set file/directory attributes structure
|
|
; 7 : start application
|
|
; 8 : delete file
|
|
; 9 : create directory
|
|
|
|
add eax, std_application_base_address
|
|
; parse file name
|
|
xchg ebx, eax
|
|
lea esi, [ebx+20]
|
|
mov ebp, esi ; for 'start app' function full path must be known
|
|
lodsb
|
|
test al, al
|
|
jnz @f
|
|
mov esi, [esi]
|
|
add esi, std_application_base_address
|
|
mov ebp, esi
|
|
lodsb
|
|
@@:
|
|
cmp dword [ebx], 7
|
|
jne @F
|
|
mov edx, [ebx+4]
|
|
mov ebx, [ebx+8]
|
|
test ebx, ebx
|
|
jz .l1
|
|
add ebx, new_app_base
|
|
.l1:
|
|
call fs_execute ; ebp, ebx, edx
|
|
mov [esp+36], eax
|
|
ret
|
|
@@:
|
|
cmp al, '/'
|
|
jz @f
|
|
.notfound:
|
|
mov dword [esp+36], 5 ; file not found
|
|
ret
|
|
@@:
|
|
cmp byte [esi], 0
|
|
jz .rootdir
|
|
mov edi, rootdirs-8
|
|
xor ecx, ecx
|
|
push esi
|
|
.scan1:
|
|
pop esi
|
|
add edi, ecx
|
|
scasd
|
|
scasd
|
|
mov cl, byte [edi]
|
|
jecxz .notfound
|
|
inc edi
|
|
push esi
|
|
@@:
|
|
lodsb
|
|
or al, 20h
|
|
scasb
|
|
loopz @b
|
|
jnz .scan1
|
|
lodsb
|
|
cmp al, '/'
|
|
jz .found1
|
|
test al, al
|
|
jnz .scan1
|
|
pop eax
|
|
; directory /xxx
|
|
.maindir:
|
|
cmp dword [ebx], 1
|
|
jnz .access_denied
|
|
xor eax, eax
|
|
mov ebp, [ebx+12]
|
|
mov edx, [ebx+16]
|
|
add edx, std_application_base_address
|
|
push dword [ebx+4] ; first block
|
|
mov ebx, [ebx+8] ; flags
|
|
mov esi, [edi+4]
|
|
; ebx=flags, [esp]=first block, ebp=number of blocks, edx=return area, esi='Next' handler
|
|
mov edi, edx
|
|
mov ecx, 32/4
|
|
rep stosd
|
|
mov byte [edx], 1 ; version
|
|
.maindir_loop:
|
|
call esi
|
|
jc .maindir_done
|
|
inc dword [edx+8]
|
|
dec dword [esp]
|
|
jns .maindir_loop
|
|
dec ebp
|
|
js .maindir_loop
|
|
inc dword [edx+4]
|
|
mov dword [edi], 0x10 ; attributes: folder
|
|
mov dword [edi+4], 1 ; name type: UNICODE
|
|
push eax
|
|
xor eax, eax
|
|
add edi, 8
|
|
mov ecx, 40/4-2
|
|
rep stosd
|
|
pop eax
|
|
push eax edx
|
|
; convert number in eax to decimal UNICODE string
|
|
push edi
|
|
push -'0'
|
|
mov cl, 10
|
|
@@:
|
|
xor edx, edx
|
|
div ecx
|
|
push edx
|
|
test eax, eax
|
|
jnz @b
|
|
@@:
|
|
pop eax
|
|
add al, '0'
|
|
stosb
|
|
test bl, 1 ; UNICODE name?
|
|
jz .ansi2
|
|
mov byte [edi], 0
|
|
inc edi
|
|
.ansi2:
|
|
test al, al
|
|
jnz @b
|
|
mov byte [edi-1], 0
|
|
pop edi
|
|
; UNICODE name length is 520 bytes, ANSI - 264
|
|
add edi, 520
|
|
test bl, 1
|
|
jnz @f
|
|
sub edi, 520-264
|
|
@@:
|
|
pop edx eax
|
|
jmp .maindir_loop
|
|
.maindir_done:
|
|
pop eax
|
|
mov ebx, [edx+4]
|
|
xor eax, eax
|
|
dec ebp
|
|
js @f
|
|
mov al, ERROR_END_OF_FILE
|
|
@@:
|
|
mov [esp+36], eax
|
|
mov [esp+24], ebx
|
|
ret
|
|
; directory /
|
|
.rootdir:
|
|
cmp dword [ebx], 1 ; read folder?
|
|
jz .readroot
|
|
.access_denied:
|
|
mov dword [esp+36], 10 ; access denied
|
|
ret
|
|
|
|
.readroot:
|
|
; virtual root folder - special handler
|
|
mov esi, virtual_root_query
|
|
mov ebp, [ebx+12]
|
|
mov edx, [ebx+16]
|
|
add edx, std_application_base_address
|
|
push dword [ebx+4] ; first block
|
|
mov ebx, [ebx+8] ; flags
|
|
xor eax, eax
|
|
; eax=0, [esp]=first block, ebx=flags, ebp=number of blocks, edx=return area
|
|
mov edi, edx
|
|
mov ecx, 32/4
|
|
rep stosd
|
|
mov byte [edx], 1 ; version
|
|
.readroot_loop:
|
|
cmp dword [esi], eax
|
|
jz .readroot_done
|
|
call dword [esi]
|
|
add esi, 4
|
|
test eax, eax
|
|
jnz @f
|
|
.readroot_next:
|
|
or ecx, -1
|
|
xchg esi, edi
|
|
repnz scasb
|
|
xchg esi, edi
|
|
jmp .readroot_loop
|
|
@@:
|
|
xor eax, eax
|
|
inc dword [edx+8]
|
|
dec dword [esp]
|
|
jns .readroot_next
|
|
dec ebp
|
|
js .readroot_next
|
|
inc dword [edx+4]
|
|
mov dword [edi], 0x10 ; attributes: folder
|
|
mov dword [edi+4], 1 ; name type: UNICODE
|
|
add edi, 8
|
|
mov ecx, 40/4-2
|
|
rep stosd
|
|
push edi
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test bl, 1
|
|
jz .ansi
|
|
mov byte [edi], 0
|
|
inc edi
|
|
.ansi:
|
|
test eax, eax
|
|
jnz @b
|
|
pop edi
|
|
add edi, 520
|
|
test bl, 1
|
|
jnz .readroot_loop
|
|
sub edi, 520-264
|
|
jmp .readroot_loop
|
|
.readroot_done:
|
|
pop eax
|
|
mov ebx, [edx+4]
|
|
xor eax, eax
|
|
dec ebp
|
|
js @f
|
|
mov al, ERROR_END_OF_FILE
|
|
@@:
|
|
mov [esp+36], eax
|
|
mov [esp+24], ebx
|
|
ret
|
|
|
|
.found1:
|
|
pop eax
|
|
cmp byte [esi], 0
|
|
jz .maindir
|
|
; read partition number
|
|
xor ecx, ecx
|
|
xor eax, eax
|
|
@@:
|
|
lodsb
|
|
cmp al, '/'
|
|
jz .done1
|
|
test al, al
|
|
jz .done1
|
|
sub al, '0'
|
|
cmp al, 9
|
|
ja .notfound
|
|
imul ecx, 10
|
|
add ecx, eax
|
|
jmp @b
|
|
.done1:
|
|
test ecx, ecx
|
|
jz .notfound
|
|
test al, al
|
|
jnz @f
|
|
dec esi
|
|
@@:
|
|
; now [edi] contains handler address, ecx - partition number,
|
|
; esi points to ASCIIZ string - rest of name
|
|
jmp dword [edi]
|
|
|
|
; handlers for devices
|
|
; in: ecx = 0 => query virtual directory /xxx
|
|
; in: ecx = partition number
|
|
; esi -> relative (for device) name
|
|
; ebx -> fileinfo
|
|
; out: [esp+36]=image of eax, [esp+24]=image of ebx
|
|
|
|
fs_OnRamdisk:
|
|
cmp ecx, 1
|
|
jnz file_system_lfn.notfound
|
|
mov eax, [ebx]
|
|
cmp eax, fs_NumRamdiskServices
|
|
jae .not_impl
|
|
mov ecx, [ebx+12]
|
|
mov edx, [ebx+16]
|
|
add edx, std_application_base_address
|
|
add ebx, 4
|
|
call dword [fs_RamdiskServices + eax*4]
|
|
mov [esp+36], eax
|
|
mov [esp+24], ebx
|
|
ret
|
|
.not_impl:
|
|
mov dword [esp+36], 2 ; not implemented
|
|
ret
|
|
|
|
fs_NotImplemented:
|
|
mov eax, 2
|
|
ret
|
|
|
|
fs_RamdiskServices:
|
|
dd fs_RamdiskRead
|
|
dd fs_RamdiskReadFolder
|
|
dd fs_RamdiskRewrite
|
|
dd fs_RamdiskWrite
|
|
dd fs_RamdiskSetFileEnd
|
|
dd fs_RamdiskGetFileInfo
|
|
dd fs_RamdiskSetFileInfo
|
|
dd 0 ;fs_RamdiskExecute
|
|
dd fs_RamdiskDelete
|
|
dd fs_RamdiskCreateFolder
|
|
fs_NumRamdiskServices = ($ - fs_RamdiskServices)/4
|
|
|
|
fs_OnFloppy:
|
|
cmp ecx, 2
|
|
ja file_system_lfn.notfound
|
|
mov eax, [ebx]
|
|
cmp eax, fs_NumFloppyServices
|
|
jae fs_OnRamdisk.not_impl
|
|
call reserve_flp
|
|
mov [flp_number], cl
|
|
mov ecx, [ebx+12]
|
|
mov edx, [ebx+16]
|
|
add edx, std_application_base_address
|
|
add ebx, 4
|
|
call dword [fs_FloppyServices + eax*4]
|
|
and [flp_status], 0
|
|
mov [esp+36], eax
|
|
mov [esp+24], ebx
|
|
ret
|
|
|
|
fs_FloppyServices:
|
|
dd fs_FloppyRead
|
|
dd fs_FloppyReadFolder
|
|
dd fs_FloppyRewrite
|
|
dd fs_FloppyWrite
|
|
dd fs_FloppySetFileEnd
|
|
dd fs_FloppyGetFileInfo
|
|
dd fs_FloppySetFileInfo
|
|
dd 0 ;fs_FloppyExecute
|
|
dd fs_FloppyDelete
|
|
dd fs_FloppyCreateFolder
|
|
fs_NumFloppyServices = ($ - fs_FloppyServices)/4
|
|
|
|
fs_OnHd0:
|
|
call reserve_hd1
|
|
mov [hdbase], 0x1F0
|
|
mov [hdid], 0
|
|
push 1
|
|
jmp fs_OnHd
|
|
fs_OnHd1:
|
|
call reserve_hd1
|
|
mov [hdbase], 0x1F0
|
|
mov [hdid], 0x10
|
|
push 2
|
|
jmp fs_OnHd
|
|
fs_OnHd2:
|
|
call reserve_hd1
|
|
mov [hdbase], 0x170
|
|
mov [hdid], 0
|
|
push 3
|
|
jmp fs_OnHd
|
|
fs_OnHd3:
|
|
call reserve_hd1
|
|
mov [hdbase], 0x170
|
|
mov [hdid], 0x10
|
|
push 4
|
|
fs_OnHd:
|
|
call reserve_hd_channel
|
|
pop eax
|
|
mov [hdpos], eax
|
|
cmp ecx, 0x100
|
|
jae .nf
|
|
cmp cl, [0x40001+eax]
|
|
jbe @f
|
|
.nf:
|
|
call free_hd_channel
|
|
and [hd1_status], 0
|
|
mov dword [esp+36], 5 ; not found
|
|
ret
|
|
@@:
|
|
mov [fat32part], ecx
|
|
push ebx esi
|
|
call choice_necessity_partition_1
|
|
pop esi ebx
|
|
mov ecx, [ebx+12]
|
|
mov edx, [ebx+16]
|
|
add edx, std_application_base_address
|
|
mov eax, [ebx]
|
|
cmp eax, fs_NumHdServices
|
|
jae .not_impl
|
|
add ebx, 4
|
|
call dword [fs_HdServices + eax*4]
|
|
call free_hd_channel
|
|
and [hd1_status], 0
|
|
mov [esp+36], eax
|
|
mov [esp+24], ebx
|
|
ret
|
|
.not_impl:
|
|
call free_hd_channel
|
|
and [hd1_status], 0
|
|
mov dword [esp+36], 2 ; not implemented
|
|
ret
|
|
|
|
fs_HdServices:
|
|
dd fs_HdRead
|
|
dd fs_HdReadFolder
|
|
dd fs_HdRewrite
|
|
dd fs_HdWrite
|
|
dd fs_HdSetFileEnd
|
|
dd fs_HdGetFileInfo
|
|
dd fs_HdSetFileInfo
|
|
dd 0 ;fs_HdExecute
|
|
dd fs_HdDelete
|
|
dd fs_HdCreateFolder
|
|
fs_NumHdServices = ($ - fs_HdServices)/4
|
|
|
|
;*******************************************************
|
|
fs_OnCd0:
|
|
call reserve_cd
|
|
mov [ChannelNumber],1
|
|
mov [DiskNumber],0
|
|
push 6
|
|
jmp fs_OnCd
|
|
fs_OnCd1:
|
|
call reserve_cd
|
|
mov [ChannelNumber],1
|
|
mov [DiskNumber],1
|
|
push 4
|
|
jmp fs_OnCd
|
|
fs_OnCd2:
|
|
call reserve_cd
|
|
mov [ChannelNumber],2
|
|
mov [DiskNumber],0
|
|
push 2
|
|
jmp fs_OnCd
|
|
fs_OnCd3:
|
|
call reserve_cd
|
|
mov [ChannelNumber],2
|
|
mov [DiskNumber],1
|
|
push 0
|
|
fs_OnCd:
|
|
call reserve_cd_channel
|
|
pop eax
|
|
mov [hdpos], eax
|
|
cmp ecx, 0x100
|
|
jae .nf
|
|
push ecx ebx
|
|
mov cl,al
|
|
mov bl,[0x40001]
|
|
shr bl,cl
|
|
test bl,2
|
|
pop ebx ecx
|
|
|
|
jnz @f
|
|
.nf:
|
|
call free_cd_channel
|
|
and [cd_status], 0
|
|
mov dword [esp+36], 5 ; not found
|
|
ret
|
|
@@:
|
|
mov ecx, [ebx+12]
|
|
mov edx, [ebx+16]
|
|
add edx, std_application_base_address
|
|
mov eax, [ebx]
|
|
cmp eax,fs_NumCdServices
|
|
jae .not_impl
|
|
add ebx, 4
|
|
call dword [fs_CdServices + eax*4]
|
|
call free_cd_channel
|
|
and [cd_status], 0
|
|
mov [esp+36], eax
|
|
mov [esp+24], ebx
|
|
ret
|
|
.not_impl:
|
|
call free_cd_channel
|
|
and [cd_status], 0
|
|
mov dword [esp+36], 2 ; not implemented
|
|
ret
|
|
|
|
fs_CdServices:
|
|
dd fs_CdRead
|
|
dd fs_CdReadFolder
|
|
dd fs_NotImplemented
|
|
dd fs_NotImplemented
|
|
dd fs_NotImplemented
|
|
dd fs_CdGetFileInfo
|
|
dd fs_NotImplemented
|
|
dd fs_CdExecute
|
|
fs_NumCdServices = ($ - fs_CdServices)/4
|
|
|
|
;*******************************************************
|
|
|
|
fs_HasRamdisk:
|
|
mov al, 1 ; we always have ramdisk
|
|
ret
|
|
|
|
fs_HasFloppy:
|
|
cmp byte [DRIVE_DATA], 0
|
|
setnz al
|
|
ret
|
|
|
|
fs_HasHd0:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 11000000b
|
|
cmp al, 01000000b
|
|
setz al
|
|
ret
|
|
fs_HasHd1:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 00110000b
|
|
cmp al, 00010000b
|
|
setz al
|
|
ret
|
|
fs_HasHd2:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 00001100b
|
|
cmp al, 00000100b
|
|
setz al
|
|
ret
|
|
fs_HasHd3:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 00000011b
|
|
cmp al, 00000001b
|
|
setz al
|
|
ret
|
|
|
|
;*******************************************************
|
|
fs_HasCd0:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 11000000b
|
|
cmp al, 10000000b
|
|
setz al
|
|
ret
|
|
fs_HasCd1:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 00110000b
|
|
cmp al, 00100000b
|
|
setz al
|
|
ret
|
|
fs_HasCd2:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 00001100b
|
|
cmp al, 00001000b
|
|
setz al
|
|
ret
|
|
fs_HasCd3:
|
|
mov al, [DRIVE_DATA+1]
|
|
and al, 00000011b
|
|
cmp al, 00000010b
|
|
setz al
|
|
ret
|
|
;*******************************************************
|
|
|
|
; fs_NextXXX functions:
|
|
; in: eax = partition number, from which start to scan
|
|
; out: CF=1 => no more partitions
|
|
; CF=0 => eax=next partition number
|
|
|
|
fs_NextRamdisk:
|
|
; we always have /rd/1
|
|
test eax, eax
|
|
stc
|
|
jnz @f
|
|
mov al, 1
|
|
clc
|
|
@@:
|
|
ret
|
|
|
|
fs_NextFloppy:
|
|
; we have /fd/1 iff (([DRIVE_DATA] and 0xF0) != 0) and /fd/2 iff (([DRIVE_DATA] and 0x0F) != 0)
|
|
test byte [DRIVE_DATA], 0xF0
|
|
jz .no1
|
|
test eax, eax
|
|
jnz .no1
|
|
inc eax
|
|
ret ; CF cleared
|
|
.no1:
|
|
test byte [DRIVE_DATA], 0x0F
|
|
jz .no2
|
|
cmp al, 2
|
|
jae .no2
|
|
mov al, 2
|
|
clc
|
|
ret
|
|
.no2:
|
|
stc
|
|
ret
|
|
|
|
; on hdx, we have partitions from 1 to [0x40002+x]
|
|
fs_NextHd0:
|
|
push 0
|
|
jmp fs_NextHd
|
|
fs_NextHd1:
|
|
push 1
|
|
jmp fs_NextHd
|
|
fs_NextHd2:
|
|
push 2
|
|
jmp fs_NextHd
|
|
fs_NextHd3:
|
|
push 3
|
|
fs_NextHd:
|
|
pop ecx
|
|
movzx ecx, byte [DRIVE_DATA+2+ecx]
|
|
cmp eax, ecx
|
|
jae fs_NextFloppy.no2
|
|
inc eax
|
|
clc
|
|
ret
|
|
|
|
;*******************************************************
|
|
fs_NextCd:
|
|
; we always have /cdX/1
|
|
test eax, eax
|
|
stc
|
|
jnz @f
|
|
mov al, 1
|
|
clc
|
|
@@:
|
|
ret
|
|
;*******************************************************
|
|
|