; DISKMOTO.ASM
.MODEL SMALL
include msystem.mac
include diskete.m
.CODE
;--- Включение мотора ---
func	diskmotor,<byte drive,byte is_motor>,,,public
 if$	<<<AL is_motor> e TRUE>>
; включение мотора
  mov	DX, 3F2h	; адрес регистра цифрового вывода
  mov	AL, drive	; устанавливаем биты 1-0 выбор накопителя
  or	AL, 00001100b	; и биты 2 и 3
  mov	AH, drive
  switch	AH,<00h,01h>	; накопитель A[00h] или B[01h]
  case	1
   or	AL, 00010000b	; установить бит 4 мотора накопителя A
  case	2
   or	AL, 00100000b	; установить бит 5 мотора накопителя B
  endcase
  out	DX, AL		; посылаем команду
  do	3500		; ожидаем пока мотор наберет скорость(1/2сек.)
  enddo
 else$
; выключение мотора
  mov	DX, 3F2h	; адрес регистра цифрового вывода
  mov	AL, 00001100b	; и оставляем биты 2 и 3
  out	DX, AL		; посылаем новую установку
 endif$
endf
END