Subversion Repositories Kolibri OS

floppy_free_space:

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

;

; returns free space in edi

;

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

    push   eax ebx ecx

    call   read_flp_fat

    cmp    [FDC_Status],0

    jne    fdc_status_error_2

    mov    eax,0x282004

    xor    edi,edi

    mov    ecx,2847   ;1448000/512

rdfs1_1:

    mov    ebx,[eax]

    and    ebx,4095

    jne    rdfs2_1

    add    edi,512

rdfs2_1:

    add    eax,2

    loop   rdfs1_1

fdc_status_error_2:

    pop    ecx ebx eax

    ret

   ret

floppy_filedelete:

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

;

; filedelete - sys floppy

; in:

; eax - filename 11 chars - for root directory

; edi  pointer to path   /fd/1/...... - for all files in nested directories

;

; out:

; eax - 0 = successful, 1 = file not found, 10 = access denied

;

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

    mov    [path_pointer_flp],edi

    mov    [save_flag],0

    mov    ebp,1  ; file not found as default

filedelete_newtry_1:

    sub    esp,32

    call   expand_filename

    push   eax ebx ecx edx esi edi

    call   read_flp_fat

    cmp    [FDC_Status],0

    jne    frnoreadd_1

    mov    [FDD_Track],0      ; Öèëèíäð

    mov    [FDD_Head],1      ; Ñòîðîíà

    mov    [FDD_Sector],2      ; Ñåêòîð

    call    SeekTrack

    mov     dh,14

l.20_2:

    call    ReadSectWithRetr

    cmp    [FDC_Status],0

    jne    fdc_status_error_4

    mov     dl,16

    mov     edi,FDD_BUFF

    inc     [FDD_Sector]

l.21_2:

    mov    esi,eax            ;Name of file we want

    mov    ecx,11

    cld

    rep    cmpsb            ;Found the file?

    je     fifoundd_1          ;Yes

    add    ecx,21

    add    edi, ecx         ;Advance to next entry

    dec    dl

    jne    l.21_2

    dec    dh

    jne    l.20_2

    jmp    frnoreadd_1

fdc_status_error_4:

    pop    edi esi edx ecx ebx eax

    add    esp,32

    jmp    fdc_status_error_1

fifoundd_1:

    mov    eax,[path_pointer_flp]

    cmp    [eax+36],byte 0

    je    fifoundd_2

    movzx  eax, word [edi+0xf]

    mov    ebx,[path_pointer_flp]

    add    ebx,36

    call   get_cluster_of_a_path_flp

    jc     frnoreadd_1_1

    mov    edi,ebx

    add    edi,11

    jmp    fifoundd_2_1

fifoundd_2:

    dec    [FDD_Sector]

fifoundd_2_1:

    mov    [edi-11],byte 0xE5    ;mark filename deleted

        movzx   edi, word [edi+0xf] ;edi = cluster

frnewd_1:

    shl    edi,1            ;find next cluster from FAT

    add    edi,FLOPPY_FAT

    mov    eax,[edi]

    mov    [edi],word 0x0        ;clear fat chain cluster

    and    eax,4095

    mov    edi,eax

    cmp    edi,dword 4095        ;last cluster ?

    jz     frnoreadd2_1

    jmp    frnewd_1

frnoreadd2_1:

    call   WriteSectWithRetr

    cmp    [FDC_Status],0

    jne    fdc_status_error_4

    call   save_flp_fat

    cmp    [FDC_Status],0

    jne    fdc_status_error_4

;    pop    edi esi edx ecx ebx eax

;    add    esp,32

    mov    ebp,0       ; file found

;    jmp    filedelete_newtry_1

    jmp    frnoreadd_1

frnoreadd_1_1:

    cmp    [FDC_Status],0

    jne    fdc_status_error_4

frnoreadd_1:

    pop    edi esi edx ecx ebx eax

    add    esp,32

    mov    eax,ebp

    ret

floppy_filesave:

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

;

; filesave - sys floppy

;

; eax      ; pointer to file name 11 chars - for root directory

; ebx      ; buffer

; ecx      ; count to write in bytes

