; DISKSTAT.ASM
.MODEL SMALL
include msystem.mac
include diskete.m
.CODE
;--- Чтение состояния накопителя ---
func	diskstat,<byte drive>,,,public
 out_fdc <04h>		; посылаем команду
 out_fdc <drive>	; номер накопителя (пеpвая головка)
 wait_interrupt		; ожидаем прерывания от НГМД
 in_fdc	,<status>	; читаем результирующий байт
endf
END