#include <stdio.h>
#include <dos.h>
#include <bios.h>

typedef struct _DPT_
{
  unsigned char srt_hut;
  unsigned char dma_hlt;
  unsigned char motor_w;
  unsigned char sec_size;
  unsigned char eot;
  unsigned char gap_rw;
  unsigned char dtl;
  unsigned char gap_f;
  unsigned char fill_char;
 unsigned char hst;
 unsigned char mot_start;
} DPT;

DPT far *get_dpt(void);

// Номер форматируемой дорожки
#define TRK 20

// Код размера сектора - 512 байт
#define SEC_SIZE 2

union REGS inregs, outregs;
char diskbuf[512];

void main(void)
{
  struct diskinfo_t di;
  unsigned status;
  unsigned char old_sec_size,
    old_fill_char, old_eot;
  int i, j;
  DPT  _far *dpt_ptr;

  // Получаем адрес таблицы параметров дискеты
  dpt_ptr = get_dpt();

  // Сохраняем старые значения из таблицы параметров
  old_sec_size  = dpt_ptr->sec_size;
  old_fill_char = dpt_ptr->fill_char;
  old_eot       = dpt_ptr->eot;

  // Устанавливаем в таблице параметров дискеты
  // код размера сектора, символ заполнения при
  // форматировании, количество секторов на дорожке
  dpt_ptr->sec_size  = SEC_SIZE;
  dpt_ptr->fill_char = 0xf8;
  dpt_ptr->eot       = 15;

  // Устанавливаем тип дискеты
  inregs.h.ah = 0x17;
  inregs.h.al = 3; // дискета высокой плотности
                   // в НГМД высокой плотности
  inregs.h.dl = 0;
  int86(0x13, &inregs, &outregs);

  // Устанавливаем среду для форматирования
  inregs.h.ah = 0x18;
  inregs.h.ch = TRK;
  inregs.h.cl = dpt_ptr->eot;
  inregs.h.dl = 0;
  int86(0x13, &inregs, &outregs);

  // Подготавливаем параметры для
  // функции форматирования
  di.drive    = 0;
  di.head     = 0;
  di.track    = TRK;
  di.sector   = 1;
  di.nsectors = 15;
  di.buffer   = (void far*)diskbuf;

  // Подготавливаем буфер формата для 15 секторов
  for(i=0, j=1; j<16; i += 4, j++)
  {
    diskbuf[i]    = TRK;
    diskbuf[i+1]  = 0;
    diskbuf[i+2]  = j;
    diskbuf[i+3]  = SEC_SIZE;
  }

  // Вызываем функцию форматирования дорожки
  status = _bios_disk(_DISK_FORMAT, &di) >> 8;

  printf("\nФорматирование завершилось "
    "с кодом: %d", status);

  // Восстанавливаем старые значения в
  // таблице параметров дискеты
  dpt_ptr->sec_size  = old_sec_size;
  dpt_ptr->fill_char = old_fill_char;
  dpt_ptr->eot       = old_eot;
}

/**
* get_dpt
*
* Вычислить адрес таблицы параметров дискеты
*
* Функция возвращает указатель на таблицу
* параметров дискеты
*
**/
DPT far *get_dpt(void)
{
  void far * far *ptr;
  ptr = (void far * far *)MK_FP(0x0, 0x78);
  return(DPT far*)(*ptr);
}