; DISKFIND.ASM
.MODEL SMALL
include msystem.mac
include diskete.m
.CODE
;--- Операция поиска ---
func	diskfind,<byte drive,byte head,byte track>,,,public
 out_fdc <0Fh>		; номер кода поиска
 mov	AH, drive	; и биты 1-0 выбор накопителя
 mov	AL, head	; и биты 3 выбор головки
 mov	CL, 2		; сдвинуть содержимое 1 бита в 3 бит
 shl	AL, CL		; --//--
 or	AH, AL		; --//--
 out_fdc <AH>		; номер головки и накопителя
 out_fdc <track>	; номер дорожки
 wait_interrupt		; ожидаем прерывания от НГМД
 do	1750		; ожидаем установки головки(25мсек.)
 enddo
endf
END