Subversion Repositories Kolibri OS

   ret

; \begin{diamond}

fd_find_lfn:

; in: esi->name

; out: CF=1 - file not found

;      else CF=0 and edi->direntry

	pusha

	sub	esp, 262*2	; reserve place for LFN

	mov	ebp, esp

	call	read_flp_fat

	cmp	[FDC_Status], 0

	jnz	.error

	mov	eax, 19

	mov	dh, 14

.main_loop:

.20_1:

	pusha

	call	read_chs_sector

	popa

	cmp	[FDC_Status], 0

	jnz	.error

	mov	edi, 0xD000

	inc	[FDD_Sector]

	push	eax

.21_1:

	call	fat_get_name

	jc	@f

	call	fat_compare_name

	jz	.found

@@:

	add	edi, 0x20

	cmp	edi, 0xD200

	jb	.21_1

	pop	eax

	inc	eax

	dec	dh

	js	@f

	jnz	.20_1

.error:

	add	esp, 262*2

	popa

	stc

	ret

@@:

; read next sector from FAT

	mov	eax, [(eax-31)*2+0x282000]

	and	eax, 0xFFF

	cmp	eax, 0xFF8

	jae	.error

	add	eax, 31

	jmp	.main_loop

.found:

	pop	eax

; if LFN entry, advance to corresponding short entry

	cmp	byte [edi+11], 0xF

	jnz	.entryfound

	add	edi, 0x20

	cmp	edi, 0xD200

	jb	.entryfound

	dec	dh

	jz	.error

	inc	eax

	call	read_chs_sector

	cmp	[FDC_Status], 0

	jnz	.error

	mov	edi, 0xD000

.entryfound:

	cmp	byte [esi], 0

	jz	.done

	test	byte [edi+11], 10h	; is a directory?

	jz	.error

	movzx	eax, word [edi+26]

	add	eax, 31

	mov	dh, 0

	jmp	.main_loop

.done:

	add	esp, 262*2+4

	push	edi

	popad

	ret

;----------------------------------------------------------------

;

;  fs_FloppyRead - LFN variant for reading floppy

;

;  esi  points to filename

;  ebx  pointer to 64-bit number = first wanted byte, 0+

;       may be ebx=0 - start from first byte

;  ecx  number of bytes to read, 0+

;  edx  mem location to return data

;

;  ret ebx = size or 0xffffffff file not found

;      eax = 0 ok read or other = errormsg

;

;--------------------------------------------------------------

fs_FloppyRead:

	mov	[save_flag], 0

	cmp	byte [esi], 0

	jnz	@f

	or	ebx, -1

	mov	eax, 10		; access denied

	ret

@@:

	push	edi

	call	fd_find_lfn

	jnc	.found

	pop	edi

	or	ebx, -1

	mov	eax, 5		; file not found

	ret

.found:

	test	ebx, ebx

	jz	.l1

	cmp	dword [ebx+4], 0

	jz	@f

	mov	ebx, [edi+28]

.reteof:

	mov	eax, 6		; EOF

	pop	edi

	ret

@@:

	mov	ebx, [ebx]

.l1:

	push	dword [edi+28]

	push	dword [edi+28]

	movzx	edi, word [edi+26]

	push	ecx edx

.new:

	jecxz	.done

	test	edi, edi

	jz	.eof

	cmp	edi, 0xFF8

	jae	.eof

	mov	eax, edi

	add	eax, 31

	pusha

	call	read_chs_sector

	popa

	cmp	[FDC_Status], 0

	jnz	.err

	sub	ebx, 512

	jae	.skip

	lea	eax, [eax+ebx+512]

	neg	ebx

	push	ecx

	cmp	ecx, ebx

	jbe	@f

	mov	ecx, ebx

@@:

	cmp	ecx, [esp+12]

	jbe	@f

	mov	ecx, [esp+12]

@@:

	mov	ebx, edx

	mov	eax, 0xD000

	call	memmove

	add	edx, ecx

	sub	[esp], ecx

	sub	[esp+12], ecx

	pop	ecx

	xor	ebx, ebx

	cmp	[esp+8], ebx

	jnz	.skip

	jecxz	.done

	jmp	.eof

.skip:

	movzx	edi, word [edi*2+0x282000]

	jmp	.new

.done:

	pop	edx ecx ebx ebx edi

	xor	eax, eax

	ret

.eof:

	pop	edx ecx ebx ebx

	jmp	.reteof

.err:

	mov	eax, 5	; may be other error code?

	pop	edx ecx ebx ebx edi

	ret