format fdd 
Author Message
 format fdd

Hi
I am trying to write an program to format fdd 1,44MB
and I have a problem. Program work only in Windows XP, 2000 and NT. But  I
have thet program work on Win98. Please say where is a error.

procedure formatfdd;
    label koniec;
          var
          blad,sek,g,cyl:byte;     sek-sektor,head,cyl-cylinder
          buffor:Tdat;              buffor for  format
          bufor,fat:Tdatab;      buffoe for quick format
          i:integer;
          begin
          for cyl:=0 to 79 do
           for g:=0 to 1 do begin
               buffor.c:=cyl;
               buffor.h:=g;
               buffor.s:=1;
               buffor.f:=$02;
            asm
            push es
     mov ah,05h
            mov al,18d
            mov ch,cyl
            mov cl,01d
     mov dh,g
            mov dl,00h
            mov bx, seg buffor
            mov es, bx
            mov bx, offset buffor
            int 13h
            mov blad, ah
            pop es
            end;
end;

{save boot sector }
       asm
            push es
            mov ah,03h
            mov al,01d
            mov ch,00d
            mov cl,01d
            mov dh,00d
            mov dl,00h
            mov bx, seg data {table  in boot sector}
            mov es, bx
            mov bx, offset data
            int 13h
            mov blad,ah
            pop es
        end;
{save FAT table}

  for i:=0 to 511 do bufor[i]:=$00;
     i:=0;
     fat[i]:=$F0;
     inc(i);
     fat[i]:=$FF;
     inc(i);
     fat[i]:=$FF;
     for i:=3 to 511 do fat[i]:=$00;
         asm
            push es
            mov ah,03h
            mov al,17d
            mov ch,00d
            mov cl,02d
            mov dh,01d
            mov dl,00h
            mov bx, seg bufor
            mov es, bx
            mov bx, offset bufor
            int 13h
            mov blad,ah
            pop es
        end;

         asm
            push es
            mov ax,03h
            mov al,15d
            mov ch,00d
            mov cl,01d
            mov dh,01d
            mov dl,00h
            mov bx, seg bufor
            mov es, bx
            mov bx, offset bufor
            int 13h
            mov blad,ah
            pop es
        end;
        asm
           push es
           mov ah,03
           mov al,01h
           mov ch,00d
           mov cl,02h
           mov dh,00d
           mov dl,00h
           mov bx, seg fat
           mov es, bx
           mov bx, offset fat
           int 13h
           mov blad,ah
           pop es
        end;
        asm
           push es
           mov ah,03h
           mov al,01d
           mov ch,00d
           mov cl,10d
           mov dh,01d
           mov dl,00h
           mov bx, seg fat
           mov es, bx
           mov bx, offset fat
           int 13h
           mov blad,ah
           pop es
        end;

Sorry, for my english in not goot.



Sun, 13 Nov 2005 17:22:15 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. convert differents formats under delphi format

2. DBASE Format or Paradox format

3. any event to know a floppy disk insert to F.D.D. ?

4. Looking for tech info on xBase formats

5. SQL code for creating a DBF format table

6. Conflicting error message formats from SQL Server 2000

7. Formatting a float of a DB grid

8. memo file format

9. Using pictures in PCX format instead of default (BMP,WMF) in databases

10. Data fields in row format?

11. Date Format Confusion

12. Date Format in SQL

 

 
Powered by phpBB® Forum Software