Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                                 ;;

;;  FAT32.INC                                                      ;;

;;                                                                 ;;

;;  FAT16/32 functions for KolibriOS                               ;;

;;                                                                 ;;

;;  Copyright 2002 Paolo Minazzi, paolo.minazzi@inwind.it          ;;

;;                                                                 ;;

;;  See file COPYING for details                                   ;;

;;  08.10.2006 LFN delete file/folder - diamond                    ;;

;;  20.08.2006 LFN set file size (truncate/extend) - diamond       ;;

;;  17.08.2006 LFN write/append to file - diamond                  ;;

;;  23.06.2006 LFN start application - diamond                     ;;

;;  15.06.2006 LFN get/set file/folder info - diamond              ;;

;;  27.05.2006 LFN create/rewrite file - diamond                   ;;

;;  04.05.2006 LFN read folder - diamond                           ;;

;;  29.04.2006 Elimination of hangup after the                     ;;

;;             expiration hd_wait_timeout -  Mario79               ;;

;;  23.04.2006 LFN read file - diamond                             ;;

;;  28.01.2006 find all Fat16/32 partition in all input point      ;;

;;             to MBR, see file part_set.inc - Mario79             ;;

;;  15.01.2005 get file size/attr/date, file_append - ATV          ;;

;;  04.12.2004 skip volume label, file delete bug fixed - ATV      ;;

;;  29.11.2004 get_free_FAT changed, append dir bug fixed - ATV    ;;

;;  23.11.2004 don't allow overwrite dir with file - ATV           ;;

;;  18.11.2004 get_disk_info and more error codes - ATV            ;;

;;  17.11.2004 set_FAT/get_FAT and disk cache rewritten - ATV      ;;

;;  10.11.2004 removedir clear whole directory structure - ATV     ;;

;;  08.11.2004 rename - ATV                                        ;;

;;  30.10.2004 file_read return also dirsize in bytes - ATV        ;;

;;  20.10.2004 Makedir/Removedir - ATV                             ;;

;;  14.10.2004 Partition chain/Fat16 - ATV (thanks drh3xx)         ;;

;;  06.9.2004  Fix free space by Mario79 added - MH                ;;

;;  24.5.2004  Write back buffer for File_write -VT                ;;

;;  20.5.2004  File_read function to work with syscall 58 - VT     ;;

;;  30.3.2004  Error parameters at function return - VT            ;;

;;  01.5.2002  Bugfix in device write - VT                         ;;

;;  20.5.2002  Hd status check - VT                                ;;

;;  29.6.2002  Improved fat32 verification - VT                    ;;

;;                                                                 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

cache_max equ 1919      ; max. is 1919*512+0x610000=0x6ffe00

ERROR_SUCCESS        = 0

ERROR_DISK_BASE      = 1

ERROR_UNSUPPORTED_FS = 2

ERROR_UNKNOWN_FS     = 3

ERROR_PARTITION      = 4

ERROR_FILE_NOT_FOUND = 5

ERROR_END_OF_FILE    = 6

ERROR_MEMORY_POINTER = 7

ERROR_DISK_FULL      = 8

ERROR_FAT_TABLE      = 9

ERROR_ACCESS_DENIED  = 10

PUSHAD_EAX equ [esp+28]

PUSHAD_ECX equ [esp+24]

PUSHAD_EDX equ [esp+20]

PUSHAD_EBX equ [esp+16]

PUSHAD_EBP equ [esp+8]

PUSHAD_ESI equ [esp+4]

PUSHAD_EDI equ [esp+0]

uglobal

align 4

cluster              dd 0       ; used by file_write,makedir,append

partition_count      dd 0       ; partitions found by set_FAT32_variables

longname_sec1        dd 0       ; used by analyze_directory to save 2 previous

longname_sec2        dd 0       ; directory sectors for delete long filename

hd_error             dd 0       ; set by wait_for_sector_buffer

hd_setup             dd 0

hd_wait_timeout      dd 0

cluster_tmp          dd 0       ; used by analyze_directory

                                ; and analyze_directory_to_write

