Используя подсистему прерываний, написать программу, которая выводит на экран информацию о параметрах НЖМД - Turbo Pascal

Формулировка задачи:

Используя подсистему прерываний написать программу, которая выводит на экран информацию о параметрах НЖМД. $ 13 - дисковые службы Перечень функций (номер функции при вызове прерывания должен содержаться в регистре АН): 0 - сброс дисковой системы; 1 - определение состояния диска; 2 - чтение секторов диска; 3 - запись секторов диска; 5 - форматирование дорожки; 8 - определение текущих параметров диска; 10 - проверка готовности диска; При задании входных параметров обычно используется следующая схема: АН = номер функции; AL = количество секторов (1-128) СН - количество цилиндров (0-1023) CL = номер сектора (1-17) DH = номер головки (0-15) DL = номер дисковода (0 = А :, 1 = 2-й флоппи; $ 80 = жесткий диск 0, $ 81 = жесткий диск 1). возвращает: CF = 0 в случае успеха, = 1 в случае ошибки.

Код к задаче: «Используя подсистему прерываний, написать программу, которая выводит на экран информацию о параметрах НЖМД - Turbo Pascal»

textual
var
  DiskCnt, MaxCyl, MaxHead, MaxSect: Byte;
begin
  asm
    mov ah,8h
    mov dl,80h
    int 13h
    mov DiskCnt,dl
    mov MaxHead,dh
    mov MaxCyl,ch
    mov MaxSect,cl
  end;
  WriteLn('Количество дисков: ',DiskCnt);
  WriteLn('Диск 0, C H S: ',MaxCyl,' ',MaxHead,' ',MaxSect);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