Работа с диском на физическом уровне Опции

[GLuk]

{Эххх - попробуй вот это :o}


Uses
   Crt;
Var
  Buf:array[1..512] of Char;
  i:Integer;
  Name:String;
Begin
    ClrScr;
    Name:='boot!sec.bin'#0;
    WriteLn('Вставьте дискету и нажмите any key...');
    asm
       mov ah,0
       int 16h
       mov al,0        {Номер логического диска}
       mov cx,1        {Количество секторов для чтения}
       mov dx,0        {Номер стартового сектора}
       lea bx,Buf      {Смещение к нашему буферу}
       int 25h         {читаем}
    end;
    WriteLn('Прочитали...смотрим содержимое:');
    {Выводим, пропуская перевод строки и возврат каретки, дабы не уехало...}
    For i:=1 to 512 do If (Buf[i]<>#10) or (Buf[i]<>#13) then Write(Buf[i]);
    asm
       {Сохранить, прочитанный сектор на диск под именем Name}
       mov ax,3D02h    {Открыть файл}
       lea dx,Name     {Адрес имени}
       inc dx          {Пропускаем байт размера стринга}
       int 21h
       jnc @AlrExst    {Уже есть}
       mov ah,3Ch      {Если нет - создаем}
       mov cx,20h      {Атрибут - архивный}
       int 21h         {Обращаемся к ДОС}
@AlrExst:mov bx,ax      {Дескриптор}
       mov ah,40h      {Запись}
       mov cx,512      {Кол-во байт для записи}
       lea dx,Buf      {Буфер с прочитанным содержимым нулевого сектора}
       int 21h         {пишем}
       mov ah,3Eh      {Закрыть файл}
       int 21h
    end;
    WriteLn('Вставьте следующую дискету then press any key...');
    {Можешь оформить в виде отдельных процедур}
    {А заодно просмотреть содержимое бут-сектора на ЖД - файл boot!sec.bin}
    asm
       mov ah,0
       int 16h
       mov ax,3D02h    {Открыть файл с содержимым бут-сектора}
       lea dx,Name     {Адрес имени}
       inc dx          {Пропускаем байт размера стринга}
       int 21h
       mov bx,ax       {Сохр. дескриптор}
       mov ah,3Fh      {Читать из файла}
       mov cx,512      {512 байт читать}
       lea dx,Buf      {Буфер для чтения}
       int 21h         {читаем}
       mov ah,3Eh      {Закрыть файл}
       int 21h
       mov al,0        {Номер логического диска}
       mov cx,1        {Количество записываемых секторов}
       mov dx,0        {Номер стартового сектора}
       lea bx,Buf      {Буфер}
       int 26h         {пишешь}
    end;
End.

[GLuk]

Должно блин работать, на все, эти самые - 100%  ;)

[Shadow]

:D да блин вот паока дискета целая то программа работает т.е. портит записывает, но
когда испортилась и пытаешся записать то винд выдает сообщение от том что попытка записи на диск несовместимого формата блин
----
ВОТ НЮ ИЛАДНО ИЗ ПОД  DOS работет

[GLuk]

ААА!!! Должно работать из-под винды  >:(
Тестировал на XP, 98 SE, MS-DOS 6.22 и 95OSR2, блин

[Shadow]

:D интерактивную среду написал ужо
книга abel
помогает
из под виндовс  работает только до определ момента
портить портит а когда испортит и происходит попытка обращения к нему то винды выдвают
сообщение что произшол доступ к нестандартной
форматированной дискете и выкидывает
ВОООТ !!!!!
а так все работает

[GLuk]

Попробую переписать, чтобы обращалась к контроллеру НГМД... :P

[Shadow]

:D ето через порты или прерывания ??? :

[GLuk]

Через порты...

[GLuk]

Что-то такая хрень получается. Типа чижика-пыжика...в смысле звука, издаваемого этим самым контроллером НГМД. А еще подумай насчет граф. движка...