; edx      ; 0 create new , 1 append

; edi  pointer to path   /fd/1/......  - for all files in nested directories

;

; output : eax = 0 - ok

;                5 - file not found / directory not found

;                8 - disk full

;               10 - access denied

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

    mov    [path_pointer_flp],edi

    sub  esp,32

    call expand_filename

    cmp  edx,0

    jnz  fsdel_1

    pusha

    call floppy_filedelete

    cmp    [FDC_Status],0

    jne    fdc_status_error_6

    popa

    mov    [save_flag],1

fsdel_1:

    call   floppy_free_space

    cmp    [FDC_Status],0

    jne    fdc_status_error_6

    cmp    ecx,edi

    jb     rd_do_save_1

    add    esp,32

    mov    eax,8    ; not enough free space

    mov   [flp_status],0

    ret

fdc_status_error_6:

    popa

    add    esp,32

    jmp    fdc_status_error_1

rd_do_save_1:

    push   eax ebx ecx edx esi edi

    call   read_flp_fat

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

    push   eax

    mov    eax,[path_pointer_flp]

    cmp    [eax+36],byte 0

    jne    fifoundds_2

    pop    eax

    mov    [save_root_flag],1

    call   read_flp_root

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

    mov    edi,FLOPPY_BUFF   ;Point at directory

    mov    edx,224 +1

    ; find an empty spot for filename in the root dir

l20ds_1:

    sub    edx,1

    jz     frnoreadds_1

l21ds_1:

    cmp    [edi],byte 0xE5

    jz     fifoundds_1

    cmp    [edi],byte 0x0

    jz     fifoundds_1

    add    edi,32            ; Advance to next entry

    jmp    l20ds_1

fifoundds_2:

    pop    eax

    mov    [save_root_flag],0

    mov    [FDD_Track],0      ; Öèëèíäð

    mov    [FDD_Head],1       ; Ñòîðîíà

    mov    [FDD_Sector],2      ; Ñåêòîð

    call   SeekTrack

    mov    dh,14

l.20_3:

    call    ReadSectWithRetr

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

    mov    dl,16

    mov    edi,FDD_BUFF

    inc     [FDD_Sector]

l.21_3:

    mov    esi,eax            ;Name of file we want

    mov    ecx,11

    cld

    rep    cmpsb            ;Found the file?

    je     fifoundds_3          ;Yes

    add    ecx,21

    add    edi, ecx         ;Advance to next entry

    dec    dl

    jne    l.21_3

    dec    dh

    jne    l.20_3

fdc_status_error_8:

    pop     edi esi edx ecx ebx eax

    mov    eax,5            ; file not found ?

    mov    ebx,-1

    add    esp,32

    mov    [flp_status],0

    ret

fifoundds_3:

    add    edi,0xf

    mov    eax,[edi]

    and    eax,65535

    mov    ebx,[path_pointer_flp]

    add    ebx,36

    call   get_cluster_of_a_path_flp

    jc     fdc_status_error_7_1

found_directory_for_writing_flp:

    call   analyze_directory_to_write_flp

    jc     fdc_status_error_7_1

    mov    edi,ebx

fifoundds_1:

    push   edi            ; move the filename to root dir

    mov    esi,[esp+4+20]

    cmp    [save_root_flag],0

    jne    fifoundds_4

    mov    esi,[pointer_file_name_flp]

fifoundds_4:

    mov    ecx,11

    cld

    rep    movsb

    pop    edi

    mov    edx,edi

    add    edx,11+0xf        ; edx <- cluster save position

    mov    ebx,[esp+12]        ; save file size

    mov    [edi+28],ebx

    mov    [edi+11],byte 0x20    ; attribute

    call   get_date_for_file     ; from FAT32.INC

    mov    [edi+24],ax      ; date

    mov    [edi+18],ax      ; date

    call   get_time_for_file     ; from FAT32.INC

    mov    [edi+22],ax      ; time

    xor    ax,ax

    mov    [edi+20],ax

    mov    ebx,1            ; first cluster

    cmp    [save_root_flag],0

    jne    frnewds_1

    call   frnewds_2

    pusha

    call   WriteSectWithRetr

    popa

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

    jmp    frnewds_3