file_size            dd 0       ; used by file_read

sector_tmp           dd 0       ; used by rename,append,file_write

entry_pos            dd 0       ; used by rename,append,file_write

old_filesize         dd 0       ; used by append

new_filepos          dd 0       ; used by append

bytes2write          dd 0       ; used by append

cache_search_start   dd 0       ; used by find_empty_slot

endg

iglobal

fat_in_cache         dd -1

endg

uglobal

align 4

fat_cache:           times 512 db 0

 Sector512:                      ; label for dev_hdcd.inc

  buffer:              times 512 db 0

  deltree_buffer:      times 512 db 0

  fsinfo_buffer:       times 512 db 0

endg

iglobal

  NewDirEntry1         db ".          ",0x10

                     times 20 db 0

  NewDirEntry2         db "..         ",0x10

                     times 20 db 0

endg

uglobal

  dir_entry:           times 32 db 0

  startpath:           times 255 db 0

  fat16_root           db 0       ; flag for fat16 rootdir

  fat_change           db 0       ; 1=fat has changed

endg

reserve_hd1:

    cli

    cmp   [hd1_status],0

    je    reserve_ok1

    sti

    call  change_task

    jmp   reserve_hd1

  reserve_ok1:

    push  eax

    mov   eax,[0x3000]

    shl   eax,5

    mov   eax,[eax+0x3000+TASKDATA.pid]

    mov   [hd1_status],eax

    pop   eax

    sti

    ret

;********************************************

reserve_hd_channel:

    cmp   [hdbase], 0x1F0

    jne   .IDE_Channel_2

.IDE_Channel_1:

    cli

    cmp   [IDE_Channel_1],0

    je    .reserve_ok_1

    sti

    call  change_task

    jmp   .IDE_Channel_1

.IDE_Channel_2:

    cli

    cmp   [IDE_Channel_2],0

    je    .reserve_ok_2

    sti

    call  change_task

    jmp   .IDE_Channel_1

.reserve_ok_1:

    mov [IDE_Channel_1],1

    ret

.reserve_ok_2:

    mov [IDE_Channel_2],1

    ret

free_hd_channel:

    cmp   [hdbase], 0x1F0

    jne   .IDE_Channel_2

.IDE_Channel_1:

    mov [IDE_Channel_1],0

    ret

.IDE_Channel_2:

    mov [IDE_Channel_2],0

    ret

;********************************************

problem_partition db 0  ; used for partitions search

include  'part_set.inc'

set_FAT:

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

; input  : EAX = cluster

;          EDX = value to save

; output : EDX = old value

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

    push  eax ebx esi

    cmp   eax,2

    jb    sfc_error

    cmp   eax,[LAST_CLUSTER]

    ja    sfc_error

    cmp   [fs_type],16

    je    sfc_1

    add   eax,eax

  sfc_1:

    add   eax,eax

    mov   esi,511

    and   esi,eax               ; esi = position in fat sector

    shr   eax,9                 ; eax = fat sector

    add   eax,[FAT_START]

    mov   ebx,fat_cache

    cmp   eax,[fat_in_cache]    ; is fat sector already in memory?

    je    sfc_in_cache          ; yes

    cmp   [fat_change],0        ; is fat changed?

    je    sfc_no_change         ; no

    call  write_fat_sector      ; yes. write it into disk

    cmp   [hd_error],0

    jne   sfc_error

  sfc_no_change:

    mov   [fat_in_cache],eax    ; save fat sector

    call  hd_read

    cmp  [hd_error],0

    jne  sfc_error

  sfc_in_cache:

    cmp   [fs_type],16

    jne   sfc_test32

  sfc_set16:

    xchg  [ebx+esi],dx          ; save new value and get old value

    jmp   sfc_write

  sfc_test32:

    mov   eax,[fatMASK]

  sfc_set32:

    and   edx,eax

    xor   eax,-1                ; mask for high bits

    and   eax,[ebx+esi]         ; get high 4 bits

    or    eax,edx

    mov   edx,[ebx+esi]         ; get old value

    mov   [ebx+esi],eax         ; save n