frnewds_1:

    call   frnewds_2

frnewds_3:

    pusha                ; move save to floppy cluster

    add    ebx,31

    mov    eax,ebx

    mov    esi,[esp+32+16]

    call   take_data_from_application_1

    call   save_chs_sector

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

    popa

    mov    eax,[esp+12]

    cmp    eax,512

    jb     flnsa_1

    sub    eax,512

    mov    [esp+12],eax

    mov    eax,[esp+16]

    add    eax,512

    mov    [esp+16],eax

    jmp    frnewds_1

frnewds_2:

    add    ebx,1

    mov    edi,ebx            ; find free cluster in FAT

    shl    edi,1

    add    edi,FLOPPY_FAT

    mov    eax,[edi]

    and    eax,4095

    jnz    frnewds_2

    mov    [edx],bx         ; save next cluster pos. to prev cl.

    mov    edx,edi            ; next save pos abs mem add

    ret

flnsa_1:

    mov    [edi],word 4095        ; mark end of file - last cluster

    cmp    [save_root_flag],1

    jne    flnsa_2

    call   save_flp_root

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

flnsa_2:

    call   save_flp_fat

    cmp    [FDC_Status],0

    jne    fdc_status_error_7

frnoreadds_1:

    pop    edi esi edx ecx ebx eax

    add    esp,32

    mov    eax,0

    mov   [flp_status],0

    ret

fdc_status_error_7_1:

    cmp    [FDC_Status],0

    je    fdc_status_error_8

fdc_status_error_7:

    pop    edi esi edx ecx ebx eax

analyze_directory_to_write_flp:

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

; input  : EAX = first cluster of the directory

; output : IF CARRY=0 EAX = sector where the file is found

;                     EBX = pointer in buffer

;                     [buffer .. buffer+511]

;                     ECX,EDX,EDI,EDI not changed

;          IF CARRY=1

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

   push ecx

   push edx

   push esi

adr561:

   mov [clust_tmp_flp],eax

   add    eax,31

   pusha

   call   read_chs_sector

   popa

   cmp    [FDC_Status],0

   jne    error_found_file_analyze1

   mov ecx,512/32

   mov ebx,FDD_BUFF

adr1_analyze1:

   cmp byte [ebx],0x00

   je  found_file_analyze1

   cmp byte [ebx],0xe5

   je  found_file_analyze1

avanti:

   add ebx,32

   loop adr1_analyze1

   mov eax,[clust_tmp_flp]

   shl    eax,1            ;find next cluster from FAT

   add    eax,FLOPPY_FAT

   mov    eax,[eax]

   and    eax,4095

   cmp eax,0x0ff8

   jb  adr561

   call get_free_FAT               ;this block of code add a new cluster

                                   ;for the directory because the directory

                                   ;is full

   mov [edi],word 0x0fff

   mov eax,[clust_tmp_flp]

   shl    eax,1            ;find next cluster from FAT

   add    eax,FLOPPY_FAT

   sub    edi,FLOPPY_FAT

   mov    [eax],di

   pusha

   mov ecx,512/4

   xor eax,eax

   mov edi,FDD_BUFF

   cld

   rep stosd

   popa

   mov    eax,edi

   add    eax,31

   pusha

   call   save_chs_sector

   popa

   cmp    [FDC_Status],0

   jne    error_found_file_analyze1

   mov    ebx,FDD_BUFF

found_file_analyze1:

   pop esi

   pop edx

   pop ecx

   clc        ;file found

   ret

error_found_file_analyze1:

   pop esi

   pop edx

   pop ecx

   stc

   ret

get_free_FAT_flp:

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

; input  :  EAX = # cluster for start the searching

; output :  EAX = # first cluster found free

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

   push ebx

    mov    ebx,1

check_new_flp:

    add    ebx,1

    mov    edi,ebx            ; find free cluster in FAT

    shl    edi,1

    add    edi,FLOPPY_FAT

    mov    eax,[edi]

    and    eax,4095

    cmp    eax,0x0

    jnz    check_new_flp

   pop ebx